Error en SendInvoicePayment de IFEpson.ocx (REDONDEO)
Publicado por Alejandro Nicolas (4 intervenciones) el 30/03/2018 15:35:11
Cuando intento hacer el redondeo (Factura "A") con el IFEpson.ocx en una LX-300F+ II, siempre me devuelve False en el siguiente comando en VB6 (para bajar el Subtotal)
Comando de Descuento
el siguiente comando para subir el Subtotal me da bien (True)
Comando de Percepción
He probado de todas formas con el SendInvoicePayment, poniendo variables, o constantes como el ejemplo y me sigue dando False, también probé con un recargo, poniendo "R" y me sigue dando false....
Por favor, si alguien lo ha solucionado, estaría muy agradecido por sus respuestas...
Muchas Gracias....
Código del Redondeo
Comando de Descuento
1
vImprimioBien = Me.PrinterFiscal1.SendInvoicePayment("Redondeo: ", RedondeoF, "D")
el siguiente comando para subir el Subtotal me da bien (True)
Comando de Percepción
1
vImprimioBien = Me.PrinterFiscal1.SendInvoicePerception("Redondeo: ", "O", RedondeoF, " ")
He probado de todas formas con el SendInvoicePayment, poniendo variables, o constantes como el ejemplo y me sigue dando False, también probé con un recargo, poniendo "R" y me sigue dando false....
Por favor, si alguien lo ha solucionado, estaría muy agradecido por sus respuestas...
Muchas Gracias....
Código del Redondeo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
If lblSerieComprobante.Caption = "A" Then
If VImprimioBien = True Then Subtotal = 0Do
If VImprimioBien = True ThenVImprimioBien = Me.PrinterFiscal1.GetInvoiceSubtotal("N")
If VImprimioBien = True ThenSubtotalF = Me.PrinterFiscal1.AnswerField_5
Subtotal = SubtotalF / 100
End If
End If
If VImprimioBien = True Then If Subtotal > TotalComprobante ThenRedondeo = Subtotal - TotalComprobante
RedondeoF = CDec(Format(Redondeo, "#########0.00")) * 100
VImprimioBien = Me.PrinterFiscal1.SendInvoicePayment("Redondeo: ", RedondeoF, "D")
ElseIf Subtotal < TotalComprobante ThenRedondeo = TotalComprobante - Subtotal
RedondeoF = CDec(Format(Redondeo, "#########0.00")) * 100
VImprimioBien = Me.PrinterFiscal1.SendInvoicePerception("Redondeo: ", "O", RedondeoF, " ")
End If
End If
Loop Until Subtotal = TotalComprobante Or VImprimioBien = False
End If
End If
Valora esta pregunta
0