From 4a6a1e88f4b1e2e3d61550419275a73460d45bac Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jun 2024 22:07:30 -0700
Subject: [PATCH] =?UTF-8?q?-=20se=20reemplaz=C3=B3=20el=20archivo=20de=20r?=
 =?UTF-8?q?egprepolizaS.aspx?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePoliza.aspx    | 1238 ++++++-----
 Contabilidad/RegPrePoliza.aspx.vb | 3164 +++++++++++++++++------------
 2 files changed, 2552 insertions(+), 1850 deletions(-)

diff --git a/Contabilidad/RegPrePoliza.aspx b/Contabilidad/RegPrePoliza.aspx
index 172b43029..82c77e45a 100644
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -1,9 +1,12 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegPrePoliza.aspx.vb" Inherits="ContabilidadC_RegPrePoliza"  EnableEventValidation="false"  %>
 
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        tr.Titulos {
+            display: table-row !important;
+        }
         .GvMov input, .GvMov td {
             height: 20px !important;
         }
@@ -66,23 +69,27 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     <asp:Label ID="LblEncabezado" runat="server" Text=" Registro de Póliza"></asp:Label>
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">           
+            <li>
+                <asp:HyperLink ID="HplImprimirPDF" runat="server" Target="_blank" Visible="false" ><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:HyperLink>
+             </li>     
+            <asp:UpdatePanel runat="server">
+                <ContentTemplate>
+                    <li>
+                        <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" ><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
+                    </li>
+                    <li>
+                        <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
+                    </li>
+                    <li>
+                        <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false"  Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Complemento de Pago</asp:LinkButton>
+                    </li>
+                     <li>
+                         <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
+                     </li>
+                </ContentTemplate>
+            </asp:UpdatePanel>    
      
-            <li>
-                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
-            </li>
-            <li>
-                <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
-            </li>
-            <li>
-                <asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="false" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Paquete Egresos</asp:LinkButton>
-            </li>
-            <li>
-                <asp:LinkButton ID="LnkComprobante" runat="server" Visible="false"  data-toggle="modal" data-target="#ModalUpload" Style="color: #686868;"><i class="fa fa-upload" style="color:#686868;"></i> Cargar Comprobante</asp:LinkButton>
-            </li>
-
-         
-
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -90,95 +97,138 @@
         <tr>
             <td align="left" style="width: 665px;">
 
-                <asp:UpdatePanel ID="UPPDocumento" runat="server" UpdateMode="Conditional">
+                <asp:UpdatePanel ID="UpPoliza" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
-                        <div id="DivConceptoPrePoliza" runat="server" class="chequesie22">
-                            <div class="chequesie12" runat="server" id="divDatosPrincipales">
-                                <div class="row">
-                                    <label class="col-md-2 control-label text-left">Fecha:  </label>
-                                    <div class="col-md-4" style="width: 42%;">
-                                        <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                            <asp:TextBox ID="TxtFecha" runat="server" CssClass="form-control"></asp:TextBox>
-                                            <span class="input-group-btn ">
-                                                <asp:LinkButton runat="server" ID="ImgCalendario" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
-                                            </span>
+
+                        <div class="row" runat="server" id="DivDatosPoliza">
+                            <div class="col-md-8" style="margin-top: 3px;">
+                                <div class="portlet light bordered xspadding ">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="fa fa-bookmark font-green"></i>
+                                            <span class="caption-subject bold uppercase"></span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
                                         </div>
-
-                                        <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                        <ajax:CalendarExtender ID="Calendario" runat="server" TargetControlID="TxtFecha" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                        <asp:RequiredFieldValidator ID="RFVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <asp:CompareValidator ID="CVFechaDocumento" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
-                                        <ajax:ValidatorCalloutExtender ID="VCOFechaDocumento2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaDocumento" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>
+                                    <div class="portlet-body form">
+                                        <div class="row">
+                                            <div class="col-md-4">
+                                                <div class="form-group  form-md-line-input input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
 
+                                                    <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control" Width="100px"></asp:TextBox>
+                                                    <span class="input-group-btn ">
+                                                        <asp:LinkButton runat="server" ID="ImgCalendarioPoliza" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                                    </span>
+                                                    <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendarioPoliza" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
+                                                    <asp:RequiredFieldValidator ID="RFVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <asp:CompareValidator ID="CVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <label for="<%= TxtFechaDocumento.ClientID.ToString()%>">Fecha:</label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-4">
 
-
-                                    <div class="col-md-1" style="width: 5px;">
-                                        <asp:CheckBox ID="ChkAutoConta" runat="server"></asp:CheckBox>
-                                    </div>
-                                    <label class="col-md-2">AutoContabilizar</label>
-
-                                </div>
-
-                                <div class="row" runat="server" id="divTipoPolAdd">
-                                    <label class="col-md-2">Tipo Póliza:</label>
-                                    <div class="col-md-4">
-                                        <asp:DropDownList ID="DdlTipoPolizaAdd" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="150px" ValidationGroup="GrpGuardar">
-                                            <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
-                                            <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
-                                            <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
-                                        </asp:DropDownList>
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:DropDownList ID="DdlTipoPoliza" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar">
+                                                        <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
+                                                        <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
+                                                        <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <label for="<%= DdlTipoPoliza.ClientID.ToString()%>">Tipo Póliza:</label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-4">
+                                                <div class="form-group  form-md-line-input input-group input-small ">
+                                                    <asp:TextBox CssClass="form-control" ID="TxtFolio" runat="server" MaxLength="15" Enabled="false" Width="100%"></asp:TextBox>
+                                                    <span class="input-group-btn ">                                                        
+                                                        <asp:LinkButton runat="server" ID="LnkFolioManual" CssClass="blue"  Visible="false"> <i class="fa fa-pencil" aria-hidden="true"></i></asp:LinkButton>                                                  
+                                                    </span>
+                                                    <label for="<%= TxtFolio.ClientID.ToString()%>">Folio: </label>
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <div class="row">
+                                            <div class="col-md-12">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" onkeyup="asignaConcepto()" ClientIDMode="Static"></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> 
                                     </div>
                                 </div>
                             </div>
-                            <div class="chequesie22" runat="server" id="divObservaciones">
-
-                                <div class="row">
-                                    <div class="col-md-6">
+                            <div class="col-md-4" style="margin-top: 3px;">
+                                <div class="portlet light bordered xspadding">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="fa fa-bookmark font-green"></i>
+                                            <span class="caption-subject bold uppercase"></span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
                                     </div>
-                                </div>
-
-                                <div class="row">
-                                    <label class="col-md-2">Observaciones:</label>
-                                    <div class="col-md-5">
-                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="3" TextMode="MultiLine"></asp:TextBox>
-                                    </div>
-
-                                    <label class="col-md-1">Movimiento:</label>
-                                    <div class="col-md-4">
-                                        <asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar">
-                                        </asp:DropDownList>
-
-                                    </div>
-
-                                </div>
-
-                                <div class="row" id="trNotificar" runat="server" visible="False">
-                                    <label class="col-md-2">Notificar:</label>
-                                    <div class="col-md-10">
-                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
-                                    </div>
-                                </div>
-
-                                <div class="row" id="trCuentaDeposito" runat="server" visible="False">
-                                    <label class="col-md-2">Cuenta Depósito:</label>
-                                    <div class="col-md-10">
-                                        <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
-                                        <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
-
+                                    <div class="portlet-body form">
+                                        <div class="row">
+                                            <div class="col-md-6">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox CssClass="form-control" ID="TxtFechaelaboracion" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
+                                                    <label for="<%= TxtFechaelaboracion.ClientID.ToString()%>">Fecha Elaboración: </label>
+                                                </div>
+                                            </div>
+                                            <div class="col-md-6">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:Label CssClass="form-control" ID="LblUsuarioElaboro" runat="server" MaxLength="15" ></asp:Label>
+                                                    <label for="<%= LblUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>
+                                                </div>
+                                            </div>
+                                        </div>
+                                        <div class="row" runat="server" visible="false" id="DvPlantilla">
+                                            <div class="col-md-6">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:DropDownList ID="DdlPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="True" DataTextField="PlantillaPoliza" DataValueField="CvePlantillaPoliza" Width="250px" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                                    <label for="<%= DdlPlantilla.ClientID.ToString()%>">Movimiento:</label>
+                                                </div>
+                                            </div>
+                                        </div> 
+                                        <div class="row" visible="false" runat="server" id="divContabilizada">
+                                            <label class="col-md-3">Contabilizada:</label>
+                                            <div class="col-md-1">
+                                                <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
+                                            </div>                             
+                                        </div>
                                     </div>
                                 </div>
+                            </div> 
+                        </div>                        
+                        <div class="row" visible="false" runat="server" id="DivTipoGasto">
+                            <label class="col-md-1">Tipo Gasto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlTipoGasto" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoGasto_SelectedIndexChanged" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
+                                </asp:DropDownList>
                             </div>
+                        </div> 
+                    </ContentTemplate>
+                </asp:UpdatePanel> 
+            </td>
+        </tr>
+    </table>
 
-                            <div class="row">
-                                <div class="col-md-6">
-                                    <br />
-                                </div>
-                            </div>
+    <asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional" >
+        <ContentTemplate>
+            <div id="divMovtos" runat="server" visible="false" > 
+                        <div id="DivConceptoPrePoliza" > 
                             <div class="chequesie22">
-                                <div class="row" id="DivAgregarConceptos" runat="server" visible="true">
+                                <div class="row" id="DivAgregarConceptos" runat="server" >
                                     <div class="col-md-12">
                                         <table border="0" rules="none" style="border-collapse: collapse; min-width: 980px;" class="table table-striped GvSize mygvps Widthall">
                                             <tr class="Titulos TextTab">
@@ -198,19 +248,15 @@
                                                     <asp:DropDownList ID="DdlConceptosContables" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
                                                     </asp:DropDownList><br />
 
-                                                    <asp:TextBox ID="TxtTC" runat="server"  Visible="false" ></asp:TextBox>
-                                                    <ajax:FilteredTextBoxExtender ID="FtbeTC" runat="server" TargetControlID="TxtTC" FilterType="Custom, Numbers" ValidChars="." />
                                                     <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
-                                                    <asp:DropDownList ID="DdlClasificaciones" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
                                                     <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
-                                                    <br />
-                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />
-                                                    <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false" ></asp:DropDownList>
+                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
+                                                    <asp:Label ID="LblTC" runat="server" Text="TC" Visible="false"></asp:Label><asp:TextBox ID="TxtTCPreP" CssClass="form-control input-sm select2me" runat="server" Width="50px" Visible="false"></asp:TextBox>
                                                 </th>
                                                 <th>
-                                                    <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">
+                                                    <asp:DropDownList ID="DdlCuentaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">
                                                     </asp:DropDownList><br />
                                                 </th>
                                                 <th>
@@ -230,7 +276,7 @@
                                                     <asp:TextBox ID="TxtAbono" runat="server" Width="76px" Height="24px" CssClass="txtabono"></asp:TextBox>
                                                 </th>
                                                 <th align="center">
-                                                    <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" Enabled="true" Text="Agregar"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LbAgregar" runat="server" CssClass="Texto" Enabled="true" Text="Agregar" ValidationGroup="ValidarAbono"></asp:LinkButton>
                                                     <asp:LinkButton ID="LbCancelarEdicion" runat="server" Visible="false" CssClass="Texto" Enabled="true" Text="Cancelar"></asp:LinkButton>
                                                 </th>
                                                 <th runat="server" visible="false" id="nomostrar"></th>
@@ -240,254 +286,252 @@
                                 </div>
                             </div>
                         </div>
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-
-                <asp:UpdatePanel ID="UpPoliza" runat="server" UpdateMode="Conditional">
-                    <ContentTemplate>
-                        <div class="row" visible="false" runat="server" id="DivDatosPoliza">
-                            <label class="col-md-1">Tipo Póliza:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlTipoPoliza" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar">
-                                    <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
-
-                            <label class="col-md-1">Fecha:</label>
-                            <div class="col-md-2">
-                                <div class="input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                    <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control"></asp:TextBox>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton runat="server" ID="ImgCalendarioPoliza" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
-                                    </span>
-                                </div>
-                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendarioPoliza" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="CVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
-
-                            </div>
-
-                            <label class="col-md-1">Concepto:</label>
-                            <div class="col-md-5">
-                                <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control"></asp:TextBox>
-                            </div>
+            
+                <input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
+                            <div style="width: 100%; min-height: 200px; -webkit-overflow-scrolling: auto;">
 
+                <div class="portlet light  xspadding bordered " id="pnldl2" runat="server">
+                    <div class="portlet-title">
+                        <div class="caption ">
+                            <i class="fa fa-bookmark font-green"></i>
+                            <span class="caption-subject font-green bold uppercase">Movimientos</span>
                         </div>
-                        <div class="row" visible="false" runat="server" id="divContabilziada">
-                            <label class="col-md-1">Contabilizada:</label>
-                            <div class="col-md-2">
-                                <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
+
+                        <div class="tools">
+                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                            <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
+                        </div>
+                        <div class="actions">
+                            <div class="btn-group">
                             </div>
                         </div>
-                        <div class="row" visible="false" runat="server" id="DivTipoGasto">
-                            <label class="col-md-1">Tipo Gasto:</label>
-                            <div class="col-md-2">
-                                <asp:DropDownList ID="DdlTipoGasto" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoGasto_SelectedIndexChanged" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar" DataTextField="TipoGasto" DataValueField="CveTipoGasto">
-                                </asp:DropDownList>
-                            </div>
+                        <div style="float: right;">
+                            <input name="ctl00$C$Tab$TabNominas$ctl01" type="text" class="TxtBusqueda form-control input-sm" onkeyup="FiltrarTablaV2('.TxtBusqueda','.GvMov')" style="display: inline-block; margin-right: -20px; width: 150px;">
+                            <a href="javascript:;" onclick="FiltrarTablaV2('.TxtBusqueda','.GvMov')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold green"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
                         </div>
-                    </ContentTemplate>
-                </asp:UpdatePanel>
-            </td>
-        </tr>
-    </table>
+                    </div>
 
-    <asp:UpdatePanel ID="UPMovs" runat="server" UpdateMode="Conditional">
-        <ContentTemplate>
-            <input id="HdnCveCuenta" runat="server" type="hidden" value="-1" clientidmode="Static" />
-            <table style="width: 100%;" class="table GvSize table-striped table-advance table-hover">
-                <tr class="Titulos">
-                    <th>Cuenta</th>
-                    <th>Referencia</th>
-                    <th>Descripción</th>
-                    <th>SubProyecto
-                        <br />
-                        <asp:DropDownList ID="DdlSubProyectoFiltroMov" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltroMov_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList></br/>
-                    <th id="ThTipoGasto" runat="server" visible="false">Tipo Gasto</th>
-                        <th>Ref. Bancaria</th>
-                        <th>Cargo</th>
-                        <th>Abono</th>
-                        <th></th>
-                </tr>
-            </table>
+                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
+                        <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="True"
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConceptoContable,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta, ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones,EsComplementaria, EsMonedaExtranjera,ImporteME, PorcentajeImpuesto, TC" 
+                            Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                            <Columns>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Cuenta</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br /> 
+                                        <asp:Label ID="LblCuentaCon" Font-Italic="true" Font-Size="7pt" runat="server" Text='<%# Eval("CodigoNombreCuenta") %>'></asp:Label>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Referencia</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Literal>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Concepto</HeaderTemplate>
+                                    <ItemTemplate>
+                                          <%--<asp:Literal ID="LrlConcepto" runat="server" Text='<%# Eval("Concepto")%>'></asp:Literal>--%>
+                                        <asp:TextBox ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto")%>' Width="100%" CssClass="selTxtConcepto"></asp:TextBox>
+                                    </ItemTemplate>
+                                    <ItemStyle />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>SubProyecto</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="140px"></asp:DropDownList>
+                                    </ItemTemplate>
+                                    <ItemStyle />
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false">
+                                    <HeaderTemplate>TipoGasto</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                                    </ItemTemplate>
+                                    <ItemStyle />
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false">
+                                    <HeaderTemplate>Ref. Bancaria</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:DropDownList ID="DdlSaldos" CssClass="select2me" runat="server" DataValueField="CveIE" DataTextField="RazonSocialSaldo" Visible="false" Style="width: 150px;"></asp:DropDownList>
+                                    </ItemTemplate>
+                                    <ItemStyle />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Cargo</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False" Text='<%# If(String.IsNullOrEmpty(Eval("Cargo").ToString), "", Eval("Cargo", "{0:0.00}")) %>'></asp:TextBox>
+                                        <div id="divCargoME" runat="server" Visible="False">ME:<asp:TextBox ID="TxtCargoME" CssClass="" runat="server" Style="text-align: right" Width="55px"></asp:TextBox>
+                                            TC:<asp:TextBox ID="TxtTC" CssClass="" runat="server" Style="text-align: right" Width="55px"></asp:TextBox>
+                                        </div>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Right" Width="100px" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Abono</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False"     Text='<%# If(String.IsNullOrEmpty(Eval("Abono").ToString), "", Eval("Abono", "{0:0.00}")) %>' ></asp:TextBox>
+                                        <div id="divAbonoME" runat="server" Visible="False">ME:<asp:TextBox ID="TxtAbonoME" CssClass="" runat="server" Style="text-align: right" Width="55px" ></asp:TextBox></div>
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Right" Width="100px"/>
+                                </asp:TemplateField>
 
-            <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" 
-                    DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente, CveVenta,TC,CveOC,PorcentajeImpuesto,CveCuenta, Cuenta, CveSubProyecto, 
-                    ContadoTipoTransaccion, ContadoCuenta, ContadoNumeroFolio, ContadoImporte, ContadoBeneficiario, ContadoObservaciones" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
-                    <Columns>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Cuenta</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:Literal ID="LtlCuenta" runat="server" Text='<%# Eval("Cuenta") %>'></asp:Literal><br />
-                                <asp:Label ID="LblCuentaCon" Font-Italic="true" Font-Size="7pt" runat="server" Text='<%# Eval("CodigoCuenta") %>'></asp:Label>
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Referencia</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:Literal ID="LtlReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Literal>
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Concepto</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtConcepto" runat="server" Width="150px" Text='<%# Eval("Concepto")%>'></asp:TextBox>
-                            </ItemTemplate>
-                            <ItemStyle />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>SubProyecto</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="140px"></asp:DropDownList>
-                            </ItemTemplate>
-                            <ItemStyle />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>TipoGasto</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
-                            </ItemTemplate>
-                            <ItemStyle />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Ref. Bancaria</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlSaldos" CssClass="select2me" runat="server" DataValueField="CveIE" DataTextField="RazonSocialSaldo" Visible="false" Style="width: 150px;"></asp:DropDownList>
-                            </ItemTemplate>
-                            <ItemStyle />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Cargo</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtCargo" CssClass="txtcargo" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Right" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Abono</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtAbono" CssClass="txtabono" runat="server" Style="text-align: right" Width="65px" Visible="False"></asp:TextBox>
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Right" />
-                        </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Eliminar" ItemStyle-Width="80px">
+                                    <ItemTemplate>
+                                        <asp:LinkButton Visible="false" 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:LinkButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"  OnClientClick="javascript:return C();" />
 
-                        <asp:TemplateField HeaderText="Eliminar">
-                            <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>
 
-                            </ItemTemplate>
-                        </asp:TemplateField>
-
-                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                            <ItemTemplate>
-                                <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
-                                  <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true" OnSelectedIndexChanged="DdlProveedores_SelectedIndexChanged1"></asp:DropDownList><br />
-                                                    <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
-
-                            </ItemTemplate>
-                        </asp:TemplateField>
+                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="80px">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="ImgBancos" runat="server" CausesValidation="False" CssClass="btn btn-circle btn-sm btn-warning" OnClick="Bancos_Click" Text="<i class='fa fa-money'></i>" Visible="false" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
 
-                    </Columns>
-                    <RowStyle CssClass="Texto" />
-                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                    <HeaderStyle CssClass="Titulos" />
-                </asp:GridView>
+                            </Columns>
+                            <RowStyle CssClass="Texto" />
+                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                            <HeaderStyle CssClass="Titulos" />
+                        </asp:GridView>
+                    </div>
+                </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 
     <asp:UpdatePanel ID="UpPrePoliza" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra,CveOC,Concepto,TipoMovto,ImporteMN" Width="100%" CssClass="table table-striped table-advance table-hover" GridLines="None">
-                    <Columns>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Movimiento</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                        </asp:TemplateField>
+            <div style="width: 100%; min-height: 200px; overflow-scrolling:auto;" runat="server" id="divPrePolizas">
+                <div class="portlet light  xspadding bordered " id="pnldl">
+                    <div class="portlet-title">
+                        <div class="caption ">
+                            <i class="fa fa-bookmark font-green"></i>
+                            <span class="caption-subject font-green bold uppercase">Movimientos.</span>
+                        </div>
 
-                        <asp:TemplateField>
-                            <HeaderTemplate>Documento</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:HyperLink ID="HlReferencia" Target="_blank" runat="server" Text='<%# Eval("FolioFactura") %>'></asp:HyperLink>
-                                <br />
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                        </asp:TemplateField>
+                        <div class="tools">
+                            <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                            <a href="javascript:;" class="fullscreen" data-original-title="" title=""></a>
+                        </div>
+                        <div class="actions">
+                            <div class="btn-group">
+                            </div>
+                        </div>
+                        <div style="float: right;">
+                            <input name="ctl00$C$Tab$TabNominas$ctl01" type="text" class="TxtBusquedapol form-control input-sm" onkeyup="FiltrarTablaV2('.TxtBusquedapol','.GvPrePoliza')" style="display: inline-block; margin-right: -20px; width: 150px;">
+                            <a href="javascript:;" onclick="FiltrarTablaV2('.TxtBusquedapol','.GvPrePoliza')" style="margin-top: -3px;" class="btn btn-circle btn-sm font-bold green"><i class="icon-magnifier" style="font-weight: bold;"></i></a>
+                        </div>
+                    </div>
+                    <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
-                        <asp:TemplateField>
-                            <HeaderTemplate>Concepto</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtConcepto" runat="server" MaxLength="100" CssClass="form-control input-sm" Text='<%# Eval("Concepto") %>'></asp:TextBox><br />
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" Width="380px" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>
-                                SubProyecto
-                                <asp:DropDownList ID="DdlSubProyectoFiltro" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltro_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList>
-                            </HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>TipoGasto</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
-                            </ItemTemplate>
-                            <ItemStyle />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Cuenta</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:DropDownList ID="DdlCtaContable" runat="server" Width="200px" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />
-                            </ItemTemplate>
-                            <ItemStyle HorizontalAlign="Left" Width="200px" />
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Cargo</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtCargo" runat="server" Width="95px" CssClass=" txtcargo form-control input-sm" Style="text-align: right" Text='<%# If(Eval("TipoMovto").ToString = "False", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:TextBox><br />
-                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </ItemTemplate>
-                        </asp:TemplateField>
-                        <asp:TemplateField>
-                            <HeaderTemplate>Abono</HeaderTemplate>
-                            <ItemTemplate>
-                                <asp:TextBox ID="TxtAbono" runat="server" Width="95px" CssClass=" txtabono form-control input-sm" Style="text-align: right" Text='<%# If(Eval("TipoMovto").ToString = "True", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:TextBox><br />
-                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </ItemTemplate>
-                        </asp:TemplateField>
+                        <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, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" >
+                            <Columns>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Movimiento</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />                                         
+                                    </ItemTemplate>
+                                    <ItemStyle HorizontalAlign="Left" Width="125px" />
+                                </asp:TemplateField>
 
-                        <asp:TemplateField>
-                            <ItemTemplate>
-                                <asp:LinkButton ID="LnkEdit" runat="server" Visible="false" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                            </ItemTemplate>
-                        </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Documento</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:HyperLink ID="HlReferencia" Target="_blank" runat="server" Text='<%# Eval("FolioFactura") %>'></asp:HyperLink>
+                                        <br />
+                                    </ItemTemplate> 
+                                </asp:TemplateField>
 
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Referencia</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="TxtRef" runat="server" Text='<%# Eval("Referencia") %>'></asp:Literal><br />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
 
-                    </Columns>
-                    <RowStyle CssClass="Texto" />
-                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                    <HeaderStyle CssClass="Titulos" />
-                </asp:GridView>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Concepto</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="TxtConcepto" runat="server" Text='<%# Eval("Concepto") %>'></asp:Literal><br />
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>
+                                        SubProyecto
+                                <%--                                <asp:DropDownList ID="DdlSubProyectoFiltro" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltro_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList>--%>
+                                    </HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="DdlSubProyecto" runat="server" Text='<%# If(Eval("CveSubProyecto").ToString = "0", "-", Eval("SubProyecto")) %>'></asp:Literal><br />
+                                        <%--<asp:HiddenField ID="HdnSubProyecto" runat="server" Value='<%# Eval("CveSubProyecto") %>' />--%>
+                                        <%--<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />--%>
+                                    </ItemTemplate>                                    
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>TipoGasto</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlTipoGasto" runat="server" Text='<%# Eval("TipoGasto") %>'></asp:Literal><br />                                       
+                                        <%--<asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>--%>
+                                    </ItemTemplate>
+                                    <ItemStyle />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Cuenta</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="DdlCtaContable" runat="server" Text='<%# Eval("CodigoNombreCuenta") %>'></asp:Literal><br />
+                                    </ItemTemplate> 
+                                </asp:TemplateField>
+                                <asp:TemplateField Visible="false">
+                                    <HeaderTemplate>TC</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LtlTC" runat="server" Text='<%#  String.Format("{0}- ${1}", Eval("TC", "{0:#.####}"), Eval("ImporteME", "{0:N2}")) %>'></asp:Literal><br />
+                                    </ItemTemplate>
+                                    <ItemStyle Width="75px" />
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Cargo</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <div style="text-align: right">
+                                            <asp:Label ID="TxtCargo" runat="server" Text='<%# If(Eval("TipoMovto").ToString = "False", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:Label><br />
+                                        </div>
+                                        <%--                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+                                <asp:TemplateField>
+                                    <HeaderTemplate>Abono</HeaderTemplate>
+                                    <ItemTemplate>
+                                        <div style="text-align: right">
+                                            <asp:Label ID="TxtAbono" runat="server" Text='<%# If(Eval("TipoMovto").ToString = "True", Eval("ImporteMN", "{0:N2}"), "") %>'></asp:Label><br />
+                                        </div>
+                                        <%--                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>--%>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
+
+                                <asp:TemplateField  >
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                        <asp:LinkButton ID="LnkEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
+                                             data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"   />                                        
+                                    </ItemTemplate>
+                                   <ItemStyle Width="75px" />
+                                </asp:TemplateField>
+                                 
+                            </Columns>
+                            <RowStyle CssClass="Texto" />
+                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                            <HeaderStyle CssClass="Titulos" />
+                        </asp:GridView>
+                    </div>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -495,11 +539,24 @@
     <table class="table table-striped table-advance table-hover Widthall">
         <tr>
             <td style="width: 730px">&nbsp;</td>
-            <th style="width: 70px;">
-                <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="95px" Text="0.00"></asp:TextBox></th>
-            <th style="width: 70px;">
-                <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="95px" Text="0.00"></asp:TextBox></th>
+            <th style="width: 90px;">
+                <asp:UpdatePanel ID="UpTotalCargo" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Width="90px" Text="0.00"></asp:TextBox>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </th>
+            <th style="width: 90px;">
+                <asp:UpdatePanel ID="UpTotalAbono" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Width="90px" Text="0.00"></asp:TextBox>
+
+                    </ContentTemplate>
+
+                </asp:UpdatePanel>
+            </th>
             <asp:HiddenField ID="HdnTotales" runat="server" ClientIDMode="Static" />
+  
         </tr>
         <tr>
             <td colspan="3" style="text-align: center;">
@@ -507,49 +564,15 @@
                     <ContentTemplate>
                         <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                         <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
-                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
-                        <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />
+                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Seguro de eliminar?" data-btn-ok-label="si" />
+                         <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
+                        <asp:Button ID="BtnDescontabilizar" runat="server" Text="Descontabilizar" CssClass="btn btn-primary" Visible="false"   
+                            data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  /> 
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>
         </tr>
     </table>
-    <asp:UpdatePanel runat="server" ID="UpBitacora" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="row">
-                <div class="col-md-12">
-                    <div class="portlet light bordered xspadding">
-                        <div class="portlet-title">
-                            <div class="caption font-green">
-                                <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">Historial de Modificación</span>
-                            </div>
-                            <div class="actions">
-                                <div class="btn-group">
-                                </div>
-                            </div>
-                        </div>
-                        <div class="portlet-body">
-                            <asp:GridView ID="GvBitacora" runat="server" GridLines="None" Width="100%" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn" CellSpacing="0" AutoGenerateColumns="False">
-                                <Columns>
-                                    <asp:TemplateField>
-                                        <HeaderTemplate>Fecha</HeaderTemplate>
-                                        <ItemTemplate>
-                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng") %>'></asp:Literal>
-                                        </ItemTemplate>
-                                    </asp:TemplateField>
-                                    <asp:BoundField DataField="ConceptoHistorialBitacora" HeaderText="Campo" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
-                                </Columns>
-                            </asp:GridView>
-                        </div>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>
 
     <div id="DivContadoModal" align="center" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
@@ -563,6 +586,7 @@
                     </div>
 
                     <div class="modal-body">
+
                         <asp:Panel ID="PnlContado" runat="server" Visible="False">
                             <asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" AutoPostBack="True">
                                 <asp:ListItem Value="1" Selected="True">Bancos</asp:ListItem>
@@ -581,7 +605,7 @@
                                     <div class="row">
                                         <label class="col-md-2">Movimiento:</label>
                                         <div class="col-md-6">
-                                            <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpContado"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlTipoTransaccion" CssClass="form-control input-sm" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" Width="200px" DataValueField="CveTipoTransaccion" ValidationGroup="GrpContado"></asp:DropDownList>
                                             <asp:RequiredFieldValidator ID="RFVTipoTransaccion" runat="server" ControlToValidate="DdlTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCETipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
@@ -589,7 +613,7 @@
                                     <div class="row">
                                         <label class="col-md-2">Cuenta:</label>
                                         <div class="col-md-6">
-                                            <asp:DropDownList ID="DdlCuenta" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpContado"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlCuenta" runat="server" CssClass="form-control input-sm" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpContado"></asp:DropDownList>
                                             <asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
                                         </div>
@@ -597,11 +621,9 @@
                                 </div>
                                 <div class="chequesie2">
                                     <div class="row">
-                                        <asp:Label ID="LblFolio" runat="server" Text="Número:" class="col-md-2"></asp:Label>
+                                        <asp:Label ID="LblFolioDoc" runat="server" Text="Número:" class="col-md-2"></asp:Label>
                                         <div class="col-md-4">
-                                            <asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" runat="server" MaxLength="12"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
-                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender5" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <asp:TextBox ID="TxtDocumentoFolio" CssClass="form-control input-sm" value="0" runat="server" MaxLength="12"></asp:TextBox>                                            
                                         </div>
                                         <label class="col-md-2">Importe</label>
                                         <div class="col-md-4 input-icon">
@@ -624,8 +646,10 @@
                                             <asp:TextBox ID="TxtDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox>
                                         </div>
                                     </div>
+                                    <div class="row">
+                                        <label class="col-md-12">sino se especifica el folio, se genera en automático:</label>                                         
+                                    </div>
                                 </div>
-
                             </asp:Panel>
                         </div>
                     </div>
@@ -641,107 +665,293 @@
         </div>
     </div>
 
-
+ 
 
     <div id="DivEditConcepto" align="center" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
-            <asp:UpdatePanel ID="UpdatePanel1" runat="server" class="modal-content" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <div class="modal-header ">
-                        <button type="button" class="close" data-dismiss="modal">×</button>
-                        <h4 class="modal-title">
-                            <asp:Literal ID="Literal1" runat="server" Text="Editar Concepto" />
-                        </h4>
-                    </div>
+ 
 
-                    <div class="modal-body">
-                        <asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional">
-                            <ContentTemplate>
-                                <asp:GridView ID="GvConcepto" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="CveSubProyecto, CveTipoGasto" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True">
-                                    <Columns>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Movimiento</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />
-                                            </ItemTemplate>
-                                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                                        </asp:TemplateField>
+                <div class="modal-dialog" style="width: 450px;"  id="DivModalConceptoAncho" >
 
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Documento</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:HyperLink ID="HlReferencia" Target="_blank" runat="server" Text='<%# Eval("FolioFactura") %>'></asp:HyperLink>
-                                                <br />
-                                            </ItemTemplate>
-                                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                                        </asp:TemplateField>
+                    <asp:UpdatePanel ID="UpModalConcepto" runat="server" class="modal-content" UpdateMode="Conditional">
+                        <ContentTemplate>
 
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Concepto</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:TextBox ID="TxtConcepto" runat="server" MaxLength="100" CssClass="form-control input-sm" Text='<%# Eval("Concepto") %>'></asp:TextBox><br />
-                                            </ItemTemplate>
-                                            <ItemStyle HorizontalAlign="Left" Width="380px" />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>
-                                                SubProyecto
-                                <asp:DropDownList ID="DdlSubProyectoFiltro" Width="150px" AutoPostBack="true" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSubProyectoFiltro_SelectedIndexChanged" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" AppendDataBoundItems="true"></asp:DropDownList>
-                                            </HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="150px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
-                                            </ItemTemplate>
-                                            <ItemStyle HorizontalAlign="Left" Width="150px" />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>TipoGasto</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:DropDownList ID="DdlTipoGasto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
-                                            </ItemTemplate>
-                                            <ItemStyle />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Cuenta</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:DropDownList ID="DdlCtaContable" runat="server" Width="200px" CssClass="form-control input-sm select2me" DataValueField="Id" DataTextField="CtaCodigo"></asp:DropDownList><br />
-                                            </ItemTemplate>
-                                            <ItemStyle HorizontalAlign="Left" Width="200px" />
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Cargo</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:TextBox ID="TxtCargo" runat="server" CssClass=" txtcargo form-control input-sm" Style="text-align: right" Text='<%#  Eval("CargoImporteMN", "{0:N2}") %>'></asp:TextBox><br />
-                                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTitulo" runat="server" Text="Editar Concepto" />
+                                </h4>
+                            </div>
+
+                            <div class="modal-body" style="margin-left: 20px">
+
+                                <div class="row">
+                                    <div class="col-md-12" runat="server" id="DvMoldalConceptoSeccion1">
+
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">Con Admin:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
+                                                </asp:DropDownList>                                               
+                                                <asp:RequiredFieldValidator ID="RFVConceptoE" runat="server" ControlToValidate="DdlConceptosContablesE" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto admin''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEConceptoE" runat="server" HighlightCssClass="vco" TargetControlID="RFVConceptoE" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" id="DvmodalconceptoProveddor" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Proveedor:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="405px" AutoPostBack="true"></asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RfvDdlProveedoresE" InitialValue="-1" runat="server" ControlToValidate="DdlProveedoresE" Display="None" ErrorMessage="El campo <b>''Proveedor''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlProveedoresE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlProveedoresE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+                                            </div>
+                                        </div>
+
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoCompra" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Compra:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="405px"></asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RfvDdlComprasE" InitialValue="-1" runat="server" ControlToValidate="DdlComprasE" Display="None" ErrorMessage="El campo <b>''Compra''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlComprasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlComprasE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+                                            </div>
+                                        </div>
+
+                                        <div class="row " runat="server" id="DvModalconceptoPersonal" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Personal:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="405px"></asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RfvDdlPersonalE" InitialValue="-1" runat="server" ControlToValidate="DdlPersonalE" Display="None" ErrorMessage="El campo <b>''Personal''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CrRfvDdlPersonalE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlPersonalE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                 <i></i>
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" id="DvModalconceptoCliente" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Cliente:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="405px" AutoPostBack="true"></ADS:Dropdownlost>
+                                                
+                                                <i></i>
+                                            </div>
+                                        </div>
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Venta:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px" AutoPostBack="true" OnSelectedIndexChanged="DdlVentasE_SelectedIndexChanged"></asp:DropDownList>
+                                                <asp:RequiredFieldValidator ID="RfvDdlVentasE" InitialValue="-1" runat="server" ControlToValidate="DdlVentasE" Display="None" ErrorMessage="El campo <b>''Venta''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlVentasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlVentasE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+
+                                            </div>
+                                        </div>
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoClasificacion" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Clasificación:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="405px"></asp:DropDownList>
+                                                 <asp:RequiredFieldValidator ID="RfvDdlClasificacionesE" InitialValue="-1" runat="server" ControlToValidate="DdlClasificacionesE" Display="None" ErrorMessage="El campo <b>''Venta''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlClasificacionesE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlClasificacionesE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" id="DvModalconceptoProcentajeIVA" visible="false">
+
+                                            <div class="col-xs-2" style="text-align: left">Porcentaje IVA:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+
+                                                <asp:DropDownList ID="DdlPorcentajeIVAE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Visible="false" Width="160px">
+                                                    <asp:ListItem Text="16%" Value="0.16"></asp:ListItem>
+                                                    <asp:ListItem Text="8%" Value="0.08"></asp:ListItem>
+                                                </asp:DropDownList>
+
+                                                <asp:RequiredFieldValidator ID="RfvDdlPorcentajeIVAE" InitialValue="-1" runat="server" ControlToValidate="DdlPorcentajeIVAE" Display="None" ErrorMessage="El campo <b>''Porcentaje IVA''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlPorcentajeIVAE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlPorcentajeIVAE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+
+                                            </div>
+                                        </div>
+                                        <div class="row" runat="server" visible="false" id="DivModalConceptoTipoCambio">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                TC:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox>                                                
+                                            </div>
+                                        </div>
+
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Cuenta:
+                                            </div>
+                                            <div class="col-xs-4">
+                                                <asp:DropDownList ID="DdlCuentaContableE" runat="server" Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                                 <asp:RequiredFieldValidator ID="RfvDdlCuentaContableE" InitialValue="-1" runat="server" ControlToValidate="DdlCuentaContableE" Display="None" ErrorMessage="El campo <b>''Porcentaje IVA''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlCuentaContableE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlCuentaContableE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <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>                                                 
+                                                <i></i>
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div class="row">
+                                            <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>''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>
+
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                SubProyecto:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:DropDownList ID="DdlSubProyectoE" runat="server" Width="220px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div id="DivTG" runat="server">
+                                            <div class="row">
+                                                <div class="col-xs-2" style="text-align: left">Tipo Gasto:</div>
+                                                <div class="col-xs-3">
+                                                    <asp:DropDownList ID="DdlTipoGastoE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RfvDdlTipoGastoE" InitialValue="-1" runat="server" ControlToValidate="DdlTipoGastoE" Display="None" ErrorMessage="El campo <b>''Porcentaje IVA''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="CeRfvDdlTipoGastoE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlTipoGastoE" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                <i></i>
+                                                </div>
+                                            </div>
+                                            <br />
+                                        </div>
+                                         <div class="row" runat="server" visible="false" id="DivMonedaExtranjera">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Mon Extrajera:
+                                            </div>
+                                            <div class="col-xs-2">
+                                                <asp:TextBox ID="TxtME" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox> 
+                                            </div>
+                                             <div class="col-xs-8">                                                 
+                                                Importe en dólares, en Cargo/Abono, su proporcional
+                                            </div>
+                                        </div>
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Cargo:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                        <asp:TemplateField>
-                                            <HeaderTemplate>Abono</HeaderTemplate>
-                                            <ItemTemplate>
-                                                <asp:TextBox ID="TxtAbono" runat="server" CssClass=" txtabono form-control input-sm" Style="text-align: right" Text='<%# Eval("AbonoImporteMN", "{0:N2}") %>'></asp:TextBox><br />
-                                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                            </div>
+                                            <div class="col-xs-1" style="text-align: left">
+                                                Abono:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
+                                            </div>
+                                        </div> 
+                                    </div>
+                                    <div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
 
-                                    </Columns>
-                                    <RowStyle CssClass="Texto" />
-                                    <AlternatingRowStyle CssClass="TextoAlterno" />
-                                </asp:GridView>
+                                        <div runat="server" id="Div1">
 
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </div>
+                                            <asp:Panel ID="Panel1" CssClass="chequesie text-small" runat="server" Width="400px" Visible="true">
+                                                <div class="chequesie1">
+                                                    <div class="row">
+                                                        <label class="col-md-2">Movimiento:</label>
+                                                        <div class="col-md-6">
+                                                            <asp:DropDownList ID="DdlModalConceptoTipoTransaccion" CssClass="form-control input-sm " runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RfvDdlModalConceptoTipoTransaccion" runat="server" ControlToValidate="DdlModalConceptoTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoTipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                    </div>
+                                                    <div class="row">
+                                                        <label class="col-md-2">Cuenta:</label>
+                                                        <div class="col-md-6">
+                                                            <asp:DropDownList ID="DdlModalConceptoCuenta" runat="server" CssClass="form-control input-sm select2me " AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RfvDdlModalConceptoCuenta" runat="server" ControlToValidate="DdlModalConceptoCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                                <div class="chequesie2">
+                                                    <div class="row">
+                                                        <asp:Label ID="Label1" runat="server" Text="Número:" class="col-md-2"></asp:Label>
+                                                        <div class="col-md-4">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoFolio" CssClass="form-control input-sm" runat="server" MaxLength="12"></asp:TextBox>
+                                                            <asp:RequiredFieldValidator ID="RfvTxtModalConceptoDocumentoFolio" runat="server" ControlToValidate="TxtModalConceptoDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceTxtModalConceptoDocumentoFolio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoDocumentoFolio" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                        <label class="col-md-2" style="display: none">Importe</label>
+                                                        <div class="col-md-4 input-icon" style="display: none">
+                                                            <i style="margin: 0px;">$</i>
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoImporte" CssClass="form-control input-sm " Enabled="False" runat="server" MaxLength="12" Width="80px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FilTxtModalConceptoDocumentoImporte" runat="server" TargetControlID="TxtModalConceptoDocumentoImporte" FilterType="Custom, Numbers" ValidChars=".," />
+                                                        </div>
+                                                    </div>
 
-                    <div class="modal-footer">
-                        <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" />
-                        <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
-                    </div>
+                                                    <div class="row">
+                                                        <asp:Label ID="Label2" runat="server" Text="Beneficiario:" class="col-md-2"></asp:Label>
+                                                        <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoBeneficiario" runat="server" CssClass="form-control input-sm"></asp:TextBox>
+                                                        </div>
+                                                    </div>
 
-                </ContentTemplate>
-            </asp:UpdatePanel>
-        </div>
+                                                    <div class="row">
+                                                        <label class="col-md-2">Observaciones:</label>
+                                                        <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                            </asp:Panel>
+                                        </div>
+                                    </div>
+                                </div>
+                            </div>
+
+                            <div class="modal-footer">
+                                <div class="row">
+                                      <div class="col-md-8">
+                                          <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="GrpMocalConceptoGuardar" />
+                                            <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                                        </div>
+                                    <div class="col-md-4">
+                                          <asp:CheckBox ID="ChkSeguir" runat="server" Checked="true" Text="Seguir Registrando" TextAlign="Right" />
+                                   
+                                        </div>
+                                </div>
+                                
+                              
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+          
     </div>
+ 
 
     <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -753,7 +963,7 @@
                 </div>
                 <div class="modal-body">
                     <div class="row">
-                        <label class="col-md-2 truncate" style="text-align: right;">Almacen:</label>
+                        <label class="col-md-2 truncate" style="text-align: right;">Plantilla:</label>
                         <div class="col-md-10">
                             <asp:DropDownList ID="DdlPlantilla2" runat="server" DataValueField="CvePlantillaPoliza" DataTextField="PlantillaPoliza" class="select2me" Width="100%"></asp:DropDownList>
                         </div>
@@ -791,50 +1001,54 @@
             </div>
         </div>
     </div>
-     <div id="ModalUpload" class="modal ADS fade" role="dialog">
-                <div class="modal-dialog">
 
-                    <!-- Modal content-->
-                    <div class="modal-content">
-                        <div class="modal-header ">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                            <h4 class="modal-title">Subir Archivo</h4>
-                        </div>
+    <div id="ModalComplementoPagos" class="modal ADS fade" role="dialog">
+    <asp:UpdatePanel ID="UpComplementoPagos" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="modal-content">
+                <div class="modal-header">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Complemento Pagos</h4>
+                </div>
+                <div class="modal-body">
 
-                        <div class="modal-body">
-                            <asp:UpdatePanel runat="server" ID="UpCargarArchivo" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <div class="row">
-                                        <div class="col-md-12" style="text-align: center;">
-                                            <label style="color: red;">Nota: Si ya tiene un comprobante este sera reemplazado</label>
-                                        </div>
-                                    </div>
-  
-                                    
-
-                                    <div class="row">
-                                        <div class="col-md-12">
-                                            <asp:TextBox ID="TxtCargarArchivo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
-                                        </div>
-                                    </div>
-                                    <%--<div>
-                                    
-                                </div>--%>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
-                        <div class="modal-footer">
-                            <asp:UpdatePanel runat="server">
-                                <ContentTemplate>
-                                    <asp:Button ID="BtnGuardarArchivo" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
-                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
-
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
+                    <div runat="server" id="DVGenerarComplementoModal" visible=" false " style="width: 100%; margin-right: -10px!important; text-align: right">
+                        <asp:LinkButton runat="server" ID="LnkEmitirComplemento" CssClass="btn btn-primary" OnClick="LnkEmitirComplemento_Click"
+                            data-toggle="confirmation" data-popout="true" data-original-title="¿Generar Complemento?" data-btn-ok-label="si">Generar Complemento</asp:LinkButton>
                     </div>
+
+                    <asp:GridView ID="GvComplementoPagos" runat="server"
+                        DataKeyNames="CveComplementoPago,FolioFiscal,SerieFolioPago,RFCReceptor,CvePAC"
+                        AutoGenerateColumns="False" EmptyDataText="Sin resultados" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" data-sort="true">
+                        <Columns>
+
+                            <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolioPago" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
+                            <asp:BoundField HeaderText="Fecha" DataField="FechaComplemento" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
+                            <asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="15%" />
+                            <asp:BoundField HeaderText="XML" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="PDF" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Estatus" Visible="false"  DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
+                             
+                             <asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                 <ItemTemplate>
+                                     <asp:LinkButton ID="LnkCancelarComplemento" OnClick="LnkCancelarComplemento_Click" runat="server" AlternateText="Editar" CausesValidation="False"
+                                         data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" 
+                                         CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
+                                 </ItemTemplate>
+                             </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                </div>
+                <div class="modal-footer">
+                    <button id="CerrarComplementoPagos" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+
                 </div>
             </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+</div>
+         
+
     <script src="/Metronic/assets/global/plugins/dropzone/dropzone.js"></script>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
@@ -975,7 +1189,7 @@
                     sum += parseFloat(this.value.split(',').join(''));
                 }
             });
-            $('#<%= TxtTotalCargos.ClientID %>').val(FormatoNumero(parseFloat(sum.toFixed(2)), 2));
+            $('#<%= TxtTotalCargos.ClientID %>').val(FormatoNumero(sum.toFixed(2), 2));
         }
 
         function calculateAbono() {
@@ -985,9 +1199,21 @@
                     sum += parseFloat(this.value.split(',').join(''));
                 }
             });
-            $('#<%= TxtTotalAbonos.ClientID %>').val(FormatoNumero(parseFloat(sum.toFixed(2)), 2));
+            $('#<%= TxtTotalAbonos.ClientID %>').val(FormatoNumero(sum.toFixed(2), 2));
         }
 
 
+
+
+        function valorIE() {
+
+        }
+
+
+        function asignaConcepto() {                
+            let valor = $('#TxtConcepto').val();
+            $('input[type="text"].selTxtConcepto').val(valor);            
+        }
+
     </script>
 </asp:Content>
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index a9832af7d..9d910f0eb 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -1,21 +1,14 @@
-Option Strict Off
+Imports System.Data
+Imports System.Runtime.CompilerServices
+Imports System.Runtime.Remoting
 
-Imports System.Data
-Imports System.IO
+'Imports DocumentFormat.OpenXml
 Imports Extensiones
 Imports GemBox.Spreadsheet
-Imports iText.Kernel.Geom
-Imports iText.Kernel.Pdf
-Imports iText.Kernel.Pdf.Canvas
-Imports iText.Layout
-Imports iText.IO.Image
-Imports Microsoft.Reporting.WebForms
-
 
 Partial Class ContabilidadC_RegPrePoliza
     Inherits ClsPaginas
 
-
 #Region "Propiedades"
     Public Property ArregloMovs As ArrayList
         Get
@@ -33,6 +26,15 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("DtMovimientos") = value
         End Set
     End Property
+
+    Public Property DtMovimientosEliminar As DataTable
+        Get
+            Return CType(ViewState("DtMovimientosEliminar"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtMovimientosEliminar") = value
+        End Set
+    End Property
     Public Property DtCuentasContables As DataTable
         Get
             Return CType(ViewState("DtCuentasContables"), DataTable)
@@ -59,22 +61,27 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private ReadOnly Property CvePrePoliza As Integer
         Get
-            Return ViewState("CvePrePoliza").ToString().ToEntero()
+            Return ViewState("CvePrePoliza").ToString.ToEntero
         End Get
     End Property
 
-    'PARA CREAR IE
-    Private Property CveConcepto As Integer
+    Public Property DrConceptoContable As DataRow
         Get
-            Return ViewState("CveConcepto").ToString().ToEntero()
+            If ViewState("DrConceptoContable") IsNot Nothing Then
+                Return CType(ViewState("DrConceptoContable"), DataRow)
+            Else
+                Return Nothing
+            End If
+
         End Get
-        Set(value As Integer)
-            ViewState("CveConcepto") = value
+        Set(value As DataRow)
+            ViewState("DrConceptoContable") = value
         End Set
     End Property
+
     Private Property CveTipoTransaccion As Integer
         Get
-            Return ViewState("CveTipoTransaccion").ToString().ToEntero()
+            Return ViewState("CveTipoTransaccion").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveTipoTransaccion") = value
@@ -82,7 +89,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property CveCuenta As Integer
         Get
-            Return ViewState("CveCuenta").ToString().ToEntero()
+            Return ViewState("CveCuenta").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("CveCuenta") = value
@@ -90,7 +97,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property Folio As String
         Get
-            Return ViewState("Folio").ToString()
+            Return ViewState("Folio").ToString
         End Get
         Set(value As String)
             ViewState("Folio") = value
@@ -98,7 +105,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property ImporteDocumento As Decimal
         Get
-            Return ViewState("ImporteDocumento").ToString().ToDecimal()
+            Return ViewState("ImporteDocumento").ToString.ToDecimal
         End Get
         Set(value As Decimal)
             ViewState("ImporteDocumento") = value
@@ -106,7 +113,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property Observaciones As String
         Get
-            Return ViewState("Observaciones").ToString()
+            Return ViewState("Observaciones").ToString
         End Get
         Set(value As String)
             ViewState("Observaciones") = value
@@ -114,7 +121,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property Beneficiario As String
         Get
-            Return ViewState("Beneficiario").ToString()
+            Return ViewState("Beneficiario").ToString
         End Get
         Set(value As String)
             ViewState("Beneficiario") = value
@@ -122,7 +129,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property RowIndex As Integer
         Get
-            Return ViewState("RowIndex").ToString().ToEntero()
+            Return ViewState("RowIndex").ToString.ToEntero
         End Get
         Set(value As Integer)
             ViewState("RowIndex") = value
@@ -130,20 +137,12 @@ Partial Class ContabilidadC_RegPrePoliza
     End Property
     Private Property Actualizar As Boolean
         Get
-            Return CBool(ViewState("Actualizar").ToString())
+            Return CBool(ViewState("Actualizar").ToString)
         End Get
         Set(value As Boolean)
             ViewState("Actualizar") = value
         End Set
     End Property
-    Public Property IDMovEditar As Integer
-        Get
-            Return CType(ViewState("IDMovEditar"), Integer)
-        End Get
-        Set(value As Integer)
-            ViewState("IDMovEditar") = value
-        End Set
-    End Property
 
     Private ReadOnly Property CvePeriodo As Integer
         Get
@@ -181,7 +180,6 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("IdPoliza") = value
         End Set
     End Property
-
     Public Property Tick As String
         Get
             Return CType(ViewState("Tick"), String)
@@ -200,6 +198,15 @@ Partial Class ContabilidadC_RegPrePoliza
         End Set
     End Property
 
+    Public Property IDMovEditar As Integer
+        Get
+            Return CType(ViewState("IDMovEditar"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IDMovEditar") = value
+        End Set
+    End Property
+
     Public Property TipoPoliza As String
         Get
             Return CType(ViewState("TipoPoliza"), String)
@@ -208,21 +215,56 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("TipoPoliza") = value
         End Set
     End Property
+
+    Public Property CvePlantillaPoliza As Integer
+        Get
+            If ViewState("CvePlantillaPoliza") Is Nothing Then
+                ViewState("CvePlantillaPoliza") = -1
+            End If
+            Return ViewState("CvePlantillaPoliza").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CvePlantillaPoliza") = value
+        End Set
+
+    End Property
+
+
+    Public Property CvePrePolizaOrigen As Integer
+        Get
+            If ViewState("CvePrePolizaOrigen") Is Nothing Then
+                ViewState("CvePrePolizaOrigen") = -1
+            End If
+            Return ViewState("CvePrePolizaOrigen").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CvePrePolizaOrigen") = value
+        End Set
+
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            Tick = NowADS().Ticks.ToString()
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
-                Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
-            End If
+            'If UsuarioActual.Empresa.Funcionalidad(282).ToEntero > 0 Then
+            '    LnkImprimePDFResumen.Visible = True
+            '    LnkImprimeExcelResumen.Visible = True
+            'End If
+
+            Tick = NowADS().Ticks.ToString
+            TxtTotalCargos.Attributes.Add("readonly", "readonly")
+            TxtTotalAbonos.Attributes.Add("readonly", "readonly")
 
             CveMoneda = 1
             ViewState("CvePrePoliza") = 0
             ViewState("CvePeriodo") = "0"
-            CveConcepto = -1
+            ViewState("CvePeriodo") = "0"
+
             CveTipoTransaccion = -1
             CveCuenta = -1
             Folio = "-1"
@@ -231,124 +273,113 @@ Partial Class ContabilidadC_RegPrePoliza
             Beneficiario = "-1"
             Actualizar = False
             IdPoliza = -1
-
-            Dim dt As DataTable = Nothing
-            '   If UsuarioActual.Empresa.UsaContabilidad Then
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                Dim Conta As New ClsContPAQi(UsuarioActual.Empresa)
-
-                If Conta.GetCuentas(-1, "-1", 1) Then
-                    dt = Conta.DtResultados
-                    DtCuentasContables = Conta.DtResultados
-                    Session("DtCuentas") = Conta.DtResultados
-                End If
-                Conta.Dispose()
-            End If
-
-            If IfNull(Request("Tipo"), "").ToString() = "NOMPROV" Then
-                DivTipoGasto.Visible = True
-                ThTipoGasto.Visible = True
-                CargaTiposGasto()
-            End If
-
-            If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero() > 0 Then
-                ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero()
-                CreaDT()
-                CargaPrePoliza()
-                CargaGvBitacora()
-                If IfNull(Request("Tipo"), "").ToString() <> "NOMPROV" Then
-                    GvPrePoliza.Columns(4).Visible = False
-                    GvConcepto.Columns(4).Visible = False
-                    GvMov.Columns(5).Visible = False
-                End If
-
-                If IfNull(Request("Conta"), "").ToString() = "1" Then
-                    Contabilizar()
-                End If
-                Exit Sub
-                LnkExcel.Visible = False
-            Else
-                LnkExcel.Visible = True
-                CreaDT()
-                BtnEliminar.Visible = False
-
-                If UsuarioActual.Empresa.UsaAC Then
-                    ChkAutoConta.Checked = True
-                End If
-
-            End If
-
-
-            TipoPlantilla = 0
-
-            If IfNull(Request("Tipo"), "").ToString() = "Ing" Then
+            TipoPlantilla = -1
+            If IfNull(Request("Tipo"), "").ToString = "Ing" Then
                 TipoPlantilla = 1
                 LblEncabezado.Text = "Otros Ingresos"
             End If
 
             CargaPlantillas(TipoPlantilla)
-
-            If UsuarioActual.CveRol = 1 Then trNotificar.Visible = True
-
+            CargaConceptosContablesE()
+            CargaModalConceptoCuentas()
             CargaConceptos()
             CargaSubProyectos()
-            CargaCuentasContables()
+            CargaCuentasBancos()
+
+            If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
+                DivTipoGasto.Visible = True
+                CargaTiposGasto()
+            End If
+
+            If Request("CvePrePoliza") IsNot Nothing AndAlso IsNumeric(Request("CvePrePoliza")) AndAlso Request("CvePrePoliza").ToEntero > 0 Then
+
+                CreaDT()
+                CreaDTEliminar()
+                If CargaPrePoliza(Request("CvePrePoliza").ToEntero) Then
+                    If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                        GvPrePoliza.Columns(5).Visible = False
+                        DivTG.Visible = False
+                        GvMov.Columns(5).Visible = False
+                    End If
+                    ValidaCrearAPartirDe()
+                    DvPlantilla.Visible = False
+
+                    If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                        If Folio.ToEntero > 0 Then
+                            BtnDescontabilizar.Visible = True
+                            LnkFolioManual.Visible = False
+                        Else
+                            BtnDescontabilizar.Visible = False
+                            LnkFolioManual.Visible = True
+                        End If
+
+                    End If
+
+                    Exit Sub
+                Else
+                    BtnEliminar.Visible = False
+                    LnkExcel.Visible = True
+                    DvPlantilla.Visible = True
+
+                    TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
+                    TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
+                    TxtConcepto.Enabled = True
+                    LblUsuarioElaboro.Text = UsuarioActual.Nombre
+                End If
+
+
+            ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
+
+                CvePrePolizaOrigen = Request("CvePrePolizaOrigen").ToEntero
+                CreaDT()
+                If CargaPrePoliza(Request("CvePrePolizaOrigen").ToEntero) Then
+
+                End If
+                ViewState("CvePrePoliza") = "-1"
+                'CargaPrePolizaOrigen()
+
+                OcultarControlesCrearApartirDe()
+                DvPlantilla.Visible = False
+
+                Exit Sub
+
+            Else
+                CreaDT()
+                BtnEliminar.Visible = False
+                LnkExcel.Visible = True
+                DvPlantilla.Visible = True
+
+                TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
+                TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
+                TxtConcepto.Enabled = True
+                LblUsuarioElaboro.Text = UsuarioActual.Usuario
+
+            End If
 
             'crea tabla temporal
             ArregloMovs = New ArrayList
-
-            CargaCuentas()
-
-            'If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero() > 0 Then
-            '    ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero()
-            '    ViewState("CveProyecto") = Request("CveProyecto").ToEntero()
-            '    ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero()
-            '    ViewState("CveTurno") = Request("CveTurno").ToEntero()
-
-            '    'DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
-            '    'DdlPlantilla.SelectedValue = "61"
-            '    DdlPlantilla.Enabled = False
-            '    DivAgregarConceptos.Visible = False
-
-            '    CargaNomina()
-
-            '    RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
-            '    RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
-            '    RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
-            'End If
-
-            If IfNull(Request("Tipo"), "").ToString() <> "NOMPROV" Then
-                GvPrePoliza.Columns(3).Visible = False
-                GvConcepto.Columns(3).Visible = False
-                GvMov.Columns(4).Visible = False
+            If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
+                GvPrePoliza.Columns(5).Visible = False
+                GvMov.Columns(5).Visible = False
             End If
 
-            'Else
-            '    Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
-            '    BtnIEGuardar.Enabled = False
-            '    BtnEliminar.Visible = False
-            '    LbAgregar.Enabled = False
-            'End If
-
         End If
 
     End Sub
 
-
     Private Sub CreaDT()
         DtMovimientos = New DataTable("Movimientos")
         Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
         With DtMovimientos.Columns
-            .Add("IdCuenta", Type.GetType("System.Int32"))
-            .Add("CodigoCuenta", Type.GetType("System.String"))
             .Add("Cuenta", Type.GetType("System.String"))
             .Add("Referencia", Type.GetType("System.String"))
             .Add("Concepto", Type.GetType("System.String"))
             .Add("Cargo", Type.GetType("System.Decimal"))
             .Add("Abono", Type.GetType("System.Decimal"))
-            .Add("TipoMovto", Type.GetType("System.Int32"))
+            .Add("TipoMovto", Type.GetType("System.Boolean"))
+            .Add("ImporteMN", Type.GetType("System.Decimal"))
+            .Add("ImporteME", Type.GetType("System.Decimal"))
             .Add("EsComodin", Type.GetType("System.Int32"))
-            .Add("CveConcepto", Type.GetType("System.Int32"))
             .Add("CveSubProyecto", Type.GetType("System.Int32"))
             .Add("Descripcion", Type.GetType("System.String"))
             .Add("CveProveedor", Type.GetType("System.Int32"))
@@ -356,251 +387,219 @@ Partial Class ContabilidadC_RegPrePoliza
             .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"))
             .Add("CvePrePolizaDetalle", Type.GetType("System.Int32"))
             .Add("CveConceptoContable", Type.GetType("System.Int32"))
-            .Add("IdCtaContable", Type.GetType("System.Int32"))
-            .Add("CveOC", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
-            .Add("TC", Type.GetType("System.Decimal"))
-            .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
             .Add("CveCuenta", Type.GetType("System.Int32"))
+            .Add("CodigoNombreCuenta", Type.GetType("System.String"))
+            .Add("SubProyecto", Type.GetType("System.String"))
+            .Add("FolioFactura", Type.GetType("System.String"))
+            .Add("TipoGasto", Type.GetType("System.String"))
+
             .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("FolioPoliza", Type.GetType("System.Int32"))
+            .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
+            .Add("Modificado", Type.GetType("System.Boolean"))
+            .Add("EsComplementaria", Type.GetType("System.Boolean"))
+            .Add("EsMonedaExtranjera", Type.GetType("System.Boolean"))
+            .Add("TC", Type.GetType("System.Decimal"))
+            .Add("CvePrePoliza", Type.GetType("System.Int32"))
+            .Add("CveMovimientoAlmacen", Type.GetType("System.Int32"))
+
         End With
+
+        If Not DtMovimientos.Columns.Contains("Cargo") Then
+            DtMovimientos.Columns.Add("Cargo", Type.GetType("System.Decimal"))
+            DtMovimientos.Columns.Add("Abono", Type.GetType("System.Decimal"))
+        End If
+
+        DtMovimientos.AcceptChanges()
+
     End Sub
 
-    'Private Sub CargaNomina()
-    '    Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero()
-    '    Dim ObjNomina As New ClsNominas
-    '    Dim ObjConta As New ClsContabilidad
-
-    '    Dim Dt As DataTable = Nothing
-    '    Dim Cuenta As String = ""
-    '    Dim Concepto As String = ""
-    '    Dim IdCuenta As Integer = 0
-    '    Dim TipoMovto As Integer
-    '    Dim CveConcepto As Integer
-    '    Dim CodigoCuenta As String = ""
-    '    Dim NombreCuenta As String = ""
-    '    Dim Referencia As String = ""
-    '    Dim EsComodin As Integer = 0
-    '    DtMovimientos.Clear()
-
-    '    If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
-    '        Dt = ObjNomina.DtResultados
-
-    '        For Each drt As DataRow In Dt.Rows
-    '            Dim dr As DataRow = DtMovimientos.NewRow
-
-    '            If drt("NombreCompleto").ToString() = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
-    '                CveConcepto = 98
-    '                Cuenta = "Nominas por Pagar"
-    '                IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString().ToEntero()
-    '                Concepto = "Pago Nomina"
-    '                Referencia = "Pago Nomina"
-    '            Else
-    '                Concepto = drt("NombreCompleto")
-    '                Referencia = ""
-    '                CveConcepto = drt("CveConceptoContable").ToString().ToEntero()
-    '                Cuenta = drt("ConceptoContable").ToString()
-    '                IdCuenta = drt("IdCtaContable").ToString().ToEntero()
-    '            End If
-
-    '            Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
-    '            CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
-    '            NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
-
-    '            TipoMovto = drt("TipoMovto")
-
-    '            If TipoMovto = 0 Then
-    '                dr("Cargo") = Math.Abs(drt("Importe").ToString().ToDecimal())
-    '                dr("Abono") = 0
-    '            Else
-    '                dr("Cargo") = 0
-    '                dr("Abono") = Math.Abs(drt("Importe").ToString().ToDecimal())
-    '            End If
-
-    '            dr("IdCuenta") = IdCuenta
-    '            dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-    '            dr("Cuenta") = Cuenta
-    '            dr("Concepto") = Concepto
-    '            dr("Descripcion") = Concepto
-    '            dr("Referencia") = Referencia
-    '            dr("TipoMovto") = TipoMovto
-    '            dr("EsComodin") = EsComodin
-    '            dr("CveConcepto") = CveConcepto
-    '            dr("CveProveedor") = "-1"
-    '            dr("CveSubProyecto") = drt("CveSubProyecto")
-    '            dr("CvePersonal") = drt("CvePersonal")
-    '            dr("CveClasificacion") = drt("CveClasificacion")
-    '            dr("CveTipoGasto") = drt("CveTipoGasto")
-
-    '            DtMovimientos.Rows.Add(dr)
-    '        Next
-
-    '        GvMov.DataSource = DtMovimientos
-    '        GvMov.DataBind()
-    '        UPMovs.Update()
-    '    End If
-
-    'End Sub
-
-    Private Sub CargaPrePoliza()
-        BtnEliminar.Visible = True
-        LblEncabezado.Text = "Edición de Póliza"
-
+    Private Sub CreaDTEliminar()
+        DtMovimientosEliminar = New DataTable("MovimientosEliminar")
+        With DtMovimientosEliminar.Columns
+            .Add("CvePrePolizaDetalle", GetType(Integer))
+        End With
+        DtMovimientosEliminar.AcceptChanges()
+    End Sub
+    Private Function CargaPrePoliza(tCvePrePoliza As Integer) As Boolean
+        HplImprimirPDF.Visible = False
+        Dim retorno As Boolean = False
         Dim ObjContabilidad As New ClsContabilidad
-        If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+        If ObjContabilidad.GetPrePoliza(tCvePrePoliza, UsuarioActual.CveEmpresa) Then
+
             Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
             If dr IsNot Nothing Then
+                retorno = True
+                BtnEliminar.Visible = True
+                LblEncabezado.Text = "Edición de Póliza"
+
+                ViewState("CvePrePoliza") = tCvePrePoliza
                 DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza").ToString
                 TxtFechaDocumento.Text = dr("Fecha").ToString.ToDate.ToShortDateString
                 TxtConcepto.Text = dr("Concepto").ToString
                 DivDatosPoliza.Visible = True
                 TipoPoliza = DdlTipoPoliza.SelectedItem.Text
-                Folio = dr("FolioPoliza").ToString()
+                Folio = dr("FolioPoliza").ToString
 
+                TxtFolio.Text = dr("FolioPoliza").ToString
+                LblUsuarioElaboro.Text = dr("UsuarioNombre").ToString
+                TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+                TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
+                CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
+                DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
+
+                LblUsuarioElaboro.ToolTip = dr("Modulo").ToString
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
-                    DivAgregarConceptos.Visible = True
+                    LnkAddConcepto.Visible = True
                     CargaConceptos()
                     CargaSubProyectos()
-                    CargaCuentasContables()
                 End If
 
-                If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
+                ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
 
+                If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial", "Banc/FluctuaAD") Then
                     BtnEliminar.Enabled = False
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
 
-                ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+                If DtMovimientos IsNot Nothing AndAlso DtMovimientos.FiltraParametros("CveConceptoContable = 30 AND Contabilizable = 1").Rows.Count > 0 Then
+                    BtnEliminar.Enabled = False
+                    BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarla desde el módulo de Bancos"
+                End If
+
+                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
+                    DtMovimientos.Columns.Add("ContadoCuenta", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoTipoTransaccion", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoNumeroFolio", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoBeneficiario", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
+                End If
+
+                If Not DtMovimientos.Columns.Contains("Cargo") Then
+                    DtMovimientos.Columns.Add("Cargo", GetType(Decimal))
+                    DtMovimientos.Columns.Add("Abono", GetType(Decimal))
+                End If
 
-                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
 
-                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
+                If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
+                    GvPrePoliza.Columns(7).Visible = True
+                End If
+
+                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,292)").Rows.Count > 0 AndAlso DtMovimientos.FiltraParametros("CveConceptoContable IN (30)").Rows.Count = 0 Then
                     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 OrElse UsuarioActual.CveEmpresa.Contiene(13, 83) 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
+                If dr("FolioPoliza").ToString = "" OrElse dr("FolioPoliza").ToString = "0" Then
                     BtnContabilizar.Visible = True
                 End If
 
-                divDatosPrincipales.Visible = False
-                divObservaciones.Visible = False
-                UPMovs.Visible = False
-                UPMovs.Update()
-                UPPDocumento.Update()
-                UpPrePoliza.Update()
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    If dr("FolioPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
+                        divContabilizada.Visible = True
+                        Folio = dr("FolioPoliza").ToString
+                    End If
+                Else
+                    If dr("IdPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
+                        HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
+                        divContabilizada.Visible = True
+                        IdPoliza = dr("IdPoliza").ToString.ToEntero
+                    End If
+                End If
 
+                UpPrePoliza.Update()
                 RegistraScript("comparar();")
 
-                If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero() = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
-                    For Each row As GridViewRow In GvPrePoliza.Rows
-                        row.FCTextBox("TxtCargo").Enabled = False
-                        row.FCTextBox("TxtAbono").Enabled = False
-                    Next
+                LnkExcel.Visible = False
+
+                Dim CveIE As Integer = DtMovimientos.FiltroPrimeroValor("CveIE", " CveIE > 0 ").ToEntero
+
+                If UsuarioActual.Empresa.Funcionalidad(382).ToEntero = 1 AndAlso CveIE > 0 Then
+
+                    Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={CveIE}")
+                    'HplListaProveedores.NavigateUrl = String.Format($"/Compras/PopUpVerFactura.aspx?P={StrEncript}", )
+
+                    HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
+                    HplImprimirPDF.Visible = True
+                Else
+                    HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
+                    HplImprimirPDF.Visible = True
                 End If
 
+
+
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
             End If
-
         End If
-        CargaGvBitacora()
+
         ObjContabilidad.Dispose()
         UpPoliza.Update()
-        UpBitacora.Update()
-    End Sub
+        Return retorno
+    End Function
 
     Private Sub GvPrePoliza_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvPrePoliza.RowDataBound
 
         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"))
+            TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDecimal + e.Row.DBCampo("Cargo").ToDecimal).ToString.FormatoNumero
+            TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDecimal + e.Row.DBCampo("Abono").ToDecimal).ToString.FormatoNumero
 
-            '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"))
+            If e.Row.DBCampo("Cargo").ToDouble < 0 AndAlso e.Row.FCLabel("TxtCargo") IsNot Nothing Then e.Row.FCLabel("TxtCargo").ForeColor = Drawing.Color.Red  'e.Row.FCLabel("TxtCargo").Text = String.Format("<span style='color:red;'>{0}</span>", e.Row.DBCampo("Cargo").FormatoNumero())
+            If e.Row.DBCampo("Abono").ToDouble < 0 AndAlso e.Row.FCLabel("TxtAbono") IsNot Nothing Then e.Row.FCLabel("TxtAbono").ForeColor = Drawing.Color.Red '.Text = String.Format("<span style='color:red;'>{0}</span>", e.Row.DBCampo("Abono").FormatoNumero())
 
-            '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"))
 
-            TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).ToString().FormatoNumero
-            TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).ToString().FormatoNumero
+            Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-            Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero()
-
-            If CveConceptoContable.Contiene(1, 2, 12, 13, 38, 207, 203, 39, 61, 62, 63, 150, 251, 226) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
-            If CveConceptoContable.Contiene(176) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/OC/OC.aspx?CveOrdenCompra={0}", e.Row.DataKey("CveOC"))
+            If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288, 370, 371, 372, 373) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
-            If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
-
-            If CveConceptoContable.Contiene(30) Then
-                LnkImprimirPDF.Visible = True
-                LnkComprobante.Visible = True
-                CveIE = e.Row.DBCampo("CveIE").ToString().ToEntero()
-            End If
-
-            'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
+            If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
         End If
 
         If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
+            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+            'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
+            'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
     End Sub
 
     Private Sub CargaPlantillas(TipoPlantilla As Integer)
 
-        'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-        'GvPlantillas.DataBind()
+        Dim dtt As DataTable = Nothing
 
         If UsuarioActual.CveEmpresa.Contiene(120) Then
-            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
-            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
-
+            dtt = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
         Else
-            DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-            DdlPlantilla2.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
-
+            dtt = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
         End If
 
-
+        DdlPlantilla.DataSource = dtt
+        DdlPlantilla2.DataSource = dtt
         DdlPlantilla.DataBind()
         DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
 
@@ -614,7 +613,20 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
 
     Private Sub DdlConceptosContables_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContables.SelectedIndexChanged
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(5, 17, 201, 205, 206, 14, 15, 16, 19, 25, 26, 21, 18, 60) Then
+
+        Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContables.SelectedValue.ToEntero).FiltroPrimero("")
+
+        If dr IsNot Nothing Then
+            If dr("AplicaTC").ToString = "True" Then
+                TxtTCPreP.Visible = True
+                LblTC.Visible = True
+            Else
+                TxtTCPreP.Visible = False
+                LblTC.Visible = False
+            End If
+        End If
+
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
             CargaProveedores()
             DdlProveedores.Visible = True
             DdlCompras.Visible = True
@@ -623,13 +635,13 @@ Partial Class ContabilidadC_RegPrePoliza
             DdlCompras.Visible = False
         End If
 
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(28, 29) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(28, 29) Then
             CargaPersonal()
             DdlPersonal.Visible = True
         Else
             DdlPersonal.Visible = False
         End If
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91, 291, 292) Then
             CargaClientes()
             DdlClientes.Visible = True
             DdlVentas.Visible = True
@@ -637,65 +649,38 @@ Partial Class ContabilidadC_RegPrePoliza
             DdlClientes.Visible = False
             DdlVentas.Visible = False
         End If
-
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(51) Then
-            CargaClasificacionesE()
-            DdlClasificacionesE.Visible = True
-        Else
-            DdlClasificacionesE.Visible = False
-        End If
-
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(201, 202, 203, 204, 206, 207, 226, 227, 229, 233, 234, 235, 239, 242, 256, 266) Then
-            TxtTC.Text = "2"
-            TxtTC.Visible = True
-        Else
-            TxtTC.Text = ""
-            TxtTC.Visible = False
-        End If
-
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(69) Then
-            CargaClasificaciones()
-            DdlClasificaciones.Visible = True
-        Else
-            TxtTC.Text = ""
-            DdlClasificaciones.Visible = False
-        End If
-
-
-
     End Sub
 
     Private Sub DdlProveedores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedores.SelectedIndexChanged
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then
-            CargaNotasCreditoCompras(DdlProveedores.SelectedValue.ToEntero(), DdlCompras)
-        Else
-            CargaCompras(DdlProveedores.SelectedValue.ToEntero())
-        End If
-
+        CargaCompras(DdlProveedores.SelectedValue.ToEntero)
     End Sub
 
     Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.selectedindexchange
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(12, 91) Then
-            CargaVentas(DdlClientes.SelectedValue.ToEntero())
-        Else
-            CargaVentas(DdlClientes.SelectedValue.ToEntero())
-        End If
-
+        CargaVentas(DdlClientes.SelectedValue.ToEntero)
     End Sub
 
     Private Sub CargaSubProyectos()
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("  -  ", "-1"))
-        DdlSubProyectoFiltroMov.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyectoFiltroMov.DataBind()
-        DdlSubProyectoFiltroMov.Items.Insert(0, New ListItem("Todos", "-1"))
+
     End Sub
 
     Private Sub CargaCuentasContables()
-        DdlCtaContable.DataSource = Session("DtCuentas")
-        DdlCtaContable.DataBind()
-        DdlCtaContable.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+        If DdlCuentaContable.Items.Count = 0 Then
+            Dim ObjConta As New ClsContabilidad
+            If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                DdlCuentaContableE.DataSource = ObjConta.DtResultados
+                'DdlCuentaContable.DataSource = ObjConta.DtResultados
+                DtCuentasContables = ObjConta.DtResultados
+            End If
+            ObjConta.Dispose()
+            'DdlCuentaContable.DataBind()
+            DdlCuentaContable.Items.Insert(0, New ListItem("Seleccione", "0"))
+            DdlCuentaContableE.DataBind()
+            DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+        End If
     End Sub
 
     Private Sub CargaTiposGasto()
@@ -711,7 +696,7 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
 
     Private Sub CargaCompras(CveProveedor As Integer)
-        If Not DdlConceptosContables.SelectedValue.ToEntero().Contiene(21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlCompras.ClearSelection()
@@ -728,35 +713,11 @@ Partial Class ContabilidadC_RegPrePoliza
         End If
     End Sub
 
-    Private Sub CargaNotasCreditoCompras(CveProveedor As Integer, ddl As DropDownList)
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then
-            Dim ObjCompras As New ClsCompras
-
-            ddl.ClearSelection()
-            If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, "NC", "-1", "-1", "-1", "-1", "-1", "-1", "-1", "-1", CveProveedor:=CveProveedor, TopSelect:=1000) Then
-                ddl.DataSource = ObjCompras.DtResultados '.FiltraParametros("Saldo <> 0")
-                ddl.DataBind()
-                ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
-            Else
-                ddl.DataSource = Nothing
-                ddl.DataBind()
-                ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
-            End If
-            ObjCompras.Dispose()
-        End If
-    End Sub
-
     Private Sub CargaClientes()
         DdlClientes.setEsWebService(True)
         DdlClientes.Attributes.Add("data-metodo", "getcliente")
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
-        '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
-    End Sub
-
-    Private Sub CargaClasificaciones()
-        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificaciones.DataBind()
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataBind()
         '  DdlClientes.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
 
@@ -776,108 +737,84 @@ Partial Class ContabilidadC_RegPrePoliza
         ObjVentas.Dispose()
     End Sub
 
-    Private Sub CargaNotasCreditoVentas(CveCliente As Integer)
-        Dim ObjVentas As New ClsVentas
-
-        DdlVentas.ClearSelection()
-        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            DdlVentas.DataSource = ObjVentas.DtResultados '.FiltraParametros("Saldo > 0")
-            DdlVentas.DataBind()
-            DdlVentas.Items.Insert(0, New ListItem("  -  ", "-1"))
-        Else
-            DdlVentas.DataSource = Nothing
-            DdlVentas.DataBind()
-            DdlVentas.Items.Insert(0, New ListItem("  -  ", "-1"))
-        End If
-        ObjVentas.Dispose()
-    End Sub
-
     Private Sub CargaPersonal()
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonal.DataBind()
         DdlPersonal.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
 
-    Private Sub CargaClasificacionesE()
-        DdlClasificacionesE.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificacionesE.DataBind()
-        DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
-    End Sub
     Protected Sub DdlPlantilla_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPlantilla.SelectedIndexChanged
 
         TxtTotalAbonos.Text = ""
         TxtTotalCargos.Text = ""
 
-        If DdlPlantilla.SelectedValue.ToEntero() <= 0 Then
+        If DdlPlantilla.SelectedValue.ToEntero <= 0 Then
             Alert("Seleccione un Movimiento Válido", TipoMensaje.MsgAdvertencia)
             DdlPlantilla.SelectedValue = "-1"
             Exit Sub
         End If
 
-        If DdlPlantilla.SelectedValue.ToEntero() = 53 Then 'Plantilla Personalizada
+        If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
             DivAgregarConceptos.Visible = True
+            LnkAddConcepto.Visible = True
+            If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
+                'DivAgregarConceptos.Visible = True
+                LnkAddConcepto.Visible = True
+                CargaConceptos()
+                CargaSubProyectos()
+                CargaCuentasContables()
+            End If
+            divPrePolizas.Visible = True
+            GvPrePoliza.Visible = True
+            DivAgregarConceptos.Visible = False
+            divMovtos.Visible = False
+            UPMovs.Update()
+
         Else
             DivAgregarConceptos.Visible = False
+            divMovtos.Visible = True
+            divPrePolizas.Visible = False
+            UPMovs.Update()
         End If
 
-
-
-        Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero()
+        Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
 
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
-        Dim Cuenta As String = ""
-        Dim IdCuenta As Integer = 0
-        Dim CodigoCuenta As String = ""
-        Dim NombreCuenta As String = ""
+
         Dim EsComodin As Integer = 0
         DtMovimientos.Clear()
 
         For Each drt As DataRow In Dt.Rows
 
-            Cuenta = drt("ConceptoContable").ToString()
-            IdCuenta = 0
-            CodigoCuenta = ""
-            NombreCuenta = ""
-            If drt("IdCtaContable").ToString().ToEntero() > 0 Then 'DtCuentasContables
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", drt("IdCtaContable").ToString()))
-                If drr IsNot Nothing Then
-                    IdCuenta = drt("IdCtaContable").ToString().ToEntero()
-                    CodigoCuenta = drr("CuentaFormato").ToString()
-                    NombreCuenta = drr("Nombre").ToString()
-                    'Cuenta = drr("Nombre").Tostring()
-                    NombreCuenta = CodigoCuenta & "<br>" & NombreCuenta
-                End If
-                EsComodin = 0
-            End If
-
-            If drt("CveCuenta").ToString().ToEntero() > 0 Then
-                NombreCuenta = String.Format("{0}<br>{1}", drt("Codigo"), drt("Nombre"))
-            End If
-
             Dim dr As DataRow = DtMovimientos.NewRow
-            dr("IdCuenta") = IdCuenta
-            dr("CodigoCuenta") = NombreCuenta
-            dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
-            dr("Referencia") = If(drt("CveConcepto").ToString().Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
-            dr("Concepto") = TxtObservaciones.Text
-            dr("TipoMovto") = If(drt("TipoMovto").ToString() = "False", 0, 1)
+
+            dr("CodigoNombreCuenta") = drt("Codigo").ToString & "<br>" & drt("Nombre").ToString
+            dr("ConceptoContable") = drt("ConceptoContable").ToString
+            dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
+            dr("Concepto") = TxtConcepto.Text
+            dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
+            dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1)
             dr("EsComodin") = EsComodin
-            dr("CveConcepto") = drt("CveConcepto")
+            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
             dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
-            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
             dr("CveCuenta") = drt("CveCuenta")
-            dr("FolioPoliza") = drt("FolioPoliza")
+            dr("EsComplementaria") = drt("EsComplementaria")
+            dr("EsMonedaExtranjera") = drt("EsMonedaExtranjera")
+            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
 
             DtMovimientos.Rows.Add(dr)
         Next
+
         GvMov.DataSource = DtMovimientos
         GvMov.DataBind()
+        GvPrePoliza.DataBind()
+        UpPrePoliza.Update()
         UPMovs.Update()
 
     End Sub
@@ -887,9 +824,9 @@ Partial Class ContabilidadC_RegPrePoliza
 
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Height = Unit.Pixel(1)
-            e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta")
+            e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta")
 
-            If e.Row.DBCampo("TipoMovto") = "1" Then
+            If e.Row.DBCampo("TipoMovto") = "True" Then
                 e.Row.FCTextBox("TxtAbono").Visible = True
             Else
                 e.Row.FCTextBox("TxtCargo").Visible = True
@@ -897,7 +834,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
             e.Row.FCTextBox("TxtAbono").Text = If(e.Row.DBCampo("Abono") = "0", "", e.Row.DBCampo("Abono"))
             e.Row.FCTextBox("TxtCargo").Text = If(e.Row.DBCampo("Cargo") = "0", "", e.Row.DBCampo("Cargo"))
-            e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Descripcion")
+            e.Row.FCTextBox("TxtConcepto").Text = e.Row.DBCampo("Concepto")
 
             If CvePeriodo > 0 Then
                 e.Row.FCTextBox("TxtCargo").Enabled = False
@@ -915,29 +852,36 @@ Partial Class ContabilidadC_RegPrePoliza
             e.Row.FCDropDownList("DdlTipoGasto").Items.Insert(0, New ListItem("Sin Asignar", "-1"))
             e.Row.FCDropDownList("DdlTipoGasto").SelectedValue = e.Row.DBCampo("CveTipoGasto")
 
-            If DdlPlantilla.SelectedValue.ToEntero() = 53 Then 'Plantilla Personalizada
+            If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
-                e.Row.FCImageButton("imgD").Visible = True
+                e.Row.FCLinkButton("imgD").Visible = True
             Else
-                e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
+                '
+                'e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
             End If
 
             If e.Row.DBCampo("MultipleSubProyecto") = "True" Then
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
             End If
 
+            If e.Row.DBCampo("EsComplementaria") = "True" Then
+                If e.Row.DBCampo("TipoMovto") = "False" Then e.Row.FindControl("divCargoME").Visible = True
+                If e.Row.DBCampo("TipoMovto") = "True" Then e.Row.FindControl("divAbonoME").Visible = True
+            End If
+
+
             'Agregamos la opcion para vincular los movimientos bancarios
-            If e.Row.DataKey("CveConcepto").ToEntero().Contiene(41) Then
+            If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(41) Then
                 Dim ObjMovimientos As New ClsMovimientos
                 Dim DdlSaldos As DropDownList = e.Row.FCDropDownList("DdlSaldos")
 
-                Select Case e.Row.DataKey("CveConcepto").ToEntero()
+                Select Case e.Row.DataKey("CveConceptoContable").ToEntero
 
                     'Acreedores
                     Case 41
                         If (ObjMovimientos.GetAcreedoresSaldosDetalles(-1, CveMoneda, UsuarioActual.CveEmpresa)) Then
                             DdlSaldos.Visible = True
-                            DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero()}")
+                            DdlSaldos.DataSource = ObjMovimientos.DtResultados.FiltraParametros($"CveIE > 0 AND CveProveedor = {e.Row.DataKey("CveProveedor").ToEntero}")
                             DdlSaldos.DataBind()
                             DdlSaldos.Items.Insert(0, New ListItem("Seleccione", "-1"))
                         End If
@@ -947,401 +891,912 @@ Partial Class ContabilidadC_RegPrePoliza
                 ObjMovimientos.Dispose()
             End If
 
-            If e.Row.DataKey("CveConcepto").ToEntero().Contiene(30) Then
+            If e.Row.DataKey("CveConceptoContable").ToEntero.Contiene(30) Then
                 e.Row.FCLinkButton("ImgBancos").Visible = True
 
                 If e.Row.DataKey("ContadoTipoTransaccion").ToEntero > 0 And e.Row.DataKey("ContadoCuenta").ToEntero > 0 And e.Row.DataKey("ContadoNumeroFolio").ToString.Length > 0 And
-                    e.Row.DataKey("ContadoImporte").ToDecimal > 0 And e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
+                      e.Row.DataKey("ContadoBeneficiario").ToString.Length > 0 Then
                     e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
                 End If
-                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
-                '    e.Row.FCLinkButton("ImgBancos").CssClass = "btn btn-circle btn-sm green"
-                'End If
             End If
-
-            If e.Row.DataKey("CveConcepto").ToEntero().Contiene(17) Then
-                e.Row.FCDropDownList("DdlProveedores").Visible = True
-                e.Row.FCDropDownList("DdlProveedores").DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-                e.Row.FCDropDownList("DdlProveedores").DataBind()
-                e.Row.FCDropDownList("DdlProveedores").Items.Insert(0, New ListItem("  -  ", "-1"))
-
-                'If CveTipoTransaccion > 0 And CveCuenta > 0 And Folio.Length > 0 And ImporteDocumento > 0 And Beneficiario.Length > 0 Then
-                '    e.Row.FCLinkButton("ImgPagoCompra").CssClass = "btn btn-circle btn-sm green"
-                'End If
-            End If
-
         End If
     End Sub
 
-    Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+
+        Dim FolioPoliza As Integer = -1
+        Dim CvePrePolizaInsertada As Integer = -1
+
+        'If CvePrePolizaOrigen > 0 Then
+        '    'CrearPrePolizaApartirDe()
+        '    'Exit Sub
+        'End If
+
         Dim TotalCargos, TotalAbonos As Decimal
 
         If CvePrePoliza > 0 Then
-            TotalCargos = TxtTotalCargos.Text.ToDecimal()
-            TotalAbonos = TxtTotalAbonos.Text.ToDecimal()
+            TotalCargos = TxtTotalCargos.Text.ToDecimal
+            TotalAbonos = TxtTotalAbonos.Text.ToDecimal
         Else
-            For Each Gvr As GridViewRow In GvMov.Rows
-                TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal()
-                TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal()
-            Next
+            If GvPrePoliza.Visible Then
+                For Each Gvr As GridViewRow In GvPrePoliza.Rows
+                    TotalCargos += Gvr.DataKey("Cargo").ToDecimal
+                    TotalAbonos += Gvr.DataKey("Abono").ToDecimal
+                Next
+            Else
+                For Each Gvr As GridViewRow In GvMov.Rows
+                    TotalCargos += Gvr.FCTextBox("TxtCargo").Text.ToDecimal
+                    TotalAbonos += Gvr.FCTextBox("TxtAbono").Text.ToDecimal
+                Next
+            End If
         End If
 
-        If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0 Or GvMov.Rows.Count > 0)) Then
+        'validaciones
+        If ((GvPrePoliza.Visible AndAlso GvPrePoliza.Rows.Count = 0) OrElse ((GvMov.Visible AndAlso GvMov.Rows.Count = 0))) Then
+            Alert(" No se han especificado partidas", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+        If (TotalCargos <> TotalAbonos) Then
             Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
+        If Not CvePrePoliza > 0 Then
+
+            For Each Gvr As GridViewRow In GvMov.Rows
+                If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
+                    If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then
+                        Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+                End If
+            Next
+        End If
+
+        'terminan validaciones
+
         If CvePrePoliza > 0 Then
-            'Nuevo Modulo Charlie
             ActualizarPrePoliza()
         Else
-            Dim MensajeAlert = New StringBuilder
+            Dim MensajeAlert As StringBuilder = New StringBuilder
             Dim ObjIE As New ClsBancos()
             Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-            Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
-            Dim Conta As ClsContPAQi = Nothing
             Dim IDPoliza As Integer = 0
             Dim MsgError As String = ""
-            Dim CveIE As Integer = -1
-            Dim CveIEInsertado As Integer = -1
+            Dim CveIE As Integer
             Dim FolioIE As String = ""
+            Dim ContRegInsertados As Integer = 0
+
+            Dim TmpCargo As Decimal = 0D
+            Dim TmpAbono As Decimal = 0D
+            Dim DifCargoAbono As Decimal = 0D
+            Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza
 
             Try
-                Dim CvePrePoliza As Integer
-                Dim ConceptoPoliza As String = TxtObservaciones.Text
-                CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero(), TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate(), ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero())
+                Dim ConceptoPoliza As String = TxtConcepto.Text
+                CvePrePolizaInsertada = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True)
 
-                If CvePrePoliza > 0 Then
+                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
-                    Dim IdCtaContable As Integer = 0
-                    Dim PorcentajeImpuesto As Decimal = 0
-                    Dim CveProveedor As Integer = -1
-                    Dim CveCompra As Integer = -1
+                    FolioPoliza = ObjMov.FolioPoliza
 
+                    Dim Gv As GridView = GvMov
+                    If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then
+                        If GvPrePoliza.Rows.Count > 0 Then
+                            Gv = GvPrePoliza
+                            TipoGrid = 1
+                        End If
+                    End If
                     'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In Gv.Rows
 
-                        If gvr.DataKey("IDCuenta").ToEntero() > 0 Then
-                            IdCtaContable = gvr.DataKey("IDCuenta").ToEntero
-                        End If
-                        CveProveedor = gvr.DataKey("CveProveedor").ToEntero()
-                        CveCompra = gvr.DataKey("CveCompra").ToEntero()
-                        CveConcepto = gvr.DataKey("CveConcepto").ToEntero()
+                        ImporteME = 0
+                        TipoCambio = 1
 
-                        If gvr.DataKey("TipoMovto").ToDouble <> 0 Then
-                            Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
-                            TipoMovto = True
+                        If gvr.DataKey("TipoMovto") = "True" Then
+                            If TipoGrid = 0 Then 'gvmov
+                                Importe = gvr.FCTextBox("TxtAbono").Text.ToDecimal
+                                TmpAbono = TmpAbono + Importe
+                                TipoMovto = True
+
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtAbonoME").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
+
+                            Else
+                                Importe = gvr.DataKey("Abono").ToDecimal
+                                TmpAbono = TmpAbono + Importe
+                                TipoMovto = True
+
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
+
+                            End If
                         Else
-                            Importe = gvr.FCTextBox("TxtCargo").Text.ToDouble
-                            TipoMovto = False
-                        End If
-                        'Registra pago de compra
-                        If CveConcepto = 17 Then
-                            CveProveedor = gvr.FCDropDownList("DdlProveedores").SelectedValue.ToEntero()
-                            CveCompra = gvr.FCDropDownList("DdlCompras").SelectedValue.ToEntero()
+                            If TipoGrid = 0 Then 'gvmov
+                                Importe = gvr.FCTextBox("TxtCargo").Text.ToDecimal
+                                TmpCargo = TmpCargo + Importe
+                                TipoMovto = False
+
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.FCTextBox("TxtCargoME").Text.ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.FCTextBox("TxtTC").Text.ToDecimal
+                            Else
+                                Importe = gvr.DataKey("Cargo").ToDecimal
+                                TmpCargo = TmpCargo + Importe
+                                TipoMovto = False
+
+                                If gvr.DataKey("EsComplementaria") = "True" Then ImporteME = gvr.DataKey("ImporteME").ToDecimal
+                                If gvr.DataKey("EsMonedaExtranjera") = "True" Then TipoCambio = gvr.DataKey("TC").ToDecimal
+                            End If
                         End If
 
-                        If CveConcepto = 41 Then
-                            CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero()
-                        Else
-                            If CveConcepto = 30 AndAlso Importe <> 0 Then
-                                'Registra movimieno bancario
-                                If CveConcepto = 30 Then
-
-                                    CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text.ToDate, gvr.DataKey("ContadoNumeroFolio").ToString,
-                                                       gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
-                                                       False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-                                    If CveIE < 0 Then MsgError = "No se pudo registrar movimiento bancario"
-                                    CveIEInsertado = CveIE
-                                    If ObjIE.GetBancosIE(CveIE, -1, -1, "-1", -1, "-1", "-1", -1, -1, -1, -1, -1, MinFecha, MaxFecha, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
-                                        FolioIE = ObjIE.Folio
-                                    End If
-                                End If
-
-                                CveIE = CveIEInsertado
 
+                        If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204", "348", "350") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria,348-350 - doc x pagar
+                            If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
+                                CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                             Else
                                 CveIE = -1
                             End If
                         End If
 
+                        'Registra movimieno bancario
+                        If gvr.DataKey("CveConceptoContable") = "30" AndAlso (Importe <> 0 OrElse DdlPlantilla.SelectedValue = "53") Then
+                            Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
+                            If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 
-                        If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
-                            idCuentaContabilizacion = 0
+                            Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=gvr.DataKey("ContadoCuenta").ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero
+
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, tFolio,
+                                                       gvr.DataKey("ContadoBeneficiario"), Importe, tCveMoneda, gvr.DataKey("TC").ToDecimal, gvr.DataKey("ContadoObservaciones"), "",
+                                                       False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CveIE < 0 Then
+                                MsgError = "No se pudo registrar movimiento bancario"
+                                Exit For
+                            Else
+                                If tFolio <> "0" OrElse tFolio <> "" Then
+                                    FolioIE = tFolio
+                                Else
+                                    FolioIE = ObjIE.Folio
+                                End If
+                            End If
                         End If
 
-                        'If Importe <> 0 Then
-                        '    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(),
-                        '                                    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
-                        '    Else
-                        '        MsgError = "No se pudo insertar el detalle de la póliza2"
-                        '        Exit For
-                        '    End If
-                        'End If
-                        If CveIE > 0 AndAlso gvr.DataKey("CveConcepto").ToEntero = 30 Then
-                            MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
+
+                        If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo
+                            Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
+                            Dim tReferencia, tConcepto As String
+                            Dim tCveSubProyecto, tCveTipoGasto As Integer
+
+                            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
+                            Else
+                                tReferencia = gvr.DataKey("Referencia")
+                                tConcepto = gvr.DataKey("Concepto")
+                                tCveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
+                                tCveTipoGasto = gvr.DataKey("CveTipoGasto").ToEntero
+                            End If
+
+                            If ObjMov.AddPrePolizasDetalle(CvePrePolizaInsertada, TipoMovto, Importe, Importe, gvr.DataKey("CveConceptoContable").ToEntero, tReferencia, tConcepto,
+                                                           CveSubProyecto:=tCveSubProyecto, CveIE:=CveIE,
+                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
+                                                            ImporteME:=ImporteME, TipoCambio:=TipoCambio,
+                                                            CveTipoGasto:=tCveTipoGasto,
+                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta, PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
+                                ContRegInsertados = ContRegInsertados + 1
+
+                            Else
+                                MsgError = "No se pudo insertar el detalle de la póliza2"
+                                Exit For
+                            End If
+                        End If
+                        If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+                            MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""Texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
                         End If
                     Next
 
-
-                    'If CvePeriodo > 0 Then
-                    '    If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                    '        MsgError = "No se pudo actualizar el periodo de la nómina"
-                    '    End If
-                    'End If
-
-                    If ObjMov.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                    If MsgError = "" AndAlso Not ObjMov.ValidacionesPrePoliza(CvePrePolizaInsertada, UsuarioActual) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
-                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                            MsgError = ObjMov.MensajePolizaDescuadre & "-"
+                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaInsertada}", "LogPrePolizas")
+                            MsgError = ObjMov.MensajePolizaDescuadre & "."
                         End If
                     End If
-
-                    ''El movimiento 2 es el de Pago
-                    'If ChkAutoConta.Checked AndAlso MsgError = "" Or UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" Then
-                    '    If idCuentaContabilizacion > 0 Then
-                    '        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-
-                    '            'MENSAJE PRINCIPAL
-                    '            MensajeAlert.AppendFormat("<br/><br/>Folio de Póliza: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
-                    '            MensajeAlert.AppendFormat("<br/><br/>Prepóliza: <b><a href = ""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
-                    '            'Alert(MensajeAlert.Tostring(), ModExtensiones.TipoMensaje.MsgInformacion)
-                    '        Else
-                    '            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
-                    '        End If
-                    '    Else
-                    '        Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
-                    '    End If
-                    'End If
-
                 Else
                     MsgError = "No se pudo insertar la póliza"
                 End If
-
-                If MsgError = "" Then
-
-                    'MENSAJE IE
-                    If CveIE > 0 Then
-                        MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
-                        Alert(MensajeAlert.ToString(), ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
-                    Else
-                        Alert(If(MensajeAlert.ToString() = "", "Se registro con exito.", MensajeAlert.ToString()), TipoMensaje.MsgInformacion, "window.location.reload()")
-                    End If
-
-                    ObjIE.Commit()
-                    If Conta IsNot Nothing Then Conta.Commit()
-
-                    'UPPDocumento.Update()
-                    'TxtObservaciones.Text = ""
-                    'GvMov.DataBind()
-                    'TxtFecha.Text = ""
-                    'TxtObservaciones.Text = ""
-                Else
-                    MsgError.GuardaLogAD()
-                    ObjIE.RollBack()
-                    If Conta IsNot Nothing Then Conta.RollBack()
-                End If
             Catch ex As Exception
-                ex.GuardaLog(ex.Message)
-                ObjIE.RollBack()
-                If Conta IsNot Nothing Then Conta.RollBack()
-                Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
-
+                MsgError = $"Error {ex.Message}"
             End Try
 
+            If ContRegInsertados = 0 Then
+                MsgError = $"No se insertaron  registros  (Revise que los importes de los registros contengan valores)"
+            End If
 
+            If MsgError = "" Then
+                Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""", ShowCloseButton:=False)
 
+                ObjIE.Commit()
+                TxtConcepto.Text = ""
+                If DdlPlantilla.Visible Then DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
+                TxtFechaDocumento.Text = ""
+            Else
+                Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
+                ObjIE.RollBack()
+            End If
             ObjIE.Dispose()
             ObjMov.Dispose()
-            If Conta IsNot Nothing Then Conta.Dispose()
+
         End If
     End Sub
+
     Private Sub ActualizarPrePoliza()
         Dim contador As Integer = 0
-        'Dim diferencia As String = ""
         Dim OcurrioError As Boolean = False
-        Using ObjContabilidad As New ClsContabilidad
+        Dim ObjContabilidad As New ClsContabilidad
+        ObjContabilidad.IniciaTransacSQL()
 
-            ObjContabilidad.IniciaTransacSQL()
+        Try
 
+            Dim Retorno As Boolean = ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
+            If Retorno Then
+                If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                    OcurrioError = True
+                End If
 
-            If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                OcurrioError = True
-            End If
-            If ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero(), -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                If DtMovimientosEliminar IsNot Nothing AndAlso DtMovimientosEliminar.Rows.Count > 0 Then
+                    For Each RowEliminar As DataRow In DtMovimientosEliminar.Rows
+                        If Not ObjContabilidad.RemovePrePolizasDetalle(Me.CvePrePoliza, RowEliminar("CvePrePolizaDetalle").ToString().ToEntero()) Then
+                            OcurrioError = True
+                            Exit For
+                        End If
+                    Next
+                End If
 
+                If Not OcurrioError Then
+                    Dim CveIEAgregado As Integer = -1
+                    For Each row As GridViewRow In GvPrePoliza.Rows
+                        If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
+                            If CBool(row.DataKey("Modificado")) Then
+                                contador = contador + 1
+                                Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal)
 
-
-                For Each row As GridViewRow In GvPrePoliza.Rows
-                    Dim CvePrePolizaDetalle As Integer = row.DataKey("CvePrePolizaDetalle").ToEntero()
-                    Dim Concepto As String = row.FCTextBox("TxtConcepto").Text
-                    Dim CveSubProyecto As Integer = row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero()
-                    Dim CtaContable As Integer = row.FCDropDownList("DdlCtaContable").SelectedValue.ToEntero()
-                    Dim TipoMovto As Boolean = If(row.FCTextBox("TxtAbono").Text.ToDecimal() <> 0, True, False)
-                    Dim TipoMovtoOld As Boolean = (row.DataKey("TipoMovto").ToString = "True")
-                    Dim ImporteMN As Decimal = If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal())
-                    Dim CveTipoGastonew As Integer = If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero())
-                    Dim ttSubProyecto As Integer = row.DataKey("CveSubProyecto").ToEntero()
-                    If ttSubProyecto = 0 Then ttSubProyecto = -1
-
-                    If row.DataKey("CvePrePolizaDetalle").ToEntero() > 0 Then
-                        Dim actualizar As Boolean
-                        actualizar = (Concepto <> row.DataKey("Concepto") OrElse CveSubProyecto <> ttSubProyecto OrElse CtaContable <> row.DataKey("IdCtaContable").ToEntero() OrElse
-                            TipoMovto <> TipoMovtoOld OrElse ImporteMN <> row.DataKey("ImporteMN").ToDecimal() OrElse CveTipoGastonew <> row.DataKey("CveTipoGasto").ToEntero())
-                        'diferencia = $"{diferencia}\r\n /*{actualizar}*/actualizar = '{Concepto}' <> '{row.DataKey("Concepto")}' || '{CveSubProyecto}' <> '{row.DataKey("CveSubProyecto").ToEntero()}' || '{CtaContable}' <> '{row.DataKey("IdCtaContable").ToEntero()}' ||"
-                        'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"
-                        If actualizar Then
+                                If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                                    Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                                    CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
+                                                               row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                               False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                    If CveIEAgregado < 0 Then
+                                        'MsgError = "No se pudo registrar movimiento bancario"
+                                        OcurrioError = True
+                                        Exit For
+                                    End If
+                                End If
+                                If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                                                                                   -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True),
+                                                                                   If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").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, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
+                                                                                   CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text,
+                                                                                   TipoCambio:=row.DataKey("TC").ToDecimal,
+                                                                                   CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
+                                    OcurrioError = True
+                                    Exit For
+                                End If
+                            End If
+                        Else
                             contador = contador + 1
-                            If Not ObjContabilidad.UpdatePrePolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
-                                                               CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                            Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal)
+
+                            If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                                Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                                CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"),
+                                                               row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                               False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                If CveIEAgregado < 0 Then
+                                    'MsgError = "No se pudo registrar movimiento bancario"
+                                    OcurrioError = True
+                                    Exit For
+                                End If
+                            End If
+                            Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False)
+                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto,
+                                                                        If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
+                                                                        If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal),
+                                                                        row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text,
+                                                                        CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
+                                                                        CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                        CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero,
+                                                                        CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                        CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
                                 OcurrioError = True
                                 Exit For
                             End If
                         End If
-                    Else
-                        contador = contador + 1
-                        If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, False, True),
-                                                                    If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()),
-                                                                    If(row.FCTextBox("TxtCargo").Text.ToDecimal() <> 0, row.FCTextBox("TxtCargo").Text.ToDecimal(), row.FCTextBox("TxtAbono").Text.ToDecimal()),
-                                                                    row.DataKey("CveConceptoContable").ToEntero(), row.DataKey("Referencia").ToString(),
-                                                                    row.FCTextBox("TxtConcepto").Text, CveSubProyecto:=row.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero(),
-                                                                    CveTipoGasto:=If(DdlTipoGasto.Visible, row.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero(), row.DataKey("CveTipoGasto").ToEntero()),
-                                                                    CveProveedor:=DdlProveedores.SelectedValue.ToEntero()) Then
-                            OcurrioError = True
-                            Exit For
-                        End If
-                    End If
 
-                Next
+                    Next
+                End If
+                If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+                    If ObjContabilidad.ValorPolizaDescuadre > 0 Then
+                        OcurrioError = True
+                        Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
+                        GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                    End If
+                End If
             Else
                 OcurrioError = True
             End If
 
-            If Not OcurrioError Then
-                ObjContabilidad.Commit()
-                Alert($"La Prepoliza se actualizó correctamente.<br/>se actualizaron {contador} registros.", TipoMensaje.MsgInformacion)
-            Else
-                ObjContabilidad.RollBack()
-                Alert($"Ocurrio un error al actualizar la PrePoliza.<br/>{contador} registros.", TipoMensaje.MsgError)
-            End If
-            'RegistraScript($"console.log(""{diferencia}"")".Replace("'", "\'"))
-        End Using
-
-        CargaPrePoliza()
+        Catch ex As Exception
+            OcurrioError = True
+            OnError("Ocurrío un error al actualizar la PrePoliza", ex)
+        End Try
 
         If Not OcurrioError Then
-            If IdPoliza > 0 AndAlso contador > 0 Then
-                BtnContabilizar_Click(Nothing, Nothing)
+            ObjContabilidad.Commit()
+            CargaPrePoliza(CvePrePoliza)
+            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False)
+        Else
+            ObjContabilidad.RollBack()
+        End If
+
+        ObjContabilidad.Dispose()
+
+        'If Not OcurrioError Then
+        '    If IdPoliza > 0 AndAlso contador > 0 Then
+        '        Contabilizar()
+        '    End If
+
+        'End If
+    End Sub
+    Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs)
+        RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
+        LtlTitulo.Text = "Agregar Concepto"
+        BtnAceptar.Text = "Agregar"
+        LimpiaCampos()
+        CargaCuentasContables()
+
+        'CargaConceptosContablesE()
+        CargaSubProyectoE()
+        CargaTipoGastoE()
+
+        UpModalConcepto.Update()
+    End Sub
+
+
+    Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
+        LtlTitulo.Text = "Editar Concepto"
+        BtnAceptar.Text = "Aceptar"
+        LimpiaCampos()
+        IndiceGrid = e.RowIndex
+        If IndiceGrid > 0 Then ChkSeguir.Visible = False
+
+        Dim CveConceptoContable As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveConceptoContable").ToEntero
+        Dim CveProveedor As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveProveedor").ToEntero
+        Dim CveCompra As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCompra").ToEntero
+        Dim CvePersonal As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CvePersonal").ToEntero
+        Dim CveCliente As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCliente").ToEntero
+        Dim CveVenta As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveVenta").ToEntero
+        'Dim FolioFactura As String = GvPrePoliza.Rows(IndiceGrid).FCHyperLink("HlReferencia").Text
+        Dim Concepto As String = GvPrePoliza.Rows(IndiceGrid).FCLiteral("TxtConcepto").Text
+        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 CveCuenta As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("CveCuenta").ToString.ToEntero
+        Dim Cargo As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("TxtCargo").Text.ToDecimal
+        Dim Abono As Decimal = GvPrePoliza.Rows(IndiceGrid).FCLabel("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()
+
+        DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
+        DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
+
+        TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.####")
+
+        TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
+
+        DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
+
+        DdlProveedoresE.SelectedValueExist(CveProveedor)
+        DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
+        DdlComprasE.SelectedValueExist(CveCompra)
+
+        DdlPersonalE.SelectedValueExist(CvePersonal)
+
+        If CveCliente > 0 Then
+            DvModalconceptoCliente.Visible = True
+
+            'DdlClientesE.SelectedText = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
+            DdlClientesE.ddl.Items.Insert(0, New ListItem(GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", ""), CveCliente.ToString))
+            DdlClientesE.SelectedValue = CveCliente.ToString
+
+            CargaVentasE(CveCliente)
+        End If
+        If CveVenta > 0 Then
+            DdlVentasE.SelectedValueExist(CveVenta)
+        End If
+
+        If CveClasificacion > 0 Then
+            DdlClasificacionesE.SelectedValue = CveClasificacion.ToString
+        End If
+        TxtConceptoE.Text = Concepto
+        TxtReferenciaE.Text = Referencia
+
+        CargaSubProyectoE()
+        DdlSubProyectoE.SelectedValueExist(CveSubProyecto)
+        CargaTipoGastoE()
+        DdlTipoGastoE.SelectedValueExist(CveTipoGasto)
+        CargaCuentasContables()
+        DdlCuentaContableE.SelectedValueExist(CveCuenta)
+
+        If Cargo <> 0 Then TxtCargoE.Text = Cargo.FormatoNumero
+        If Abono <> 0 Then TxtAbonoE.Text = Abono.FormatoNumero
+
+        If CveConceptoContable = 30 Then
+            If Abono = 0 Then
+                CargaModalConceptoTipoTransaccion("Ing")
+            Else
+                CargaModalConceptoTipoTransaccion("Egs")
+            End If
+            DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
+            DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
+            TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
+            TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
+            TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
+            TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+            If GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta") <> "" Then
+                Dim tCveMon As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta")}").ToEntero
+                DivModalConceptoTipoCambio.Visible = (tCveMon = 2)
             End If
 
         End If
-    End Sub
-    Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
-        RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
-        CargaSubProyectos()
-        IndiceGrid = e.RowIndex
 
-        Dim DtTemp As New DataTable
-        DtTemp.Columns.Add("ConceptoContable", GetType(String))
-        DtTemp.Columns.Add("FolioFactura", GetType(String))
-        DtTemp.Columns.Add("Concepto", GetType(String))
-        DtTemp.Columns.Add("CveSubProyecto", GetType(Integer))
-        DtTemp.Columns.Add("CveTipoGasto", GetType(Integer))
-        DtTemp.Columns.Add("Id", GetType(Integer))
-        DtTemp.Columns.Add("CargoImporteMN", GetType(Decimal))
-        DtTemp.Columns.Add("AbonoImporteMN", GetType(Decimal))
+        If DdlConceptosContablesE.SelectedValue.ToEntero = 30 AndAlso CvePrePoliza > 0 Then
+            DdlConceptosContablesE.Enabled = False
+        Else
+            DdlConceptosContablesE.Enabled = True
+        End If
 
-        Dim ConceptoContable As String = GvPrePoliza.Rows(IndiceGrid).FCLiteral("LtlConceptoContable").Text
-        Dim FolioFactura As String = GvPrePoliza.Rows(IndiceGrid).FCHyperLink("HlReferencia").Text
-        Dim Concepto As String = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtConcepto").Text
-        Dim CveSubProyecto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero()
-        Dim CveTipoGasto As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero()
-        Dim Id As Integer = GvPrePoliza.Rows(IndiceGrid).FCDropDownList("DdlCtaContable").SelectedValue.ToEntero()
-        Dim Cargo As Double = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtCargo").Text.ToDouble
-        Dim Abono As Double = GvPrePoliza.Rows(IndiceGrid).FCTextBox("TxtAbono").Text.ToDouble
-
-        Dim registro As DataRow = DtTemp.NewRow
-        registro.Item("ConceptoContable") = ConceptoContable
-        registro.Item("FolioFactura") = FolioFactura
-        registro.Item("Concepto") = Concepto
-        registro.Item("CveSubProyecto") = CveSubProyecto
-        registro.Item("CveTipoGasto") = CveTipoGasto
-        registro.Item("Id") = Id
-        registro.Item("CargoImporteMN") = Cargo
-        registro.Item("AbonoImporteMN") = Abono
-        DtTemp.Rows.Add(registro)
-
-        GvConcepto.DataSource = DtTemp
-        GvConcepto.DataBind()
-
-        UppGrid.Update()
+        UpModalConcepto.Update()
 
     End Sub
-    Private Sub GvConcepto_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvConcepto.RowDataBound
-
-        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"))
+    Private Sub LimpiaCampos()
+        IndiceGrid = -1
+        TxtConceptoE.Text = ""
+        TxtCargoE.Text = ""
+        TxtAbonoE.Text = ""
+        TxtReferenciaE.Text = ""
+    End Sub
+    Private Sub CargaConceptosContablesE()
+        DdlConceptosContablesE.DataSource = GlobalDTContaConceptosContables(-1)
+        DdlConceptosContablesE.DataBind()
+        DdlConceptosContablesE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+    Private Sub CargaSubProyectoE()
+        DdlSubProyectoE.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectoE.DataBind()
+        DdlSubProyectoE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+    Private Sub CargaTipoGastoE()
+        DdlTipoGastoE.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
+        DdlTipoGastoE.DataBind()
+        DdlTipoGastoE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+    End Sub
 
 
+    Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
+
+        'Aquii hay que  consultar el concepto y determinar que es lo que se vba aplicar
+
+        Dim CveConceptoContableInsertar As Integer = DdlConceptosContablesE.SelectedValue.ToEntero
+        Dim DT_Concepto As DataTable
+
+        If CveConceptoContableInsertar > 0 Then
+
+            DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
+            DrConceptoContable = GlobalDTContaConceptosContables(CveConceptoContableInsertar).FiltroPrimero("")
+
+            Dim AplicaActivoFijo As Boolean = False
+            Dim AplicaAlmacen As Boolean = False
+            Dim AplicaBancos As Boolean = False 'ok
+            Dim AplicaClasificacion As Boolean = False 'ok
+            Dim AplicaCliente As Boolean = False 'ok
+            Dim AplicaCompra As Boolean = False
+            Dim AplicaImpuesto As Boolean = False
+            Dim AplicaNomina As Boolean = False
+            Dim AplicaPersonal As Boolean = False
+            Dim AplicaProveedor As Boolean = False
+            Dim AplicaSubProyecto As Boolean = False
+            Dim AplicaTC As Boolean = False 'ok
+            Dim AplicaVenta As Boolean = False
+            Dim AplicaComplementaria As Boolean = False 'ok
+            Dim AplicaME As Boolean = False 'ok
+
+            AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
+            AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
+
+            AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString)
+            AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString)
+            AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString)
+            AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString)
+
+            AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString)
+            AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString)
+            AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString)
+            AplicaProveedor = Boolean.Parse(DT_Concepto.Rows(0)("AplicaProveedor").ToString)
+            AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
+            AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
+            AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
+            AplicaComplementaria = Boolean.Parse(DT_Concepto.Rows(0)("EsComplementaria").ToString)
+
+            'AplicaME = Boolean.Parse(DT_Concepto.Rows(0)("EsMonedaExtranjera").ToString)
 
 
+            If AplicaImpuesto Then
+                DvModalconceptoProcentajeIVA.Visible = True
+                DdlPorcentajeIVAE.Visible = True
+            Else
+                DvModalconceptoProcentajeIVA.Visible = False
+                DdlPorcentajeIVAE.Visible = False
+            End If
 
-            'TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + e.Row.FCTextBox("TxtCargo").Text.ToDouble).Tostring().FormatoNumero
-            'TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + e.Row.FCTextBox("TxtAbono").Text.ToDouble).Tostring().FormatoNumero
+            If AplicaProveedor Then
+                CargaProveedoresE()
+                DvmodalconceptoProveddor.Visible = True
+                DvModalconceptoCompra.Visible = True
 
-            'Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero()
+            Else
+                DvmodalconceptoProveddor.Visible = False
+                DvModalconceptoCompra.Visible = False
 
-            'If CveConceptoContable.Contiene(1, 2, 13, 38, 207, 203, 39, 61, 62, 63) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-            'If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
-            'If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
+            End If
 
-            'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
+            If AplicaPersonal Then
+                CargaPersonalE()
+                DvModalconceptoPersonal.Visible = True
+            Else
+                DvModalconceptoPersonal.Visible = False
+            End If
+
+            If AplicaClasificacion Then
+                CargaClasificacionesE()
+                DvModalconceptoClasificacion.Visible = True
+                'DdlClasificacionesE.Visible = True
+            Else
+                DvModalconceptoClasificacion.Visible = False
+                'DdlClasificacionesE.Visible = False
+            End If
+
+            If AplicaVenta Then
+                DvModalconceptoVenta.Visible = True
+            Else
+                DvModalconceptoVenta.Visible = False
+            End If
+
+            If AplicaCliente Then
+                CargaClientesE()
+                DvModalconceptoCliente.Visible = True
+            Else
+                DvModalconceptoCliente.Visible = False
+            End If
+
+            If AplicaBancos AndAlso Not AplicaComplementaria Then
+                TxtCargoE.AutoPostBack = True
+                TxtAbonoE.AutoPostBack = True
+                CargaModalConceptoTipoTransaccion("Egs")
+                'DivModalConceptoAncho.Attributes.Add("style", "width:1000px")
+                DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
+                DvMoldalConceptoSeccion2.Visible = True
+                RegistraScript("$('#DivModalConceptoAncho').attr('style','width:1000px');")
+            Else
+                ' DivModalConceptoAncho.Attributes.Add("style", "width:450px")
+                DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
+                RegistraScript("$('#DivModalConceptoAncho').attr('style','width:450px');")
+                DvMoldalConceptoSeccion2.Visible = False
+                TxtCargoE.AutoPostBack = False
+                TxtAbonoE.AutoPostBack = False
+            End If
+
+            If AplicaTC Then
+                DivModalConceptoTipoCambio.Visible = True
+            Else
+                DivModalConceptoTipoCambio.Visible = False
+            End If
+
+            If AplicaComplementaria Then
+                DivMonedaExtranjera.Visible = True
+            Else
+                DivMonedaExtranjera.Visible = False
+            End If
+            CargaCuentaConcepto(CveConceptoContableInsertar)
 
         End If
 
-        If e.Row.RowType = DataControlRowType.Header Then
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
-            e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
+        UpModalConcepto.Update()
+    End Sub
+
+    Private Sub CargaCuentaConcepto(CveConcepto As Integer)
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, -1, 1, CveConcepto) Then
+            Dim dr As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                DdlCuentaContableE.SelectedValueExist(dr("CveCuenta"))
+            Else
+                If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa, CveConcepto) Then
+                    Dim drY As DataRow = ObjConta.DtResultados.FiltroPrimero("")
+                    If drY IsNot Nothing Then
+                        DdlCuentaContableE.SelectedValueExist(drY("CveCuenta"))
+                    End If
+                End If
+            End If
         End If
+        ObjConta.Dispose()
 
     End Sub
+    Private Sub CargaProveedoresE()
+        DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        DdlProveedoresE.DataBind()
+        DdlProveedoresE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+    Private Sub CargaComprasE(CveProveedor As Integer)
+        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
+            Dim ObjCompras As New ClsCompras
+
+            DdlComprasE.ClearSelection()
+            If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+                DdlComprasE.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+                DdlComprasE.DataBind()
+                DdlComprasE.Items.Insert(0, New ListItem("  -  ", "-1"))
+            Else
+                DdlComprasE.DataSource = Nothing
+                DdlComprasE.DataBind()
+                DdlComprasE.Items.Insert(0, New ListItem("  -  ", "-1"))
+            End If
+            ObjCompras.Dispose()
+        End If
+    End Sub
+    Private Sub CargaClientesE()
+        DdlClientesE.setEsWebService(True)
+
+        DdlClientesE.Attributes.Add("data-metodo", "getcliente")
+
+    End Sub
+    Private Sub CargaVentasE(CveCliente As Integer)
+        If CveCliente <= 0 Then Exit Sub
+
+        If DrConceptoContable IsNot Nothing Then
+            Dim AplicaME As Boolean = Boolean.Parse(DrConceptoContable("EsMonedaExtranjera").ToString)
+            Dim AplicaVenta As Boolean = Boolean.Parse(DrConceptoContable("AplicaVenta").ToString)
+            If AplicaME Then
+                CveMoneda = 2
+            End If
+            If Not AplicaVenta Then Exit Sub
+        End If
+
+        DvModalconceptoVenta.Visible = True
+        DdlVentasE.DataSource = Nothing
+        DdlVentasE.ClearSelection()
+
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, "-1", "-1", -1, "-1", CveCliente, -1, -1, -1, "-1", "-1", "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+            If CveMoneda = 2 Then
+                DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 2")
+            Else
+                DdlVentasE.DataSource = ObjVentas.DtResultados.FiltraParametros("CveMoneda = 1")
+            End If
+            DdlVentasE.DataBind()
+            DdlVentasE.Items.Insert(0, New ListItem("  -  ", "-1"))
+        Else
+            DdlVentasE.DataSource = Nothing
+            DdlVentasE.DataBind()
+            DdlVentasE.Items.Insert(0, New ListItem("  -  ", "-1"))
+        End If
+        ObjVentas.Dispose()
+    End Sub
+    Private Sub CargaPersonalE()
+        DdlPersonalE.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonalE.DataBind()
+        DdlPersonalE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+
+    Private Sub CargaClasificacionesE()
+        DdlClasificacionesE.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+        DdlClasificacionesE.DataBind()
+        DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
+    End Sub
+    Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged
+        CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
+    End Sub
+    Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
+
+        If DdlClientesE.SelectedValue.ToEntero > 0 Then CargaVentasE(DdlClientesE.SelectedValue.ToEntero)
+
+    End Sub
+
+    Private Function CargaValidacionesConcepto() As Boolean
+        Dim Retorno As Boolean = True
+
+        If DdlConceptosContablesE.SelectedValue.ToEntero <= 0 Then
+            Alert("No se ha especificado el concepto", TipoMensaje.ToastAdventencia)
+            Return False
+        End If
+
+        If DrConceptoContable IsNot Nothing Then
+            Dim AplicaComplementaria As Boolean = Boolean.Parse(DrConceptoContable("EsComplementaria").ToString)
+            Dim AplicaBancos As Boolean = Boolean.Parse(DrConceptoContable("AplicaBancos").ToString)
+
+            If AplicaComplementaria Then
+                Dim Importe As Decimal = If(TxtCargoE.Text.ToDecimal <> 0, TxtCargoE.Text.ToDecimal, TxtAbonoE.Text.ToDecimal)
+                'valida Mon Extranjera por el TC - Mon Extranjera
+                Dim dif As Decimal = ((TxtME.Text.ToDecimal * TxtTipoCambio.Text.ToDecimal).RoundSQL - TxtME.Text.ToDecimal).RoundSQL - Importe
+
+                If dif <> 0 Then
+                    Alert("El importe moneda extranjera no coinciden con el TC ")
+                    Retorno = False
+                Else
+                    Retorno = True
+                End If
+            End If
+
+            If AplicaBancos AndAlso Not AplicaComplementaria Then
+                If DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero <= 0 Then
+                    Alert("seleccione las opciones de bancos ")
+                    Retorno = False
+                End If
+            End If
+
+        End If
+        Return Retorno
+    End Function
+
+
     Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
 
+        'asdasdasd
+        If Not CargaValidacionesConcepto() Then
+            Exit Sub
+        End If
+        ChkSeguir.Visible = False
+        Dim dr As DataRow = Nothing
 
+        If IndiceGrid = -1 Then  'si es nuevo, crea el row
+            ChkSeguir.Visible = True
+            If DtMovimientos Is Nothing Then CreaDT()
+            dr = DtMovimientos.NewRow
+        Else 'si ya existe, asigna el row
+            ChkSeguir.Visible = False
+            Dim CvePrePolizaDetalle As Integer = GvPrePoliza.DataKeys(IndiceGrid).Value.ToString.ToEntero
+            Dim Rows As DataRow() = DtMovimientos.Select("CvePrePolizaDetalle = " & CvePrePolizaDetalle)
+            If CvePrePolizaDetalle <= 0 Then
+                Dim IdMov As Integer = GvPrePoliza.Rows(IndiceGrid).DataKey("IdMov").ToEntero
+                Rows = DtMovimientos.Select("IdMov = " & IdMov)
+            End If
+            If Rows.Count > 0 Then
+                dr = Rows(0)
+            End If
+        End If
+
+
+        If DdlPlantilla.SelectedValue.ToEntero <> 53 And Not CvePrePoliza > 0 Then
+
+            Dim x As Integer = 0
+            For Each gvRow As GridViewRow In GvMov.Rows
+
+
+                DtMovimientos.Rows(x)("ContadoTipoTransaccion") = gvRow.DataKey("ContadoTipoTransaccion").ToEntero
+                DtMovimientos.Rows(x)("ContadoCuenta") = gvRow.DataKey("ContadoCuenta").ToEntero
+                DtMovimientos.Rows(x)("ContadoNumeroFolio") = gvRow.DataKey("ContadoNumeroFolio")
+                DtMovimientos.Rows(x)("ContadoImporte") = gvRow.DataKey("ContadoImporte").ToDecimal
+                DtMovimientos.Rows(x)("ContadoBeneficiario") = gvRow.DataKey("ContadoBeneficiario")
+                DtMovimientos.Rows(x)("ContadoObservaciones") = gvRow.DataKey("ContadoObservaciones")
+
+                DtMovimientos.Rows(x)("Concepto") = gvRow.FCTextBox("TxtConcepto").Text
+                DtMovimientos.Rows(x)("Cargo") = gvRow.FCTextBox("TxtCargo").Text.ToDecimal
+                DtMovimientos.Rows(x)("Abono") = gvRow.FCTextBox("TxtAbono").Text.ToDecimal
+                DtMovimientos.Rows(x)("TC") = gvRow.FCTextBox("TxtTC").Text.ToDecimal
+                DtMovimientos.Rows(x)("ImporteME") = gvRow.FCTextBox("TxtAbonoME").Text.ToDecimal
+                DtMovimientos.Rows(x)("CveSubProyecto") = gvRow.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero
+
+                x = x + 1
+            Next
+            DtMovimientos.AcceptChanges()
+
+
+        End If
+
+
+        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("CveClasificacion") = DdlClasificacionesE.SelectedValue.ToEntero
+        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 AndAlso DdlComprasE.SelectedItem IsNot Nothing, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedItem IsNot Nothing, DdlVentasE.SelectedItem.ToString, ""))
+        dr("Modificado") = True
+        dr("TC") = TxtTipoCambio.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
+
+        If DdlComprasE.Visible = True AndAlso DdlComprasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlComprasE.SelectedItem.ToString()
+        If DdlVentasE.Visible = True AndAlso DdlVentasE.SelectedValue.ToEntero > 0 Then dr("FolioFactura") = DdlVentasE.SelectedItem.ToString()
+
+        If DrConceptoContable IsNot Nothing Then
+            dr("EsComplementaria") = DrConceptoContable("EsComplementaria")
+            dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera")
+            If dr("EsMonedaExtranjera").ToString = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal
+        End If
+
+        If DdlPorcentajeIVAE.Visible Then dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
+
+        If TxtCargoE.Text <> "" AndAlso TxtCargoE.Text.ToDecimal <> 0 Then
+            dr("Cargo") = TxtCargoE.Text.ToDecimal : dr("Abono") = 0
+        Else
+            dr("Abono") = TxtAbonoE.Text.ToDecimal : dr("Cargo") = 0
+        End If
+
+        If IndiceGrid = -1 Then
+            DtMovimientos.Rows.Add(dr)
+            Alert("Concepto Registrado", TipoMensaje.ToastInformacion)
+        End If
+
+        DtMovimientos.AcceptChanges()
+
+        If DdlPlantilla.SelectedValue.ToEntero <> 53 And Not CvePrePoliza > 0 Then
+            GvMov.DataSource = DtMovimientos
+            GvMov.DataBind()
+            GvPrePoliza.DataBind()
+            UpPrePoliza.Update()
+            UPMovs.Update()
+        Else
+            GvPrePoliza.EditIndex = -1
+            GvPrePoliza.DataSource = DtMovimientos
+            GvPrePoliza.DataBind()
+            UpPrePoliza.Update()
+            GvPrePoliza.Visible = True
+        End If
+
+
+
+        TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+        TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+        UpTotalCargo.Update()
+        UpTotalAbono.Update()
+        DdlClientesE.ddl.Items.Clear()
+        DdlClientesE.SelectedText = ""
+        UpPrePoliza.Update()
+        If Not ChkSeguir.Checked OrElse Not ChkSeguir.Visible Then RegistraScript("$('#DivEditConcepto').modal('hide')", "hidemodal")
     End Sub
-
     Protected Sub GvMov_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvMov.RowDeleting
 
-        Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString().ToEntero()
+        Dim idMov As Integer = GvMov.DataKeys(e.RowIndex).Value.ToString.ToEntero
 
         Dim Rows As DataRow() = DtMovimientos.Select("IDMov = " & idMov)
         If Rows.Count > 0 Then
@@ -1353,7 +1808,6 @@ Partial Class ContabilidadC_RegPrePoliza
 
         TxtTotalAbonos.Text = DtMovimientos.SUM("Abono").FormatoNumero
         TxtTotalCargos.Text = DtMovimientos.SUM("Cargo").FormatoNumero
-        RegistraScript("calculateCargo();calculateAbono();comparar()")
 
         'saco de la póliza el importe del cheque, que coincida la cuenta contable con la bancaria
 
@@ -1371,60 +1825,63 @@ Partial Class ContabilidadC_RegPrePoliza
                 Dim dr As DataRow = Rows(0)
                 Dim CodigoCuenta As String = ""
                 Dim NombreCuenta As String = ""
-                dr("IdCuenta") = DdlCtaContable.SelectedValue
+                dr("CveCuenta") = DdlCuentaContable.SelectedValue
 
-                If DdlCtaContable.SelectedValue.ToEntero() > 0 Then
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
+                If DdlCuentaContable.SelectedValue.ToEntero > 0 Then
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue))
                     If drr IsNot Nothing Then
                         CodigoCuenta = drr("CuentaFormato").ToString()
                         NombreCuenta = drr("Nombre").ToString()
                     End If
                 End If
 
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+                dr("CodigoNombreCuenta") = CodigoCuenta & "<br>" & NombreCuenta
                 dr("Cuenta") = DdlConceptosContables.SelectedItem
                 dr("Referencia") = TxtReferencia.Text
-                dr("Concepto") = TxtObservaciones.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
+                dr("Concepto") = TxtConcepto.Text
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, False, True)
                 dr("EsComodin") = 0
-                dr("CveConcepto") = DdlConceptosContables.SelectedValue
-                dr("Cargo") = TxtCargo.Text.ToDouble
-                dr("Abono") = TxtAbono.Text.ToDouble
+                dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
+                dr("Cargo") = TxtCargo.Text.ToDecimal
+                dr("Abono") = TxtAbono.Text.ToDecimal
                 dr("Descripcion") = TxtDescripcion.Text
                 dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
-                dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero()
-                dr("CveCompra") = DdlCompras.SelectedValue.ToEntero()
-                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero()
-                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero()
-                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero()
-                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero()
+                dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
+                dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
+                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
+                dr("CveClasificacion") = -1
+                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
+                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
             End If
-
             GvMov.DataSource = DtMovimientos
             GvMov.DataBind()
             UPMovs.Update()
-
             LbCancelarEdicion.Visible = False
             LbAgregar.Text = "Agregar"
-            Actualizar = False
+
         Else
 
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContable.SelectedValue
+                dr("CveCuenta") = DdlCuentaContable.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Concepto") = TxtDescripcion.Text
                 dr("Referencia") = TxtReferencia.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
-                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
+                dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
+                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
+                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()
 
@@ -1438,48 +1895,40 @@ Partial Class ContabilidadC_RegPrePoliza
                 Dim CodigoCuenta As String = ""
                 Dim NombreCuenta As String = ""
 
-                dr("IdCuenta") = DdlCtaContable.SelectedValue
+                dr("CveCuenta") = DdlCuentaContable.SelectedValue
 
-                If DdlCtaContable.SelectedValue.ToEntero() > 0 Then
-                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
+                If DdlCuentaContable.SelectedValue.ToEntero > 0 Then
+                    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCuentaContable.SelectedValue))
                     If drr IsNot Nothing Then
                         CodigoCuenta = drr("CuentaFormato").ToString()
                         NombreCuenta = drr("Nombre").ToString()
                     End If
                 End If
 
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+                dr("CodigoNombreCuenta") = CodigoCuenta & "<br>" & NombreCuenta
                 dr("Cuenta") = DdlConceptosContables.SelectedItem.Text
                 dr("Referencia") = TxtReferencia.Text
-                dr("Concepto") = TxtObservaciones.Text
-                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
+                dr("Concepto") = TxtConcepto.Text
+                dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDecimal) > 0, False, True)
                 dr("EsComodin") = 0
-                dr("CveConcepto") = DdlConceptosContables.SelectedValue
                 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()
-                dr("CveCompra") = DdlCompras.SelectedValue.ToEntero()
-                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero()
-                dr("CveClasificacion") = DdlClasificaciones.SelectedValue.ToEntero()
-                dr("CveCliente") = DdlClientes.SelectedValue.ToEntero()
-                dr("CveVenta") = DdlVentas.SelectedValue.ToEntero()
-                dr("TC") = TxtTC.Text.ToDouble
+                dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero
+                dr("CveCompra") = DdlCompras.SelectedValue.ToEntero
+                dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero
+                dr("CveClasificacion") = -1
+                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()
 
-                'If CvePrePoliza > 0 Then
-                '    GvPrePoliza.DataSource = DtMovimientos
-                '    GvPrePoliza.DataBind()
-                '    UpPrePoliza.Update()
-                'End If
-
                 GvMov.DataSource = DtMovimientos
                 GvMov.DataBind()
                 UPMovs.Update()
@@ -1500,10 +1949,10 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         RowIndex = GvRow.RowIndex
 
-        If GvRow.FCTextBox("TxtAbono").Text = "" Then
-            CargaTipoTransaccion("Ing")
-        Else
+        If GvRow.FCTextBox("TxtAbono").Visible Then
             CargaTipoTransaccion("Egs")
+        Else
+            CargaTipoTransaccion("Ing")
         End If
 
         Dim IdMov As Integer = GvRow.DataKey("IdMov").ToString.ToEntero
@@ -1525,11 +1974,11 @@ Partial Class ContabilidadC_RegPrePoliza
     End Sub
     Private Sub CargaTipoTransaccion(Tipo As String)
         DdlTipoTransaccion.Items.Clear()
-        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}'")
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
     End Sub
-    Private Sub CargaCuentas()
+    Private Sub CargaCuentasBancos()
         DdlCuenta.Items.Clear()
         DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
         DdlCuenta.DataBind()
@@ -1541,7 +1990,6 @@ Partial Class ContabilidadC_RegPrePoliza
         If Rows.Count > 0 Then
             Dim dr As DataRow = Rows(0)
 
-
             dr("ContadoTipoTransaccion") = DdlTipoTransaccion.SelectedValue.ToEntero
             dr("ContadoCuenta") = DdlCuenta.SelectedValue.ToEntero
             dr("ContadoNumeroFolio") = TxtDocumentoFolio.Text
@@ -1549,15 +1997,36 @@ Partial Class ContabilidadC_RegPrePoliza
             dr("ContadoBeneficiario") = TxtDocumentoBeneficiario.Text
             dr("ContadoObservaciones") = TxtDocumentoObservaciones.Text
         End If
+
         DtMovimientos.AcceptChanges()
+
+        If Not DtMovimientos.Columns.Contains("Cargo") Then
+            DtMovimientos.Columns.Add("Cargo", GetType(Decimal))
+            DtMovimientos.Columns.Add("Abono", GetType(Decimal))
+        End If
+
+        Dim IndexX As Integer = 0
+        For Each PGvRow As GridViewRow In GvMov.Rows
+
+            If PGvRow.RowType = DataControlRowType.DataRow Then
+
+                DtMovimientos.Rows(IndexX)("Cargo") = PGvRow.FCTextBox("TxtCargo").Text.ToDecimal
+                DtMovimientos.Rows(IndexX)("Abono") = PGvRow.FCTextBox("TxtAbono").Text.ToDecimal
+
+                IndexX = IndexX + 1
+            End If
+        Next
+
         GvMov.DataSource = DtMovimientos
         GvMov.DataBind()
+
+
         'CveTipoTransaccion = DdlTipoTransaccion.SelectedValue.ToEntero
         'CveCuenta = DdlCuenta.SelectedValue.ToEntero
         'Folio = TxtDocumentoFolio.Text
         'ImporteDocumento = TxtDocumentoImporte.Text.ToDecimal
         'Observaciones = TxtDocumentoObservaciones.Text
-        'Beneficiario = TxtDocumentoBeneficiario.Text
+        'Beneficiario = TxtDocumentoBeneficiario.TextTxtReferenciaE
 
 
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
@@ -1567,30 +2036,11 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
         Dim ObjContabilidad As New ClsContabilidad
-        ObjContabilidad.IniciaTransacSQL()
-        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjConta.IniciaTransacSQL()
-        Dim TieneError As Boolean = False
 
         If ObjContabilidad.RemovePrePolizas(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-            If IdPoliza > 0 Then
-                If Not ObjConta.RemovePoliza(IdPoliza) Then
-                    TieneError = True
-                End If
-            End If
-
             Alert("La Prepóliza ha sido eliminada", TipoMensaje.MsgInformacion)
         Else
             Alert("La Prepóliza ha podido ser eliminada", TipoMensaje.MsgError)
-            TieneError = True
-        End If
-
-        If Not TieneError Then
-            ObjContabilidad.Commit()
-            ObjConta.Commit()
-        Else
-            ObjContabilidad.RollBack()
-            ObjConta.RollBack()
         End If
 
         ObjContabilidad.Dispose()
@@ -1599,12 +2049,19 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If UpPrePoliza.Visible Then
-            For Each Gvr As GridViewRow In GvPrePoliza.Rows
-                Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
+
+            For Each dRow As DataRow In DtMovimientos.Rows
+                dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue
+                dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text
+                dRow("Modificado") = True
             Next
+
+            DtMovimientos.AcceptChanges()
+            GvPrePoliza.DataSource = DtMovimientos
+            GvPrePoliza.DataBind()
             UpPrePoliza.Update()
         End If
-        If UPMovs.Visible Then
+        If divMovtos.Visible Then
             For Each Gvr As GridViewRow In GvMov.Rows
                 Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue)
             Next
@@ -1614,28 +2071,9 @@ Partial Class ContabilidadC_RegPrePoliza
     Protected Sub DdlSubProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs)
         Dim Ddl As DropDownList = CType(sender, DropDownList)
         For Each Gvr As GridViewRow In GvPrePoliza.Rows
-            If Ddl.SelectedValue.ToEntero() > 0 Then
-                If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() = Ddl.SelectedValue.ToEntero() Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then
+            If Ddl.SelectedValue.ToEntero > 0 Then
+                If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = Ddl.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then
                     Gvr.Visible = True
-                    Gvr.FCDropDownList("DdlSubProyecto").SelectedValueExist(Ddl.SelectedValue)
-                Else
-                    Gvr.Visible = False
-                End If
-            Else
-                Gvr.Visible = True
-            End If
-        Next
-        UpPrePoliza.Update()
-        RegistraScript("calculateAbono()", "cargo")
-        RegistraScript("calculateCargo()", "abono")
-        RegistraScript("comparar()", "compara")
-    End Sub
-    Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs)
-        For Each Gvr As GridViewRow In GvMov.Rows
-            If DdlSubProyectoFiltroMov.SelectedValue.ToEntero() > 0 Then
-                If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() = DdlSubProyectoFiltroMov.SelectedValue.ToEntero() Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero() > 0 Or Gvr.FCDropDownList("DdlSubProyecto").Enabled Then
-                    Gvr.Visible = True
-                    Gvr.FCDropDownList("DdlSubProyecto").SelectedValueExist(DdlSubProyectoFiltroMov.SelectedValue)
                 Else
                     Gvr.Visible = False
                 End If
@@ -1651,130 +2089,146 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing
         Actualizar = True
-        GvMov.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-        Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString().ToEntero()
-
+        GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
+        Dim idMov As Integer = GvMov.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
         Dim DrM As DataRow = DtMovimientos.Rows(e.NewEditIndex)
 
         If DrM IsNot Nothing Then
-            HdnCve.Value = idMov.ToString()
-
-            DdlCtaContable.SelectedValue = DrM("IdCuenta").ToString
+            HdnCve.Value = idMov.ToString
+            CargaCuentasContables()
+            ChkSeguir.Visible = False
+            DdlCuentaContable.SelectedValueExist(DrM("CveCuenta").ToString)
             TxtReferencia.Text = DrM("Referencia").ToString
-            TxtObservaciones.Text = DrM("Concepto").ToString
+            TxtConcepto.Text = DrM("Concepto").ToString
             '   (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
             DrM("EsComodin") = 0
-            DdlConceptosContables.SelectedValue = DrM("CveConcepto").ToString()
-            TxtCargo.Text = DrM("Cargo").ToString()
-            TxtAbono.Text = DrM("Abono").ToString()
+            DdlConceptosContables.SelectedValueExist(DrM("CveConceptoContable").ToString)
+            TxtCargo.Text = DrM("Cargo").ToString
+            TxtAbono.Text = DrM("Abono").ToString
             TxtDescripcion.Text = DrM("Descripcion").ToString
-            DdlSubProyecto.SelectedValue = DrM("CveSubProyecto").ToString
-            DdlProveedores.SelectedValue = DrM("CveProveedor").ToString
-            DdlCompras.SelectedValue = DrM("CveCompra").ToString
-            DdlPersonal.SelectedValue = DrM("CvePersonal").ToString
+            DdlSubProyecto.SelectedValueExist(DrM("CveSubProyecto").ToString)
+            DdlProveedores.SelectedValueExist(DrM("CveProveedor").ToString)
+            DdlCompras.SelectedValueExist(DrM("CveCompra").ToString)
+            DdlPersonal.SelectedValueExist(DrM("CvePersonal").ToString)
             ' DrM("CveClasificacion") = -1
-            DdlClientes.SelectedValue = DrM("CveCliente").ToString
-            DdlVentas.SelectedValue = DrM("CveVenta").ToString
+
+            DdlClientes.txtValue.Value = DrM("CveCliente").ToString
+            'DdlClientes.txtText.Value = DrM("CveCliente").ToString
+
+            DdlVentas.SelectedValueExist(DrM("CveVenta").ToString)
             LbCancelarEdicion.Visible = True
             LbAgregar.Text = "Actualizar"
-            GvMov.Rows(e.NewEditIndex).FCTextBox("TxtCargo").CssClass = ""
-            GvMov.Rows(e.NewEditIndex).FCTextBox("TxtAbono").CssClass = ""
+
         End If
 
-        UPPDocumento.Update()
-        DivAgregarConceptos.Visible = True
-
-        'If DtMovimientos Is Nothing Then CreaDT()
-
-        'Dim dr As DataRow = DtMovimientos.NewRow
-        'Dim CodigoCuenta As String = ""
-        'Dim NombreCuenta As String = ""
-
-        'dr("IdCuenta") = DdlCtaContable.SelectedValue
-
-        'If DdlCtaContable.SelectedValue.ToEntero() > 0 Then
-        '    Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("Id={0}", DdlCtaContable.SelectedValue))
-        '    If drr IsNot Nothing Then
-        '        CodigoCuenta = drr("CuentaFormato").Tostring()
-        '        NombreCuenta = drr("Nombre").Tostring()
-        '    End If
-        'End If
-
-        'dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-        'dr("Cuenta") = DdlConceptosContables.SelectedItem
-        'dr("Referencia") = TxtReferencia.Text
-        'dr("Concepto") = TxtObservaciones.Text
-        'dr("TipoMovto") = If(Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1)
-        'dr("EsComodin") = 0
-        'dr("CveConcepto") = DdlConceptosContables.SelectedValue
-        'dr("Cargo") = TxtCargo.Text.ToDouble
-        'dr("Abono") = TxtAbono.Text.ToDouble
-        'dr("Descripcion") = TxtDescripcion.Text
-        'dr("CveSubProyecto") = DdlSubProyecto.SelectedValue
-        'dr("CveProveedor") = DdlProveedores.SelectedValue.ToEntero()
-        'dr("CveCompra") = DdlCompras.SelectedValue.ToEntero()
-        'dr("CvePersonal") = DdlPersonal.SelectedValue.ToEntero()
-        'dr("CveClasificacion") = -1
-        '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
-        'DtMovimientos.Rows.Add(dr)
-
-        'If CvePrePoliza > 0 Then
-        '    GvPrePoliza.DataSource = DtMovimientos
-        '    GvPrePoliza.DataBind()
-        'End If
-
-
-        'GvMov.DataSource = DtMovimientos
-        'GvMov.DataBind()
-        'UPMovs.Update()
-
-
     End Sub
 
     Private Sub LbCancelarEdicion_Click(sender As Object, e As EventArgs) Handles LbCancelarEdicion.Click
         LbCancelarEdicion.Visible = False
-        TxtObservaciones.Text = ""
+        TxtConcepto.Text = ""
         Actualizar = False
         LbAgregar.Text = "Agregar"
-
-        GvMov.DataSource = DtMovimientos
-        GvMov.DataBind()
-        UPMovs.Update()
-        RegistraScript("calculateCargo();calculateAbono();comparar()")
-    End Sub
-
-    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 "COMPLEMENTO DE PAGO"
 
+    Private Sub LnkComplementoPago_Click(sender As Object, e As EventArgs) Handles LnkComplementoPago.Click
+        CargaComplementosPago()
+        RegistraScript("$('#ModalComplementoPagos').modal('show');")
+    End Sub
+
+    Private Sub CargaComplementosPago()
+
+        Dim ObjBancos As New ClsBancos
+        DVGenerarComplementoModal.Visible = False
+
+        If ObjBancos.GetComplementoPagosRep(-1, MinFecha, MaxFecha, -1, -1, 1, UsuarioActual.CveEmpresa, 2, CvePrePoliza:=CvePrePoliza) Then
+            Dim dtt As DataTable = Nothing
+            dtt = ObjBancos.DtResultados
+            If dtt.Rows.Count > 0 Then
+                UpComplementoPagos.Visible = True
+                'GvComplementoPagos.Columns(7).Visible = True
+                ' si tiene el permiso para eliminar IE o editar IE
+                If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(6).Visible = True
+            Else
+                DVGenerarComplementoModal.Visible = True
+            End If
+            GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE"})
+
+        End If
+        ObjBancos.Dispose()
+        GvComplementoPagos.DataBind()
+        UpComplementoPagos.Update()
+
+    End Sub
+
+
+    Protected Sub LnkCancelarComplemento_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+        Dim CveMotivoCancelacion As Integer = 2 'GvRow.FCDropDownList("DdlMotivoCancelacion").SelectedValue.ToEntero
+        Dim CveSATMotivoCancelacion As Integer = 2 'GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveMotivoCancelacion:=CveMotivoCancelacion).FiltroPrimeroValor("CveSATMotivoCancelacion").ToEntero()
+
+        If CveMotivoCancelacion <= 0 Or CveSATMotivoCancelacion <= 0 Then
+            Alert("Debe de elegir un motivo de cancelación.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim CveComplementoPagoCancelar As Integer = GvRow.DataKey("CveComplementoPago").ToEntero
+        Dim FolioFiscalCancelar As String = GvRow.DataKey("FolioFiscal").ToString
+        '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
+        Dim RFCReceptorCancelar As String = GvRow.DataKey("RFCReceptor")
+        Dim CvePACCancelacion As Integer = GvRow.DataKey("CvePAC").ToEntero
+
+        Dim ObjCancelacion As New Timbrado
+        Dim ObjBanco As New ClsBancos
+
+        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+            If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, NowADS(), "", 1) Then
+                CargaComplementosPago()
+                Alert("El complemento se canceló correctamente.")
+            End If
+
+        Else
+            Dim resp As RespuestaCancelacionSAT = ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion)
+            If resp.Verificado Then
+
+                If ObjBanco.UpdateComplementoPagoCancelado(CveComplementoPagoCancelar, 2, CvePACCancelacion, UsuarioActual.CveEmpresa, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
+
+                Else
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+                End If
+            End If
+        End If
+        ObjBanco.Dispose()
+        CargaComplementosPago()
+
+    End Sub
+
+    Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        Dim Vigencia As Timbrado.AcuseCancelacionSAT = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
+
+        If Vigencia IsNot Nothing Then
+            If Vigencia.Estado.ToUpper = "CANCELADO" Then
+                respuesta = True
+            Else
+                respuesta = False
+            End If
+        Else
+            respuesta = False
+        End If
+
+
+
+        Return respuesta
+    End Function
+
     Private Sub GeneraTimbre(CvePrePoliza As Integer)
         Dim Str As New StringBuilder
         Dim Banco As New ClsBancos
@@ -1793,7 +2247,19 @@ Partial Class ContabilidadC_RegPrePoliza
             Str.AppendFormat("No se genero complemento  por el siguiente motivo: {0}", Banco.Mensaje)
         End If
         Banco.Dispose()
-        Alert(Str.ToString(), TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
+        Alert(Str.ToString, TipoMensaje.MsgInformacion, "self.parent.tb_remove();self.parent.location.reload();")
+    End Sub
+
+    Protected Sub GvComplementoPagos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvComplementoPagos.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            'If e.Row.DataKey("Tipo") = "Ing" Then
+            e.Row.Cells(3).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
+            e.Row.Cells(4).Text = String.Format("<a class="" texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class="" fa fa-ad-pdf""></i></a>", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE"))))
+
+            'End If
+        End If
     End Sub
 
     Private Sub MandaCorreo(NombreArchivo As String, Correo As String, Optional ConAlerta As Boolean = True)
@@ -1829,267 +2295,11 @@ Partial Class ContabilidadC_RegPrePoliza
         End Try
     End Sub
 
-    Protected Sub LnkComplementoPago_Click(sender As Object, e As EventArgs)
-        GeneraTimbre(CvePrePoliza)
-    End Sub
-
-    Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
-        Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"}
-        Dim filtroComplemento() As String = {"CveIE"}
-        Dim Pathpdf As New List(Of String)
-        Dim pdfs = New List(Of Byte())
-        Dim Path As String
-        Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
-        Dim ObjCompra As New ClsCompras
-        Dim ObjIE As New ClsBancos()
-        Dim pathPoliza As String = ""
-        Dim TieneComprobante As Boolean
-
-        Try
-            TieneComprobante = VerificarComprobante()
-            If TieneComprobante Then
-
-                Path = ImprimirPolizaPDF(IdPoliza)
-                pathPoliza = Path
-                If File.Exists(Path) Then
-                    Pathpdf.Add(Path)
-                End If
-
-                For Each Row As DataRow In dt.Rows
-                    If Row("CveConceptoContable").ToString().ToEntero() = 30 Then
-                        If Row("CveIE").ToString().ToEntero() > 0 Then
-                            If ObjIE.GetBancosIE(Row("CveIE").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then
-                                If ObjIE.DtResultados.Rows.Count > 0 Then
-                                    Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString())
-                                    If File.Exists(Path) Then
-                                        Dim formato As String = System.IO.Path.GetExtension(Path)
-                                        If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then
-                                            Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick)
-                                            Using documento = New Document(New PdfDocument(New PdfWriter(New FileStream(ComprobantePDF, FileMode.Create))), PageSize.A4)
-                                                documento.SetMargins(18, 18, 18, 18)
-                                                Dim image = New Element.Image(ImageDataFactory.Create(Path))
-                                                'image.ScaleToFit(documento.GetPageEffectiveArea(PageSize.A4).GetWidth(), documento.GetPageEffectiveArea(PageSize.A4).GetHeight())
-                                                image.ScaleToFit(540, 700)
-                                                documento.Add(image)
-                                                documento.Close()
-                                            End Using
-                                            Pathpdf.Add(ComprobantePDF)
-                                        Else
-                                            Pathpdf.Add(Path)
-                                        End If
-                                    End If
-                                End If
-                            End If
-                        End If
-                    End If
-                    If Row("CveConceptoContable").ToString().ToEntero().Contiene(17, 309, 312, 308) Then
-                        If ObjCompra.GetCompras(Row("CveCompra").ToString().ToEntero(), "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-                            If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
-                                Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
-                                Dim RFC As String = dr("RFC").ToString()
-                                Dim CveFactura As String = dr("CveFactura").ToString()
-                                Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
-                                If File.Exists(Path) Then
-
-                                    Pathpdf.Add(Path)
-                                End If
-                            End If
-                        End If
-                    End If
-                Next
-
-
-                dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
-                For Each Row As DataRow In dt.Rows
-                    If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString().ToEntero()) Then
-                        Console.WriteLine(Row("CveIE").ToString())
-                        If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
-                            Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
-                            Dim RFC As String = dr("RFCde").ToString()
-                            Dim CveFactura As String = dr("CveFactura").ToString()
-                            Console.WriteLine(RFC & CveFactura)
-                            If CveFactura <> "" Then
-                                Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
-                                Console.WriteLine(Path)
-                                If File.Exists(Path) Then
-                                    Pathpdf.Add(Path)
-                                End If
-                            End If
-                        End If
-                    End If
-                Next
-
-                MergePdfFiles(Pathpdf.ToArray)
-                If File.Exists(pathPoliza) Then
-                    Directory.Delete(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
-                End If
-
-            Else
-                Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
-            End If
-
-
-        Catch ex As Exception
-            Alert("Error al descargar el paquete", TipoMensaje.MsgError)
-        End Try
-        ObjCompra.Dispose()
-        ObjIE.Dispose()
-    End Sub
-    Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
-        Dim ObjConta As New ClsContabilidad
-        'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
-
-        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
-        Dim params As New List(Of ReportParameter)
-        Dim Bytes As Byte() = Nothing
-
-
-        'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-            Dim dtVC As DataTable
-            Dim dr As DataRow
-            dtVC = ObjConta.DtResultados
-            dr = dtVC.Rows(0)
-            Dim ruta As String = ""
-            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString()))
-            params.Add(New ReportParameter("Finicio", dr("Fecha").ToString().ToDate().ToShortDateString))
-            params.Add(New ReportParameter("FFin", dr("Fecha").ToString().ToDate().ToShortDateString))
-            params.Add(New ReportParameter("Fecha", dr("Fecha").ToString().ToDate().ToShortDateString))
-            'params.Add(New ReportParameter("Nombre", dr("Cuenta").Tostring()))
-            'params.Add(New ReportParameter("Cuenta", dr("Codigo").Tostring()))
-            params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString()))
-            params.Add(New ReportParameter("Moneda", ""))
-            params.Add(New ReportParameter("CodigoPostal", ""))
-            If UsuarioActual.CveEmpresa = 119 Then
-                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString().ToEntero()).FiltroPrimeroValor("Nombre")))
-            End If
-            If Archivo.Exists Then
-                ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
-            Else
-                ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
-            End If
-            Bytes = StreamPDF(ruta, dtVC, params, "ppoliza")
-            If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString())) Then
-                DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick))
-                File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString()), Bytes)
-            End If
-        End If
-        Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString())
-        ObjConta.Dispose()
-
-    End Function
-    Private Sub MergePdfFiles(ByVal pdfFilesList() As String)
-        Dim f As Integer = 0
-        Dim pdfCount As Integer = pdfFilesList.Length
-
-        Try
-            If pdfCount > 0 Then
-                Dim currentFile = pdfFilesList(f)
-                Dim reader As New PdfReader(currentFile)
-                Dim srcDoc As New PdfDocument(reader)
-                Dim pageCount = srcDoc.GetNumberOfPages()
-
-                Dim writer As New PdfWriter(New FileStream(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio), FileMode.Create))
-                Dim mergedDoc As New PdfDocument(writer)
-                Dim document As New Document(mergedDoc, srcDoc.GetFirstPage.GetPageSizeWithRotation())
-                document.SetMargins(18, 18, 18, 18)
-
-                While f < pdfCount
-                    Dim p As Integer = 0
-                    While p < pageCount
-                        p += 1
-                        Dim srcPage = srcDoc.GetPage(p)
-                        Dim srcPageSize = srcPage.GetPageSizeWithRotation()
-                        mergedDoc.SetDefaultPageSize(srcPageSize)
-                        Dim canvas As New PdfCanvas(mergedDoc.AddNewPage())
-                        Dim srcPageXObj = srcPage.CopyAsFormXObject(mergedDoc)
-                        Dim rotation = srcPage.GetRotation()
-                        If rotation = 90 Then
-                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 0, -1.0F, 1.0F, 0, 0, srcPageSize.GetHeight())
-                        ElseIf rotation = 270 Then
-                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 0, 1.0F, -1.0F, 0, srcPageSize.GetWidth() + 60, -30)
-                        Else
-                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 1.0F, 0, 0, 1.0F, 0, 0)
-                        End If
-                    End While
-                    f += 1
-                    If f < pdfCount Then
-                        currentFile = pdfFilesList(f)
-                        reader = New PdfReader(currentFile)
-                        srcDoc = New PdfDocument(reader)
-                        pageCount = srcDoc.GetNumberOfPages()
-                    End If
-                End While
-
-                srcDoc.Close()
-                document.Close()
-
-                Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio))
-
-                If Archivo.Exists Then
-                    HttpContext.Current.Response.Clear()
-                    HttpContext.Current.Response.ClearContent()
-                    HttpContext.Current.Response.ContentType = "application/octet-stream"
-                    HttpContext.Current.Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
-                    HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
-                    HttpContext.Current.Response.TransmitFile(String.Format("{0}\{1}\{2}-{3}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, TipoPoliza, Folio))
-                    Response.Flush() ' send it to the client to download
-                    HttpContext.Current.Response.SuppressContent = True
-                    HttpContext.Current.ApplicationInstance.CompleteRequest()
-                    Response.End()
-
-                End If
-                Dim result As Boolean = True
-            End If
-        Catch ex As Exception
-        End Try
-
-    End Sub
-
 #End Region
 
 
+#Region "E X C E L"
 
-    Protected Sub DdlProveedores_SelectedIndexChanged1(sender As Object, e As EventArgs)
-        Dim ddl As DropDownList = CType(sender, DropDownList)
-        Dim ddl2 As DropDownList = DirectCast(ddl.BindingContainer, GridViewRow).FCDropDownList("DdlCompras")
-        If DdlConceptosContables.SelectedValue.ToEntero().Contiene(18, 60) Then
-            CargaNotasCreditoCompras(ddl.SelectedValue.ToEntero(), ddl2)
-        Else
-            CargaCompras2(ddl.SelectedValue.ToEntero(), ddl2)
-        End If
-
-    End Sub
-
-    Private Sub CargaCompras2(CveProveedor As Integer, ddl As DropDownList)
-
-        Dim ObjCompras As New ClsCompras
-
-        ddl.ClearSelection()
-        If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
-            ddl.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
-            ddl.DataBind()
-            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
-            ddl.Visible = True
-        Else
-            ddl.DataSource = Nothing
-            ddl.DataBind()
-            ddl.Items.Insert(0, New ListItem("  -  ", "-1"))
-
-        End If
-        ObjCompras.Dispose()
-    End Sub
-
-    Private Sub CargaGvBitacora()
-        ' COMENTADO POR IPP PARA SUBIR 5 ABRIL 2017
-        Dim ObjGral As New ClsGenerales()
-        If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
-            GvBitacora.DataSource = ObjGral.DtResultados
-            GvBitacora.DataBind()
-        End If
-        ObjGral.Dispose()
-    End Sub
 
     Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         RegistraScript(String.Format("$('#{0}').modal();", "DivCargaExcel"))
@@ -2100,25 +2310,33 @@ Partial Class ContabilidadC_RegPrePoliza
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add(DdlPlantilla2.SelectedItem.Text.Substring(1, 30))
+        Dim NombreHoja As String = DdlPlantilla2.SelectedItem.Text.ToString
+        If NombreHoja.Length > 30 Then
+            NombreHoja = NombreHoja.Substring(0, 29)
+        End If
+        Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add(NombreHoja)
 
-        Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero()
+        Dim CvePlantilla As Integer = DdlPlantilla2.SelectedValue.ToEntero
+        'Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(CvePlantilla, UsuarioActual.CveEmpresa)
         Dim Dt As DataTable = GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantilla).FiltraParametros("", "Orden")
 
+
         Dim DtExcel As DataTable = (From row In Dt.AsEnumerable
                                     Select New With
                                     {
                                         .ConceptoAdministrativo = row.Item("ConceptoContable"),
-                                        .Cuenta = "",
-                                        .NombreCuenta = "",
+                                        .Cuenta = row.Item("Codigo"),
+                                        .NombreCuenta = row.Item("CodigoNombreCuenta"),
                                         .Cargo = "",
                                         .Abono = "",
                                         .Referencia = "",
                                         .Concepto = "",
                                         .SubProyecto = row.Item("SubProyecto"),
-                                        .CveConceptoContable = row.Item("CveConcepto"),
-                                        .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString().ToEntero() > 0, row.Item("CveSubProyecto"), -1),
-                                        .IdCtaContable = IIf(row.Item("IdCtaContable").ToString().ToEntero() > 0, row.Item("IdCtaContable"), -1)
+                                        .Folio = "",
+                                        .TipoTransferencia = "",
+                                        .CveConceptoContable = row.Item("CveConceptoContable"),
+                                        .CveSubProyecto = IIf(row.Item("CveSubProyecto").ToString.ToEntero > 0, row.Item("CveSubProyecto"), -1),
+                                        .CveCuenta = row.Item("CveCuenta")
                                     }).QueryToDataTable(True)
 
         worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
@@ -2128,16 +2346,17 @@ Partial Class ContabilidadC_RegPrePoliza
                     .StartColumn = 0
                 })
 
-        Dim columnCount = worksheet.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
+        Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+        For i As Integer = 0 To columnCount
             worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
         Next
-        worksheet.Columns("I").Hidden = True
-        worksheet.Columns("J").Hidden = True
         worksheet.Columns("K").Hidden = True
+        worksheet.Columns("L").Hidden = True
+        worksheet.Columns("M").Hidden = True
+        worksheet.Columns("N").Hidden = True
 
 
-        NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString()
+        NombreArchivo = DdlPlantilla2.SelectedItem.Text.ToString
         workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)
 
 
@@ -2158,248 +2377,505 @@ Partial Class ContabilidadC_RegPrePoliza
     Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
         Dim dt As New DataTable
         ' Conexion As Odbc.OdbcConnection = Nothing
-        Dim ErrorArchivo = False
-        Dim ErrorExcel = False
-
-        dt = ReadExcelFile(Ruta + FileName, True)
-
+        Dim ErrorArchivo As Boolean = False
+        Dim ErrorExcel As Boolean = False
+        DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue
+        dt = ReadExcelFile(Ruta + FileName, True, 0)
 
         If Not ErrorArchivo Then
 
-            If Not dt.Columns(0).ColumnName = "ConceptoAdministrativo" Then
-                Alert("El nombre de la primera columna debe ser 'ConceptoAdmin'. Favor de corregirlo", TipoMensaje.MsgError)
+            If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then
+                Alert("El nombre de la primera columna debe ser 'ConceptoAdministrativo'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(1).ColumnName = "Cuenta" Then
+            If Not dt.Columns(1).ColumnName.ToUpper = "CUENTA" Then
                 Alert("El nombre de la segunda columna debe ser 'Cuenta'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(2).ColumnName = "NombreCuenta" Then
+            If Not dt.Columns(2).ColumnName.ToUpper = "NOMBRECUENTA" Then
                 Alert("El nombre de la tercera columna debe ser 'NombreCuenta'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(3).ColumnName = "Cargo" Then
+            If Not dt.Columns(3).ColumnName.ToUpper = "CARGO" Then
                 Alert("El nombre de la cuarta columna debe ser 'Cargo'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(4).ColumnName = "Abono" Then
+            If Not dt.Columns(4).ColumnName.ToUpper = "ABONO" Then
                 Alert("El nombre de la quinta columna debe ser 'Abono' .Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(5).ColumnName = "Referencia" Then
+            If Not dt.Columns(5).ColumnName.ToUpper = "REFERENCIA" Then
                 Alert("El nombre de la sexta columna debe ser 'Referencia'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(6).ColumnName = "Concepto" Then
+            If Not dt.Columns(6).ColumnName.ToUpper = "CONCEPTO" Then
                 Alert("El nombre de la séptima columna debe ser 'Concepto'.Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
-            If Not dt.Columns(7).ColumnName = "SubProyecto" Then
+            If Not dt.Columns(7).ColumnName.ToUpper = "SUBPROYECTO" Then
                 Alert("El nombre de la octava columna debe ser 'SubProyecto'. Favor de corregirlo", TipoMensaje.MsgError)
                 Exit Sub
             End If
+            If Not dt.Columns(8).ColumnName.ToUpper = "FOLIO" Then
+                Alert("El nombre de la novena columna debe ser 'Folio'.Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(9).ColumnName.ToUpper = "TIPOTRANSFERENCIA" Then
+                Alert("El nombre de la decima columna debe ser 'TipoTransferencia'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
         End If
 
         If Not ErrorArchivo Then
 
+            DtMovimientos.Clear()
 
-            Dim ObjConta As New ClsContabilidad()
-            ObjConta.IniciaTransacSQL()
             Try
-                Dim TieneError As Boolean = False
-                Dim ContadorUpdate As Integer = 0
-                Dim ContadorError As Integer = 0
-                Dim NombreCuenta As String = ""
-                Dim CvePrePoliza As Integer = 0
-                Dim Cuenta As String = ""
-                Dim Reporte As New StringBuilder
-                Dim TotalCargos As Integer = 0
-                Dim TotalAbonos As Integer = 0
 
+                Dim ContadorRegistros As Integer = 2
 
-                CvePrePoliza = ObjConta.AddPrePolizas("Contabilidad/RegPrePolizaExcel", DdlPlantilla2.SelectedValue.ToEntero(), TotalCargos, TotalAbonos, 1, TxtFecha.Text.ToDate(), DdlPlantilla2.SelectedItem.Text.ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPolizaAdd.SelectedValue.ToEntero())
+                For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
 
+                    Dim NombreCuenta As String = Row("NombreCuenta").ToString
+                    Dim Cuenta As String = Row("Cuenta").ToString
+                    Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
 
-                For Each Row As DataRow In dt.Rows
-                    NombreCuenta = Row("NombreCuenta").ToString()
-                    Cuenta = Row("Cuenta").ToString()
+                    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 Importe As Decimal = If(Row("Cargo").ToString().ToDecimal() <> 0, Row("Cargo").ToString().ToDecimal(), Row("Abono").ToString().ToDecimal())
-                    Dim Concepto As String = Row("Concepto").ToString()
-                    Dim Referencia As String = Row("Referencia").ToString()
-                    Dim IdCuenta As Integer = -1
-                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString().ToEntero()
-                    Dim TipoMovto As Boolean = If(Row("Cargo").ToString().ToDecimal() <> 0, False, True)
-                    Dim YaExiste As Boolean = False
-                    Dim CveConceptoContable As Integer = 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
+                    Dim FolioExcel As Long = -1
+                    Dim TipoMov As Integer = -1
+                    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
+                        NombreCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CtaCodigo", "")
+                    End If
+                    ObjConta2.Dispose()
 
-                    If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1, UsuarioActual.CveEmpresa) Then
-                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                            IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero()
-                            'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
-                        Else
-                            Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
-                            TieneError = True
-                            YaExiste = True
-                        End If
-                    Else
-                        TieneError = True
+                    If CveCuentaExcel <= 0 AndAlso CveConceptoContable <> 30 Then ' concepto 30-Bancos, tomará la cuetna de las especificaciones que se hagan enel modal
+                        Alert(String.Format("La cuenta <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("Cuenta").ToString))
+                        DtMovimientos.Clear()
                         Exit For
                     End If
 
+                    If CveConceptoContable = 30 AndAlso Row("TipoTransferencia").ToString <> "" Then
 
-                    'If TipoCuenta.Contiene("A", "C", "E") Then
-                    '    CargoAbono = False
-                    'End If
+                        Dim objconta3 As New ClsContabilidad
+                        objconta3.GetConta_CuentasDataContabilidad(CveCuentaExcel, UsuarioActual.CveEmpresa)
+                        If objconta3.DtResultados.Rows.Count > 0 Then
+                            Dim rowcc As DataRow = objconta3.DtResultados.Rows(0)
+                            CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                        Else
+                            CveBancoCuenta = 0
+                        End If
+                        objconta3.Dispose()
 
-                    'If YaExiste = False Then
-                    '    If IdCuenta > 0 Then
-                    '        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", CveConceptoContable, Concepto, NowADS().ToDate(), IdCtaContable, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then
-                    '            TieneError = True
-                    '            Exit For
-                    '        End If
-                    '    Else
-                    '        IdCuenta = -2
-                    '    End If
-                    'End If
+                        If CveBancoCuenta = 0 Then
+                            Alert(String.Format("La cuenta <b>{0}</b> no está vinculada a una cuenta bancaria administrativa favor de verificar el archivo.", Row("Cuenta").ToString), TipoMensaje.MsgAdvertencia)
+                            DtMovimientos.Clear()
+                            Exit For
+                        End If
+
+                        TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        TipoNaturaleza = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia")))
+
+                        FolioExcel = Row("Folio").ToString.ToEntero
+                        CveTipoTransaccion = TipoMov
+                        CveCuenta = CveBancoCuenta
+                        'carga el consecutivo
+
+                        If FolioExcel = 0 Then
+                            FolioExcel = SiguienteFolioBancos(CveBancoCuenta, TipoMov).ToLong
+                        End If
+
+                        Folio = FolioExcel.ToString
+                        ImporteDocumento = If(Row("Abono").ToString.ToDecimal <> 0, Row("Abono").ToString.ToDecimal, Row("Cargo").ToString.ToDecimal)
+                        Observaciones = Row("Referencia").ToString
+                        Beneficiario = Row("Concepto").ToString
+
+                        If Not TipoMov > 0 Then
+                            Alert(String.Format("El Tipo de Transferencia no fue encontrado: <br/> <b>Tipo Transferencia: <b/> {0} <br/> <b>Folio: <b/> {1} <br/> <b>Importe: <b/> {2} ", Row("TipoTransferencia").ToString(), FolioExcel, ImporteDocumento), TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+                        End If
 
 
+                        If Not (TipoNaturaleza = "Ing" And ((TipoMovto = False And ImporteDocumento >= 0) Or (TipoMovto = True And ImporteDocumento <= 0)) Or
+                               TipoNaturaleza = "Egs" And ((TipoMovto = True And ImporteDocumento >= 0) Or (TipoMovto = False And ImporteDocumento <= 0))) Then
+                            Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
+                            Exit Sub
+
+                        End If
+
+                        '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
+                        Alert($"Se detecto un error en el registro {ContadorRegistros}, se tiene un valor en cargo({Row("Cargo").ToString.ToDecimal.ToString("###,###,###.00")}) y abono({Row("Abono").ToString.ToDecimal.ToString("###,###,###.00")})", TipoMensaje.MsgAdvertencia)
+                        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")))
+                        DtMovimientos.Clear()
+                        Exit For
+                    End If
+
+                    If Row("SubProyecto").ToString.Trim <> "" Then
+                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
+
+                        If CveSubProyecto = 0 Then
+                            Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
+                            DtMovimientos.Clear()
+                            Exit For
+                        End If
+
+                    End If
+
+                    If CveConceptoContable = 69 Then
+                        CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
+                    End If
+
+                    Dim dr As DataRow = DtMovimientos.NewRow
+
+                    dr("CodigoNombreCuenta") = NombreCuenta
+                    dr("Cuenta") = ConceptoAdministrativo
+                    dr("Referencia") = Row("Referencia").ToString
+                    dr("Concepto") = Row("Concepto").ToString
+                    dr("TipoMovto") = TipoMovto
+                    dr("EsComodin") = 0
+                    dr("CveConceptoContable") = CveConceptoContable
+                    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
+                    dr("CvePersonal") = -1
+                    dr("CveClasificacion") = CveClasificacion
+                    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
+                    dr("ContadoNumeroFolio") = FolioExcel
+                    dr("ContadoImporte") = ImporteDocumento
+                    dr("ContadoBeneficiario") = Beneficiario
+                    dr("ContadoObservaciones") = Observaciones
+
+                    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
-                If Not TieneError Then
-                    ObjConta.Commit()
-                    Alert(String.Format("<br/><br/>Prepóliza: <b><a href=""/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjConta.ContaFolio))
 
-                    Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
-
-                Else
-                    Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError)
-                    ObjConta.RollBack()
-                End If
+                GvMov.DataBind()
+                divMovtos.Visible = False
+                GvPrePoliza.DataSource = DtMovimientos
+                GvPrePoliza.DataBind()
+                UpPrePoliza.Update()
 
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
 
             Catch ex As Exception
-                ObjConta.RollBack()
+                Alert("No se pudo cargar el excel", TipoMensaje.MsgAdvertencia)
+                GuardaLog(ex.Message)
             End Try
-
-            ObjConta.Dispose()
+            ArregloCuentasFolios = Nothing
         End If
     End Sub
 
-    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+#End Region
 
-        Dim unnamed As Integer = 0
-        Dim cols As Integer
-        Dim columns As String()
-        Dim curRow As Integer = 0
-        Dim curCol As Integer = 0
-        Dim dataTable As DataTable = New DataTable()
-        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+#Region "Siguiente Folio"
+    Public Property ArregloCuentasFolios As DataTable
+        Get
 
-        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+            If ViewState("ArregloCuentasFolios") Is Nothing Then
+                Dim dt As DataTable = New DataTable("CuentasBancos")
+                With dt.Columns
+                    .Add("CveCuenta", Type.GetType("System.Int32"))
+                    .Add("CveTipoTransaccion", Type.GetType("System.Int32"))
+                    .Add("Folio", Type.GetType("System.Double"))
+                End With
+                ViewState("ArregloCuentasFolios") = dt
+            End If
 
-            If firstRowHasHeaders Then
+            Return CType(ViewState("ArregloCuentasFolios"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("ArregloCuentasFolios") = value
+        End Set
+    End Property
+
+
+
+    Public Function SiguienteFolioBancos(CveCuentaBancos As Integer, CveTipoTransaccionBancos As Integer) As String
+        Dim Retorno As String = "0"
+
+        Dim Folio As Long = ArregloCuentasFolios.FiltroPrimeroValor("Folio", String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos)).ToLong
+
+        If Folio = 0 Then
+            Dim Banco As New ClsBancos
+            Folio = Banco.GetNextFolio(CveCuentaBancos, CveTipoTransaccionBancos)
+            Banco.Dispose()
+        End If
+
+        Folio += 1
+
+        Dim a As DataRow() = ArregloCuentasFolios.Select(String.Format("CveCuenta = {0} and CveTipoTransaccion = {1}", CveCuentaBancos, CveTipoTransaccionBancos))
+
+        If a.Count = 0 Then
+            Dim dr As DataRow = ArregloCuentasFolios.NewRow
+            dr("Folio") = Folio
+            dr("CveCuenta") = CveCuentaBancos
+            dr("CveTipoTransaccion") = CveTipoTransaccionBancos
+            ArregloCuentasFolios.Rows.Add(dr)
+        Else
+            a(0)("Folio") = Folio 'actualizo el folio
+        End If
+
+        ArregloCuentasFolios.AcceptChanges()
+
+        Return Folio.ToString
+    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 UsuarioActual.Empresa.TipoContabilidad = 1 Then
+
+            If Folio.ToEntero = 0 Then
+
+                Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1)
+
+                If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then
+
+                    Alert($"Contabilizado Correctamente Folio <b>{ ObjConta.ContaFolio.ToString()}.</b>", TipoMensaje.MsgInformacion)
+
+                    TxtFolio.Text = ObjConta.ContaFolio.ToString()
+                    LnkFolioManual.Visible = False
+                    BtnContabilizar.Visible = False
+                    BtnDescontabilizar.Visible = True
+                    UpPoliza.Update()
+                    UpGuardar.Update()
 
-                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
-                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString().Trim)
-                Else
-                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
                 End If
+            End If
 
-                curRow = 1
+        Else
+            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
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio: <b>{0}</b> ", ObjConta.FolioPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+                Else
+                    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)
+                End If
             Else
-                dataTable.Columns.Add("Column " & (cols + 1))
+                Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
             End If
 
-        Next
+        End If
+        ObjConta.Dispose()
+    End Sub
 
-        While curRow < worksheet.Rows.Count
 
-            columns = New String(cols - 1) {}
+#Region "Crear A Partir de"
+    Private Sub OcultarControlesCrearApartirDe()
 
-            For curCol = 0 To cols - 1
+        BtnEliminar.Visible = False
+        'BtnContabilizar.Visible = False
+        GvPrePoliza.Columns(5).Visible = False
+        DivTG.Visible = False
+        GvMov.Columns(5).Visible = False
 
-                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
-                    columns(curCol) = ""
-                Else
-                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
-                End If
+        TxtConcepto.Enabled = True
+        TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
+        TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
+        divContabilizada.Visible = False
+        TxtFolio.Text = ""
 
-            Next
+        LblUsuarioElaboro.Text = UsuarioActual.Usuario
+    End Sub
 
-            dataTable.Rows.Add(columns)
-            curRow += 1
 
-        End While
+    Private Function ValidaCrearAPartirDe() As Boolean
 
-        Return dataTable
+        Dim Respuesta As Boolean = False
+
+        If CvePlantillaPoliza > 0 Then
+
+            Dim TmpCvePlantillaPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePlantillaPoliza", $"CvePlantillaPoliza = {CvePlantillaPoliza}").ToEntero
+
+            If TmpCvePlantillaPoliza > 0 Then
+                Respuesta = True
+                LnkCrearAPartirDe.Visible = True
+            End If
+
+        End If
+
+        Return Respuesta
 
     End Function
 
-    Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
-        Dim ObjIE As New ClsBancos
-        Dim Comprobante As String = ""
 
-        Dim Filesgral As List(Of Archivo) = TxtCargarArchivo.getfiles().Archivos
-        If Filesgral.Count > 0 Then
-            Dim fileItem As Archivo = Filesgral(0)
-            Dim Path As String = HttpContext.Current.Request.ApplicationPath
-            Comprobante = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
+    Protected Sub LnkCrearAPartirDe_Click(sender As Object, e As EventArgs)
+        Response.Redirect($"./RegPrePolizaS.aspx?CvePrePolizaOrigen={CvePrePoliza}")
+    End Sub
 
-            Path = String.Format("{0}IE", UsuarioActual.Empresa.Ruta)
 
-            If Not Directory.Exists(Path) Then
-                Directory.CreateDirectory(Path)
-            End If
-            Path += $"/{CveIE}.{Comprobante}"
-            If File.Exists(Path) Then
-                File.Delete(Path)
-            End If
-            My.Computer.FileSystem.MoveFile(fileItem.FileUrl, Path)
-        End If
-        TxtCargarArchivo.Text = ""
-        RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
+    Protected Sub LnkGvPrePolizaEliminar_Click(sender As Object, e As EventArgs)
 
-        If ObjIE.UpdateComprobanteIE(Comprobante.Replace("."c, ""), CveIE) Then
-            Alert("El Comprobante se guardo exitosamente.", TipoMensaje.MsgInformacion)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        If CvePrePoliza > 0 Then
+            Dim RowEliminar As DataRow = DtMovimientosEliminar.NewRow()
+            RowEliminar("CvePrePolizaDetalle") = GvRow.DataKey("CvePrePolizaDetalle")
+            DtMovimientosEliminar.Rows.Add(RowEliminar)
         End If
 
-        ObjIE.Dispose()
+        DtMovimientos.Rows(GvRow.RowIndex).Delete()
+        DtMovimientos.AcceptChanges()
+
+        GvPrePoliza.DataSource = DtMovimientos
+        GvPrePoliza.DataBind()
+
+
+        TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+        TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
+        UpTotalCargo.Update()
+        UpTotalAbono.Update()
+
+        UpPrePoliza.Update()
+    End Sub
+
+
+    Private Sub CargaModalConceptoTipoTransaccion(Tipo As String)
+
+        DdlModalConceptoTipoTransaccion.Items.Clear()
+
+        DdlModalConceptoTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
+        DdlModalConceptoTipoTransaccion.SelectedIndex = -1
+        DdlModalConceptoTipoTransaccion.ClearSelection()
+        DdlModalConceptoTipoTransaccion.SelectedValue = Nothing
+        DdlModalConceptoTipoTransaccion.DataBind()
+        DdlModalConceptoTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
+
+    End Sub
+    Private Sub CargaModalConceptoCuentas()
+        DdlModalConceptoCuenta.Items.Clear()
+        DdlModalConceptoCuenta.ClearSelection()
+        DdlModalConceptoCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
+        DdlModalConceptoCuenta.SelectedValue = Nothing
+        DdlModalConceptoCuenta.DataBind()
+        DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
     End Sub
 
-    Private Function VerificarComprobante() As Boolean
-        Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"}
-        Dim Path As String
-        Dim dt As DataTable = DtMovimientos.FiltraParametros("", "", filtro)
-        Dim ObjIE As New ClsBancos()
-        Dim TieneComprobante As Boolean = False
 
-        For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows
+#End Region
 
-            If ObjIE.GetBancosIE(Row("CveIE").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then
-                If ObjIE.DtResultados.Rows.Count > 0 Then
-                    Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString())
-                    If File.Exists(Path) Then
-                        TieneComprobante = True
-                        Exit For
-                    Else
-                        TieneComprobante = False
-                        Exit For
-                    End If
-                Else
-                    TieneComprobante = False
-                    Exit For
-                End If
+    Private Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs) Handles BtnDescontabilizar.Click
+
+        Dim ObjConta As New ClsContabilidad
+
+        If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+
+            Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
+            TxtFolio.Text = ""
+            LnkFolioManual.Visible = True
+            BtnDescontabilizar.Visible = False
+            BtnContabilizar.Visible = True
+        End If
+
+        ObjConta.Dispose()
+
+        UpPoliza.Update()
+        UpGuardar.Update()
+
+    End Sub
+
+    Private Sub LnkFolioManual_Click(sender As Object, e As EventArgs) Handles LnkFolioManual.Click
+
+        TxtFolio.Enabled = True
+        TxtFolio.Focus()
+        UpPoliza.Update()
+
+    End Sub
+
+    Protected Sub DdlVentasE_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim Venta As New ClsVentas
+        If Venta.GetVenta(DdlVentasE.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = Venta.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                TxtTipoCambio.Text = dr("TipoCambioValuacion").ToString
             End If
+        End If
 
-        Next
-        ObjIE.Dispose()
-        Return TieneComprobante
+        Venta.Dispose()
+    End Sub
 
-    End Function
+    Private Sub TxtCargoE_TextChanged(sender As Object, e As EventArgs) Handles TxtCargoE.TextChanged
+        If TxtCargoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Ing")
+    End Sub
 
+    Private Sub TxtAbonoE_TextChanged(sender As Object, e As EventArgs) Handles TxtAbonoE.TextChanged
+        If TxtAbonoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Egs")
+    End Sub
+
+    Private Sub DdlModalConceptoCuenta_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlModalConceptoCuenta.SelectedIndexChanged
+        Dim tCveMon As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {DdlModalConceptoCuenta.SelectedValue}").ToEntero
+
+        If tCveMon = 2 Then
+            DivMonedaExtranjera.Visible = True
+            DivModalConceptoTipoCambio.Visible = True
+        Else
+            DivMonedaExtranjera.Visible = False
+            DivModalConceptoTipoCambio.Visible = False
+        End If
+        UpModalConcepto.Update()
+    End Sub
+
+    Protected Sub LnkEmitirComplemento_Click(sender As Object, e As EventArgs)
+        GeneraTimbre(CvePrePoliza)
+    End Sub
 End Class