-- cambio a unificación función validaciónprepolizas

This commit is contained in:
2023-11-18 13:20:20 -07:00
parent 3904343f17
commit f91dd14387
26 changed files with 87 additions and 354 deletions

View File

@@ -2856,24 +2856,6 @@ Partial Class Bancos_IE
End If
End If
'El movimiento 1 es el de Venta
'Conta ContPAQ
If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
Dim AutoConta As Boolean = True
If AutoConta Then
If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
IDPoliza = ObjMov.ContaIdPoliza
Else
Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
MsgError = "Error al contabilizar."
End If
End If
End If
If MsgError = "" Then
'IMPRIME CHEQUE
'GeneraChequePDF(CveIE, UsuarioActual.Empresa, IDPoliza)