Add(MainForm,152061,161,210)
{
 Width=860
 link(onCreate,4222993:doWork,[])
}
Add(FTCG_Tools,10286678,336,224)
{
}
BEGIN_SDK
  Add(EditMultiEx,10355014,91,35)
  {
   WorkCount=#14:doWriteConsole|
   Width=902
   Height=466
   link(doWriteConsole,5722965:doPrint,[(151,41)(151,83)])
  }
  Add(VisualInline,5722965,161,77)
  {
   Lines=#3:var|13:   C: _COORD;|18:   R : SMALL_RECT;|21:   Hnd, Wr: Cardinal;|15:   Buf: String;|5:begin|16:   AllocConsole;|15:   R.Left := 0;|14:   R.Top := 0;|18:   R.Right := 100;|18:   R.Bottom := 24;|14:   C.X := 135;|15:   C.y := 8000;|22:   SetConsoleCP(1251);|28:   SetConsoleOutputCP(1251);|33:   //SetConsoleOutputCP(CP_UTF8);|50:   SetConsoleTitle( PChar( 'Separate console' ) );|0:|40:   Hnd:=GetStdHandle(STD_OUTPUT_HANDLE);|38:   SetConsoleScreenBufferSize(Hnd, C);|38:   SetConsoleWindowInfo(Hnd, True, R);|10:   C.X:=0;|10:   C.Y:=0;|23:   Buf:=ToString(Data);|35:   SetConsoleCursorPosition(Hnd,C);|58:   WriteConsole(Hnd,PChar(Buf),StrLen(PChar(Buf)),Wr,nil);|3:   |3:   |4:end;|
   Width=607
   Height=316
  }
END_SDK
Add(StrList,9188971,231,133)
{
 Strings=#42:Item;Description;Quantity;Unit;Price;Value|63:13930;Double-action Quickstart II rem. L=740mm;1;PC;98,66;98,66|53:13100201;Spray gun for udder washer;20;PC;17,77;355,4|49:13246007;COMBI-cock ш51 mm cpl.;10;PC;63,43;634,3|51:25643301;Milk hose ш 24/14 x 2750;32;PC;9,76;312,32|56:14291;Service no.1 RDS MAX double box;1;PC;250,51;250,51|54:24144638;Spiral spring for tube filter;3;PC;43,2;129,6|40:22121763;V-belt spz 1087;4;PC;5,91;23,64|61:MH0015;Repair kit non-rotating cylinder ш40mm;8;PC;14,3;114,4|48:GS9835;Revision set SAC Unipuls;4;PC;13,97;55,88|52:22121735;El-motor 3,0kw 3x400v 1400;1;PC;186,4;186,4|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|55:23544122;Carbon disc ш44,7/38,3x5,8mm;10;PC;16,92;169,2|54:23544122;Carbon disc ш44,7/38,3x5,8mm;2;PC;16,92;33,84|0:|
 Point(doSave)
 Point(EndIdx)
}
Add(VBJScript,4222993,231,224)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onOut|
 DataPoints=#3:csv|9:delimiter|
 Script=#23:Sub doWork(Data, Index)|0:|33:Dim arrLines, arrHeaders, arrData|19:Dim arrColumnWidths|8:Dim i, j|18:Dim strTableOutput|0:|33:arrLines = Split(sys.csv, vbCrLf)|0:|46:arrHeaders = Split(arrLines(0), sys.delimiter)|55:ReDim arrData(UBound(arrLines) - 1, UBound(arrHeaders))|41:ReDim arrColumnWidths(UBound(arrHeaders))|31:For i = 0 To UBound(arrHeaders)|40:	arrColumnWidths(i) = Len(arrHeaders(i))|4:Next|0:|29:For i = 1 To UBound(arrLines)|32:	If Trim(arrLines(i)) <> "" Then|15:		Dim arrFields|47:		arrFields = Split(arrLines(i), sys.delimiter)|32:		For j = 0 To UBound(arrFields)|34:			If j <= UBound(arrHeaders) Then|42:				arrData(i - 1, j) = Trim(arrFields(j))|55:				If Len(arrData(i - 1, j)) > arrColumnWidths(j) Then|48:					arrColumnWidths(j) = Len(arrData(i - 1, j))|10:				End If|9:			End If|6:		Next|7:	End If|4:Next|0:|19:strTableOutput = ""|0:|37:strTableOutput = strTableOutput & "+"|36:For i = 0 To UBound(arrColumnWidths)|79:    strTableOutput = strTableOutput & String(arrColumnWidths(i) + 2, "-") & "+"|4:Next|40:strTableOutput = strTableOutput & vbCrLf|0:|37:strTableOutput = strTableOutput & "|"|31:For i = 0 To UBound(arrHeaders)|119:    strTableOutput = strTableOutput & " " & arrHeaders(i) & String(arrColumnWidths(i) - Len(arrHeaders(i)), " ") & " |"|4:Next|40:strTableOutput = strTableOutput & vbCrLf|0:|37:strTableOutput = strTableOutput & "+"|36:For i = 0 To UBound(arrColumnWidths)|79:    strTableOutput = strTableOutput & String(arrColumnWidths(i) + 2, "-") & "+"|4:Next|40:strTableOutput = strTableOutput & vbCrLf|0:|31:For i = 0 To UBound(arrData, 1)|41:    strTableOutput = strTableOutput & "|"|35:    For j = 0 To UBound(arrData, 2)|124:        strTableOutput = strTableOutput & " " & arrData(i, j) & String(arrColumnWidths(j) - Len(arrData(i, j)), " ")  & " |"|8:    Next|44:    strTableOutput = strTableOutput & vbCrLf|4:Next|0:|37:strTableOutput = strTableOutput & "+"|36:For i = 0 To UBound(arrColumnWidths)|79:    strTableOutput = strTableOutput & String(arrColumnWidths(i) + 2, "-") & "+"|4:Next|0:|40:strTableOutput = strTableOutput & vbCrLf|0:|25:sys.onOut  strTableOutput|0:|7:End Sub|
 UseName=0
 link(onOut,1924639:doEvent1,[])
 link(csv,9188971:Text,[])
 link(delimiter,6699366:Text,[(244,208)(251,208)])
}
Add(Memo,11026587,336,266)
{
 Width=844
 Height=261
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(Hub,1924639,287,224)
{
 link(onEvent1,10286678:doWriteConsole,[])
 link(onEvent2,11026587:doAdd,[(323,237)(323,272)])
}
Add(VisualStrings,6699366,245,182)
{
 @Hint=#9:delimiter|
 Lines=#1:;|
 AddHint(59,-24,53,13,@Hint)
}