Delphi ile kod örneği
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
vardata: IData;datalines: UnityObjects_TLB.ILines;zaman: OleVariant;begindata := Logo.NewDataObject(doSalesInvoice);data.New;data.DataFields.FieldByName('TYPE').Value := 9;data.DataFields.FieldByName('NUMBER').Value := //Fatura Nodata.DataFields.FieldByName('DOC_NUMBER').Value := // Belge Numarasıdata.DataFields.FieldByName('AUXIL_CODE').Value := 'AUTO';data.DataFields.FieldByName('DATE').Value := //Tarihdata.DataFields.FieldByName('DOC_DATE').Value := // TarihLogo.PackTime(12, 12, 12, zaman);data.DataFields.FieldByName('TIME').Value := zaman;data.DataFields.FieldByName('ARP_CODE').Value := // Müşteri Kodudata.DataFields.FieldByName('POST_FLAGS').Value := 247;data.DataFields.FieldByName('PAYMENT_CODE').Value := // Ödeme Planıdata.DataFields.FieldByName('SALESMAN_CODE').Value := // Satıcıdata.DataFields.FieldByName('NOTES1').Value := //Açıklamadata.DataFields.FieldByName('SOURCE_WH').Value := // Ambar Kodudata.DataFields.FieldByName('DIVISION').Value := //Depo Kodudatalines := data.DataFields.FieldByName('TRANSACTIONS').Lines;datalines.AppendLine;datalines[0].FieldByName('TYPE').Value := 4;datalines[0].FieldByName('MASTER_CODE').Value := //Stok Kodudatalines[0].FieldByName('QUANTITY').Value := //Adetdatalines[0].FieldByName('PRICE').Value := //B.Fiyatdatalines[0].FieldByName('UNIT_CODE').Value := 'ADET';datalines[0].FieldByName('VAT_RATE').Value := //KdVdata.Post |