FoxPro/Visual FoxPro - guardar factura

   
Vista:

guardar factura

Publicado por alberto (1 intervención) el 10/03/2016 04:03:51
buenas noches, estoy modificando un programa de gestion comercial que me lo pasaron (no conosco nada de programacion) funcionaba con una impresora fiscal y motor fiscal .todo esto realizado en visual fox.
quiero quitar todo, solo darle orden de que guarde la factura. este es unos comandos que encontre en el formulario

yo no voy a ocupar motor ni controlador fiscal. quiero sacar todo, solamente que guarde automaticamente la factura y me de la opcion de imprimir

PUBLIC ForPago,Fech1, m.guarda
m.guarda=.t.
*IF MESSAGEBOX("¿ Confirma los datos ?",4+32+256+256,"Atención") = 6
*- Elige el Tipo de Comprobante
fech1=thisform.text4.Value
*IF m.Pendiente=.t. .AND. THISFORM.PAGEframe1.Page2.COMBO2.VALUE="XX"
* messagebox("No puede elegir esta Opción de Pago, la Factura está como Pendiente")
* thisform.combo2.setfocus
* return
*ENDIF
m.TipCom=""
if thisform.combo2.value=2
m.TipCom="CC"
else
m.tipcom="FA"
ENDIF
forpago=""
m.totfac=thisform.text7.Value
DO FORM facturatot &&TO m.TipCom

IF EMPTY(m.tipcom)
RETURN
ENDIF
*m.spago=thisform.PAGEFRAME1.PAGE2.text2.value
*m.TotFac=thisform.pageframe1.page2.text1.value
IF m.guarda=.f.
RETURN
endif

*- Guarda el Comprobante y lo Imprime
WITH thisform


numfac=0
*thisform.pAGEFRAME1.pAGE1.text13.Value=thisform.pAGEFRAME1.pAGE1.text13.Value+ thisform.pAGEFRAME1.pAGE1.teXT7.Value
thisform.Refresh

IF m.tipcom="XX"
IF !m.Pendiente
.guardacomprobx()
ELSE
.GUARDAPENDIENTES()
ENDif
*=MESSAGEBOX("TipoComp.: "+m.tipcom )
IF MESSAGEBOX("¿ Imprimir el Comprobante ?",4+32+256+256,"Atención") = 6
.Emitir()
*.gfiscal()
ENDIF
ELSE
*WAIT "ENTRE A EMITIR F" WIND
*.EmitirF() && Imprime el Comprobante que Corresponda
*if numfac <>0
*IF !m.Pendiente
.Guardar()

*IF MESSAGEBOX("¿ Imprimir el Comprobante ?",4+32+256+256,"Atención") = 6
* .Emitir()
*ENDIF
*ELSE
*.GUARDAPENDIENTES()
*ENDIF
&& Emite comprobante fiscal
*selec factura
*store factura.idmovim to nro
*.guardacomprobx()
THISFORM.GFISCAL()
if numfac <>0
SELECT sistema
replace sistema.nfacta_sis WITH numfac
=TABLEUPDATE()
endif
*IF MESSAGEBOX("¿ Imprimir el Comprobante ?",4+32+256+256,"Atención") = 6
* .Emitir()
*ENDIF
*else
* =messagebox("La Impresión Fiscal falló,No se registro el Comprobante")
*endif


ENDIF
IF forpago="TAR" .or. forpago="CHE" .or. forpago="VAR"
DO FORM facturatot2 &&TO m.TipCom
endif
.Cancelar() && Vacia el FACTAUX y Limpia la Pantalla
.ponecliente1()


ENDWITH
*endif
thisform.combo2.Value=1
thisform.text4.Value=DATE()
thisform.Refresh

*thisform.text12.SetFocus
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