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 32 33 34 35 36 37 38 39 40 41 42 43
|
procedure TCarteClient.CreaFichier();
var
F:textfile;
Content:string;
begin
Content:='SXY 1' +#13
+'+RIB 4' +#13
+'+C 10' +#13
+'F ' +#13
+'T 650 100 0 1 0 55 1 '+ttiers +StringOfChar(' ', 15 - Length(ttiers)) +#13
+'T 095 150 0 1 0 60 1 '+LeftStr(tnom,25) { +StringOfChar(' ', 48 - Length(tnom)) } +#13
+'T 095 250 0 0 0 60 1 '+LeftStr(tnom1,25) +StringOfChar(' ', 45 - Length(tnom1)) +#13
+'T 095 300 0 0 0 45 1 '+LeftStr(tlocal,25) +StringOfChar(' ', 40 - Length(tlocal)) +#13
+'T 095 350 0 0 0 45 1 '+LeftStr(tcpays,25) +StringOfChar(' ', 40 - Length(tcpays)) +#13
+'T 095 400 0 0 0 45 1 '+DateToStr(now) +#13
+'T 095 500 0 1 0 35 1 '+numcard {+StringOfChar(' ', 08 - Length(numcard))} +#13
+'B 100 620 0 0 0 3 120 0 '+numcard2 {+StringOfChar(' ', 10 - Length(numcard2))} +#13
+'T 935 320 5 1 0 65 0 XXXXXXXXXXXX ' +#13
+'T 915 320 5 0 0 25 0 xxxxxx '+#13
+'T 880 325 5 0 0 30 1 xxxxxxxxxxxxxxxxxxxxxxxxxx' +#13
+'T 840 325 5 0 0 30 1 xxxxxxxxxxxxxxxxxxx' +#13
+'T 494 500 0 0 0 35 1 Tel' +#13
+'T 590 500 0 0 0 35 1 : 00000000000000' +#13
+'T 490 540 0 0 0 35 1 Nuit' +#13
+'T 590 540 0 0 0 35 1 : 00000000000000' +#13
+'T 490 580 0 0 0 35 1 Fax ' +#13
+'T 590 580 0 0 0 35 1 : 00000000000000' +#13
+'T 490 620 0 0 0 35 1 E-mail' +#13
+'T 590 620 0 0 0 35 1 : xxxxxxxxxxxxxxxxxxxxx' +#13
+'I ' +#13 ;
assignfile(F,_fichier);
Rewrite(F);
Writeln(F,content);
closefile(F);
// ShellExecute(0, 'open', 'lpr', PChar('-S AX555 -P pr1 '+_fichier), nil, SW_HIDE);
ShellExecute(0, 'open', 'lpr', PChar('-S '+_Platine+' -P '+ _Port+' '+_fichier), nil, SW_HIDE);
sleep (2000);
DeleteFile(_fichier);
end; |
Partager