-- valida la factura de venta

This commit is contained in:
2021-02-15 22:56:17 -07:00
parent 527026f293
commit ac872970aa

View File

@@ -690,7 +690,7 @@ Partial Class Bancos_PopIEVentas
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" Then
Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), dr("ClienteRFC").ToString, UsuarioActual.Empresa.RFC)
Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("ClienteRFC").ToString, dr("Total").ToString.ToDecimal)
If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then
@@ -713,9 +713,9 @@ Partial Class Bancos_PopIEVentas
Else
Validada = True
End If
Else
'no se pudo validar, pero ya tuvo la primera vuelta de validacion
Validada = True
Else
'no se pudo validar, pero ya tuvo la primera vuelta de validacion
Validada = False
End If
Valida.Dispose()
Else