coordenadas
Publicado por fernando (107 intervenciones) el 03/01/2005 19:38:10
2.-segunda duda tengo este codigo para imprimir
set printer on
set printer to
set device to printer noconsole
x=11
suma=0
sumcan=0
for i=2 to thisform.list2.listcount
j=2
thisform.list2.boundcolumn=1
thisform.list2.listindex=j
@x,1 say alltrim(thisform.list2.value)
cnti=val(thisform.list2.value)
sumcan=sumcan+cnti
thisform.list2.boundcolumn=3
t1=thisform.list2.value
thisform.list2.boundcolumn=2
@x,5 say alltrim(thisform.list2.value)+" "+alltrim(t1)
thisform.list2.boundcolumn=4
@x,23 say "$ "+alltrim(thisform.list2.value)
pr=val(thisform.list2.value)
imp=cnti*pr
@x,33 say "$ "+alltrim(str(int(imp)))+"."+right(str(imp*100),2)
suma=suma+imp
x=x+1
next j
@x+2,3 say "Total de Productos "
@x+2,20 say alltrim(str(sumcan))
@x+3,3 say "Total a Pagar "
mul=suma*100
@x+3,20 say "$ "+alltrim(str(int(suma)))+"."+alltrim(right(str(mul),2))
@x+4,1 say "******GRACIAS POR SU COMPRA********"
set device to printer noconsole
set printer on
set printer to
do form menu.scx
thisform.release()
Este boton lo tengo en otras ventanas
cunado imprimo en la misma ventana donde agrego los poductos todo bien
pero si me paso a otra y mando imprimir me marca un error de cooordenadas en "X" llega con un valor de x=2185 por que de donde toma ese valor?
gracias...
set printer on
set printer to
set device to printer noconsole
x=11
suma=0
sumcan=0
for i=2 to thisform.list2.listcount
j=2
thisform.list2.boundcolumn=1
thisform.list2.listindex=j
@x,1 say alltrim(thisform.list2.value)
cnti=val(thisform.list2.value)
sumcan=sumcan+cnti
thisform.list2.boundcolumn=3
t1=thisform.list2.value
thisform.list2.boundcolumn=2
@x,5 say alltrim(thisform.list2.value)+" "+alltrim(t1)
thisform.list2.boundcolumn=4
@x,23 say "$ "+alltrim(thisform.list2.value)
pr=val(thisform.list2.value)
imp=cnti*pr
@x,33 say "$ "+alltrim(str(int(imp)))+"."+right(str(imp*100),2)
suma=suma+imp
x=x+1
next j
@x+2,3 say "Total de Productos "
@x+2,20 say alltrim(str(sumcan))
@x+3,3 say "Total a Pagar "
mul=suma*100
@x+3,20 say "$ "+alltrim(str(int(suma)))+"."+alltrim(right(str(mul),2))
@x+4,1 say "******GRACIAS POR SU COMPRA********"
set device to printer noconsole
set printer on
set printer to
do form menu.scx
thisform.release()
Este boton lo tengo en otras ventanas
cunado imprimo en la misma ventana donde agrego los poductos todo bien
pero si me paso a otra y mando imprimir me marca un error de cooordenadas en "X" llega con un valor de x=2185 por que de donde toma ese valor?
gracias...
Valora esta pregunta


0