FoxPro/Visual FoxPro - Como mandan, imprimir sus tarjetas de pago

   
Vista:

Como mandan, imprimir sus tarjetas de pago

Publicado por es_binario (757 intervenciones) el 13/11/2009 19:26:01
Que tal amigos, tengo un programa en el que genero una venta, con un detalle del calendario de pagos, bueno yo la imprimo con una vista parametrizada y una requery pero no se si uds, tengan una mejor forma de hacerlo, ya que ultimamente he tenido algunos problemas... les pongo parte de mi codigo tuente.

IF Thisform.txtDe.Value = 0
MESSAGEBOX("Ingrese el folio a imprimir",64,"Falta Folio")
thisform.txtde.SetFocus
RETURN
ENDIF
IF Thisform.txtHasta.Value = 0
MESSAGEBOX("Ingrese el folio a imprimir",64,"Falta Folio")
thisform.txtHasta.SetFocus
RETURN
ENDIF

*// ver que los folios existan para el sistema
LOCAL de, hasta
STORE thisform.txtDe.Value TO de
STORE thisform.txtHasta.Value TO hasta
SELECT folio FROM venta WHERE folio => de AND folio <= hasta;
INTO CURSOR tarjetas_a_imprimir ORDER BY folio asc
LOCAL foliob, folio_imprime_tarjeta, folio_tarjeta_a
foliob = 0


SELECT tarjetas_a_imprimir
FOR b = 1 TO RECCOUNT()
SELECT tarjetas_a_imprimir
GO b
STORE tarjetas_a_imprimir.folio TO folio_imprime_tarjeta

*// imprime solo las copias deseadas
FOR a = 1 TO thisform.spinCopias.Value
IF Thisform.optiongroup2.Value = 1
*// cara a
DO case
CASE thisform.optiongroup1.Value = 1
STORE foliob TO folio_tarjeta_a
SELECT vista_cara_uno_rarverd
=REQUERY()
Report form 'C:\Maquila\report\tarjetacaraa' to print noeject noconsole
CASE thisform.optiongroup1.Value = 2
ENDCASE
ELSE
*// cara b
DO case
CASE thisform.optiongroup1.Value = 1
STORE foliob TO folio_imprime_tarjeta
SELECT view_carab
=REQUERY()
Report form 'C:\Maquila\report\tarjetacb_verde' to print noeject noconsole
CASE thisform.optiongroup1.Value = 2
ENDCASE
ENDIF
ENDFOR

ENDFOR
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder