@%ORIENTATION=0 PAPERSIZE=9 COLOR=1 PT1: ORIENTATION=0 PAPERSIZE=9 SCALE=100 ASCII=0 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=600 COLOR=1 DUPLEX=1 YRESOLUTION=600 TTOPTION=3 COLLATE=0 .winspoolPDFLPT1: Courier New"logo ifm bmp.bmp"stema\systems\ifm\data\1\cpbt\logo ifm bmp.bmp" zclinombre Times New Roman zclidireccion Times New Roman zclizipciudad Times New Roman zcliprovpais Times New Romanzcativa Times New RomanFalltrim(zclicodigo)+iif(zsucursal#0, " / "+alltrim(str(zsucursal)),"")Times New Romanclientes.proveedor Times New Roman zfechaemision Times New Romanzcuit Times New Roman "Contacto:"Times New Roman"CUIT:"Times New Roman"Categoría IVA:"Times New Roman zcontacto Times New Romanzremito Times New Roman"Remito Número:"Times New Roman "Cliente:"Times New Romanaiif(zmoneda#0,alltrim(zmonedasimbolo)+" 1 = $ "+alltrim(transform(zcambio,'@z 999,999.9999')),"")"@B"Times New Roman"Tipo de Cambio:"Times New Roman zmoneda#0"Condiciones de Pago:"Times New Roman"Proveedor Número:"Times New Romanzordendecompra Times New Roman"Pedido/O.C.:"Times New Roman zcondicion Times New Roman zcomprobante Times New Roman "Control:"Times New Romantempcomp.cod_ins Courier Newiif( tempcomp.recepcion - int(tempcomp.recepcion)#0, transform(tempcomp.recepcion,'@z 9,999.99'), transform(tempcomp.recepcion,'@z 999,999')) Courier New‡alltrim(iif(xdiv,zmonedasimbolo,"$")+" "+alltrim(transform( round(iif(zmoneda=0 .or. xdiv,1,zcambio)*precdesc ,2),"@Z 99,999,999.99"))) Courier Newempty(cpbttxt)€iif(xdiv,ALLTRIM(zmonedasimbolo),"$") + " "+alltrim(transform(iif(xdiv, tempcomp.mo_tot_com, tempcomp.tot_com),"99,999,999.99")) Courier Newempty(cpbttxt)¤alltrim(iif(tempcomp.ivaper-int(tempcomp.ivaper)#0, transform(tempcomp.ivaper,"@z 999.99"), transform(tempcomp.ivaper,"@z 99999"))+IIF(TEMPCOMP.RECEPCION#0,"%",""))"" Courier Newempty(cpbttxt)ztxtcpbt Times New Roman "Subtotal:""@J" Courier New zdescuentos"@Z 99,999,999.99" Courier New "Subtotal:""@J" Courier Newziva"@Z 99,999,999.99" Courier New"IVA:""@J" Courier Newzfinal"@Z 99,999,999.99" Courier New"Total:""@J" Courier New!"C.B.U. : 0150909402000102783380"Times New Roman%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier Newalltrim("Dto. "+zdescuentostxt)  Courier Newziibb_prov(2,1)"@Z 99,999,999.99" Courier Newziibb_prov(2,1)#0%iif(xdiv,ALLTRIM(zmonedasimbolo),"$") Courier Newziibb_prov(2,1)#0:"PER. IIBB CABA " +alltrim(str(ziibb_prov(2,2),12,2))+"%:" Courier Newziibb_prov(2,1)#0"Cant." Courier New"Código" Courier New"Total" Courier New‹alltrim(iif(empty(cpbttxt),alltrim( iif(!empty(dcodatrbul), dcodatrbul, desc_ins))+iif(lotes='S', chr(13)+alltrim(despatxt), ""),cpbttxt)) Courier New "Descripción" Courier New"Precio" Courier New "IVA (%)" Courier New zsubtotal"99,999,999.99" Courier Newzsubtotal-zdescuentos"99,999,999.99" Courier New;"Banco ICBC Suc 909 Cuenta Corriente en $ 0909/02102783/38"Times New RomanC"Titular de la cuenta: IFM ELECTRONIC S.R.L. - CUIT: 30-71045716-2"Times New RomanK"Enviar comprobante de pago por fax al (011) 5032 8636 o a info.ar@ifm.com"Times New Roman!"C.B.U. : 1910244155024400001928"Times New Roman@"Banco Credicoop Suc 244 Cuenta Corriente en $ 191-244-000019/2"Times New Roman zempdireccion Arial zempzipciudad Arial zemptelefono Arial zempprovpais Arial"CUIT: "+zempcuitArialzempivaArial0"Fecha de Inicio de Actividades: "+dtoc(zinicio)Arial?"Ingresos Brutos Convenio Multilateral: "+alltrim(ziibb_numero)Arial"Email: info.ar@ifm.com"Arial iif(zidioma=1,"Fecha:", "Date:")ArialzcomprobantenumeroArial zempnombreArialupper(ztipocomprobante)Arial "Cliente:"Times New Roman"Cód. "+ztipo_comprobante_eArialzcomprobanteletraArial%alltrim(iif(xdiv,zmonedasimbolo,"$")) Courier New%alltrim(iif(xdiv,zmonedasimbolo,"$")) Courier Newzcae"@B"Tahoma zcae_venc"@B"Tahoma "C.A.E.:"Tahoma"Fecha Vencimiento C.A.E.:"TahomaSiif(zcopia=1,"Original", iif(zcopia=2,"Duplicado", iif(zcopia=3,"Triplicado", "")))Times New Roman"COMPROBANTE ELECTRONICO"Arial zentnombre Times New Roman zentdireccion Times New Roman zentzipciudad Times New Roman zentprovpais Times New Roman "Entrega:"Times New Romanzfce_vencimiento Times New Roman"Fecha de Vto.:"Times New RomanV"A efectos impositivos esta factura equivale a Pesos "+alltrim(str(zfinal_pesos,12,2))Arial*(zendivisas and zmoneda#0) and zentpais<=1zfce_cbuTimes New Roman zfce_credito"CBU:"Times New Roman zfce_creditozqr file(zqr)€zleyenda_fce_1+" "+zleyenda_fce_2+" "+zleyenda_fce_3+" "+zleyenda_fce_4+" "+zleyenda_fce_5+" "+zleyenda_fce_6+" "+zleyenda_fce_7 Arial Narrowzleyenda_exportacion"@B"Times New Roman zincoterm"@B"Times New Roman "Incoterm:"Times New Roman!empty(zincoterm) zredondeo"@Z 99,999,999.99" Courier New zredondeo#0 "Redondeo:""@J" Courier New zredondeo#0%iif(xdiv,ALLTRIM(zmonedasimbolo),"$") Courier New zredondeo#0 Courier NewTimes New RomanTimes New RomanTimes New Roman Courier New Courier NewTimes New Roman Courier NewTimes New Roman Courier New Courier NewArialArialArialArialArialArialArialArialTahoma Arial Narrowdataenvironment}Top = 220 Left = 1 Width = 520 Height = 200 Visible = .F. TabStop = .F. DataSource = .NULL. Name = "Dataenvironment" ÄDRIVER=winspool DEVICE=PDF OUTPUT=LPT1: ORIENTATION=0 PAPERSIZE=9 SCALE=100 ASCII=0 COPIES=1 DEFAULTSOURCE=15 PRINTQUALITY=600 COLOR=1 DUPLEX=1 YRESOLUTION=600 TTOPTION=3 COLLATE=0 .winspoolPDFLPT1: Courier NewA"..\..\..\..\..\sistema\systems\ifm\data\1\cpbt\logo ifm bmp.bmp" zclinombre Times New Roman zclidireccion Times New Roman zclizipciudad Times New Roman zcliprovpais Times New Romanzcativa Times New RomanFalltrim(zclicodigo)+iif(zsucursal#0, " / "+alltrim(str(zsucursal)),"")Times New Romanclientes.proveedor Times New Roman zfechaemision Times New Romanzcuit Times New Roman "Contacto:"Times New Roman"CUIT:"Times New Roman"Categoría IVA:"Times New Roman zcontacto Times New Romanzremito Times New Roman"Remito Número:"Times New Roman "Cliente:"Times New Romanaiif(zmoneda#0,alltrim(zmonedasimbolo)+" 1 = $ "+alltrim(transform(zcambio,'@z 999,999.9999')),"")"@B"Times New Roman"Tipo de Cambio:"Times New Roman zmoneda#0"Condiciones de Pago:"Times New Roman"Proveedor Número:"Times New Romanzordendecompra Times New Roman"Pedido/O.C.:"Times New Roman zcondicion Times New Roman zcomprobante Times New Roman "Control:"Times New Romantempcomp.cod_ins Courier Newiif( tempcomp.recepcion - int(tempcomp.recepcion)#0, transform(tempcomp.recepcion,'@z 9,999.99'), transform(tempcomp.recepcion,'@z 999,999')) Courier New‡alltrim(iif(xdiv,zmonedasimbolo,"$")+" "+alltrim(transform( round(iif(zmoneda=0 .or. xdiv,1,zcambio)*precdesc ,2),"@Z 99,999,999.99"))) Courier Newempty(cpbttxt)€iif(xdiv,ALLTRIM(zmonedasimbolo),"$") + " "+alltrim(transform(iif(xdiv, tempcomp.mo_tot_com, tempcomp.tot_com),"99,999,999.99")) Courier Newempty(cpbttxt)¤alltrim(iif(tempcomp.ivaper-int(tempcomp.ivaper)#0, transform(tempcomp.ivaper,"@z 999.99"), transform(tempcomp.ivaper,"@z 99999"))+IIF(TEMPCOMP.RECEPCION#0,"%",""))"" Courier Newempty(cpbttxt)ztxtcpbt Times New Roman "Subtotal:""@J" Courier New zdescuentos"@Z 99,999,999.99" Courier New "Subtotal:""@J" Courier Newziva"@Z 99,999,999.99" Courier New"IVA:""@J" Courier Newzfinal"@Z 99,999,999.99" Courier New"Total:""@J" Courier New!"C.B.U. : 0150909402000102783380"Times New Roman%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier New%iif(xdiv,ALLTRIM(zmonedasimbolo),"$")  Courier Newalltrim("Dto. "+zdescuentostxt)  Courier Newziibb_prov(2,1)"@Z 99,999,999.99" Courier Newziibb_prov(2,1)#0%iif(xdiv,ALLTRIM(zmonedasimbolo),"$") Courier Newziibb_prov(2,1)#0:"PER. IIBB CABA " +alltrim(str(ziibb_prov(2,2),12,2))+"%:" Courier Newziibb_prov(2,1)#0"Cant." Courier New"Código" Courier New"Total" Courier New‹alltrim(iif(empty(cpbttxt),alltrim( iif(!empty(dcodatrbul), dcodatrbul, desc_ins))+iif(lotes='S', chr(13)+alltrim(despatxt), ""),cpbttxt)) Courier New "Descripción" Courier New"Precio" Courier New "IVA (%)" Courier New zsubtotal"99,999,999.99" Courier Newzsubtotal-zdescuentos"99,999,999.99" Courier New;"Banco ICBC Suc 909 Cuenta Corriente en $ 0909/02102783/38"Times New RomanC"Titular de la cuenta: IFM ELECTRONIC S.R.L. - CUIT: 30-71045716-2"Times New RomanK"Enviar comprobante de pago por fax al (011) 5032 8636 o a info.ar@ifm.com"Times New Roman!"C.B.U. : 1910244155024400001928"Times New Roman@"Banco Credicoop Suc 244 Cuenta Corriente en $ 191-244-000019/2"Times New Roman zempdireccion Arial zempzipciudad Arial zemptelefono Arial zempprovpais Arial"CUIT: "+zempcuitArialzempivaArial0"Fecha de Inicio de Actividades: "+dtoc(zinicio)Arial?"Ingresos Brutos Convenio Multilateral: "+alltrim(ziibb_numero)Arial"Email: info.ar@ifm.com"Arial iif(zidioma=1,"Fecha:", "Date:")ArialzcomprobantenumeroArial zempnombreArialupper(ztipocomprobante)Arial "Cliente:"Times New Roman"Cód. "+ztipo_comprobante_eArialzcomprobanteletraArial%alltrim(iif(xdiv,zmonedasimbolo,"$")) Courier New%alltrim(iif(xdiv,zmonedasimbolo,"$")) Courier Newzcae"@B"Tahoma zcae_venc"@B"Tahoma "C.A.E.:"Tahoma"Fecha Vencimiento C.A.E.:"TahomaSiif(zcopia=1,"Original", iif(zcopia=2,"Duplicado", iif(zcopia=3,"Triplicado", "")))Times New Roman"COMPROBANTE ELECTRONICO"Arial zentnombre Times New Roman zentdireccion Times New Roman zentzipciudad Times New Roman zentprovpais Times New Roman "Entrega:"Times New Romanzfce_vencimiento Times New Roman"Fecha de Vto.:"Times New RomanV"A efectos impositivos esta factura equivale a Pesos "+alltrim(str(zfinal_pesos,12,2))Arial*(zendivisas and zmoneda#0) and zentpais<=1zfce_cbuTimes New Roman zfce_credito"CBU:"Times New Roman zfce_creditozqr file(zqr)€zleyenda_fce_1+" "+zleyenda_fce_2+" "+zleyenda_fce_3+" "+zleyenda_fce_4+" "+zleyenda_fce_5+" "+zleyenda_fce_6+" "+zleyenda_fce_7 Arial Narrowzleyenda_exportacion"@B"Times New Roman zincoterm"@B"Times New Roman "Incoterm:"Times New Roman!empty(zincoterm) zredondeo"@Z 99,999,999.99" Courier New zredondeo#0 "Redondeo:""@J" Courier New zredondeo#0%iif(xdiv,ALLTRIM(zmonedasimbolo),"$") Courier New zredondeo#0 Courier NewTimes New RomanTimes New RomanTimes New Roman Courier New Courier NewTimes New Roman Courier NewTimes New Roman Courier New Courier NewArialArialArialArialArialArialArialArialTahoma Arial Narrowdataenvironment}Top = 220 Left = 1 Width = 520 Height = 200 Visible = .F. TabStop = .F. DataSource = .NULL. Name = "Dataenvironment"