diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 4aa540ba3..d4d3312cd 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -844,9 +844,7 @@ Partial Class Bancos_ProveedoresAbonar tImporteMN = (tImporteMN * Pago.TCPago).RoundSQL End If - If UsuarioActual.CveRol = 1 Then - Alert($" TxtImporte.Text: { TxtImporte.Text} tImporteMN: {tImporteMN}") - End If + If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, tImporteMN, 30, Referencia, ConceptoMovimiento, CveIE:=CveIE, CveProveedor:=CveProveedor, TipoCambio:=Pago.TCPago, CveSubProyecto:=CveSubProyecto, ImporteME:=ImporteME) Then MsgError = "No se pudo insertar la póliza"