Table10. Fields [8]. AsString; PN = '-' then PN: ='';: = Form1.ADOTable10. Fields [9]. AsString;: = Form1.ADOTable10. Fields [10]. AsString;: = Form1.ADOTable10. Fields [11]. AsString;: = Form1.ADOTable10. Fields [11]. AsString;: = Form1.ADOTable10. Fields [12]. AsString; Z = '-' then Z: =''; Z = 'перевезення вантажів' then Z: ='';
O: = Form1.ADOTable10. Fields [13]. AsString;: = Form1.ADOTable10. Fields [14]. AsString;: = Form1.ADOTable10. Fields [15]. AsString;: = Form1.ADOTable10. Fields [16]. AsString;: = Form1.ADOTable10. Fields [17]. AsString;: = Form1.ADOTable10. Fields [23]. AsString;: = Form1.ADOTable10. Fields [18]. AsString;: = Form1.ADOTable10. Fields [24]. AsString;: = Form1.ADOTable10. Fields [19]. AsString;: = Form1.ADOTable10. Fields [25]. AsString;: = Form1.ADOTable10. Fields [20]. AsInteger;: = Form1.ADOTable10. Fields [26]. AsInteger;: = Form1.ADOTable10. Fields [21]. AsInteger;: = Form1.ADOTable10. Fields [27]. AsInteger;: = Form1.ADOTable10. Fields [22]. AsExtended;: = Form1.ADOTable10. Fields [28]. AsExtended;: = Form1.ADOTable10. Fields [35]. AsString;: = Form1.ADOTable10. Fields [36]. AsString;: = Form1.ADOTable10. Fields [37]. AsString;: = Form1.ADOTable10. Fields [33]. AsString;: = Form1.ADOTable10. Fields [38]. AsString;: = Form1.ADOTable10. Fields [39]. AsString;: = Form1.ADOTable10. Fields [40]. AsString;: = Form1.ADOTable10. Fields [41]. AsString;: = 'C: Program Files URA putevoy.xlt';: = 1;
BeginRow: = 13;
// Розміри виведеного масиву даних
RowCount: = Form1.ADOTable10. RecordCount;: = Form1.ADOTable10. FieldDefs. Count;: = CreateOleObject ('Excel. Application');. Application. EnableEvents: = false;: = ExcelApp. WorkBooks. Add (ShFile);: = VarArrayCreate ([1, RowCount, 1, ColCount], varVariant);: = WorkBook. WorkSheets [1]. Cells [3,86];// № пут. л .. Value: = NPL;: = WorkBook. WorkSheets [1]. Cells [1,83];// позначки. Value: = Otm;: = WorkBook. WorkSheets [1]. Cells [5,47];// дата. Value: = DataV;: = WorkBook. WorkSheets [1]. Cells [5,58];// місяць. Value: = DataV;: = WorkBook. WorkSheets [1]. Cells [5,79];// рік. Value: = DataV;: = WorkBook. WorkSheets [1]. Cells [6,17];// Організація_полн .. Value: = O;: = WorkBook. WorkSheets [1]. Cells [8,26];// марка а/м. Value: = Marka;: = WorkBook. WorkSheets [1]. Cells [11,28];// держ. номер. Value: = GN;: = WorkBook. WorkSheets [1]. Cells [14,9];// водій. Value: = FIOP;: = WorkBook. WorkSheets [1]. Cells [16,16];// № уд .. Value: = NVod;: = WorkBook. WorkSheets [1]. Cells [16,45];// клас. Value: = Kl;: = WorkBook. WorkSheets [1]. Cells [12,8];// причіп. Value: = PM;: = WorkBook. WorkSheets [1]. Cells [12,47];// держ. номер. Value: = PN;: = WorkBook. WorkSheets [1]. Cells [13,117];// виезд_чісло. Value: = DataV;: = WorkBook. WorkSheets [1]....
