Editar solo los movs modificados y mostrar corrrectamente la cuenta

2021-05-10 10:07:25 -07:00
parent 0421291be3
commit 4c9677a94e
2 changed files with 41 additions and 34 deletions
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -342,7 +342,7 @@
                    </div>
                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                        <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
-                            DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                            DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta, CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                            <Columns>
                                <asp:TemplateField>
                                    <HeaderTemplate>Cuenta</HeaderTemplate>
@@ -406,7 +406,6 @@
                                    <ItemTemplate>
                                        <asp:LinkButton ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                        <asp:ImageButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
-
                                    </ItemTemplate>
                                </asp:TemplateField>

@@ -454,7 +453,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, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta" Width="100%" >
                            <Columns>
                                <asp:TemplateField>
                                    <HeaderTemplate>Movimiento</HeaderTemplate>
@@ -559,6 +558,12 @@
                                    <ItemStyle HorizontalAlign="Right" Width="20px" />
                                </asp:TemplateField>

+                                <asp:TemplateField Visible="false" >
+                                    <ItemTemplate>
+                                        <asp:CheckBox runat="server" ID="chkModificado" Checked="false"/>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
                            </Columns>
                            <RowStyle CssClass="Texto" />
                            <AlternatingRowStyle CssClass="TextoAlterno" />
@@ -720,7 +725,7 @@
                                        Cuenta:
                                    </div>
                                    <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
                                    </div>
                                </div>
                                <br />
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -996,37 +996,39 @@ Partial Class ContabilidadC_RegPrePolizaS

        For Each row As GridViewRow In GvPrePoliza.Rows
            If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
-                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),
-                                                           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, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                    OcurrioError = True
-                    Exit For
-                End If
-            Else
+                If row.FCCheckBox("chkModificado").Checked Then
+                    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),
+                                                                   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, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                        OcurrioError = True
+                        Exit For
+                    End If
+                End If
+            Else
                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.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
                                                            row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
                                                            row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
                                                            CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
                                                            ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                           row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
-                                                           CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                           CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then
-                    OcurrioError = True
-                    Exit For
-                End If
-            End If
-
-        Next
-
-        If Not OcurrioError Then
-            ObjContabilidad.Commit()
-            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
-        Else
-            ObjContabilidad.RollBack()
-            Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
+                                                            row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
+                                                            CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero) Then
+                    OcurrioError = True
+                    Exit For
+                End If
+            End If
+
+        Next
+
+        If Not OcurrioError Then
+            ObjContabilidad.Commit()
+            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
+        Else
+            ObjContabilidad.RollBack()
+            Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
        End If

        ObjContabilidad.Dispose()
@@ -1064,7 +1066,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        Dim Referencia As String = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtRef").Text
        Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveSubProyecto").ToString.ToEntero
        Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveTipoGasto").ToString.ToEntero
-        Dim IdCtaContable As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdCtaContable").ToString.ToEntero
+        Dim CveCuenta As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCuenta").ToString.ToEntero
        Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDouble
        Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDouble

@@ -1091,7 +1093,7 @@ Partial Class ContabilidadC_RegPrePolizaS
        CargaTipoGastoE()
        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
        CargaCtaContableE()
-        DdlCtaContableE.SelectedValueExist(IdCtaContable)
+        DdlCtaContableE.SelectedValueExist(CveCuenta)

        If Cargo <> 0 Then
            TxtCargoE.Text = Cargo
@@ -1359,8 +1361,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                    GvPrePoliza.DataSource = DtMovimientos
                    GvPrePoliza.DataBind()
                    UpPrePoliza.Update()
-                End If
-
+                End If
+                GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
            End If
        End If