Source Delphi Open Cashdrawer All Merk

Beberapa fungsi dan prosedure tidak kami sertakan, Anda bisa buat sendiri okey…hehe tq`
procedure cetak_faktur_7_cm_1_baris;var cd:textfile;
jml, dsc:Currency;
i:Integer;
Begin
dsc:=0;
TRY
AssignFile(cd,FrmSettingPerangkat.PortPrinter.Text); //Membuka port yang ada di setting
Rewrite(cd);
Writeln(text_ditengah(DM_Master.ZQCompanyNAMA_PERUSAHAAN.Value,40));
IF DM_Master.ZQCompanyALAMAT_PERUSAHAAN1.Value<>” THEN
Writeln(text_ditengah(DM_Master.ZQCompanyALAMAT_PERUSAHAAN1.Value,40));
IF DM_Master.ZQCompanyALAMAT_PERUSAHAAN2.Value<>” THEN
Writeln(text_ditengah(DM_Master.ZQCompanyALAMAT_PERUSAHAAN2.Value,40));
Writeln(‘—————————————-’);
IF DM_JUALBELI.ZQPenjualanID_CUST.Value<>” THEN
begin
Writeln(‘ID Cust: ‘+DM_JUALBELI.ZQPenjualanID_CUST.Value);
Writeln(‘Nama : ‘+DM_Master.ZQCustomerNAMA_CUST.Value);
end;
IF DM_JUALBELI.ZQPenjualanDESKRIPSI.Value<>’RETUR JUAL’ THEN
begin
Writeln(‘No:’+DM_JUALBELI.ZQPenjualanNO_FAKTUR.Value+’   ‘+
FormatDateTime(‘dd/mm/yy’,DM_JUALBELI.ZQPenjualanTANGGAL_JUAL.AsDateTime)
+’-'+FormatDateTime(‘hh:mm’,DM_JUALBELI.ZQPenjualanJAM_JUAL.AsDateTime));
end
ELSE
begin
Writeln(‘No:’+DM_JUALBELI.ZQPenjualanNO_FAKTUR.Value+’   ‘+
FormatDateTime(‘dd/mm/yy’,DM_JUALBELI.ZQPenjualantanggal_retur.AsDateTime)
+’-'+FormatDateTime(‘hh:mm’,DM_JUALBELI.ZQPenjualanJAM_JUAL.AsDateTime));
end;
Writeln(‘—————————————-’);
Writeln(Format(‘%-16s%5s%8s%11s’,['Nama Produk','Qty','Harga','Total']));
DM_JUALBELI.ZQRincianPenjualan.First;
i:=1;
while not DM_JUALBELI.ZQRincianPenjualan.Eof do
begin
Writeln(Format(‘%-16s%5s%8s%11s’,[
text_potong(DM_JUALBELI.ZQRincianPenjualanDESKRIPSI_RINCI.AsString,16),
FormatCurr('###,###,###',DM_JUALBELI.ZQRincianPenjualanQTY.AsCurrency),
FormatCurr('###,###,###',DM_JUALBELI.ZQRincianPenjualanHARGA_JUAL.AsCurrency),
FormatCurr('###,###,###',DM_JUALBELI.ZQRincianPenjualanJumlahJual.AsCurrency)]));
jml:=jml+DM_JUALBELI.ZQRincianPenjualanQTY.AsCurrency;
DM_JUALBELI.ZQRincianPenjualan.Next;
dsc:=dsc+DM_JUALBELI.ZQRincianPenjualanDISKON_RP.AsCurrency;
inc(i);
end;
Writeln(‘—————————————-’);
IF frmloginReg10.Tag=1 THEN // DUFLIKAT NOTA
str:=DM_JUALBELI.ZQPenjualanOPR.Value+’(COPY)’
else
str:=DM_JUALBELI.ZQPenjualanOPR.Value;
if (DM_JUALBELI.ZQPenjualanDISKON.AsCurrency>0)or(DM_JUALBELI.ZQPenjualanppn10.AsCurrency>0) then
Writeln(Format(‘%-12s%-8s%7s%13s%’,['','','Sub Total',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualanJUMLAH_JUAL.AsCurrency)]));
if DM_JUALBELI.ZQPenjualanDISKON.AsCurrency>0 then
Writeln(Format(‘%-12s%-8s%7s%13s%’,['','','Diskon '+FormatCurr('##.##',DM_JUALBELI.ZQPenjualandiskon_persen.AsCurrency)+'%',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualanDISKON.AsCurrency)]));
if DM_JUALBELI.ZQPenjualanppn10.AsCurrency>0 then
Writeln(Format(‘%-12s%-8s%7s%13s%’,['','','Ppn 10%',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualanppn10.AsCurrency)]));
if dsc<>0 then
Writeln(Format(‘%-20s%7s%13s%’,['Hemat Rp. '+FormatCurr('###,###,###',dsc),'Total',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualantemp_total.AsCurrency)]))
else
Writeln(Format(‘%-12s%-8s%7s%13s%’,['No.Urut:'+inttostr(DM_JUALBELI.ZQPenjualanurut.AsInteger),'','Total',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualantemp_total.AsCurrency)]));
Writeln(Format(‘%-20s%7s%13s%’,['Items : '+FormatCurr('###,###,###',jml)+' pcs','Bayar',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualanBAYAR_JUAL.AsCurrency)]));
Writeln(Format(‘%-20s%7s%13s%’,['Opr: '+str,'Kembali',FormatCurr('###,###,###',DM_JUALBELI.ZQPenjualantemp_sisa_show.AsCurrency)]));
Writeln(‘—————————————-’);
Writeln(DM_Master.ZQCompanyket_nota.Value);
i:=1;
while i<=StrToInt(FrmSettingPerangkat.MaskEdit1.Text) do
begin Writeln(”); inc(i); end;
Closefile(cd);
Except on E:Exception Do
// ShowMessage(‘Kesalahan di proses Cetak faktur, silahkan periksa Printer!!’);
end;
if FrmSettingPerangkat.CashDrawerAktif1.Checked then
begin
TRY
AssignFile(cd,FrmSettingPerangkat.PortPrinter.Text); //Membuka port yang ada di setting
Rewrite(cd);
Writeln(cd,chr(27),chr(112),chr(0),chr(25),chr(250)); //kode untuk Epson TMU220, jenis lain silahkan cari ndiri
Closefile(cd);
Except on E:Exception Do
Begin
// ShowMessage(‘Kesalahan di proses buka CashDrawer, silahkan periksa kunci drawer!!’);
end;
end;
END;
end;

sumber: http://its.mylivecuy.com/?p=258