jaime paredes
unread,Oct 11, 2012, 8:28:29 AM10/11/12Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to publice...@googlegroups.com
Yo tube un problema similar, pero solo tube que agregar unas lineas y el salto de pagina se desaparecio, no se si te servira:
SET PRINTER TO NAME "tikect"
SET DEVICE TO PRINTER
???" "
@1,3 say " NEGOCIOS MARTHITA S.A.C. "
@2,3 say " PUTUMAYO 600"
@3,3 say " RUC: 20528192701"
@4,3 say " N. Orden: 0031980"
* REPLACE serie WITH +var_serie
@5,3 say "Usuario: "+ALLTRIM(username)+" "+allt(thisformset.form3.tipdoc.Value)+" "+ALLTRIM(var_serie)+"-"+PADL(ALLTRIM(STR(thisformset.form3.Codigo.value)),6,"0")
@6,3 say "Fecha: "
@6,10 say DATE()
@6,23 say "Hora: "
@6,28 say TIME()
@7,3 say "Serie: "+imp_
****productos***
*************
@8,0 say "----------------------------------------"
@9,0 say "Cant. Nombre del Producto Total"
@10,0 say "----------------------------------------"
SELECT xfile1
GO TOP
tt = 0
L = 11
DO while !EOF()
@l,0 say +STR(cant1,8,3)
@l,9 say +SUBSTR(ALLTRIM(Descrip),1,22)
@l,32 say +STR(total,8,3)
tt = total + tt
l = l + 1
skip
ENDDO
@l,0 say "----------------------------------------"
*-----TOTALES--------*
*--------------------*
l = l + 1
@l,5 say +"Total S/."
@l,32 say +STR(tt,8,3)
l = l + 1
@l,3 say +"Efectivo:"
@l,13 say IIF(_tipven_="R",0,ALLTRIM(STR(thisformset.form3.Total.value,8,2)))
@l,24 say +"Credito x: "
@l,35 say IIF(_tipven_="R",ALLTRIM(STR(thisformset.form3.Total.value,8,2)),0)
l = l + 1
@l,10 say +"Pago: "+ALLTRIM(STR(thisformset.form3.text3.value,8,2))+" Vuelto: "+ALLTRIM(STR(thisformset.form3.text5.value,8,2))
l = l + 1
@l,0 say +"--------------------------------------"
l = l + 1
* @l,0 say +UPPER(ALLTRIM(thisformset.form3.proveeedor.value))
* l = l + 1
@l,0 say +"R.Social.:"+ALLTRIM(thisformset.form3.proveeedor.Value)
l = l + 1
@l,0 say +"Ruc./DNI.:"+IIF(thisformset.form3.ruc.Value>0,ALLTRIM(STR(thisformset.form3.ruc.Value,11,0)),ALLTRIM(STR(thisformset.form3.text2.Value,11,0)))
l = l + 1
@l,0 say +"Dirección:"+ALLTRIM(thisformset.form3.direccion.Value)
l = l + 1
@l,3 say +"Bienes Transferidos en la Amazonica"
l = l + 1
@l,3 say +" para ser consumidos en la misma "
l = l + 1
@l,3 say +" Gracias por su Preferencia "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
l = l + 1
@l,3 say +" "
SET PRINTER TO
SET DEVICE TO SCREEN
Saludos...