Visual Basic - Error en SendInvoicePayment de IFEpson.ocx (REDONDEO)

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 6
Ha aumentado su posición en 11 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error en SendInvoicePayment de IFEpson.ocx (REDONDEO)

Publicado por Alejandro Nicolas (1 intervención) 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

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 = 0
        Do
            If VImprimioBien = True Then
                VImprimioBien = Me.PrinterFiscal1.GetInvoiceSubtotal("N")
                If VImprimioBien = True Then
                    SubtotalF = Me.PrinterFiscal1.AnswerField_5
                    Subtotal = SubtotalF / 100
                End If
            End If
            If VImprimioBien = True Then
                If Subtotal > TotalComprobante Then
                    Redondeo = Subtotal - TotalComprobante
                    RedondeoF = CDec(Format(Redondeo, "#########0.00")) * 100
                    VImprimioBien = Me.PrinterFiscal1.SendInvoicePayment("Redondeo: ", RedondeoF, "D")
                ElseIf Subtotal < TotalComprobante Then
                    Redondeo = 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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error en SendInvoicePayment de IFEpson.ocx (REDONDEO)

Publicado por Marcelo (2 intervenciones) el 07/01/2020 04:41:29
Hola, me parece que te está faltando solicitar un subtotal y en caso de diferencia (total real vs total impreso) hacer el ajuste fiscal (descuento/recargo) correspondiente. Los pasos son los siguientes:
“Abrir”
“Item”
“Subtotal”
“Descuentos/Recargos”
“Pagos”
“Cerrar”
Espero te sea útil mi comentario.
Saludos desde Cba.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar