Sporte ventas correcion facturacion cotizacion coin productos adicionales

En RegPrePoliza que permita actualizar la poliza para el usuario 100

Contabilidad/RegPrePoliza.aspx.vb

@@ -158,6 +158,14 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("IndiceGrid") = value
         End Set
     End Property
+    Public Property IdPoliza As Integer
+        Get
+            Return CType(ViewState("IdPoliza"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IdPoliza") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -174,6 +182,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Observaciones = "-1"
             Beneficiario = "-1"
             Actualizar = False
+            IdPoliza = -1
 
             Dim dt As DataTable = Nothing
             '   If UsuarioActual.Empresa.UsaContabilidad Then
@@ -401,10 +410,15 @@ Partial Class ContabilidadC_RegPrePoliza
                     LnkComplementoPago.Visible = True
                 End If
 
+                IdPoliza = dr("IdPoliza").ToString.ToEntero
                 If dr("IdPoliza").ToString.ToEntero > 0 Then
                     HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                     divContabilziada.Visible = True
                     BtnEliminar.Visible = False
+                    If UsuarioActual.CveUsuario = 100 Then
+                        BtnContabilizar.Visible = True
+                        BtnContabilizar.Text = "Actualizar Poliza"
+                    End If
                 ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
                     'sino está contabilizada, se activa el botón
                     BtnContabilizar.Visible = True
@@ -1428,7 +1442,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then
             Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
         Else
 

Ventas/Ventas.aspx.vb

@@ -21316,7 +21316,7 @@ Partial Class Ventas
                 AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString,
                                         Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal,
                                         Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString,
-                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero)
+                                        CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True)
             Next
             CalculaTotalesVenta()
             Return True