mejoras en carga contable

Contabilidad/RegPrePolizaS.aspx.vb

@@ -223,7 +223,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Beneficiario = "-1"
             Actualizar = False
             IdPoliza = -1
-
+            CargaCtaContableE()
 
             If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                 DivTipoGasto.Visible = True
@@ -452,6 +452,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                     LnkComplementoPago.Visible = True
                 End If
 
+
+                If UsuarioActual.CveEmpresa = 119 Then
+                    BtnContabilizar.Visible = True
+                End If
+
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     If dr("FolioPoliza").ToString.ToEntero > 0 Then
                         divContabilizada.Visible = True
@@ -638,6 +643,18 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
     End Sub
 
+    Private Function CargaCuentasContpaq(CveCuenta As Integer) As Integer
+        Dim Retorno As Integer = -1
+        If CveCuenta > 0 Then
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetCuentas(CveCuenta, "-1", 1, UsuarioActual.CveEmpresa) Then
+                Retorno = ObjConta.DtResultados.Rows(0)("IdCompaq").ToString.ToEntero
+            End If
+            ObjConta.Dispose()
+        End If
+        Return Retorno
+
+    End Function
     Private Sub CargaTiposGasto()
         DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
         DdlTipoGasto.DataBind()
@@ -1040,16 +1057,21 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub ActualizarPrePoliza()
-
+        Dim contador As Integer = 0
         Dim OcurrioError As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad
         ObjContabilidad.IniciaTransacSQL()
 
         ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
+        If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+            OcurrioError = True
+        End If
+
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If row.FCCheckBox("chkModificado").Checked Then
+                    contador = contador + 1
                     If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                    row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                    row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
@@ -1061,6 +1083,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     End If
                 End If
             Else
+                contador = contador + 1
                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                             row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
                                                             row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
@@ -1087,6 +1110,13 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         ObjContabilidad.Dispose()
         CargaPrePoliza()
+
+        If Not OcurrioError Then
+            If IdPoliza > 0 AndAlso contador Then
+                BtnContabilizar_Click(Nothing, Nothing)
+            End If
+
+        End If
     End Sub
     Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs)
         RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
@@ -1097,8 +1127,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         CargaConceptosContablesE()
         CargaSubProyectoE()
         CargaTipoGastoE()
-        CargaCtaContableE()
-
 
         UpdatePanel1.Update()
     End Sub
@@ -1135,9 +1163,12 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         DdlPersonalE.SelectedValueExist(CvePersonal)
 
-        DdlClientesE.SelectedValue = CveCliente
+        If CveCliente > 0 Then
-        DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
+            DdlClientesE.SelectedValue = CveCliente
-        DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
+            DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NombreComercial", $"CveCliente={CveCliente}")
+            DdlClientesE_SelectedIndexChanged(DdlClientesE, e)
+
+        End If
         DdlVentasE.SelectedValueExist(CveVenta)
 
         TxtConceptoE.Text = Concepto
@@ -1147,7 +1178,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlSubProyectoE.SelectedValueExist(CveSubProyecto)
         CargaTipoGastoE()
         DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
-        CargaCtaContableE()
+
         DdlCuentaContableE.SelectedValueExist(CveCuenta)
 
         If Cargo <> 0 Then
@@ -1294,8 +1325,9 @@ Partial Class ContabilidadC_RegPrePolizaS
         If IndiceGrid = -1 Then
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
+                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+                dr("IdCtaContable") = IdCtaContable
                 dr("CveCuenta") = DdlCuentaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
@@ -1386,7 +1418,8 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = DdlCuentaContableE.SelectedValue
+                Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
+                dr("IdCtaContable") = IdCtaContable
                 dr("CveCuenta") = DdlCuentaContableE.SelectedValue
                 dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
@@ -1443,11 +1476,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                 UpTotalAbono.Update()
 
             End If
+            RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
         End If
 
 
         UpPrePoliza.Update()
-        RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
+
     End Sub
     Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
 
@@ -1833,21 +1867,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         LbAgregar.Text = "Agregar"
     End Sub
 
-    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
-
-        Dim ObjConta As New ClsContabilidad
-
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) 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
-
-            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
-        End If
-
-        ObjConta.Dispose()
-
-
-    End Sub
 
 
 #Region "COMPLEMENTO DE PAGO"
@@ -2247,7 +2266,29 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Function
 #End Region
 
+    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
 
+        Contabilizar()
+
+    End Sub
+
+    Private Sub Contabilizar()
+
+        Dim ObjConta As New ClsContabilidad
+
+        If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
+            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+        End If
+
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) 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
+
+            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+        End If
+
+        ObjConta.Dispose()
+    End Sub
 
 
 #Region "Paquete Egresos"