-- cambio a unificación función validaciónprepolizas
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user