-- se depuró/limpió la variables idctaXXX

2023-08-17 18:56:22 -07:00
parent 70fce81f48
commit 2765dab757
74 changed files with 1350 additions and 5328 deletions
--- a/Contabilidad/OCDetalleAlmacen.aspx.vb
+++ b/Contabilidad/OCDetalleAlmacen.aspx.vb
@@ -30,11 +30,8 @@ Partial Class Contabilidad_OCDetalleAlmacen

    Private Sub CargaDatos()

-
        Dim ObjConta As New ClsContabilidad

-
-
        If ObjConta.GetOCDetalleAlmacen(100000D, UsuarioActual.CveEmpresa) Then

            If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -57,10 +54,8 @@ Partial Class Contabilidad_OCDetalleAlmacen

    End Sub

-
    Protected Sub BtnProcesarRegistros_Click(sender As Object, e As EventArgs)

-
        Dim ObjConta As New ClsContabilidad
        ObjConta.IniciaTransacSQL()

@@ -84,31 +79,20 @@ Partial Class Contabilidad_OCDetalleAlmacen
            Dim CveCompra As Integer = GvDrow.DataKey("CveCompra").ToString.ToEntero
            Dim Folio As String = GvDrow.DataKey("Folio").ToString

-
-            Dim CveCuenta176 As Integer = 0
-            Dim IdCtaCuenta176 As Integer = 1245
-            Dim IdCtaCuenta228 As Integer = 1247
-            Dim IdCtaCuenta229 As Integer = 1249
-
-            Dim CveCuenta177 As Integer = 55294
-            Dim IdCtaCuenta177 As Integer = 1148
-
            Dim Chk As CheckBox = GvDrow.FCCheckBox("Chk")

-
            If Chk IsNot Nothing AndAlso Chk.Checked Then
                CvePrePoliza = ObjConta.AddPrePolizas(modulo, 74, Diferencia, Diferencia, CveMoneda, Fecha, Referencia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)

                GvDrow.Cells(1).Text = CvePrePoliza.ToString
                mensaje = mensaje & $"CvePrePoliza {CvePrePoliza  }  OC: {Folio}  Importe :{Diferencia} <br>"

-
                If CvePrePoliza > 0 Then

                    If Cargo > Abono Then
-                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                        If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, Diferencia, Diferencia, 176, Referencia, Referencia, ImporteME:=Diferencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then

-                            If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, Contabilizable:=1, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
+                            If (ObjConta.AddPrePolizasDetalle(CvePrePoliza, 1, -Diferencia, -Diferencia, 177, Referencia, Referencia, CveCompra:=CveCompra, CveOC:=CveOC, CveOCDetalle:=CveOCDetalle, CveProveedor:=CveProveedor)) Then
                                ContadorProcesados = ContadorProcesados + 1
                            Else
                                ErrorProcesamiento = True
--- a/Contabilidad/RegPoliza.aspx.vb
+++ b/Contabilidad/RegPoliza.aspx.vb
@@ -1186,7 +1186,7 @@ Partial Class RegPoliza
                'If tCveSub <= 0 AndAlso drt("IdSegNeg").ToString.ToEntero = 0 Then 'toma el primero
                '    tCveSub = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
                'End If
-                If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, drt("TipoMovto").ToString = "True",
+                If ObjConta.AddPrePolizasDetalle2(tCvePrePoliza, drt("TipoMovto").ToString = "True",
                                                 drt("Importe").ToString.ToDecimal,
                                                 drt("Concepto").ToString, 299,
                                                 drt("Concepto").ToString, Now,
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -1080,11 +1080,11 @@ Partial Class ContabilidadC_RegPrePoliza
                        End If

                        If Importe <> 0 Then
-                            If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero(), gvr.FCTextBox("TxtConcepto").Text,
+                            If ObjMov.AddPrePolizasDetalle2(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero(), gvr.FCTextBox("TxtConcepto").Text,
                                                           TxtFecha.Text.ToDate(), IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(), CveIE:=CveIE,
                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                           CvePersonal:=gvr.DataKey("CvePersonal").ToEntero(), CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero(),
-                                                            ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(),
+                                                            CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(),
                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero(), CveVenta:=gvr.DataKey("CveVenta").ToEntero(), TipoCambio:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, gvr.DataKey("TC").ToString().ToDecimal(), 1),
                                                            ImporteME:=If(gvr.DataKey("TC").ToString().ToDecimal() > 0, (Importe / (gvr.DataKey("TC").ToString().ToDecimal() - 1)).RoundSQL, 0),
                                                            PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal(), CveCuenta:=gvr.DataKey("CveCuenta").ToEntero()) Then
@@ -1221,8 +1221,7 @@ Partial Class ContabilidadC_RegPrePoliza
                                                                row.DataKey("CveConceptoContable").ToEntero(), row.FCTextBox("TxtConcepto").Text, Now,
                                                                row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero(), 0, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(),
                                                                CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()),
-                                                                ImporteMX:=If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0,
-                                                               row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()), CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then
+                                                                  CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then
                            OcurrioError = True
                            Exit For
                        End If
@@ -2260,7 +2259,7 @@ Partial Class ContabilidadC_RegPrePoliza

                    If YaExiste = False Then
                        If IdCuenta > 0 Then
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
+                            If Not ObjConta.AddPrePolizasDetalle2(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, Now.ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
                                TieneError = True
                                Exit For
                            End If
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -440,7 +440,7 @@
                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">

                        <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono,CveIE" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono,CveIE" Width="100%" >
                            <Columns>
                                <asp:TemplateField>
                                    <HeaderTemplate>Movimiento</HeaderTemplate>
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -398,7 +398,6 @@ Partial Class ContabilidadC_RegPrePolizaS
            .Add("CveTipoGasto", Type.GetType("System.Int32"))
            .Add("CvePrePolizaDetalle", Type.GetType("System.Int32"))
            .Add("CveConceptoContable", Type.GetType("System.Int32"))
-            .Add("IdCtaContable", Type.GetType("System.Int32"))
            .Add("ConceptoContable", Type.GetType("System.String"))
            .Add("CveCuenta", Type.GetType("System.Int32"))
            .Add("CodigoNombreCuenta", Type.GetType("System.String"))
@@ -555,13 +554,6 @@ Partial Class ContabilidadC_RegPrePolizaS

        If e.Row.RowType = DataControlRowType.DataRow Then

-            If e.Row.DataKey("IdCtaContable") <> "" Then
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", e.Row.DataKey("IdCtaContable")))
-                If drr IsNot Nothing Then
-                    e.Row.FCLiteral("DdlCtaContable").Text = drr("CuentaFormato").ToString() + " - " + drr("Nombre").ToString()
-                End If
-            End If
-
            TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.DBCampo("Cargo").ToDecimal).ToString.FormatoNumero
            TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.DBCampo("Abono").ToDecimal).ToString.FormatoNumero

@@ -685,18 +677,6 @@ 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()
@@ -1006,9 +986,6 @@ Partial Class ContabilidadC_RegPrePolizaS

                    'inserto las compras que voy a pagarDdlSaldos
                    For Each gvr As GridViewRow In Gv.Rows
-                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
-                        '    IdCtaContable = gvr.DataKey("IDCuenta")
-                        'End If

                        'Registra movimieno bancario
                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 AndAlso (gvr.DataKey("ContadoImporte").ToDecimal <> 0 OrElse TipoGrid = 1) Then
@@ -1219,7 +1196,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                                End If

                                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,
+                                                                                   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),
                                                                                   CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
                                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
@@ -1723,9 +1700,7 @@ Partial Class ContabilidadC_RegPrePolizaS
            ChkSeguir.Visible = True
            If DtMovimientos Is Nothing Then CreaDT()

-            Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
            Dim dr As DataRow = DtMovimientos.NewRow
-            dr("IdCtaContable") = IdCtaContable
            dr("CveCuenta") = DdlCuentaContableE.SelectedValue
            dr("CodigoNombreCuenta") = DdlCuentaContableE.SelectedItem.Text
            dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
@@ -1791,8 +1766,6 @@ Partial Class ContabilidadC_RegPrePolizaS
            End If
            If Rows.Count > 0 Then
                Dim dr As DataRow = Rows(0)
-                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
@@ -1929,7 +1902,6 @@ Partial Class ContabilidadC_RegPrePolizaS

            If CvePrePoliza > 0 Then
                Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
                dr("CveCuenta") = DdlCuentaContable.SelectedValue
                dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
@@ -2307,7 +2279,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                                        .TipoTransferencia = "",
                                        .CveConceptoContable = row.Item("CveConceptoContable"),
                                        .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
-                                        .IdCtaContable = IIf(row.Item("IdCtaContable").ToString.ToEntero > 0, row.Item("IdCtaContable"), -1),
                                        .CveCuenta = row.Item("CveCuenta")
                                    }).QueryToDataTable(True)

@@ -2415,7 +2386,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                    Dim CveSubProyecto As Integer = -1
                    Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
                    Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo").ToString.Trim)).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
-                    'Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
+
                    Dim CveClasificacion As Integer = -1
                    Dim CveCuentaExcel As Integer = -1
                    Dim ObjConta2 As New ClsContabilidad