Plazo del cliente, cachar error al actualizar remisiones

Ventas/Ventas.aspx.vb

@@ -5015,6 +5015,8 @@ Partial Class Ventas
 
                 TrVistaPrevia.Visible = True
 
+                TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+
                 If Not (ModalidadEdicion AndAlso DdlTipoComprobante.SelectedValue = "Rem") Then
                     CargaRestriccionesCreditoCliente(True, Me.CveVenta)
                 End If
@@ -16362,17 +16364,17 @@ Partial Class Ventas
     Private Sub BtnEditarRemision_Click(sender As Object, e As EventArgs) Handles BtnEditarRemision.Click
         Dim OcurrioError As Boolean = False
         Dim ObjVentas As New ClsVentas
+        ObjVentas.IniciaTransacSQL()
+
         Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
         Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
         Dim ObjCGame As New ClsCGame(ObjVentas.IniciaTransacSQL())
         Dim ObjAC As ClsContPAQi = Nothing
+
         Dim Moneda As Integer = DdlMoneda.SelectedValue.ToEntero
         Dim TipoCambio As Double = TxtTipoCambio.Text.ToDouble
         EditoRemision = True
-        'Dim SubTotal, Descuento, IVA, RetIVA, RetISR, IEPS, Total As Decimal
-        ObjVentas.IniciaTransacSQL()
-
-
+        Try
             'CONVERTIR REMISION - TIPO MONEDA  -DOLARES A PESOS
             If DdlMoneda.SelectedValue.ToEntero <> 2 AndAlso ChkConvertirDolares.Checked Then
 
@@ -16533,11 +16535,16 @@ Partial Class Ventas
             End If
 
             If Not OcurrioError Then
-            If RegeneracionPolizas(ObjVentas, ObjAC) Then
+                If RegeneracionPolizas(ObjVentas, ObjAC, ObjConta, ObjBancos) Then
                     OcurrioError = True
                 End If
             End If
 
+        Catch ex As Exception
+            OcurrioError = True
+            OnError("Ocurrió un error al actualizar la remisión", ex)
+        End Try
+
         If OcurrioError Then
             ObjVentas.RollBack()
             Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError)
@@ -17446,34 +17453,26 @@ Partial Class Ventas
     End Sub
 
 
-    Private Function RegeneracionPolizas(ByRef ObjVentas As ClsVentas, ByRef ObjAC As ClsContPAQi) As Boolean
-        Dim ObjConta As New ClsContabilidad(ObjVentas.IniciaTransacSQL())
-        Dim ObjBancos As New ClsBancos(ObjVentas.IniciaTransacSQL())
-
-        Dim CvePlantillaPoliza As Integer
+    Private Function RegeneracionPolizas(ByRef ObjVentas As ClsVentas, ByRef ObjAC As ClsContPAQi, ByRef ObjConta As ClsContabilidad, ObjBancos As ClsBancos) As Boolean
 
         Dim ErrorCancelar As Boolean = False
         Dim Mensaje As String = ""
 
         CreaObjetosVenta()
+
         If UsuarioActual.Empresa.UsaAC Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
         End If
 
-        If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
-            CvePlantillaPoliza = 7
-        ElseIf ObjFactura.TipoDocto.Contiene("Ing", "Rem", "Ant") Then
-            CvePlantillaPoliza = 4
-        Else
-            CvePlantillaPoliza = 4
-        End If
-
-        'Removemos los conceptos de la prepoliza
-        ObjConta.RemovePrePolizasDetalle(CvePrePoliza, -1, CveVenta, 2)
+        'REMOVEMOS LOS CONCEPTOS DE LA PREPOLIZA
+        ErrorCancelar = Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, -1, CveVenta, 2)
 
         ObjFactura.CveVenta = CveVenta
         ObjFactura.CvePrePoliza = CvePrePoliza
-        ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, 1, ObjBancos, ObjVentas)
+
+        'VUELVE A GENERAR LAS PREPOLIZAS
+        If Not ErrorCancelar Then ErrorCancelar = ProcesoPrepolizas(ObjConta, ObjFactura, -1, TmpDT, ObjAC, 1, ObjBancos, ObjVentas)
+
         If Not ErrorCancelar Then ErrorCancelar = GuardarVentaImpuestosLocales(ObjVentas, ObjConta, ObjFactura, 1)
 
         Return ErrorCancelar