J @ HORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COLOR=1
UT=USB001
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=261
COLOR=1
DUPLEX=1
COLLATE=0
‚
V > winspool \\192.168.1.4\EPSON L350 Series (Copiar 2) USB001 Courier New
Tempo.num_doc @ "..\vcx\images\logo.jpg"ct\pvent\vcx\images\logo.jpg" "CIA ELECTRICA INGENIEROS SRL" Tahoma "RUC : 20114689425" Tahoma %"Av. Huayruropata 1449-Wanchaq-Cusco" Tahoma #"Telef : 84 244411 Cel : 984043094" Tahoma #"Email : ventas1@coelectric.com.pe" Tahoma Kiif(Tempo.tip_doc='01','FACTURA ELECTRONICA','BOLETA DE VENTA ELECTRONICA') Arial ,'Nº'+' '+Tempo.serie_doc+'-'+ Tempo.num_doc Arial üpoFbc.QRBarcodeImage('20114689425'+'|'+Tempo.tip_doc+'|'+Tempo.serie_doc+'|'+Tempo.num_doc+'|'+alltrim(str(Tempo.igv,10,2))+'|'+alltrim(str(Tempo.total,10,2))+'|'+dtoc(ttod(Tempo.fecha)) +'|'+iif(Tempo.tip_doc='01','6','1')+'|'+alltrim(Tempo.nruc)+'|') "EMISION: " Arial Narrow ƒstr(year(Tempo.fecha),4,0)+'-'+padl(alltrim(str(month(Tempo.fecha),2,0)),2,'0')+'-'++padl(alltrim(str(day(Tempo.fecha),2,0)),2,'0') Arial Narrow "SR (ES) : " Arial Narrow
Tempo.cliente Arial Narrow alltrim(Tempo.detalle) Arial Narrow numer(Tempo.cant) Arial Tempo.unidad Arial Narrow Tempo.pu "####.##" Arial Tempo.subtot "##,###.##" Arial
Tempo.nruc Arial Narrow
"DIRECC :" Arial Narrow Tempo.direccion Arial Narrow *iif(Tempo.tip_doc='01','RUC :','DNI :') Arial Narrow "CANT" Arial Narrow "UND" Arial Narrow
"ARTICULO" Arial Narrow "P.U." Arial Narrow "SUBTOT" Arial Narrow "V.VENTA :" Arial Narrow Tempo.vventa "###,###.##" Arial Narrow "IGV :" Arial Narrow Tempo.igv "##,###.##" Arial Narrow "P.VENTA:S/" Arial Narrow Tempo.pventa "###,###.##" Arial Narrow $escribe( Tempo.pventa, Tempo.moneda) Arial Narrow "Peso Aprox :" Arial Narrow alltrim(str(vpeso,10,2))+' Kg.' Arial Narrow "Almacén :" Arial Narrow Tempo.cod_alma Arial Narrow "Vendedor :" Arial Narrow Tempo.codper Arial Narrow
"Hora :" Arial Narrow substr(ttoc(Tempo.fecha,2),1,5) Arial Narrow "GRACIAS POR SU COMPRA" Tahoma '"NO SE ACEPTAN CAMBIOS NI DEVOLUCIONES" Tahoma 1"Autorizado mediante R.S.Nº092-005-0000024/Sunat" Tahoma 2"Consulte su comprobante en www.coelectric.com.pe" Tahoma "V.Inafecta :" Arial Narrow Tempo.vinaf "##,###.##" Arial Narrow
"V.Gratuita:" Arial Narrow 0round(Tempo.vtrgr/(tempo.pventa/tempo.vventa),2) "##,###.##" Arial Narrow "Dto. Global:" Arial Narrow Tempo.dctog "##,###.##" Arial Narrow @poFbci.BarcodeImage(Tempo.tip_doc+Tempo.serie_doc+Tempo.num_doc) vpeso Tempo.cant* Tempo.peso 0 Courier New Tahoma Tahoma Tahoma Tahoma Arial Arial Arial Narrow Arial Narrow Arial Narrow Arial Arial Narrow Arial Arial Arial Narrow Arial Narrow Tahoma Tahoma Arial Narrow Arial Narrow dataenvironment _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursor nTop = 20
Left = 10
Height = 90
Width = 90
Alias = "tempo"
CursorSource = ..\tempo.dbf
Name = "Cursor1"
ÍDRIVER=winspool
DEVICE=\\192.168.1.4\EPSON L350 Series (Copiar 2)
OUTPUT=USB001
ORIENTATION=0
PAPERSIZE=9
PAPERLENGTH=2970
PAPERWIDTH=2100
COPIES=1
DEFAULTSOURCE=261
COLOR=1
DUPLEX=1
COLLATE=0
‚
V > winspool \\192.168.1.4\EPSON L350 Series (Copiar 2) USB001 Courier New
Tempo.num_doc @ 5"..\..\..\..\..\newproyect\pvent\vcx\images\logo.jpg" "CIA ELECTRICA INGENIEROS SRL" Tahoma "RUC : 20114689425" Tahoma %"Av. Huayruropata 1449-Wanchaq-Cusco" Tahoma #"Telef : 84 244411 Cel : 984043094" Tahoma #"Email : ventas1@coelectric.com.pe" Tahoma Kiif(Tempo.tip_doc='01','FACTURA ELECTRONICA','BOLETA DE VENTA ELECTRONICA') Arial ,'Nº'+' '+Tempo.serie_doc+'-'+ Tempo.num_doc Arial üpoFbc.QRBarcodeImage('20114689425'+'|'+Tempo.tip_doc+'|'+Tempo.serie_doc+'|'+Tempo.num_doc+'|'+alltrim(str(Tempo.igv,10,2))+'|'+alltrim(str(Tempo.total,10,2))+'|'+dtoc(ttod(Tempo.fecha)) +'|'+iif(Tempo.tip_doc='01','6','1')+'|'+alltrim(Tempo.nruc)+'|') "EMISION: " Arial Narrow ƒstr(year(Tempo.fecha),4,0)+'-'+padl(alltrim(str(month(Tempo.fecha),2,0)),2,'0')+'-'++padl(alltrim(str(day(Tempo.fecha),2,0)),2,'0') Arial Narrow "SR (ES) : " Arial Narrow
Tempo.cliente Arial Narrow alltrim(Tempo.detalle) Arial Narrow numer(Tempo.cant) Arial Tempo.unidad Arial Narrow Tempo.pu "####.##" Arial Tempo.subtot "##,###.##" Arial
Tempo.nruc Arial Narrow
"DIRECC :" Arial Narrow Tempo.direccion Arial Narrow *iif(Tempo.tip_doc='01','RUC :','DNI :') Arial Narrow "CANT" Arial Narrow "UND" Arial Narrow
"ARTICULO" Arial Narrow "P.U." Arial Narrow "SUBTOT" Arial Narrow "V.VENTA :" Arial Narrow Tempo.vventa "###,###.##" Arial Narrow "IGV :" Arial Narrow Tempo.igv "##,###.##" Arial Narrow "P.VENTA:S/" Arial Narrow Tempo.pventa "###,###.##" Arial Narrow $escribe( Tempo.pventa, Tempo.moneda) Arial Narrow "Peso Aprox :" Arial Narrow alltrim(str(vpeso,10,2))+' Kg.' Arial Narrow "Almacén :" Arial Narrow Tempo.cod_alma Arial Narrow "Vendedor :" Arial Narrow Tempo.codper Arial Narrow
"Hora :" Arial Narrow substr(ttoc(Tempo.fecha,2),1,5) Arial Narrow "GRACIAS POR SU COMPRA" Tahoma '"NO SE ACEPTAN CAMBIOS NI DEVOLUCIONES" Tahoma 1"Autorizado mediante R.S.Nº092-005-0000024/Sunat" Tahoma 2"Consulte su comprobante en www.coelectric.com.pe" Tahoma "V.Inafecta :" Arial Narrow Tempo.vinaf "##,###.##" Arial Narrow
"V.Gratuita:" Arial Narrow 0round(Tempo.vtrgr/(tempo.pventa/tempo.vventa),2) "##,###.##" Arial Narrow "Dto. Global:" Arial Narrow Tempo.dctog "##,###.##" Arial Narrow @poFbci.BarcodeImage(Tempo.tip_doc+Tempo.serie_doc+Tempo.num_doc) vpeso Tempo.cant* Tempo.peso 0 Courier New Tahoma Tahoma Tahoma Tahoma Arial Arial Arial Narrow Arial Narrow Arial Narrow Arial Arial Narrow Arial Arial Arial Narrow Arial Narrow Arial Narrow Tahoma Tahoma Arial Narrow Arial Narrow dataenvironment _Top = 220
Left = 1
Width = 520
Height = 200
DataSource = .NULL.
Name = "Dataenvironment"
cursor ‹Top = 20
Left = 10
Height = 90
Width = 90
Alias = "tempo"
CursorSource = ..\..\..\..\..\newproyect\pvent\tempo.dbf
Name = "Cursor1"