From 541976f95157e2f1f86e11bf997a1ac0dc338613 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 16 May 2022 18:26:01 -0700
Subject: [PATCH] -- mejora en manejo de TCy del gvprepolizas

---
 Contabilidad/RegPrePolizaS.aspx    |  22 +-
 Contabilidad/RegPrePolizaS.aspx.vb | 310 ++++++++++++++---------------
 2 files changed, 159 insertions(+), 173 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 31d653243..68914892e 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -176,6 +176,8 @@
                                                 <div class="form-group form-md-line-input input-iconright">
                                                     <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" Enabled="false"></asp:TextBox>
                                                     <label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
+                                                     <asp:RequiredFieldValidator ID="RFVConcepto" runat="server" ControlToValidate="TxtConcepto" Display="None" ErrorMessage="El campo <b>''Concepto''</b> es requerido, por favor ingrese uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCEConcepto" runat="server" HighlightCssClass="vco" TargetControlID="RFVConcepto" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                             </div>
                                         </div> 
@@ -357,7 +359,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,Cargo,Abono,TipoMovto,CveConcepto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria" 
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, ImporteME" 
                             Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
@@ -475,12 +477,12 @@
                     <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,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />                                
+                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />                                         
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" Width="125px" />
                                 </asp:TemplateField>
@@ -520,9 +522,7 @@
                                 <asp:TemplateField>
                                     <HeaderTemplate>TipoGasto</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="DdlTipoGasto" runat="server" Text='<%# Eval("TipoGasto") %>'></asp:Literal><br />
-                                        <%--<asp:HiddenField ID="HdnTipoGasto" runat="server" Value='<%# Eval("CveTipoGasto") %>' />--%>
-                                        <%--<asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>--%>
+                                        <asp:Literal ID="DdlTipoGasto" runat="server" Text='<%# Eval("TipoGasto") %>'></asp:Literal><br />                                       
                                     </ItemTemplate>
                                     <ItemStyle />
                                 </asp:TemplateField>
@@ -723,7 +723,7 @@
     <div id="DivEditConcepto" align="center" class="modal ADS fade" role="dialog">
  
 
-                <div class="modal-dialog" style="width: 450px;"  id="DvMoldalConceptoAncho" >
+                <div class="modal-dialog" style="width: 450px;"  id="DivModalConceptoAncho" >
 
                     <asp:UpdatePanel ID="UpModalConcepto" runat="server" class="modal-content" UpdateMode="Conditional">
                         <ContentTemplate>
@@ -857,19 +857,17 @@
                                         <div class="row">
                                             <div class="col-xs-2" style="text-align: left">Referencia:</div>
                                             <div class="col-xs-4">
-                                                <asp:TextBox ID="TxtReferenciaE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
-                                                  <asp:RequiredFieldValidator ID="RfvTxtReferenciaE"   runat="server" ControlToValidate="TxtReferenciaE" Display="None" ErrorMessage="El campo <b>''Referebcia''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
-                                                <ajax:ValidatorCalloutExtender ID="CeRfvTxtReferenciaE" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtReferenciaE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <asp:TextBox ID="TxtReferenciaE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>                                                 
                                                 <i></i>
                                             </div>
                                         </div>
                                         <br />
                                         <div class="row">
-                                            <div class="col-xs-2" style="text-align: left">Descripción:</div>
+                                            <div class="col-xs-2" style="text-align: left">Concepto:</div>
                                             <div class="col-xs-4">
                                                 <asp:TextBox ID="TxtConceptoE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
 
-                                                 <asp:RequiredFieldValidator ID="RfvTxtConceptoE"   runat="server" ControlToValidate="TxtConceptoE" Display="None" ErrorMessage="El campo <b>''Referebcia''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                 <asp:RequiredFieldValidator ID="RfvTxtConceptoE"   runat="server" ControlToValidate="TxtConceptoE" Display="None" ErrorMessage="El campo <b>''Concepto''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="CeRfvTxtConceptoE" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtConceptoE" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 <i></i>
 
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index eb0523e61..8c3721346 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -344,14 +344,11 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             CargaCuentas()
 
-
             If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
-                GvPrePoliza.Columns(4).Visible = False
-                GvMov.Columns(4).Visible = False
+                GvPrePoliza.Columns(5).Visible = False
+                GvMov.Columns(5).Visible = False
             End If
 
-
-
         End If
 
     End Sub
@@ -364,8 +361,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("Cuenta", Type.GetType("System.String"))
             .Add("Referencia", Type.GetType("System.String"))
             .Add("Concepto", Type.GetType("System.String"))
-            .Add("Cargo", Type.GetType("System.Double"))
-            .Add("Abono", Type.GetType("System.Double"))
+            .Add("Cargo", Type.GetType("System.Decimal"))
+            .Add("Abono", Type.GetType("System.Decimal"))
             .Add("TipoMovto", Type.GetType("System.Boolean"))
             .Add("ImporteMN", Type.GetType("System.Decimal"))
             .Add("ImporteME", Type.GetType("System.Decimal"))
@@ -377,6 +374,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("CveCompra", Type.GetType("System.Int32"))
             .Add("CveCliente", Type.GetType("System.Int32"))
             .Add("CveVenta", Type.GetType("System.Int32"))
+            .Add("CveIE", Type.GetType("System.Int32"))
             .Add("CveClasificacion", Type.GetType("System.Int32"))
             .Add("MultipleSubProyecto", Type.GetType("System.Boolean"))
             .Add("CveTipoGasto", Type.GetType("System.Int32"))
@@ -393,10 +391,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
             .Add("ContadoCuenta", Type.GetType("System.Int32"))
             .Add("ContadoNumeroFolio", Type.GetType("System.String"))
-            .Add("ContadoImporte", Type.GetType("System.Double"))
+            .Add("ContadoImporte", Type.GetType("System.Decimal"))
             .Add("ContadoBeneficiario", Type.GetType("System.String"))
             .Add("ContadoObservaciones", Type.GetType("System.String"))
-            .Add("PorcentajeImpuesto", Type.GetType("System.Double"))
+            .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
             .Add("Modificado", Type.GetType("System.Boolean"))
             .Add("EsComplementaria", Type.GetType("System.Boolean"))
             .Add("TC", Type.GetType("System.Decimal"))
@@ -529,12 +527,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
 
-
-                'DtMovimientos.DefaultView.Sort = "OrdenPP"
-                'DtMovimientos = DtMovimientos.DefaultView.ToTable
-
                 GvPrePoliza.DataSource = DtMovimientos
-
+                If Not DtMovimientos.Columns.Contains("IdMov") Then
+                    Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer))
+                    workColumn.AutoIncrement = True
+                    workColumn.AutoIncrementStep = 1
+                End If
 
                 If Not DtMovimientos.Columns.Contains("ContadoCuenta") Then
 
@@ -578,7 +576,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                         divContabilizada.Visible = True
                         IdPoliza = dr("IdPoliza").ToString.ToEntero
-                    ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+                    ElseIf TxtTotalCargos.Text.ToDecimal = TxtTotalAbonos.Text.ToDecimal Then
                         'sino está contabilizada, se activa el botón
                         ' BtnContabilizar.Visible = True
                     End If
@@ -614,33 +612,15 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            ''Asignamos los Subproyectos
-            'e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-            'e.Row.FCDropDownList("DdlSubProyecto").DataBind()
-            'e.Row.FCDropDownList("DdlSubProyecto").Items.Insert(0, New ListItem("  -  ", "-1"))
-            'e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DataKey("CveSubProyecto"))
-
-            'Asignamos los Tipos de Gasto
-            'e.Row.FCDropDownList("DdlTipoGasto").DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
-            'e.Row.FCDropDownList("DdlTipoGasto").DataBind()
-            'e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
-            'e.Row.FCDropDownList("DdlTipoGasto").SelectedValueExist(e.Row.DataKey("CveTipoGasto"))
-
-            'ASignamos las CuentasContables
-            'e.Row.FCDropDownList("DdlCtaContable").DataSource = Session("DtCuentas")
-            'e.Row.FCDropDownList("DdlCtaContable").DataBind()
-            'e.Row.FCDropDownList("DdlCtaContable").Items.Insert(0, New ListItem("Sin Asignar", "0"))
-            'e.Row.FCDropDownList("DdlCtaContable").SelectedValueExist(e.Row.DataKey("IdCtaContable"))
-
-            If e.Row.DataKey("IdCtaContable") > 0 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.ToDouble + e.Row.FCLiteral("TxtCargo").Text.ToDouble).ToString.FormatoNumero
-            TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCLiteral("TxtAbono").Text.ToDouble).ToString.FormatoNumero
+            TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.FCLiteral("TxtCargo").Text.ToDecimal).ToString.FormatoNumero
+            TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.FCLiteral("TxtAbono").Text.ToDecimal).ToString.FormatoNumero
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
@@ -898,6 +878,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim dr As DataRow = DtMovimientos.NewRow
 
             dr("CodigoCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
+            dr("CodigoNombreCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
             dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
             dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
             dr("Concepto") = TxtConcepto.Text
@@ -905,8 +886,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("EsComodin") = EsComodin
             dr("CveConceptoContable") = drt("CveConceptoContable")
             dr("CveSubProyecto") = drt("CveSubProyectoNegativo")
-            dr("Cargo") = TxtCargo.Text.ToDouble
-            dr("Abono") = TxtAbono.Text.ToDouble
+            dr("Cargo") = TxtCargo.Text.ToDecimal
+            dr("Abono") = TxtAbono.Text.ToDecimal
             dr("CveProveedor") = drt("CveProveedor")
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
@@ -1077,7 +1058,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 If CvePrePolizaInsertada > 0 Then
                     Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
                     Dim idCuentaContabilizacion As Long = 1
-                    Dim Importe As Double = 0
+                    Dim Importe As Decimal = 0
                     Dim ImporteME As Decimal = 0
                     Dim TipoCambio As Decimal = 1
                     Dim TipoMovto As Boolean = False
@@ -1114,8 +1095,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                         TipoCambio = 1
 
                         If gvr.DataKey("TipoMovto") = "True" Then
-                            If TipoGrid = "0" Then 'gvprep
-                                Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
+                            If TipoGrid = 0 Then 'gvmov
+                                Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
                                 TmpAbono = TmpAbono + Importe
                                 TipoMovto = True
 
@@ -1134,16 +1115,27 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 End If
                             End If
                         Else
+                            If TipoGrid = 0 Then 'gvmov
+                                Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
+                                TmpCargo = TmpCargo + Importe
+                                TipoMovto = False
 
-                            Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
-                            TmpCargo = TmpCargo + Importe
-                            TipoMovto = False
+                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                    ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
+                                    TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
+                                End If
+                            Else
+                                Importe = gvr.DataKey("Cargo").ToDecimal
+                                TmpCargo = TmpCargo + Importe
+                                TipoMovto = False
 
-                            If gvr.DataKey("EsComplementaria") = "True" Then
-                                ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
-                                TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
+                                If gvr.DataKey("EsComplementaria") = "True" Then
+                                    ImporteME = gvr.DataKey("MonedaExtranjera").ToDecimal
+                                    TipoCambio = gvr.DataKey("TipoCambio").ToDecimal
+                                End If
                             End If
 
+
                         End If
 
                         If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10") Then ' 30-bancos, 10-anticipos proveedores
@@ -1156,23 +1148,29 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                         End If
 
-
                         If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
                             idCuentaContabilizacion = 0
                         End If
                         If Importe <> 0 Then
                             Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
 
-                            'If gvr.datakey("CveConcepto") = "299" Then
-                            '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
-                            'End If
+                            Dim tReferencia As String = gvr.DataKey("Referencia")
+                            Dim tConcepto As String = gvr.DataKey("Concepto")
+                            Dim tCveSubProyecto As Integer = gvr.DataKey("CveSubProyecto").ToEntero
+                            Dim tCveTipoGasto As Integer = gvr.DataKey("CveTipoGasto").ToEntero
+                            If TipoGrid = 0 Then 'gvmov
+                                tReferencia = gvr.FCLiteral("LtlReferencia").Text
+                                tConcepto = gvr.FCTextBox("TxtConcepto").Text
+                                tCveSubProyecto = gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero
+                                tCveTipoGasto = gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero
+                            End If
 
-                            If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConceptoContable").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
-                                                           TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
+                            If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, tReferencia, gvr.DataKey("CveConceptoContable").ToEntero, tConcepto,
+                                                           TxtFechaDocumento.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=tCveSubProyecto, CveIE:=CveIE,
                                                            CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio,
-                                                            CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
+                                                            CveTipoGasto:=tCveTipoGasto,
                                                             CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
                                 ContRegInsertados = ContRegInsertados + 1
 
@@ -1206,7 +1204,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 MsgError = $"No se insertaron  registros  (Revise que los importes de los registros contengan valores)"
             End If
 
-
             If MsgError = "" Then
                 'MENSAJE IE
 
@@ -1336,10 +1333,11 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveSubProyecto").ToString.ToEntero
         Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveTipoGasto").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
-        Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero
+        Dim Cargo As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal
+        Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtAbono").Text.ToDecimal
+        Dim PorcentajeImpuesto As Decimal = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToDecimal
         Dim CveClasificacion As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveClasificacion").ToEntero
+        Dim MonedaExtr As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtCargo").Text.ToDecimal
 
         'CargaConceptosContablesE()
         'CargaModalConceptoCuentas()
@@ -1347,7 +1345,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
         DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
 
-        TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
+        TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00")
         DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
         DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
         TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
@@ -1355,6 +1353,8 @@ Partial Class ContabilidadC_RegPrePolizaS
         TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
         TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
 
+        TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
+
         DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
 
         DdlProveedoresE.SelectedValueExist(CveProveedor)
@@ -1504,15 +1504,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             If AplicaPersonal Then
                 CargaPersonalE()
                 DvModalconceptoPersonal.Visible = True
-
-                'DdlPersonalE.Visible = True
             Else
                 DvModalconceptoPersonal.Visible = False
-
-                'DdlPersonalE.Visible = False
             End If
 
-
             If AplicaClasificacion Then
                 CargaClasificacionesE()
                 DvModalconceptoClasificacion.Visible = True
@@ -1535,16 +1530,16 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DvModalconceptoCliente.Visible = False
             End If
 
-            If AplicaBancos Then
+            If AplicaBancos AndAlso Not AplicaComplementaria Then
                 CargaModalConceptoTipoTransaccion("Egs")
-                'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
+                'DivModalConceptoAncho.Attributes.Add("style", "width:1000px")
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
                 DvMoldalConceptoSeccion2.Visible = True
-                RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:1000px');")
+                RegistraScript("$('#DivModalConceptoAncho').attr('style','width:1000px');")
             Else
-                ' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
+                ' DivModalConceptoAncho.Attributes.Add("style", "width:450px")
                 DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
-                RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:450px');")
+                RegistraScript("$('#DivModalConceptoAncho').attr('style','width:450px');")
                 DvMoldalConceptoSeccion2.Visible = False
             End If
 
@@ -1707,10 +1702,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
             dr("Concepto") = TxtConceptoE.Text
             dr("Referencia") = TxtReferenciaE.Text
-            dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
-            dr("Cargo") = TxtCargoE.Text.ToDouble
-            dr("Abono") = TxtAbonoE.Text.ToDouble
-            dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
+            dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDecimal) > 0, False, True)
+            dr("Cargo") = TxtCargoE.Text.ToDecimal
+            dr("Abono") = TxtAbonoE.Text.ToDecimal
+            dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDecimal) > 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
             dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
             dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
             dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
@@ -1750,65 +1745,65 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Rows = DtMovimientos.Select("IdMov = " & IdMov)
             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
-                    dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
-                    dr("Concepto") = TxtConceptoE.Text
-                    dr("Referencia") = TxtReferenciaE.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, False, True)
-                dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDouble) > 0, TxtCargoE.Text.ToDouble, TxtAbonoE.Text.ToDouble)
-                    dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
-                    dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
-                    dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
-                    dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
-                    dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
-                    dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
-                    dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                    dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
-                    dr("Modificado") = True
+                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
+                dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
+                dr("Concepto") = TxtConceptoE.Text
+                dr("Referencia") = TxtReferenciaE.Text
+                dr("TipoMovto") = If(Math.Abs(TxtCargoE.Text.ToDecimal) > 0, False, True)
+                dr("ImporteMN") = If(Math.Abs(TxtCargoE.Text.ToDecimal) > 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
+                dr("CveSubProyecto") = DdlSubProyectoE.SelectedValue
+                dr("SubProyecto") = DdlSubProyectoE.SelectedItem.Text
+                dr("CveProveedor") = DdlProveedoresE.SelectedValue.ToEntero
+                dr("CveCompra") = DdlComprasE.SelectedValue.ToEntero
+                dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
+                dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
+                dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
+                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("Modificado") = True
 
-                    dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
-                    dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
-                    dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
-                    dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
-                    dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
-                    dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
+                dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+                dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+                dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+                dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+                dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+                dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
 
                 dr("TC") = TxtTipoCambio.Text.ToDecimal
 
                 dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
 
-                    If TxtCargoE.Text <> "" Then
-                        dr("Cargo") = TxtCargoE.Text.ToDouble
-                        dr("Abono") = "".ToDouble
-                    Else
-                        dr("Abono") = TxtAbonoE.Text.ToDouble
-                        dr("Cargo") = "".ToDouble
-                    End If
+                If TxtCargoE.Text <> "" Then
+                    dr("Cargo") = TxtCargoE.Text.ToDecimal
+                    dr("Abono") = "".ToDecimal
+                Else
+                    dr("Abono") = TxtAbonoE.Text.ToDecimal
+                    dr("Cargo") = "".ToDecimal
+                End If
 
-                    DtMovimientos.AcceptChanges()
-                    GvPrePoliza.EditIndex = -1
+                DtMovimientos.AcceptChanges()
+                GvPrePoliza.EditIndex = -1
 
-                'If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
                 GvPrePoliza.DataSource = DtMovimientos
-                        GvPrePoliza.DataBind()
-                        UpPrePoliza.Update()
+                GvPrePoliza.DataBind()
+                UpPrePoliza.Update()
                 GvPrePoliza.Visible = True
-                'End If
 
                 GvPrePoliza.Columns(11).Visible = True
-                    GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
+                GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True
 
-                    TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
-                    TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
-                    UpTotalCargo.Update()
-                    UpTotalAbono.Update()
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+                UpTotalCargo.Update()
+                UpTotalAbono.Update()
+                DdlClientesE.SelectedValue = "-1"
+                DdlClientesE.SelectedText = ""
 
-                End If
+            End If
                 RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
             End If
             UpPrePoliza.Update()
@@ -1859,11 +1854,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("Cuenta") = DdlConceptosContables.SelectedItem
                 dr("Referencia") = TxtReferencia.Text
                 dr("Concepto") = TxtConcepto.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, False, True)
                 dr("EsComodin") = 0
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
-                dr("Cargo") = TxtCargo.Text.ToDouble
-                dr("Abono") = TxtAbono.Text.ToDouble
+                dr("Cargo") = TxtCargo.Text.ToDecimal
+                dr("Abono") = TxtAbono.Text.ToDecimal
                 dr("Descripcion") = TxtDescripcion.Text
                 dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
@@ -1889,10 +1884,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Concepto") = TxtDescripcion.Text
                 dr("Referencia") = TxtReferencia.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
-                dr("Cargo") = TxtCargo.Text.ToDouble
-                dr("Abono") = TxtAbono.Text.ToDouble
-                dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, TxtCargo.Text.ToDouble, TxtAbono.Text.ToDouble)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, False, True)
+                dr("Cargo") = TxtCargo.Text.ToDecimal
+                dr("Abono") = TxtAbono.Text.ToDecimal
+                dr("ImporteMN") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, TxtCargo.Text.ToDecimal, TxtAbono.Text.ToDecimal)
                 dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
                 dr("SubProyecto") = DdlSubProyecto.SelectedItem.Text
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
@@ -1901,9 +1896,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
 
-
-                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
-                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
+                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
+                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
                 DtMovimientos.Rows.Add(dr)
                 DtMovimientos.AcceptChanges()
 
@@ -1931,12 +1925,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("Cuenta") = DdlConceptosContables.SelectedItem.Text
                 dr("Referencia") = TxtReferencia.Text
                 dr("Concepto") = TxtConcepto.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, False, True)
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, False, True)
                 dr("EsComodin") = 0
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
-                dr("Cargo") = TxtCargo.Text.ToDouble
-                dr("Abono") = TxtAbono.Text.ToDouble
+                dr("Cargo") = TxtCargo.Text.ToDecimal
+                dr("Abono") = TxtAbono.Text.ToDecimal
                 dr("Descripcion") = TxtDescripcion.Text
                 dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
                 dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
@@ -1946,8 +1940,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
 
-                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
-                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
+                TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + TxtAbono.Text.ToDecimal).ToString.FormatoNumero
+                TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + TxtCargo.Text.ToDecimal).ToString.FormatoNumero
                 DtMovimientos.Rows.Add(dr)
                 DtMovimientos.AcceptChanges()
 
@@ -2043,9 +2037,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         GvMov.DataBind()
 
 
-
-
-
         'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
         'CveCuenta = DdlCuenta.SelectedValue.ToEntero
         'Folio = TxtDocumentoFolio.Text
@@ -2385,7 +2376,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim ObjConta2 As New ClsContabilidad
                     Dim FolioExcel As Long = -1
                     Dim TipoMov As Integer = -1
-                    Dim TipoNaturalesa As String = ""
+                    Dim TipoNaturaleza As String = ""
                     Dim CveBancoCuenta As Integer = -1
                     If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then
                         CveCuentaExcel = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
@@ -2418,7 +2409,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
-                        TipoNaturalesa = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        TipoNaturaleza = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
 
                         FolioExcel = Row("Folio").ToString.ToEntero
                         CveTipoTransaccion = TipoMov
@@ -2439,16 +2430,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Exit Sub
                         End If
 
-
-                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturalesa = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturalesa = "Egs" Then
+                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturaleza = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturaleza = "Egs" Then
                             Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
                             Exit Sub
                         End If
 
-
-
-
-
                     End If
 
                     If Row("Abono").ToString.ToDecimal > 0 And Row("Cargo").ToString.ToDecimal > 0 Then
@@ -2456,14 +2442,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                         Exit Sub
                     End If
 
-
-
                     If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString = "" Then
                         Alert($" El registro {ContadorRegistros}  es movimiento bancario y no se especifica el tipo de  transferencia , importe: {ImporteDocumento.ToString("###,###,###.00")}", TipoMensaje.MsgAdvertencia)
                         Exit Sub
                     End If
 
-
                     'sino viene  el cveconcepto, busca por le nombre del concepto
                     If CveConceptoContable = 0 Then
                         Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
@@ -2489,7 +2472,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                     Dim dr As DataRow = DtMovimientos.NewRow
                     Dim CodigoCuenta As String = ""
 
-                    dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
+                    dr("CodigoCuenta") = NombreCuenta
+                    dr("CodigoNombreCuenta") = NombreCuenta
                     dr("Cuenta") = ConceptoAdministrativo
                     dr("Referencia") = Row("Referencia").ToString
                     dr("Concepto") = Row("Concepto").ToString
@@ -2499,7 +2483,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
                     dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
                     dr("Abono") = Row("Abono").ToString.ToDecimal.RoundSQL
+                    dr("ImporteME") = 0
+                    dr("ImporteMN") = IIf(Row("Cargo").ToString.ToDecimal <> 0, Row("Cargo").ToString.ToDecimal, Row("Abono").ToString.ToDecimal)
                     dr("Descripcion") = Row("Concepto").ToString
+                    dr("SubProyecto") = Row("SubProyecto").ToString.Trim
                     dr("CveSubProyecto") = CveSubProyecto
                     dr("CveProveedor") = -1
                     dr("CveCompra") = -1
@@ -2508,6 +2495,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
                     dr("CveCuenta") = CveCuentaExcel
+                    dr("CveTipoGasto") = -1
+                    dr("CvePrePolizaDetalle") = -1
+                    dr("PorcentajeImpuesto") = 0D
+                    dr("TC") = 1
+                    dr("EsComplementaria") = 0
+                    dr("Modificado") = 1
 
                     dr("ContadoTipoTransaccion") = CveTipoTransaccion
                     dr("ContadoCuenta") = CveBancoCuenta
@@ -2516,23 +2509,20 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("ContadoBeneficiario") = Beneficiario
                     dr("ContadoObservaciones") = Observaciones
 
-                    If Row("Cargo").ToString.ToDecimal <> 0 OrElse Row("Abono").ToString.ToDecimal Then
+                    If Row("Cargo").ToString.ToDecimal <> 0 OrElse Row("Abono").ToString.ToDecimal <> 0 Then
                         DtMovimientos.Rows.Add(dr)
                         DtMovimientos.AcceptChanges()
                     End If
-
                     ContadorRegistros = ContadorRegistros + 1
 
                 Next
 
-
-
                 TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
                 TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
 
-                GvMov.DataSource = DtMovimientos
-                GvMov.DataBind()
-                UPMovs.Update()
+                GvPrePoliza.DataSource = DtMovimientos
+                GvPrePoliza.DataBind()
+                UpPrePoliza.Update()
 
             Catch ex As Exception
                 Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
@@ -2836,7 +2826,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                         divContabilizada.Visible = True
                         IdPoliza = dr("IdPoliza").ToString.ToEntero
-                    ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+                    ElseIf TxtTotalCargos.Text.ToDecimal = TxtTotalAbonos.Text.ToDecimal Then
                         'sino está contabilizada, se activa el botón
                         'BtnContabilizar.Visible = True
                     End If
@@ -2921,7 +2911,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
                     Dim idCuentaContabilizacion As Long = 1
-                    Dim Importe As Double = 0
+                    Dim Importe As Decimal = 0
                     Dim ImporteME As Decimal = 0
                     Dim TipoCambio As Decimal = 1
                     Dim TipoMovto As Boolean = False
@@ -2931,14 +2921,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvPrePoliza.Rows
 
-
-
                         ImporteME = 0
                         TipoCambio = 1
 
                         If Boolean.Parse(gvr.DataKey("TipoMovto")) Then
 
-                            Importe = gvr.FCLiteral("TxtAbono").Text.ToDouble
+                            Importe = gvr.FCLiteral("TxtAbono").Text.ToDecimal
                             TipoMovto = True
 
                             If gvr.DataKey("EsComplementaria") = "True" Then
@@ -2947,7 +2935,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                             End If
 
                         Else
-                            Importe = gvr.FCLiteral("TxtCargo").Text.ToDouble
+                            Importe = gvr.FCLiteral("TxtCargo").Text.ToDecimal
                             TipoMovto = False
 
                             If gvr.DataKey("EsComplementaria") = "True" Then