From 02c8626c422e9ccc0fbea3c63e5712a7df0d6a6f Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Mon, 26 Dec 2022 06:34:04 -0700
Subject: [PATCH]

---
 AF/AF.aspx                      | 331 +++++++------
 AF/AF.aspx.vb                   |  18 +-
 App_Code/ClsAF.vb               |  20 +-
 App_Code/ClsNominas.vb          |   3 +-
 General/SaldosIniciales.aspx.vb | 790 ++++++++++++++++----------------
 Nomina/Nomina.aspx              |   6 +
 Nomina/Nomina.aspx.cs           |  36 +-
 RH/Personal.aspx.vb             |  48 +-
 8 files changed, 673 insertions(+), 579 deletions(-)

diff --git a/AF/AF.aspx b/AF/AF.aspx
index d5eab06f6..f89764e5b 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -218,7 +218,8 @@
 
                                                         <div class="row">
                                                             <div class="col-md-4 ">
-                                                                <label class="  control-label"><asp:Label runat="server" ID="LblFechaCompra">Fecha de Compra:</asp:Label></label>
+                                                                <label class="  control-label">
+                                                                    <asp:Label runat="server" ID="LblFechaCompra">Fecha de Compra:</asp:Label></label>
                                                             </div>
 
                                                             <div class="col-md-3">
@@ -251,9 +252,10 @@
                                                         </div>
 
 
-                                                         <div class="row">
+                                                        <div class="row">
                                                             <div class="col-md-4 ">
-                                                                <label class="  control-label"><asp:Label runat="server" ID="LblFechaBaja">Fecha de Baja:</asp:Label></label>
+                                                                <label class="  control-label">
+                                                                    <asp:Label runat="server" ID="LblFechaBaja">Fecha de Baja:</asp:Label></label>
                                                             </div>
 
                                                             <div class="col-md-3">
@@ -266,8 +268,8 @@
                                                                     </div>
                                                                     <ajax:MaskedEditExtender ID="METxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left" BehaviorID="_content_MEEFecha" Century="2000" CultureAMPMPlaceholder="" CultureCurrencySymbolPlaceholder="" CultureDateFormat="" CultureDatePlaceholder="" CultureDecimalPlaceholder="" CultureThousandsPlaceholder="" CultureTimePlaceholder=""></ajax:MaskedEditExtender>
                                                                     <ajax:CalendarExtender ID="CETxtFechaBaja" runat="server" TargetControlID="TxtFechaBaja" PopupButtonID="LnkTxtFechaBaja" PopupPosition="BottomRight" BehaviorID="_content_Calendario"></ajax:CalendarExtender>
-                                                                    
-                                                                   <%-- <asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+
+                                                                    <%-- <asp:RequiredFieldValidator ID="RfvTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                                     <asp:CompareValidator ID="CVTxtFechaBaja" runat="server" ControlToValidate="TxtFechaBaja" Display="None" ErrorMessage="El campo <b>''Fecha''</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="ValidatorCalloutExtender32" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtFechaBaja" Width="350px" BehaviorID="_content_VCOFechaCompra1"></ajax:ValidatorCalloutExtender>
@@ -276,7 +278,7 @@
                                                                 </div>
                                                             </div>
 
-                                                            
+
                                                         </div>
 
                                                         <div class="row">
@@ -457,13 +459,37 @@
                                                                     <label class="  control-label">Cliente: </label>
                                                                 </div>
 
-                                                                <div class="col-md-7"> 
-                                                                     <div class="form-group">
-                                                                  <ADS:Dropdownlost ID="Ddlclientes" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>                                                                   
-                                                                </div>
+                                                                <div class="col-md-7">
+                                                                    <div class="form-group">
+                                                                        <ADS:Dropdownlost ID="Ddlclientes" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
+                                                                    </div>
                                                                 </div>
                                                             </div>
+                                                            <asp:Panel runat="server" ID="LatLong" Visible="false">
 
+                                                                <div class="row">
+                                                                    <div class="col-md-4 ">
+                                                                        <label class="  control-label">Latitud: </label>
+                                                                    </div>
+
+                                                                    <div class="col-md-7">
+                                                                        <div class="form-group">
+                                                                            <asp:TextBox ID="TxtLatitud" runat="server"></asp:TextBox>
+                                                                        </div>
+                                                                    </div>
+                                                                </div>
+                                                                <div class="row">
+                                                                    <div class="col-md-4 ">
+                                                                        <label class="  control-label">Longitud: </label>
+                                                                    </div>
+
+                                                                    <div class="col-md-7">
+                                                                        <div class="form-group">
+                                                                            <asp:TextBox ID="TxtLongitud" runat="server"></asp:TextBox>
+                                                                        </div>
+                                                                    </div>
+                                                                </div>
+                                                            </asp:Panel>
 
                                                         </ContentTemplate>
                                                     </asp:UpdatePanel>
@@ -601,7 +627,7 @@
                                                     </div>
                                                 </div>
                                                 <div class="portlet-body">
-                                                    
+
                                                     <asp:LinkButton ID="BtnPDFCompras" Visible="false" OnClick="BtnPDFCompras_Click" runat="server" data-toggle="tooltip" Title="PDF" Style="float: right;"><i class="fa fa-file-pdf-o" style="margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;"></i></asp:LinkButton>
                                                     <asp:LinkButton ID="BtnExcelCompras" Visible="false" OnClick="BtnExcelCompras_Click" runat="server" data-toggle="tooltip" Title="Excel" Style="float: right;"><i style='margin-right: 10px; font-size:15px; font-weight:bold; color:dimgray;' class='fa fa-file-excel-o'></i></asp:LinkButton>
 
@@ -1182,12 +1208,12 @@
                                 </ContentTemplate>
                             </ajax:TabPanel>
 
-                            <ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto"  Visible="false">
+                            <ajax:TabPanel ID="TabServyMant" runat="server" HeaderText="Servicios y Mto" Visible="false">
                                 <ContentTemplate>
                                     <asp:Literal ID="Literal2" runat="server"></asp:Literal>
 
 
-                                      <asp:UpdatePanel runat="server" ID="UpMantenimientos"  UpdateMode="Conditional">
+                                    <asp:UpdatePanel runat="server" ID="UpMantenimientos" UpdateMode="Conditional">
                                         <ContentTemplate>
 
 
@@ -1202,7 +1228,7 @@
                                                             </div>
                                                             <div class="actions">
                                                                 <div class="btn-group">
-                                                                    <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Mantenimiento" title="Agregar Mantenimiento"  ID="LnkAgregarMantenimiento"  OnClick="LnkAgregarMantenimiento_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
+                                                                    <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Mantenimiento" title="Agregar Mantenimiento" ID="LnkAgregarMantenimiento" OnClick="LnkAgregarMantenimiento_Click" Style="font-size: 13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
                                                                 </div>
                                                             </div>
 
@@ -1211,7 +1237,6 @@
                                                                 <a href="" class="reload" data-original-title="" title=""></a>
                                                                 <a href="" class="fullscreen" data-original-title="" title=""></a>
                                                                 <a href="" class="remove" data-original-title="" title=""></a>--%>
-                                                                
                                                             </div>
                                                         </div>
                                                         <div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
@@ -1219,24 +1244,24 @@
 
                                                                 <hr />
 
-                                                                
+
 
                                                                 <asp:GridView ID="GvMantenimientos" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall" OnRowDataBound="GvMantenimientos_RowDataBound"
                                                                     AutoGenerateColumns="False" DataKeyNames="CveMantenimiento,	CveActivoFijo,	Mantenimiento,	Observaciones,	Fecha,	FechaIng,	CveUsuario,	Codigo,	Descripcion,Usuario,Archivo" ShowHeader="true">
                                                                     <Columns>
 
                                                                         <asp:BoundField DataField="Mantenimiento" HeaderText="Mantenimiento" ItemStyle-HorizontalAlign="Left" />
-                                                                        <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left"   />
+                                                                        <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
                                                                         <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
 
-                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center"  ItemStyle-Width="35px" >
-                                                                            <ItemTemplate>                                                                                
-                                                                                <asp:LinkButton ID="LnkDescargaArcgivo" Visible="false" runat="server" AlternateText="DescargaArchivo" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkDescargaArcgivo_Click" Text="<i class='fa fa-download'></i>" />                                                                               
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="35px">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="LnkDescargaArcgivo" Visible="false" runat="server" AlternateText="DescargaArchivo" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkDescargaArcgivo_Click" Text="<i class='fa fa-download'></i>" />
                                                                             </ItemTemplate>
                                                                         </asp:TemplateField>
 
-                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones"   ItemStyle-Width="90px">
-                                                                            <ItemTemplate>                                                                                
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones" ItemStyle-Width="90px">
+                                                                            <ItemTemplate>
                                                                                 <asp:LinkButton ID="LnkGvMantenimientoEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvMantenimientoEdit_Click" Text="<i class='fa fa-pencil'></i>" />
                                                                                 <asp:LinkButton ID="LnkGvMantenimientoRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvMantenimientoRemove_Click" CausesValidation="False" 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>
@@ -1254,7 +1279,7 @@
                                             </div>
 
                                         </ContentTemplate>
-                                    </asp:UpdatePanel>    
+                                    </asp:UpdatePanel>
 
 
 
@@ -1405,47 +1430,47 @@
                             </ajax:TabPanel>
                             <ajax:TabPanel ID="TabOrdenesdeServicio" Visible="false" runat="server" HeaderText="Ordenes de Servicio">
                                 <ContentTemplate>
-                                    
+
                                     <asp:GridView ID="GVOrdenesdeServicio" runat="server" GridLines="None" CssClass="table table-hover table-striped ScrollAD Widthall" AutoGenerateColumns="False" data-height="400">
                                         <Columns>
                                             <asp:TemplateField HeaderText="Folio">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Folio")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Folio")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Fecha">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Fecha", "{0:dd/MM/yyyy}")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Fecha", "{0:dd/MM/yyyy}")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Obra">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Obra")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Obra")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Tipo de Servicio">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("TipodeServicio")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("TipodeServicio")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Servicio">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Servicio")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Servicio")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Estatus">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Estatus")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Duración">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Duracion")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Duracion")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Atendió">
                                                 <ItemTemplate>
-                                                    <asp:Label  runat="server" Text='<%# Eval("Atendio")%>'> </asp:Label>
+                                                    <asp:Label runat="server" Text='<%# Eval("Atendio")%>'> </asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                         </Columns>
@@ -2124,64 +2149,63 @@
                                 <ContentTemplate>
 
 
-                                    <asp:UpdatePanel runat="server" ID="UpProduccion"  UpdateMode="Conditional">
+                                    <asp:UpdatePanel runat="server" ID="UpProduccion" UpdateMode="Conditional">
                                         <ContentTemplate>
 
 
                                             <div class="row">
-                                        <div class="col-md-6">
-                                            <div class="portlet light xspadding   bordered ">
-                                                <div class="portlet-title">
-                                                    <div class="caption font-green">
-                                                        <i class="fa fa-tasks font-green"></i>
-                                                        <span class="caption-subject bold uppercase">Producción</span>
+                                                <div class="col-md-6">
+                                                    <div class="portlet light xspadding   bordered ">
+                                                        <div class="portlet-title">
+                                                            <div class="caption font-green">
+                                                                <i class="fa fa-tasks font-green"></i>
+                                                                <span class="caption-subject bold uppercase">Producción</span>
 
-                                                    </div>
-                                                    <div class="actions">
-                                                        <div class="btn-group">
-                                                            <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Producción" title="Agregar Producción"  ID="LnkAgregarProduccion"  OnClick="LnkAgregarProduccion_Click" style="font-size:13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
+                                                            </div>
+                                                            <div class="actions">
+                                                                <div class="btn-group">
+                                                                    <asp:LinkButton runat="server" CssClass="btn btn-circle btn-sm blue" data-original-title="Agregar Producción" title="Agregar Producción" ID="LnkAgregarProduccion" OnClick="LnkAgregarProduccion_Click" Style="font-size: 13px!important"><i class="fa fa-plus-circle" aria-hidden="true"></i>Agregar</asp:LinkButton>
+                                                                </div>
+                                                            </div>
+
+                                                            <div class="tools">
+                                                            </div>
+                                                        </div>
+                                                        <div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
+                                                            <div class="form-body">
+
+
+
+
+
+                                                                <asp:GridView ID="GvProduccion" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall"
+                                                                    AutoGenerateColumns="False" DataKeyNames="CveProduccion, CveActivoFijo,	CveCultivoCuadroDetalle, Cantidad, Fecha, CveUsuario, FechaIng, Codigo,	Descripcion, Usuario, Cuadro" ShowHeader="true">
+                                                                    <Columns>
+
+                                                                        <asp:BoundField DataField="Cuadro" HeaderText="Cuadro" ItemStyle-HorizontalAlign="Left" />
+                                                                        <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}" />
+                                                                        <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
+
+                                                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
+                                                                            <ItemTemplate>
+                                                                                <asp:LinkButton ID="LnkGvProduccionEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvProduccionEdit_Click" Text="<i class='fa fa-pencil'></i>" />
+                                                                                <asp:LinkButton ID="LnkGvProduccionRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvProduccionRemove_Click" CausesValidation="False" 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>
+                                                                        </asp:TemplateField>
+
+                                                                    </Columns>
+                                                                </asp:GridView>
+
+                                                            </div>
                                                         </div>
                                                     </div>
-
-                                                    <div class="tools">
-                                                       
-                                                    </div>
                                                 </div>
-                                                <div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
-                                                    <div class="form-body">
 
-                                                    
-                                                  
 
-                                                      
-                                                        <asp:GridView ID="GvProduccion" runat="server" GridLines="None" BorderWidth="0px" CssClass="table table-striped table-hover table-advance Widthall" 
-                                                            AutoGenerateColumns="False" DataKeyNames="CveProduccion, CveActivoFijo,	CveCultivoCuadroDetalle, Cantidad, Fecha, CveUsuario, FechaIng, Codigo,	Descripcion, Usuario, Cuadro" ShowHeader="true">
-                                                            <Columns>                                                               
-
-                                                                 <asp:BoundField DataField="Cuadro" HeaderText="Cuadro" ItemStyle-HorizontalAlign="Left" />
-                                                                <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n2}"  />
-                                                                  <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                                              
-                                                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
-                                                                    <ItemTemplate>
-                                                                        <asp:LinkButton ID="LnkGvProduccionEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvProduccionEdit_Click" Text="<i class='fa fa-pencil'></i>" />
-                                                                        <asp:LinkButton ID="LnkGvProduccionRemove" runat="server" AlternateText="Eliminar" OnClick="LnkGvProduccionRemove_Click" CausesValidation="False" 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>
-                                                                </asp:TemplateField>
-
-                                                            </Columns>
-                                                        </asp:GridView>
-
-                                                    </div>
-                                                </div>
                                             </div>
-                                        </div>
-
-                                      
-                                    </div>
 
                                         </ContentTemplate>
-                                    </asp:UpdatePanel>    
+                                    </asp:UpdatePanel>
 
                                 </ContentTemplate>
                             </ajax:TabPanel>
@@ -2222,9 +2246,9 @@
                                                                     AutoGenerateColumns="False" DataKeyNames="CvePlagaEnfermedad,CveActivoFijo,Observaciones,Fecha,CveUsuario,FechaIng" ShowHeader="true">
                                                                     <Columns>
 
-                                                                        <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />                                                                        
+                                                                        <asp:BoundField DataField="Observaciones" HeaderText="Observaciones" ItemStyle-HorizontalAlign="Left" />
                                                                         <asp:BoundField DataField="Fecha" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                                                        <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />                                                                        
+                                                                        <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                                                                         <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Opciones">
                                                                             <ItemTemplate>
                                                                                 <asp:LinkButton ID="LnkGvPlagaEnfermedadEdit" runat="server" AlternateText="Editar" CausesValidation="False" CssClass="btn btn-circle btn-sm green" OnClick="LnkGvPlagaEnfermedadEdit_Click" Text="<i class='fa fa-pencil'></i>" />
@@ -2255,7 +2279,7 @@
                         </ajax:TabContainer>
 
 
-                     
+
 
 
 
@@ -2348,8 +2372,8 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important;cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="cursor: pointer;font-weight: 700 !important;" ToolTip="Agendar"></asp:HyperLink>
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i>Agendar" Visible="false" Style="cursor: pointer; font-weight: 700 !important;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>
@@ -2736,7 +2760,7 @@
                                 <div class="row">
                                     <div class="col-md-5">
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <ADS:DropDownLost ID="DdlProveedor"  Width="100%" CssStyle="width: 100%;" runat="server"  UsaWebService="true" data-metodo="getproveedores"  DataValueField="CveProveedor" DataTextField="RazonSocial" CssClass="form-control select2me" AppendDataBoundItems="true"></ADS:DropDownLost>
+                                            <ADS:Dropdownlost ID="DdlProveedor" Width="100%" CssStyle="width: 100%;" runat="server" UsaWebService="true" data-metodo="getproveedores" DataValueField="CveProveedor" DataTextField="RazonSocial" CssClass="form-control select2me" AppendDataBoundItems="true"></ADS:Dropdownlost>
                                             <%--<asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="DdlProveedor" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Compañia''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpObligatorioP"></asp:RequiredFieldValidator>--%>
                                             <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor:</label>
                                         </div>
@@ -3071,8 +3095,8 @@
                         <div class="row">
                             <div class="col-md-2">Producto:</div>
                             <div class="col-md-10">
-                                <ADS:Dropdownlost runat="server" ID="DdlAFInvPS" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange ="DdlAFInvPS_SelectedIndexChanged" />
-                               <%-- <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
+                                <ADS:Dropdownlost runat="server" ID="DdlAFInvPS" CssStyle="width: 100%;" CssClass="DdlPS " CssClassDdl="select2me " IncluyeTodos="false" DataTextField="PSCodigo" DataValueField="CvePS" Onselectedindexchange="DdlAFInvPS_SelectedIndexChanged" />
+                                <%-- <asp:RequiredFieldValidator ID="RFVAFInvPS" runat="server" ControlToValidate="DdlAFInvPS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCEAFInvPS" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvPS" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                             </div>
                         </div>
@@ -3088,8 +3112,8 @@
                             <div class="col-md-2">Sección:</div>
                             <div class="col-md-10">
                                 <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
-                                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                                        </asp:DropDownList>
+                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
                                 <asp:RequiredFieldValidator ID="RequiredFieldValidator9" runat="server" ControlToValidate="TxtAFInvSerie" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Serie''</b> es necesario, por favor seleccione uno." InitialValue="" ValidationGroup="GrpAFInv"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender27" runat="server" HighlightCssClass="vco" TargetControlID="RFVAFInvSerie" Width="300px"></ajax:ValidatorCalloutExtender>
                             </div>
@@ -3169,9 +3193,9 @@
                                             <asp:TemplateField>
                                                 <EditItemTemplate>
                                                     <center>
-                                                <asp:LinkButton ID="imgU" ValidationGroup="GrpGrupo" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" />
-                                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
-                                            </center>
+                                                        <asp:LinkButton ID="imgU" ValidationGroup="GrpGrupo" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" />
+                                                        &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
+                                                    </center>
                                                 </EditItemTemplate>
                                                 <ItemTemplate>
                                                     <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
@@ -3292,7 +3316,7 @@
 
 
     <%--MODAL PRODUCCION--%>
-       <div id="DVModalProduccion" class="modal ADS fade" role="dialog">
+    <div id="DVModalProduccion" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpModalProduccion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -3300,7 +3324,8 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="H4" runat="server"><asp:Label runat="server" ID="LblModaProduccionTitulo"></asp:Label></h4>
+                        <h4 class="modal-title" id="H4" runat="server">
+                            <asp:Label runat="server" ID="LblModaProduccionTitulo"></asp:Label></h4>
                     </div>
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpdatePanel4" UpdateMode="Conditional" runat="server">
@@ -3309,14 +3334,14 @@
                                 <div class="row">
                                     <div class="col-md-12">
 
-                                        <div runat="server" id="DVCultivosCuadro"   class="form-group form-md-line-input input-iconright">
+                                        <div runat="server" id="DVCultivosCuadro" class="form-group form-md-line-input input-iconright">
                                             <asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="Cuadro" Style="width: 100%; max-width: 600px;"
                                                 DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
                                             </asp:DropDownList>
-                                            <asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro" 
+                                            <asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro"
                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El Cuadro <b>''Cuadro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
                                             </asp:RequiredFieldValidator>
-                                            <label runat="server"   for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
+                                            <label runat="server" for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
                                             <i></i>
                                         </div>
 
@@ -3327,37 +3352,37 @@
                                     <div class="col-md-12">
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtModalProduccionCantidad" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="20"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvTxtModalProduccionCantidad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalProduccionCantidad" 
+                                            <asp:RequiredFieldValidator ID="RfvTxtModalProduccionCantidad" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalProduccionCantidad"
                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
                                             </asp:RequiredFieldValidator>
                                             <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtModalProduccionCantidad" FilterType="Custom" ValidChars="1234567890." />
                                             <label for="<%= TxtModalProduccionCantidad.ClientID.ToString()%>">Cantidad:</label>
                                             <i></i>
-                                        </div>                                        
-                                    </div>                                   
+                                        </div>
+                                    </div>
                                 </div>
 
                                 <div class="row">
                                     <div class="col-md-6">
-                                        
-                            
 
 
-                                          <label for="<%= TxtModalProduccionFecha.ClientID.ToString()%>">Fecha:</label>
-                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                                <asp:TextBox ID="TxtModalProduccionFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
-                                                <span class="input-group-btn ">
-                                                    <asp:LinkButton ID="LnkTxtModalProduccionFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                </span>
-                                                <ajax:MaskedEditExtender ID="METxtModalProduccionFecha" runat="server" TargetControlID="TxtModalProduccionFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                <ajax:CalendarExtender runat="server" ID="CETxtModalProduccionFecha" TargetControlID="TxtModalProduccionFecha" PopupButtonID="LnkTxtModalProduccionFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                
-                                                <asp:RequiredFieldValidator ID="RfvTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion"></asp:RequiredFieldValidator>
-                                                <asp:CompareValidator ID="CVOTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpProduccion"></asp:CompareValidator>
 
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender28" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender29" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                            </div>
+
+                                        <label for="<%= TxtModalProduccionFecha.ClientID.ToString()%>">Fecha:</label>
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                            <asp:TextBox ID="TxtModalProduccionFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkTxtModalProduccionFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <ajax:MaskedEditExtender ID="METxtModalProduccionFecha" runat="server" TargetControlID="TxtModalProduccionFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CETxtModalProduccionFecha" TargetControlID="TxtModalProduccionFecha" PopupButtonID="LnkTxtModalProduccionFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                            <asp:RequiredFieldValidator ID="RfvTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="CVOTxtModalProduccionFecha" runat="server" ControlToValidate="TxtModalProduccionFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpProduccion"></asp:CompareValidator>
+
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender28" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender29" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalProduccionFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        </div>
 
 
 
@@ -3368,10 +3393,10 @@
                             </ContentTemplate>
                         </asp:UpdatePanel>
                         <div class="modal-footer">
-                          
-                                    <asp:LinkButton ID="LnkModalAgregarProduccion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpProduccion" OnClick="LnkModalAgregarProduccion_Click"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
-                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                             
+
+                            <asp:LinkButton ID="LnkModalAgregarProduccion" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpProduccion" OnClick="LnkModalAgregarProduccion_Click"> <i class='material-icons'>done_all</i>Agregar</asp:LinkButton>
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+
                         </div>
                     </div>
                 </ContentTemplate>
@@ -3382,9 +3407,9 @@
 
 
 
-    
+
     <%--MODAL MANTENIMIENTO--%>
-       <div id="DVModalMantenimiento" class="modal ADS fade" role="dialog">
+    <div id="DVModalMantenimiento" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpModalMantenimiento" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -3392,7 +3417,8 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="H5" runat="server"><asp:Label runat="server" ID="LblModaMantenimientoTitulo"></asp:Label></h4>
+                        <h4 class="modal-title" id="H5" runat="server">
+                            <asp:Label runat="server" ID="LblModaMantenimientoTitulo"></asp:Label></h4>
                     </div>
                     <div class="modal-body">
                         <asp:UpdatePanel ID="UpdatePanel5" UpdateMode="Conditional" runat="server">
@@ -3403,17 +3429,17 @@
 
 
 
-                                         <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtModalMantenimiento" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="50"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvTxtModalMantenimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimiento" 
+                                            <asp:RequiredFieldValidator ID="RfvTxtModalMantenimiento" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimiento"
                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Mantenimiento''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
-                                            </asp:RequiredFieldValidator>                                            
+                                            </asp:RequiredFieldValidator>
                                             <label for="<%= TxtModalMantenimiento.ClientID.ToString()%>">Mantenimiento:</label>
                                             <i></i>
-                                        </div>  
+                                        </div>
+
 
 
-                                    
 
                                     </div>
                                 </div>
@@ -3421,46 +3447,46 @@
                                 <div class="row">
                                     <div class="col-md-12">
 
-                                          <div class="form-group form-md-line-input input-iconright">
+                                        <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtModalMantenimientoObservaciones" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="200"></asp:TextBox>
-                                            <asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimientoObservaciones" 
+                                            <asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoObservaciones" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtModalMantenimientoObservaciones"
                                                 ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento">
-                                            </asp:RequiredFieldValidator>                                            
+                                            </asp:RequiredFieldValidator>
                                             <label for="<%= TxtModalMantenimientoObservaciones.ClientID.ToString()%>">Observaciones:</label>
                                             <i></i>
-                                        </div>  
-                                                                            
-                                    </div>                                   
+                                        </div>
+
+                                    </div>
                                 </div>
 
                                 <div class="row">
                                     <div class="col-md-6">
-                                        
-                            
 
 
-                                          <label for="<%= TxtModalMantenimientoFecha.ClientID.ToString()%>">Fecha:</label>
-                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
-                                                <asp:TextBox ID="TxtModalMantenimientoFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
-                                                <span class="input-group-btn ">
-                                                    <asp:LinkButton ID="LnkTxtModalMantenimientoFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                                </span>
-                                                <ajax:MaskedEditExtender ID="METxtModalMantenimientoFecha" runat="server" TargetControlID="TxtModalMantenimientoFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                <ajax:CalendarExtender runat="server" ID="CETxtModalMantenimientoFecha" TargetControlID="TxtModalMantenimientoFecha" PopupButtonID="LnkTxtModalMantenimientoFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                                
-                                                <asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento"></asp:RequiredFieldValidator>
-                                                <asp:CompareValidator ID="CVOTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpMantenimiento"></asp:CompareValidator>
 
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender30" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender31" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
-                                            </div>
+
+                                        <label for="<%= TxtModalMantenimientoFecha.ClientID.ToString()%>">Fecha:</label>
+                                        <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                            <asp:TextBox ID="TxtModalMantenimientoFecha" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                            <span class="input-group-btn ">
+                                                <asp:LinkButton ID="LnkTxtModalMantenimientoFecha" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                            </span>
+                                            <ajax:MaskedEditExtender ID="METxtModalMantenimientoFecha" runat="server" TargetControlID="TxtModalMantenimientoFecha" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CETxtModalMantenimientoFecha" TargetControlID="TxtModalMantenimientoFecha" PopupButtonID="LnkTxtModalMantenimientoFecha" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+
+                                            <asp:RequiredFieldValidator ID="RfvTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpMantenimiento"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="CVOTxtModalMantenimientoFecha" runat="server" ControlToValidate="TxtModalMantenimientoFecha" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpMantenimiento"></asp:CompareValidator>
+
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender30" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender31" runat="server" HighlightCssClass="vco" TargetControlID="CVOTxtModalMantenimientoFecha" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        </div>
 
                                     </div>
                                 </div>
                                 <br />
                                 <div class="row">
-                                    <div class="col-md-12">                                        
-                                            <asp:TextBox ID="TxtArchivoMantenimiento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>                                        
+                                    <div class="col-md-12">
+                                        <asp:TextBox ID="TxtArchivoMantenimiento" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
                                         <br />
                                     </div>
                                 </div>
@@ -3482,7 +3508,7 @@
 
 
 
-     <div id="DVModalPlagaEnfermedad" class="modal ADS fade" role="dialog">
+    <div id="DVModalPlagaEnfermedad" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <asp:UpdatePanel ID="UpModalPlagaEnfermedad" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -3490,7 +3516,8 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" id="H6" runat="server"><asp:Label runat="server" ID="LblModalTituloPlagaEnfermedad"></asp:Label></h4>
+                        <h4 class="modal-title" id="H6" runat="server">
+                            <asp:Label runat="server" ID="LblModalTituloPlagaEnfermedad"></asp:Label></h4>
                     </div>
                     <div class="modal-body">
 
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 3517452da..3a01c161a 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -832,6 +832,8 @@ Partial Class AF_AF
     Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
         CargaFolios()
         ModalidadesPaginaAF()
+        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+        UPEstatus.Update()
     End Sub
 
     Private Sub CargaFolios()
@@ -939,9 +941,14 @@ Partial Class AF_AF
                 TxtFechaBaja.Text = If(ObjActivoFijo.FechaBaja = New Date(1900, 1, 1), "", ObjActivoFijo.FechaBaja.ToString("dd/MM/yyyy"))
 
 
-                DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString
+                DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString()
                 CargaSubTipoActivoFijo()
-                DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString
+                DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString()
+                LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+                TxtLatitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Lat").ToString()
+                TxtLongitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Long").ToString()
+
+                UPEstatus.Update()
 
                 If ObjActivoFijo.CveMovimientoInv > 0 Then
                     UpAFInvMovimiento.Visible = True
@@ -2483,7 +2490,7 @@ Partial Class AF_AF
                                         DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero, TxtPorDepreciacion.Text.Trim.ToDouble,
                                          TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, CveMovimientoSalidaInv, UsuarioActual.CveUsuario, CveEmpresaActual, CveMarca:=DdlMarcas.SelectedValue.ToEntero,
                                          CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
-                                         FechaBaja:=FechaBaja) > 0 Then
+                                         FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text) > 0 Then
                     ViewState("CveActivoFijo") = ObjAF.CveActivoFijo
                 Else
                     ErrorGuardar = True
@@ -2589,7 +2596,7 @@ Partial Class AF_AF
                                        DdlSubProyecto.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.Trim.ToEntero, DdlEstadoActivoFijo.SelectedValue.ToEntero, DdlCtaContableDepreciacion.SelectedValue.ToEntero,
                                        TxtPorDepreciacion.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, Ddlclientes.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CveEmpresaActual,
                                        CveMarca:=DdlMarcas.SelectedValue.ToEntero, CveModelo:=DdlModelos.SelectedValue.ToEntero, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, CveAFPadre:=DdlAFPadres.SelectedValue.ToEntero, CveDispositivo:=DdlDispositivo.SelectedValue.ToEntero,
-                                       FechaBaja:=FechaBaja) Then
+                                       FechaBaja:=FechaBaja, Lat:=TxtLatitud.Text, Longi:=TxtLongitud.Text) Then
 
                 'Comentado porque te redirecciona no se ocupa - 22 Enero 2016 - Israel Piña
                 'CargaDatos()
@@ -3098,7 +3105,8 @@ Partial Class AF_AF
         CargaCaracteristicas()
         CargaDispositivos()
         ModalidadesPaginaAF()
-
+        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+        UPEstatus.Update()
     End Sub
 
 #Region "CARGAR CUENTA CONTABLE"
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index d06e61b3a..9e5a61305 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -400,9 +400,12 @@ Public Class ClsAF
     Public Function AddActivosFijos(Codigo As String, Descripcion As String, ValorCompra As Double, FechaCompra As Date, CveSubTipoActivoFijo As Integer, CvePersonalResponsable As Integer, NoSerie As String, Año As Integer,
                                     CveSubProyecto As Integer, Cuenta As Integer, CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
                                     CveMovimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
-                                    Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Integer
+                                    Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha,
+                                    Optional Lat As String = "", Optional Longi As String = "") As Integer
         Dim Retorno As Integer = -1
 
+
+
         DataAdapter("PA_AF_ActivosFijosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
@@ -432,6 +435,9 @@ Public Class ClsAF
             .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
             .Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
 
+            .Add("@Lat", SqlDbType.VarChar).Value = Lat
+            .Add("@Long", SqlDbType.VarChar).Value = Longi
+
             .Add("@CveActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -445,8 +451,11 @@ Public Class ClsAF
             If Ex1.Message.Contains("Número: 2627;") Then
                 If Ex1.Message.Contains("UN_ActivoFijo") Then
                     Alert("El Codigo ya se encuentra registrado", TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("FK_AF_ActivosFijos_AF_SubTiposActivosFijos") Then
+                    Alert("Capture un SubTipo de Activo Fijo Valido", TipoMensaje.MsgAdvertencia)
+
                 Else
-                    Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+                        Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
                 End If
 
             Else
@@ -462,7 +471,8 @@ Public Class ClsAF
                                        CvePersonalResponsable As Integer, NoSerie As String, Año As Integer, CveSubProyecto As Integer, IdCtaContActivoFijo As Integer,
                                        CveEstadoActivoFijo As Integer, IdCtaContDepreciacion As Integer, PorDepreciacion As Double, Observaciones As String, CveCliente As Integer,
                                        CveUsuarioModifico As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1, Optional CveModelo As Integer = -1, Optional CveGrupo As Integer = -1,
-                                       Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha) As Boolean
+                                       Optional CveAFPadre As Integer = -1, Optional CveDispositivo As Integer = -1, Optional FechaBaja As Date = MinFecha,
+                                    Optional Lat As String = "", Optional Longi As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_ActivosFijosUpdate")
@@ -495,6 +505,8 @@ Public Class ClsAF
             .Add("@CveAFPadre", SqlDbType.Int).Value = CveAFPadre
             .Add("@CveDispositivo", SqlDbType.Int).Value = CveDispositivo
             .Add("@FechaBaja", SqlDbType.Date).Value = FechaBaja
+            .Add("@Lat", SqlDbType.VarChar).Value = Lat
+            .Add("@Long", SqlDbType.VarChar).Value = Longi
         End With
 
         Try
@@ -503,6 +515,8 @@ Public Class ClsAF
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("Ya existe un Activo Fijo con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("FK_AF_ActivosFijos_AF_SubTiposActivosFijos") Then
+                Alert("Capture un SubTipo de Activo Fijo Valido", TipoMensaje.MsgAdvertencia)
             Else
                 Me.OnError("Ocurrió un error al guardar los cambios en el Activo Fijo", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index fda2358d9..02367b7a2 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2616,7 +2616,7 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0) As Boolean
+    Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0, Optional CveTipoTrabajador As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         Try
             DTSet = New DataSet()
@@ -2631,6 +2631,7 @@ Public Class ClsNominas
                 .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion
                 .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal
                 .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario
+                .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
             End With
 
 
diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index b2305f899..a4319c79c 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -702,64 +702,64 @@ Partial Class General_SaldosIniciales
                 Dim NuevaClasificacion As Boolean = False
 
                 For Each Row As DataRow In dt.Rows
-                    Dim Codigo As String = Row("Codigo").ToString
-                    Dim Descripcion As String = Row("Descripcion").ToString
-                    Dim TipoPS As String = Row("Tipo").ToString.Trim.ToUpper
-                    Dim CodigoBarras As String = Row("Código Barras").ToString
-                    Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim
-                    Dim Clasificacion As String = Row("Clasificacion").ToString.Trim
-                    Dim Marca As String = Row("Marca").ToString.Trim
-                    Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString.Trim.ToUpper.Contiene("1", "SI"), True, False)
-                    Dim Precio As Double = Row("Precio").ToString.ToDouble
-                    Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
-                    Dim Tamaño As String = Row("Tamaño").ToString.Trim
-                    Dim SATClavePS As String = Row("Código SAT").ToString.Trim
+                    Dim Codigo As String = Row("Codigo").ToString()
+                    Dim Descripcion As String = Row("Descripcion").ToString()
+                    Dim TipoPS As String = Row("Tipo").ToString().Trim.ToUpper
+                    Dim CodigoBarras As String = Row("Código Barras").ToString()
+                    Dim UnidadMedida As String = Row("Unidad Medida").ToString().Trim
+                    Dim Clasificacion As String = Row("Clasificacion").ToString().Trim
+                    Dim Marca As String = Row("Marca").ToString().Trim
+                    Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False)
+                    Dim Precio As Double = Row("Precio").ToString().ToDouble
+                    Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal
+                    Dim Tamaño As String = Row("Tamaño").ToString().Trim
+                    Dim SATClavePS As String = Row("Código SAT").ToString().Trim
 
-                    Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString.Trim, "")
-                    Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString.ToDouble, 0)
-                    Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "")
-                    Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "")
-                    Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "")
-                    Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "")
-                    Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "")
-                    Dim RetIVA As Decimal = If(Row.Table.Columns.Contains("RetIVA"), Row("RetIVA").ToString.Trim.ToDecimal, 0D)
+                    Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString().Trim, "")
+                    Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString().ToDouble, 0)
+                    Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString().Trim, "")
+                    Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString().Trim, "")
+                    Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString().Trim, "")
+                    Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString().Trim, "")
+                    Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString().Trim, "")
+                    Dim RetIVA As Decimal = If(Row.Table.Columns.Contains("RetIVA"), Row("RetIVA").ToString().Trim.ToDecimal, 0D)
 
-                    Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
+                    Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString().ToEntero()
 
                     Dim CveTipoPS As Integer = If(TipoPS.ToUpper = "PRODUCTO", 2, 1)
-                    Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
-                    Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString.ToEntero
-                    Dim CveSATPS As Integer = ClsPaginas.GlobalDTPSATPS("-1", CodigoSAT:=SATClavePS).FiltroPrimeroValor("CveSATPS", "").ToEntero
-                    Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString.ToEntero
-                    Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
-                    Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString.ToEntero
+                    Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
+                    Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}' OR Abreviatura = '{UnidadMedida}'").ToString().ToEntero()
+                    Dim CveSATPS As Integer = ClsPaginas.GlobalDTPSATPS("-1", CodigoSAT:=SATClavePS).FiltroPrimeroValor("CveSATPS", "").ToEntero()
+                    Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}' AND CveEmpresa = {UsuarioActual.CveEmpresa}").ToString().ToEntero()
+                    Dim CveClasificacion2 As Integer = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero()
+                    Dim CveClasificacionDetalle As Integer = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveClasificacionDetalle", $"ClasificacionDetalle = '{Linea}'").ToString().ToEntero()
 
 
                     If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then
                         If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
-                                                      GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
+                                                      GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString().ToEntero(), UsuarioActual.CveUsuario,
                                                       UsuarioActual.CveEmpresa) Then
                             GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
-                            CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+                            CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
                             NuevaClasificacion = True
                         End If
                     End If
 
                     If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then
-                        If ObjUM.AddUnidadMedida(UnidadMedida, UnidadMedida, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero > 0 Then
+                        If ObjUM.AddUnidadMedida(UnidadMedida, UnidadMedida, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero() > 0 Then
                             If ObjUM.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
-                            CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
+                            CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString().ToEntero()
                         End If
                     End If
 
                     Dim CveMarca As Integer = -1
                     If Marca <> "" AndAlso DtMarcas IsNot Nothing Then
-                        CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString.ToEntero
+                        CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString().ToEntero()
                         If Not CveMarca > 0 Then
                             If ObjPS.AddMarcas(Marca, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                 If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
                                     DtMarcas = ObjPS.DtResultados.Copy
-                                    CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString.ToEntero
+                                    CveMarca = DtMarcas.FiltroPrimeroValor("CveMarca", $"Marca = '{Marca}'").ToString().ToEntero()
                                 End If
                             End If
                         End If
@@ -767,12 +767,12 @@ Partial Class General_SaldosIniciales
 
                     Dim CveMedida As Integer = -1
                     If Medida <> "" AndAlso DtMedidas IsNot Nothing Then
-                        CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero
+                        CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString().ToEntero()
                         If Not CveMedida > 0 Then
                             If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                 If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then
                                     DtMedidas = ObjGral.DtResultados.Copy
-                                    CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero
+                                    CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString().ToEntero()
                                 End If
                             End If
                         End If
@@ -780,12 +780,12 @@ Partial Class General_SaldosIniciales
 
                     Dim CveRinTamaño As Integer = -1
                     If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then
-                        CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero
+                        CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
                         If Not CveRinTamaño > 0 Then
                             If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                 If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then
                                     DtRinTamaño = ObjGral.DtResultados.Copy
-                                    CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero
+                                    CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString().ToEntero()
                                 End If
                             End If
                         End If
@@ -793,12 +793,12 @@ Partial Class General_SaldosIniciales
 
                     Dim CveModelo As Integer = -1
                     If Modelo <> "" AndAlso DtModelos IsNot Nothing Then
-                        CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero
+                        CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString().ToEntero()
                         If Not CveModelo > 0 Then
                             If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                 If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then
                                     DtModelos = ObjGral.DtResultados.Copy
-                                    CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero
+                                    CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString().ToEntero()
                                 End If
                             End If
                         End If
@@ -810,21 +810,21 @@ Partial Class General_SaldosIniciales
 
 
                         If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
-                            CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
+                            CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero()
                         End If
 
                         If Not CveCategoria > 0 Then
                             If ObjGral.AddCategorias(Clasificacion2, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 4) Then
 
                                 If ObjGral.GetCategorias(UsuarioActual.CveEmpresa, 4) Then
-                                    CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero
+                                    CveCategoria = ObjGral.DtResultados.FiltroPrimeroValor("CveCategoria", "").ToEntero()
                                 End If
                             End If
                         End If
 
 
                         If ObjClas.GetClasificaciones(UsuarioActual.CveEmpresa) Then
-                            CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero
+                            CveClasificacion2 = ObjClas.DtResultados.FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{ Clasificacion2.Trim }'").ToEntero()
                         End If
 
 
@@ -833,7 +833,7 @@ Partial Class General_SaldosIniciales
                             If ObjClas.AddClasificaciones(Clasificacion2, "", -1, "-1", -1, "-1", -1, "-1", CveCategoria, UsuarioActual.CveUsuario,
                                                       UsuarioActual.CveEmpresa) Then
                                 If ObjClas.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClas.DtResultados
-                                CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString.ToEntero
+                                CveClasificacion2 = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion2}'").ToString().ToEntero()
                             End If
 
                         End If
@@ -929,14 +929,14 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.Rows
 
-                    Dim RazonSocial As String = Row("RazonSocial").ToString
+                    Dim RazonSocial As String = Row("RazonSocial").ToString()
 
 
 
-                    Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+                    Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
                     If CuentaContable.Length > 0 Then
-                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
                         If CveCuentaContable > 0 Then
                             Row("CveCuentaContable") = CveCuentaContable
@@ -948,8 +948,8 @@ Partial Class General_SaldosIniciales
                 Next
 
                 For Each Row As DataRow In dt.Rows
-                    Dim RazonSocial As String = Row("RazonSocial").ToString
-                    If Not (Row("TipoProveedor").ToString.Trim.ToUpper).Contiene("PROVEEDOR", "ACREEDOR") Then
+                    Dim RazonSocial As String = Row("RazonSocial").ToString()
+                    If Not (Row("TipoProveedor").ToString().Trim.ToUpper).Contiene("PROVEEDOR", "ACREEDOR") Then
                         sbErrores.AppendLine($"Proveedor {RazonSocial} TipoProveedor {Row("TipoProveedor")} invalido.<br>")
                         ErrorProv = True
                     End If
@@ -974,57 +974,57 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.Rows
 
-                    Dim Codigo As String = Row("Codigo").ToString
-                    Dim RazonSocial As String = Row("RazonSocial").ToString
+                    Dim Codigo As String = Row("Codigo").ToString()
+                    Dim RazonSocial As String = Row("RazonSocial").ToString()
 
                     If RazonSocial.Trim.Length = 0 Then
                         Continue For
                     End If
 
-                    Dim RFC As String = Row("RFC").ToString.Trim
+                    Dim RFC As String = Row("RFC").ToString().Trim
 
-                    Dim Dirrecion As String = $"{ Row("Población").ToString}, { Row("Estado").ToString} , Colonia { Row("Colonia").ToString},   {Row("Calle").ToString} #{Row("Número exterior").ToString}"
+                    Dim Dirrecion As String = $"{ Row("Población").ToString()}, { Row("Estado").ToString()} , Colonia { Row("Colonia").ToString()},   {Row("Calle").ToString()} #{Row("Número exterior").ToString()}"
 
-                    'Dim NumExt As String = Row("Número exterior").ToString
+                    'Dim NumExt As String = Row("Número exterior").ToString()
 
 
-                    ' Dim Colonia As String = Row("Colonia").ToString
-                    Dim CodigoPostal As Integer = Row("Código Postal").ToString.ToEntero
+                    ' Dim Colonia As String = Row("Colonia").ToString()
+                    Dim CodigoPostal As Integer = Row("Código Postal").ToString().ToEntero()
 
-                    ' Dim Poblacion As String = Row("Población").ToString
+                    ' Dim Poblacion As String = Row("Población").ToString()
 
-                    'Dim Estado As String = Row("Estado").ToString
-                    Dim Telefono As String = Row("Teléfono").ToString
-                    Dim ContactoMail As String = Row("Contacto").ToString
-                    Dim CelularContacto As String = Row("Celular Contacto").ToString
-                    Dim LimiteCredito As Double = Row("Limite Credito").ToString.ToDouble
-                    Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
+                    'Dim Estado As String = Row("Estado").ToString()
+                    Dim Telefono As String = Row("Teléfono").ToString()
+                    Dim ContactoMail As String = Row("Contacto").ToString()
+                    Dim CelularContacto As String = Row("Celular Contacto").ToString()
+                    Dim LimiteCredito As Double = Row("Limite Credito").ToString().ToDouble
+                    Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString().ToEntero()
 
-                    Dim Banco As String = Row("Banco").ToString
-                    Dim NumeroCuenta As String = Row("N° CUENTA").ToString.Replace("-", "").Replace(" ", "")
-                    Dim ClabeInter As String = Row("Clabe Inter").ToString.Replace("-", "").Replace(" ", "")
+                    Dim Banco As String = Row("Banco").ToString()
+                    Dim NumeroCuenta As String = Row("N° CUENTA").ToString().Replace("-", "").Replace(" ", "")
+                    Dim ClabeInter As String = Row("Clabe Inter").ToString().Replace("-", "").Replace(" ", "")
 
-                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
-                    Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString.ToEntero
+                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
+                    Dim CveProveedor2 As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"RazonSocial = '{RazonSocial}'").ToString().ToEntero()
 
                     Dim CveProveedor3 As Integer = 0
 
-                    Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
-                    Dim TipoProveedor As Integer = If(Row("TipoProveedor").ToString.ToUpper = "PROVEEDOR", 1, 2)
+                    Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
+                    Dim TipoProveedor As Integer = If(Row("TipoProveedor").ToString().ToUpper = "PROVEEDOR", 1, 2)
                     Dim CveConceptoCuentaAsiganaciones As Integer = If(TipoProveedor = 1, 5, 305)
 
                     If Codigo.Trim.Length > 0 Then
-                        CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString.ToEntero
+                        CveProveedor3 = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $"Codigo = '{Codigo}'").ToString().ToEntero()
                     End If
 
 
 
 
-                    Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString
-                    Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString
-                    Dim Moneda As String = Row("Moneda Preferente").ToString
-                    Dim DIOTTipoTercero As String = Row("Tipo Tercero").ToString.Trim.ToUpper
-                    Dim DIOTipoOperacion As String = Row("Tipo Operación").ToString
+                    Dim CodigoRegimenFiscal As String = Row("Regimen Fiscal").ToString()
+                    Dim ProveedorClasificacion As String = Row("Clasificación Proveedor").ToString()
+                    Dim Moneda As String = Row("Moneda Preferente").ToString()
+                    Dim DIOTTipoTercero As String = Row("Tipo Tercero").ToString().Trim.ToUpper
+                    Dim DIOTipoOperacion As String = Row("Tipo Operación").ToString()
 
                     Dim CveMoneda As Integer = -1
                     Dim CveProveedorClasificacion As Integer = -1
@@ -1104,7 +1104,7 @@ Partial Class General_SaldosIniciales
 
 
                     If ProveedorClasificacion.Trim.Length > 0 Then
-                        CveProveedorClasificacion = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion", $"ProveedorClasificacion = '{ProveedorClasificacion}'").ToString.ToEntero
+                        CveProveedorClasificacion = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedorClasificacion", $"ProveedorClasificacion = '{ProveedorClasificacion}'").ToString().ToEntero()
                         If Not CveProveedorClasificacion > 0 Then
                             sbErrores.AppendLine($"Proveedor {RazonSocial} Proveedor Clasificacion {ProveedorClasificacion} invalida.<br>")
                             ErrorProv = True
@@ -1112,7 +1112,7 @@ Partial Class General_SaldosIniciales
                     End If
 
                     If CodigoRegimenFiscal.Trim.Length > 0 Then
-                        CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero
+                        CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero()
                         If Not CveRegimenFiscal > 0 Then
                             sbErrores.AppendLine($"Proveedor {RazonSocial} Codigo RegimenFiscal {CodigoRegimenFiscal} invalido.<br>")
                             ErrorProv = True
@@ -1231,11 +1231,11 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.Rows
 
-                    Dim RazonSocial As String = Row("RazonSocial").ToString
-                    Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+                    Dim RazonSocial As String = Row("RazonSocial").ToString()
+                    Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
                     If CuentaContable.Length > 0 Then
-                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
                         If CveCuentaContable > 0 Then
                             Row("CveCuentaContable") = CveCuentaContable
@@ -1264,40 +1264,40 @@ Partial Class General_SaldosIniciales
                     NumRow = NumRow + 1
 
 
-                    Dim Codigo As String = Row("Codigo").ToString
-                    Dim RazonSocial As String = Row("RazonSocial").ToString
-                    Dim RFC As String = Row("RFC").ToString.Trim
-                    Dim Calle As String = Row("Calle").ToString
-                    Dim NumExt As Decimal = Row("Número exterior").ToString.ToDecimal
-                    Dim Colonia As String = Row("Colonia").ToString
-                    Dim CodigoPostal As String = Row("Código Postal").ToString
-                    Dim Poblacion As String = Row("Población").ToString
-                    Dim Estado As String = Row("Estado").ToString.Trim
-                    Dim Pais As String = Row("Pais").ToString
-                    Dim Telefono As String = Row("Teléfono").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
-                    Dim Contacto As String = Row("Contacto").ToString
+                    Dim Codigo As String = Row("Codigo").ToString()
+                    Dim RazonSocial As String = Row("RazonSocial").ToString()
+                    Dim RFC As String = Row("RFC").ToString().Trim
+                    Dim Calle As String = Row("Calle").ToString()
+                    Dim NumExt As Decimal = Row("Número exterior").ToString().ToDecimal
+                    Dim Colonia As String = Row("Colonia").ToString()
+                    Dim CodigoPostal As String = Row("Código Postal").ToString()
+                    Dim Poblacion As String = Row("Población").ToString()
+                    Dim Estado As String = Row("Estado").ToString().Trim
+                    Dim Pais As String = Row("Pais").ToString()
+                    Dim Telefono As String = Row("Teléfono").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
+                    Dim Contacto As String = Row("Contacto").ToString()
 
 
-                    Dim Vendedor As String = Row("Vendedor").ToString
-                    Dim Clasificacion As String = Row("ClasificacionCliente").ToString
-                    Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
+                    Dim Vendedor As String = Row("Vendedor").ToString()
+                    Dim Clasificacion As String = Row("ClasificacionCliente").ToString()
+                    Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
 
-                    Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
-                    Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
-                    Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString.ToUpper = "SI", True, False), False)
-                    Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString.ToUpper = "SI", True, False), False)
-                    Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString.ToUpper = "SI", True, False), False)
+                    Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
+                    Dim CveClasificación As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString().ToEntero()
+                    Dim EsDistribuidor As Boolean = If(dt.Columns.Contains("Es distribuidor"), If(Row("Es distribuidor").ToString().ToUpper = "SI", True, False), False)
+                    Dim CargoUsado As Boolean = If(dt.Columns.Contains("Cargo Usados"), If(Row("Cargo Usados").ToString().ToUpper = "SI", True, False), False)
+                    Dim BonificacionUsado As Boolean = If(dt.Columns.Contains("EmitirBon Usado"), If(Row("EmitirBon Usado").ToString().ToUpper = "SI", True, False), False)
 
-                    Dim LimiteCredito As Decimal = Row("Limite Credito").ToString.ToDecimal
-                    Dim CobranzaCorreo As String = Row("CorreoPagos").ToString
-                    Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString.ToEntero
+                    Dim LimiteCredito As Decimal = Row("Limite Credito").ToString().ToDecimal
+                    Dim CobranzaCorreo As String = Row("CorreoPagos").ToString()
+                    Dim PlazoCobranza As Integer = Row("Plazo Cobranza").ToString().ToEntero()
 
-                    Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString, "")
-                    Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString, "")
-                    Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString, "")
-                    Dim CobranzaTelefono As String = Row("Celular Contacto").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
-                    Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString)).ToEntero)
-                    Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
+                    Dim DìaVisita As String = If(dt.Columns.Contains("Dia Pago"), Row("Dia Pago").ToString(), "")
+                    Dim DiasPagoEspecifico As String = If(dt.Columns.Contains("Dìa Visita"), Row("Dìa Visita").ToString(), "")
+                    Dim CobranzaContacto As String = If(dt.Columns.Contains("Encargado Pagoa"), Row("Encargado Pago").ToString(), "")
+                    Dim CobranzaTelefono As String = Row("Celular Contacto").ToString().Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "")
+                    Dim CveUsoCFDI As Integer = If(Row("UsoCFDI").ToString() = "", -1, GlobalDTSATUsosCFDI().FiltroPrimeroValor("CveUsoCFDI", String.Format("UsoCFDI = '{0}'", Row("UsoCFDI").ToString())).ToEntero())
+                    Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
                     '  CobranzaContacto = Regex.Replace(CobranzaContacto, "[^0-9]", "")
 
                     'Telefono
@@ -1311,7 +1311,7 @@ Partial Class General_SaldosIniciales
                         CobranzaTelefono = ""
                     End If
 
-                    Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString, "")
+                    Dim FormaPago As String = If(dt.Columns.Contains("Forma Pago"), Row("Forma Pago").ToString(), "")
                     Dim CveFormaPago33 As Integer = 99
 
                     Select Case FormaPago
@@ -1389,7 +1389,7 @@ Partial Class General_SaldosIniciales
 
 
 
-                    'Dim RazonSocial As String = Row("RazonSocial").ToString
+                    'Dim RazonSocial As String = Row("RazonSocial").ToString()
 
                     'Contacto
 
@@ -1404,9 +1404,9 @@ Partial Class General_SaldosIniciales
                         '    Exit For
                         'End If
                     Else
-                        Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero
+                        Dim CveSATEstado As Integer = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero()
 
-                        If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString, "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
+                        If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), "", Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, "", "", "", "", "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
                                    "-1", "-1", -1, "-1", -1, "0", -1, "0", 0, "", 0, "", 0, "", 0, "", "", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
                                    BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago33:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0) Then
 
@@ -1472,38 +1472,38 @@ Partial Class General_SaldosIniciales
                 DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
                 Dim RFC As String = ""
                 Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
-                Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
-                Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
-                Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
+                Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
+                Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
+                Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
                 Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
 
 
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
-                    Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
-                    RFC = Row("RFC").ToString.Trim
-                    RFC = Row("RFC").ToString.Trim
-                    Dim Serie As String = Row("Serie").ToString
-                    Dim Folio As String = Row("Folio").ToString
-                    Dim Fecha As Date = Row("Fecha").ToString.ToDate
-                    Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
-                    Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
-                    Dim Total As Decimal = Row("Total").ToString.ToDecimal
-                    Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
-                    Dim TipoDocto As String = Row("Tipo Documento").ToString
-                    Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString.ToEntero
-                    GuardaLog(Sucursal + " - " + Row("Sucursal").ToString)
-                    Dim RetIVA As Decimal = Row("Ret IVA").ToString.ToDecimal
-                    Dim RetISR As Decimal = Row("Ret ISR").ToString.ToDecimal
-                    Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
-                    Dim Moneda As String = Row("Moneda").ToString
-                    Dim TipoCambio As String = Row("Tipo Cambio").ToString
-                    Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
+                    Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
+                    RFC = Row("RFC").ToString().Trim
+                    RFC = Row("RFC").ToString().Trim
+                    Dim Serie As String = Row("Serie").ToString()
+                    Dim Folio As String = Row("Folio").ToString()
+                    Dim Fecha As Date = Row("Fecha").ToString().ToDate
+                    Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
+                    Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+                    Dim Total As Decimal = Row("Total").ToString().ToDecimal
+                    Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+                    Dim TipoDocto As String = Row("Tipo Documento").ToString()
+                    Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
+                    GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
+                    Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+                    Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
+                    Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal
+                    Dim Moneda As String = Row("Moneda").ToString()
+                    Dim TipoCambio As String = Row("Tipo Cambio").ToString()
+                    Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
                     Dim CveMoneda As Integer = 1
-                    Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
-                    Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
-                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
-                    Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString.ToDecimal
-                    Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString.ToDecimal
+                    Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString().ToEntero()
+                    Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString()
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
+                    Dim RetIVAPorcentaje As Decimal = Row("RetIVAPorcentaje").ToString().ToDecimal
+                    Dim RetISRPorcentaje As Decimal = Row("RetISRPorcentaje").ToString().ToDecimal
 
 
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1511,14 +1511,14 @@ Partial Class General_SaldosIniciales
                     If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
                     If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
 
-                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString()
 
 
 
                     'Temporalmente SE BORRARA
-                    Dim Transaccion As String = "" 'Row("Transaccion2").ToString
-                    Dim Folio2 As String = "" 'Row("Folio2").ToString
-                    Dim CodProvee As String = "" 'Row("CodProvee2").ToString
+                    Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
+                    Dim Folio2 As String = "" 'Row("Folio2").ToString()
+                    Dim CodProvee As String = "" 'Row("CodProvee2").ToString()
 
                     'Moneda
                     If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
@@ -1542,7 +1542,7 @@ Partial Class General_SaldosIniciales
                     End If
 
                     'Compra
-                    If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero, SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
+                    If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
                                                 False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
                                                 NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total) Then
                         ErrorCompras = True
@@ -1551,7 +1551,7 @@ Partial Class General_SaldosIniciales
                     CveCompra = ObjCompras.CveCompra
 
                     'Compra Detalle
-                    If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero, -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
+                    If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
                         ErrorCompras = True
                         Exit For
                     End If
@@ -1559,20 +1559,20 @@ Partial Class General_SaldosIniciales
                     If TipoDocto = "NC" Then ConceptoContablePago = 60
 
                     'PrePólizaDetalle
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString.ToEntero, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio, IIf(TipoDocto = "Fac", 5, 18).ToString().ToEntero(), String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=Total, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, Folio, 6, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=SubTotal, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
 
                     If IVA > 0 Then
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
                     End If
 
 
 
-                    If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+                    If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
 
-                    If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
-                    If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
-                    If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, Folio, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=ImpuestosLocales, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
+                    If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+                    If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+                    If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, Folio, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=ImpuestosLocales, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
 
                     'Saldo
                     If Saldo < Total Then
@@ -1618,9 +1618,9 @@ Partial Class General_SaldosIniciales
                 Dim Encontrados As Integer = 0
                 Dim StrRFCNoencontrados As New StringBuilder
                 Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("AplicaParaVenta = 1")
-                Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
-                Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
-                Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
+                Dim CvePS As Integer = drr("CvePS").ToString().ToEntero()
+                Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString().ToEntero()
+                Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
 
 
                 If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorVentas = True
@@ -1630,49 +1630,49 @@ Partial Class General_SaldosIniciales
 
 
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
-                    Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
-                    Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
-                    Dim RFC As String = Row("RFC").ToString.Trim
-                    Dim Serie As String = Row("Serie").ToString
-                    Dim Folio As Integer = Row("Folio").ToString.ToEntero
-                    Dim Fecha As Date = Row("Fecha").ToString.ToDate
-                    Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString.ToDate
-                    Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString.ToDecimal, 0D)
-                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString.ToDouble, 0.0)
-                    Dim SubTotal As Decimal = Row("SubTotal").ToString.ToDecimal
-                    Dim IVA As Decimal = Row("IVA").ToString.ToDecimal
-                    Dim Total As Decimal = Row("Total").ToString.ToDecimal
-                    Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
-                    Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString.ToEntero
-                    Dim RetIVA As Decimal = Row("Ret IVA").ToString.ToDecimal
-                    Dim RetISR As Double = Row("Ret ISR").ToString.ToDouble
-                    Dim Moneda As String = Row("Moneda").ToString
-                    Dim TipoCambio As String = Row("Tipo Cambio").ToString
+                    Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
+                    Dim TipoDocto As String = Row("Tipo Documento").ToString().Trim
+                    Dim RFC As String = Row("RFC").ToString().Trim
+                    Dim Serie As String = Row("Serie").ToString()
+                    Dim Folio As Integer = Row("Folio").ToString().ToEntero()
+                    Dim Fecha As Date = Row("Fecha").ToString().ToDate
+                    Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
+                    Dim ImpuestoLocal As Decimal = If(dt.Columns.Contains("ImpuestoLocal"), Row("ImpuestoLocal").ToString().ToDecimal, 0D)
+                    Dim Amortizacion As Double = If(dt.Columns.Contains("Amort.Ant"), Row("Amort.Ant").ToString().ToDouble, 0.0)
+                    Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
+                    Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+                    Dim Total As Decimal = Row("Total").ToString().ToDecimal
+                    Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+                    Dim CveCliente As Integer = DtClientes.FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+                    Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+                    Dim RetISR As Double = Row("Ret ISR").ToString().ToDouble
+                    Dim Moneda As String = Row("Moneda").ToString()
+                    Dim TipoCambio As String = Row("Tipo Cambio").ToString()
                     Dim CveMoneda As Integer = 1
-                    Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString, "")
+                    Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "")
                     Dim CveVendedor As Integer = 0
-                    Dim IEPS As Decimal = 0 'Row("IEPS").ToString.ToDecimal
-                    Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString.ToEntero
-                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString, "")
-                    Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString.ToDecimal, 4), 0)
-                    Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString.ToDecimal, 4), 0)
+                    Dim IEPS As Decimal = 0 'Row("IEPS").ToString().ToDecimal
+                    Dim CveClienteSucursal As Integer = 0 'Row("CveClienteSucursal").ToString().ToEntero()
+                    Dim FolioFiscal As String = If(dt.Columns.Contains("Folio Fiscal"), Row("Folio Fiscal").ToString(), "")
+                    Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Round(Row("PorcentajeIVA").ToString().ToDecimal, 4), 0)
+                    Dim PorcentajeRetIVA As Decimal = If(dt.Columns.Contains("PorcentajeRetIVA"), Round(Row("PorcentajeRetIVA").ToString().ToDecimal, 4), 0)
 
-                    Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString, "")
+                    Dim PedidoContrato As String = If(dt.Columns.Contains("Pedido"), Row("Pedido").ToString(), "")
 
-                    GuardaLog(Sucursal + "-" + Row("Folio").ToString)
+                    GuardaLog(Sucursal + "-" + Row("Folio").ToString())
                     'Temporalmente SE BORRARA
-                    Dim Transaccion As String = "" ' Row("Transaccion2").ToString
-                    Dim Folio2 As String = "" ' Row("Folio2").ToString
-                    Dim CodCliente As String = "" 'Row("CodCliente2").ToString
+                    Dim Transaccion As String = "" ' Row("Transaccion2").ToString()
+                    Dim Folio2 As String = "" ' Row("Folio2").ToString()
+                    Dim CodCliente As String = "" 'Row("CodCliente2").ToString()
 
 
                     'If Not CveCliente > 0 Then Alert(String.Format("No se encontró el cliente con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorVentas = True : RFC.GuardaLog : Exit For
-                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESO", "INGRESOS", "ING"), "Ing", IIf(TipoDocto.ToUpper.Contiene("EGRESO", "EGRESOS", "EGS"), "Egs", "Rem")).ToString
+                    TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESO", "INGRESOS", "ING"), "Ing", IIf(TipoDocto.ToUpper.Contiene("EGRESO", "EGRESOS", "EGS"), "Egs", "Rem")).ToString()
                     'PrePóliza
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Venta/SaldoInicial", 1, Total, Total, 1, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     If Vendedor <> "" Then
-                        CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString.ToEntero
+                        CveVendedor = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
                         If Not CveVendedor > 0 Then CveVendedor = 0
                     Else
                         CveVendedor = 0
@@ -1702,17 +1702,17 @@ Partial Class General_SaldosIniciales
 
                         If TipoDocto.Contiene("Ing", "Egs", "Rem") Then
                             GuardaLog(Serie & "-" & Folio)
-                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero, CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
+                            If Not ObjVentas.AddVenta(TipoDocto, Folio, CveCliente.ToEntero(), CveClienteSucursal, SubTotal, 0, Amortizacion, IVA, RetIVA, RetISR, Total, CveMoneda, TipoCambio.ToDouble,
                                                0, 0, 0, FechaVencimiento, Fecha, "", "", Fecha, CveVendedor, Folio2, "", "", 0, 0, 0, "-1".ToDate, "-1".ToDate, "-1".ToDate, -1, 0, CvePrePoliza,
-                                              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero, CveSubProyectoEjecucion:=Sucursal.ToEntero,
-                                              CveSubProyectoCobranza:=Sucursal.ToEntero, IEPS:=IEPS,
+                                              UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Serie:=Serie, CveSubProyecto:=Sucursal.ToEntero(), CveSubProyectoEjecucion:=Sucursal.ToEntero(),
+                                              CveSubProyectoCobranza:=Sucursal.ToEntero(), IEPS:=IEPS,
                                               ObservacionesAlmacen:=Transaccion, Entrega:=CodCliente, ImpuestoLocal:=ImpuestoLocal, PedidoContrato:=PedidoContrato) Then
                                 ErrorVentas = True
                                 Exit For
                             End If
                             CveVenta = ObjVentas.CveVenta
 
-                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero, 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
+                            If Not ObjVentas.AddVentaDetalle(CveVenta, CvePS, 1, CveUnidadMedida, SubTotal, IVA, SubTotal * PorcentajeIVA, "Saldo Inicial", 0, 0, Sucursal.ToEntero(), 0, PorcentajeIVA:=PorcentajeIVA, PorcentajeRetIVA:=PorcentajeRetIVA, ImporteRetIVA:=RetIVA) Then
                                 ErrorVentas = True
                                 Exit For
                             End If
@@ -1735,39 +1735,39 @@ Partial Class General_SaldosIniciales
                             If UsuarioActual.CveEmpresa.Contiene(119, 158) Then UsaComplementaria = True
 
                             'PrePólizaDetalle
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString, 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SubTotal, Folio.ToString(), 4, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, ImporteMX:=SubTotal, CveSubProyecto:=Sucursal.ToEntero(), PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString(), ConceptoContable, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
 
                             If IVA > 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString, 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IVA, Folio.ToString(), 13, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
-                            'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString, 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
+                            'If IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, Folio.ToString(), 38, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=IEPS) Then ErrorVentas = True : Exit For
 
                             If RetIVA > 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio.ToString, 8, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=RetIVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio.ToString(), 8, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=RetIVA, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
                             If ImpuestoLocal > 0 Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImpuestoLocal, Folio.ToString, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImpuestoLocal, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImpuestoLocal, Folio.ToString(), 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=ImpuestoLocal, PorcentajeImpuesto:=PorcentajeIVA, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
 
 
                             If UsaComplementaria Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Folio.ToString, 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal - Total, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total * TipoCambio.ToDecimal - Total, Folio.ToString(), 203, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteME:=Total, ImporteMX:=Total * TipoCambio.ToDecimal - Total, TipoCambio:=TipoCambio.ToDecimal, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
 
                             'Saldo
                             If Saldo < Total Then
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString, ConceptoContablePago, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, CveVentaAmortizacion:=CveVenta, Contabilizable:=False) Then ErrorVentas = True : Exit For
-                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString, 95, Folio.ToString, Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Folio.ToString(), ConceptoContablePago, Folio.ToString(), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, CveVentaAmortizacion:=CveVenta, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Folio.ToString(), 95, Folio.ToString(), Fecha, -1, -1, CveVenta:=CveVenta, CveCliente:=CveCliente, ImporteMX:=Total - Saldo, Contabilizable:=False) Then ErrorVentas = True : Exit For
                             End If
 
                         Else
                             'ANTICIPOS
-                            Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString, "", Total, 1,
+                            Dim CveIE As Integer = ObjIE.AddBancos_IE(1, 1, Fecha, Folio.ToString(), "", Total, 1,
                                        1, "Anticipo Cliente", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString, 30, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString, 66, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total, Folio.ToString(), 30, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Folio.ToString(), 66, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False) Then ErrorVentas = True : Exit For
 
                         End If
                         Encontrados = Encontrados + 1
@@ -1815,13 +1815,13 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.Rows
 
-                    Dim Codigo As String = Row("Código").ToString
-                    Dim Descripcion As String = Row("Descripción").ToString
+                    Dim Codigo As String = Row("Código").ToString()
+                    Dim Descripcion As String = Row("Descripción").ToString()
 
-                    Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+                    Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
                     If CuentaContable.Length > 0 Then
-                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                        Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
                         If CveCuentaContable > 0 Then
                             Row("CveCuentaContable") = CveCuentaContable
@@ -1848,30 +1848,30 @@ Partial Class General_SaldosIniciales
                     Dim NumRow As Integer = 0
 
                     For Each Row As DataRow In dt.FiltraParametros("Descripción <> ''").Rows
-                        Dim Codigo As String = Row("Código").ToString
-                        Dim Descripcion As String = Row("Descripción").ToString
-                        Dim TipoAF As String = Row("Tipo").ToString.Trim
-                        Dim SubTipo As String = Row("SubTipo").ToString.Trim
-                        Dim Valor As Decimal = Row("Valor de compra").ToString.ToDecimal
-                        Dim FechaAF As Date = Row("Fecha de compra").ToString.ToDate
-                        Dim NumeroSerie As String = Row("No. Serie").ToString
-                        Dim Año As Integer = Row("Año").ToString.ToEntero
-                        Dim CuentaContable As String = Row("Cuenta Contable").ToString
-                        Dim Estado As String = Row("Estado").ToString
-                        Dim Proyecto As String = Row("Proyecto").ToString
-                        Dim SubProyecto As String = Row("SubProyecto").ToString
-                        Dim Cliente As String = Row("Cliente").ToString
-                        Dim Observaciones As String = Row("Observaciones").ToString
-                        Dim CtaDepreciacion As Integer = Row("Cuenta Depreciación").ToString.ToEntero
-                        Dim PorcentajeDepreciacion As Decimal = Row("% Depreciación").ToString.ToDecimal
+                        Dim Codigo As String = Row("Código").ToString()
+                        Dim Descripcion As String = Row("Descripción").ToString()
+                        Dim TipoAF As String = Row("Tipo").ToString().Trim
+                        Dim SubTipo As String = Row("SubTipo").ToString().Trim
+                        Dim Valor As Decimal = Row("Valor de compra").ToString().ToDecimal
+                        Dim FechaAF As Date = Row("Fecha de compra").ToString().ToDate
+                        Dim NumeroSerie As String = Row("No. Serie").ToString()
+                        Dim Año As Integer = Row("Año").ToString().ToEntero()
+                        Dim CuentaContable As String = Row("Cuenta Contable").ToString()
+                        Dim Estado As String = Row("Estado").ToString()
+                        Dim Proyecto As String = Row("Proyecto").ToString()
+                        Dim SubProyecto As String = Row("SubProyecto").ToString()
+                        Dim Cliente As String = Row("Cliente").ToString()
+                        Dim Observaciones As String = Row("Observaciones").ToString()
+                        Dim CtaDepreciacion As Integer = Row("Cuenta Depreciación").ToString().ToEntero()
+                        Dim PorcentajeDepreciacion As Decimal = Row("% Depreciación").ToString().ToDecimal
 
                         'CLAVES
-                        Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString.ToEntero
-                        Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString.ToEntero
-                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString.ToEntero
-                        Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString.ToEntero
-                        Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString.ToEntero
-                        Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
+                        Dim CveAF As Integer = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveActivoFijo", $"Codigo = '{Codigo}'").ToString().ToEntero()
+                        Dim CveSubTipoAF As Integer = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubTipoActivoFijo", $"TipoActivoFijo = '{TipoAF}'").ToString().ToEntero()
+                        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{SubProyecto}'").ToString().ToEntero()
+                        Dim CveEstadoActivoFijo As Integer = GlobalDTEstadoActivoFijo().FiltroPrimeroValor("CveEstadoActivoFijo", $"EstadoActivoFijo = '{Estado}'").ToString().ToEntero()
+                        Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"Nombre = '{Cliente}'").ToString().ToEntero()
+                        Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
 
 
                         'VALIDACIONES
@@ -1953,18 +1953,18 @@ Partial Class General_SaldosIniciales
                     Dim CuentaPadre As String = ""
 
                     For Each Row As DataRow In dt.Rows
-                        NombreCuenta = Row("NombreCuenta").ToString
-                        CuentaPadre = Row("CuentaPadre").ToString
-                        Dim Cuenta As String = Row("Cuenta").ToString
-                        Dim TipoCuenta As String = Row("TipoCuenta").ToString
-                        Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString
+                        NombreCuenta = Row("NombreCuenta").ToString()
+                        CuentaPadre = Row("CuentaPadre").ToString()
+                        Dim Cuenta As String = Row("Cuenta").ToString()
+                        Dim TipoCuenta As String = Row("TipoCuenta").ToString()
+                        Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString()
                         Dim CveCuentaPadre As Integer = -1
 
                         If NombreCuenta <> "" Then
 
                             If ObjConta.GetCuentas(-1, CuentaPadre.Replace("-", ""), -1) Then
                                 If ObjConta.DtResultados.Rows.Count > 0 Then
-                                    CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+                                    CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
                                 Else
                                     TieneError = True
                                     Exit For
@@ -1974,7 +1974,7 @@ Partial Class General_SaldosIniciales
                                 Exit For
                             End If
 
-                            Dim IdNew = ObjConta.AddCuenta(Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 0, 1, 0, "", 0, CveCuentaPadre, AgrupadorSAT.ToEntero)
+                            Dim IdNew = ObjConta.AddCuenta(Cuenta.Replace("-", ""), NombreCuenta, TipoCuenta, 1, 0, 1, 0, "", 0, CveCuentaPadre, AgrupadorSAT.ToEntero())
                             If IdNew > 0 Then
                                 ContadorUpdate = ContadorUpdate + 1
                             Else
@@ -2021,20 +2021,20 @@ Partial Class General_SaldosIniciales
 
 
                         For Each Row As DataRow In dt.Rows
-                            Dim Cuenta As String = Row("Cuenta").ToString.Trim.Replace("-", "")
+                            Dim Cuenta As String = Row("Cuenta").ToString().Trim.Replace("-", "")
                             If Cuenta <> "" Then
-                                NombreCuenta = Row("NombreCuenta").ToString.Trim
-                                CuentaPadre = Row("CuentaPadre").ToString.Trim.Replace("-", "")
+                                NombreCuenta = Row("NombreCuenta").ToString().Trim
+                                CuentaPadre = Row("CuentaPadre").ToString().Trim.Replace("-", "")
 
-                                Dim TipoCuenta As String = Row("TipoCuenta").ToString.Trim
-                                Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString.Trim
+                                Dim TipoCuenta As String = Row("TipoCuenta").ToString().Trim
+                                Dim AgrupadorSAT As String = Row("AgrupadorSAT").ToString().Trim
                                 Dim CveCuentaPadre As Integer = -1
-                                Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero)
+                                Dim CveAgrupadorSAT As Integer = If(AgrupadorSAT = "0", -1, AgrupadoresSAT.FiltroPrimeroValor("CveAgrupadorSAT", String.Format("CodigoNombre LIKE '%{0}%'", AgrupadorSAT)).ToEntero())
 
                                 If Not CuentaPadre = "" Then
                                     If ObjConta.GetCuentas(-1, CuentaPadre.Replace("-", ""), -1, UsuarioActual.CveEmpresa) Then
                                         If ObjConta.DtResultados.Rows.Count > 0 Then
-                                            CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+                                            CveCuentaPadre = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
                                         Else
                                             TieneError = True
                                             Exit For
@@ -2095,10 +2095,10 @@ Partial Class General_SaldosIniciales
 
 
                     For Each Row As DataRow In dt.Rows
-                        NombreCuenta = Row("NombreCuenta").ToString
-                        Cuenta = Row("Cuenta").ToString
-                        Dim TipoCuenta As String = Row("TipoCuenta").ToString
-                        Dim Importe As Double = Row("Importe").ToString.ToDouble
+                        NombreCuenta = Row("NombreCuenta").ToString()
+                        Cuenta = Row("Cuenta").ToString()
+                        Dim TipoCuenta As String = Row("TipoCuenta").ToString()
+                        Dim Importe As Double = Row("Importe").ToString().ToDouble
                         Dim IdCuenta As Integer = -1
                         Dim CargoAbono As Boolean = True
                         Dim YaExiste As Boolean = False
@@ -2106,7 +2106,7 @@ Partial Class General_SaldosIniciales
 
                         If ObjConta.GetCuentas(-1, Cuenta.Replace("-", ""), 1) Then
                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero
+                                IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Id").ToEntero()
                                 TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo")
                             Else
                                 Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
@@ -2142,7 +2142,7 @@ Partial Class General_SaldosIniciales
                         Alert($"Se agregó la póliza {IdPoliza}")
 
                     Else
-                        Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
+                        Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError)
                         ObjConta.RollBack()
                     End If
 
@@ -2169,14 +2169,14 @@ Partial Class General_SaldosIniciales
                     CvePrePoliza = ObjConta.AddPrePolizas("SI", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Saldos Iniciales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                     For Each Row As DataRow In dt.FiltraParametros("Cuenta <> '' ").Rows
-                        NombreCuenta = Row("NombreCuenta").ToString
-                        Cuenta = Row("Cuenta").ToString
+                        NombreCuenta = Row("NombreCuenta").ToString()
+                        Cuenta = Row("Cuenta").ToString()
 
-                        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 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 IdCuenta As Integer = -1
                         Dim CveSubProyecto As Integer = -1
-                        Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
+                        Dim TipoMovto As Boolean = If(Row("Cargo").ToString().ToDecimal <> 0, False, True)
                         Dim YaExiste As Boolean = False
                         Dim DataTemp As DataTable
                         Dim Afectable As Boolean = False
@@ -2185,7 +2185,7 @@ Partial Class General_SaldosIniciales
                         Cuenta = Cuenta.Replace(" ", "")
                         If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, -1, UsuarioActual.CveEmpresa) Then
                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero
+                                IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero()
                                 Afectable = ObjConta.DtResultados().FiltroPrimeroValor("Afectable") = "True"
                             Else
                                 Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe} </br>")
@@ -2197,10 +2197,10 @@ Partial Class General_SaldosIniciales
                             Exit For
                         End If
 
-                        Dim SubP As String = Row("SubProyecto").ToString.Trim
+                        Dim SubP As String = Row("SubProyecto").ToString().Trim
                         If SubP <> "" AndAlso SubP <> "-" Then
                             DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
-                            CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
+                            CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero()
                             If CveSubProyecto <= 0 Then
                                 Reporte.AppendLine($"'{SubP}' - no se encontró en los subproyectos </br>")
                                 TieneError = True
@@ -2236,7 +2236,7 @@ Partial Class General_SaldosIniciales
                         Alert($"Se agregó la póliza {ObjConta.ContaFolio}")
 
                     Else
-                        Alert($"No encontraron las siguientes cuentas: {Reporte.ToString} ", TipoMensaje.MsgError)
+                        Alert($"No encontraron las siguientes cuentas: {Reporte.ToString()} ", TipoMensaje.MsgError)
                         ObjConta.RollBack()
                     End If
 
@@ -2259,11 +2259,11 @@ Partial Class General_SaldosIniciales
                 Dim Fecha As DateTime = (TxtFecha.Text).ToDate
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows
-                        Dim almacenActual As String = almacenSinRepetir("Almacen").ToString.Trim
-                        Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
+                        Dim almacenActual As String = almacenSinRepetir("Almacen").ToString().Trim
+                        Dim CveAlmacen As Integer = AlmacenRef.FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero()
 
                         If CveAlmacen > 0 Then
-                            Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                            Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, DdlConceptoAlmacen.SelectedValue.ToEntero(), 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
                             listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
                             If movimientoCabecera > 0 Then
 
@@ -2271,12 +2271,12 @@ Partial Class General_SaldosIniciales
                                     contadorMovimientos += 1
                                     Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}")
                                     If RowPS IsNot Nothing Then
-                                        Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero
-                                        Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero
+                                        Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
+                                        Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
                                         If CveUM > 0 Then
-                                            Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal
-                                            Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal
-                                            Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString.Trim, "")
+                                            Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString().ToDecimal
+                                            Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal
+                                            Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "")
 
                                             If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1, Serie:=Serie) Then
                                                 mensajeError = "No se logró generar el detalle del movimiento"
@@ -2368,23 +2368,23 @@ Partial Class General_SaldosIniciales
         For Each dRow As DataRow In dt.Rows
 
 
-            Dim Clasificacion As String = dRow("Clasificacion").ToString.Trim
-            Dim Categoria As String = dRow("Categoria").ToString.Trim
-            Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString.Trim.ToUpper
-            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString.Trim.Replace("-", "")
-            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString.Trim.Replace("-", "")
+            Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim
+            Dim Categoria As String = dRow("Categoria").ToString().Trim
+            Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper
+            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "")
+            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "")
 
             Dim CveClasificacion As Integer = -1
             Dim CveUsoClasificacion As Integer = -1
             Dim CveCategoria As Integer = -1
 
 
-            CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero
+            CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero()
 
 
 
             If Not CveCategoria > 0 Then
-                CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero
+                CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero()
                 If Not CveCategoria > 0 Then
                     Alert($"Clasificación {Clasificacion} la categoria {Categoria} no es valida.", TipoMensaje.MsgAdvertencia)
                     ErrorProceso = True
@@ -2408,8 +2408,8 @@ Partial Class General_SaldosIniciales
                 Exit For
             End If
 
-            Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero
-            Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero
+            Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
+            Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
 
             If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
                 Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia)
@@ -2422,7 +2422,7 @@ Partial Class General_SaldosIniciales
             End If
 
 
-            Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero
+            Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero()
 
             If CveClasificaionTemp > 0 Then
                 CveClasificacion = CveClasificaionTemp
@@ -2496,17 +2496,17 @@ Partial Class General_SaldosIniciales
         Dim Contador As Integer = 0
         For Each dRow As DataRow In DTBancos.Rows
 
-            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
-            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
-            Dim Descripcion As String = dRow("Descripcion").ToString
-            Dim Banco As String = dRow("Banco").ToString
-            Dim NumCuenta As String = dRow("CuentaBancaria").ToString.Trim
+            Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
+            Dim Descripcion As String = dRow("Descripcion").ToString()
+            Dim Banco As String = dRow("Banco").ToString()
+            Dim NumCuenta As String = dRow("CuentaBancaria").ToString().Trim
             Dim ImporteMX As Decimal = 0
             Dim ImporteME As Decimal = 0
 
-            Dim Moneda As String = dRow("Moneda").ToString
+            Dim Moneda As String = dRow("Moneda").ToString()
             Dim CveMoneda As Integer
-            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
 
             If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
                 CveMoneda = 1
@@ -2537,11 +2537,11 @@ Partial Class General_SaldosIniciales
 
 
             Dim CveTipoTransaccion As Integer = 3 ' tipo transaccion, cheque recibido
-            Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveCuenta", $" NumCuenta = '{NumCuenta}'").ToEntero
+            Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveCuenta", $" NumCuenta = '{NumCuenta}'").ToEntero()
             If Not CveCuentaBancaria > 0 Then
 
                 ' se registrará primero
-                Dim CveBanco As Integer = GlobalDTBancos().FiltroPrimeroValor("CveBanco", String.Format("CveEmpresa = {0} AND Banco = '{1}'", UsuarioActual.CveEmpresa, Banco)).ToEntero
+                Dim CveBanco As Integer = GlobalDTBancos().FiltroPrimeroValor("CveBanco", String.Format("CveEmpresa = {0} AND Banco = '{1}'", UsuarioActual.CveEmpresa, Banco)).ToEntero()
 
                 If CveBanco > 0 Then
                     Dim CveTipoCuenta As Integer = 2 'tipo de cheques
@@ -2564,11 +2564,11 @@ Partial Class General_SaldosIniciales
             FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, CveTipoTransaccion))
 
             Dim CveCuentaContable As Integer = 0
-            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+            Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
             If CuentaContable.Length > 0 Then
 
-                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
                 If CveCuentaContable > 0 Then
                     dRow("CveCuentaContable") = CveCuentaContable
@@ -2597,11 +2597,11 @@ Partial Class General_SaldosIniciales
                     ErrorProceso = True : Exit For
                 End If
 
-                Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+                Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, CveTipoTransaccion, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
                                            TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 95, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 95, FolioStr, Fecha, -1, -1, CveIE:=CveIE, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
 
             End If
 
@@ -2622,7 +2622,7 @@ Partial Class General_SaldosIniciales
     Private Sub ProcesaAnticipoProveedor(DtAnticipoProveedor As DataTable, DTCuentasContables As DataTable)
 
         Dim ErrorProceso As Boolean = False
-        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
 
         If Not CveCuentaBancaria > 0 Then
             Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -2641,15 +2641,15 @@ Partial Class General_SaldosIniciales
         For Each dRow As DataRow In DtAnticipoProveedor.Rows
 
 
-            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
-            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+            Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
             Dim ImporteMX As Decimal = 0
             Dim ImporteME As Decimal = 0
-            Dim Descripcion As String = dRow("Descripcion").ToString
-            Dim RFC As String = dRow("RFC").ToString
-            Dim Moneda As String = dRow("Moneda").ToString
+            Dim Descripcion As String = dRow("Descripcion").ToString()
+            Dim RFC As String = dRow("RFC").ToString()
+            Dim Moneda As String = dRow("Moneda").ToString()
             Dim CveMoneda As Integer
-            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
 
 
 
@@ -2685,7 +2685,7 @@ Partial Class General_SaldosIniciales
 
             Dim FolioStr As String = ""
             FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 1) + Contador)
-            Dim CveProveedor As Integer = GlobalDTCompProveedores(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $" RFC = '{RFC}' ").ToEntero
+            Dim CveProveedor As Integer = GlobalDTCompProveedores(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveProveedor", $" RFC = '{RFC}' ").ToEntero()
 
 
             If Not CveProveedor > 0 Then
@@ -2695,10 +2695,10 @@ Partial Class General_SaldosIniciales
             End If
 
             Dim CveCuentaContable As Integer = 0
-            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+            Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
             If CuentaContable.Length > 0 Then
-                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
 
                 If CveCuentaContable > 0 Then
@@ -2730,11 +2730,11 @@ Partial Class General_SaldosIniciales
             End If
 
 
-            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 1, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 1, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
                                        TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 10, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 10, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveProveedor:=CveProveedor, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
 
             Contador = Contador + 1
         Next
@@ -2754,7 +2754,7 @@ Partial Class General_SaldosIniciales
     Private Sub ProcesaAnticipoCliente(DTAnticipoCliente As DataTable, DTCuentasContables As DataTable)
 
         Dim ErrorProceso As Boolean = False
-        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
 
         If Not CveCuentaBancaria > 0 Then
             Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -2773,15 +2773,15 @@ Partial Class General_SaldosIniciales
         For Each dRow As DataRow In DTAnticipoCliente.Rows
 
 
-            Dim Fecha As Date = dRow("Fecha").ToString.ToDate
-            Dim Importe As Decimal = dRow("Importe").ToString.ToDecimal
+            Dim Fecha As Date = dRow("Fecha").ToString().ToDate
+            Dim Importe As Decimal = dRow("Importe").ToString().ToDecimal
             Dim ImporteMX As Decimal = 0
             Dim ImporteME As Decimal = 0
-            Dim Descripcion As String = dRow("Descripcion").ToString
-            Dim RFC As String = dRow("RFC").ToString
-            Dim Moneda As String = dRow("Moneda").ToString
+            Dim Descripcion As String = dRow("Descripcion").ToString()
+            Dim RFC As String = dRow("RFC").ToString()
+            Dim Moneda As String = dRow("Moneda").ToString()
             Dim CveMoneda As Integer
-            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString.ToDecimal
+            Dim TipoCambio As Decimal = dRow("TipoCambio").ToString().ToDecimal
 
             If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
                 CveMoneda = 1
@@ -2814,7 +2814,7 @@ Partial Class General_SaldosIniciales
 
             Dim FolioStr As String = ""
             FolioStr = CStr(ObjBancos.GetNextFolio(CveCuentaBancaria, 3) + Contador)
-            Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCliente", $" RFC = '{RFC}' ").ToEntero
+            Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCliente", $" RFC = '{RFC}' ").ToEntero()
 
 
             If Not CveCliente > 0 Then
@@ -2824,12 +2824,12 @@ Partial Class General_SaldosIniciales
             End If
 
 
-            'Dim RazonSocial As String = Row("RazonSocial").ToString
+            'Dim RazonSocial As String = Row("RazonSocial").ToString()
             Dim CveCuentaContable As Integer = 0
-            Dim CuentaContable As String = dRow("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+            Dim CuentaContable As String = dRow("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
             If CuentaContable.Length > 0 Then
-                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                CveCuentaContable = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
 
                 If CveCuentaContable > 0 Then
@@ -2861,11 +2861,11 @@ Partial Class General_SaldosIniciales
             End If
 
 
-            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Importe, CveMoneda,
+            Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString(), "", Importe, CveMoneda,
                                        TipoCambio, Descripcion, "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString, 66, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, FolioStr.ToString(), 66, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CveCliente:=CveCliente, Contabilizable:=False, ImporteMX:=ImporteMX, ImporteME:=ImporteME, TipoCambio:=TipoCambio) Then ErrorProceso = True : Exit For
 
             Contador = Contador + 1
         Next
@@ -3181,15 +3181,15 @@ Partial Class General_SaldosIniciales
 
         For Each Row As DataRow In dt.Rows
 
-            Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString
-            Dim ApellidoMaterno As String = Row("Apellido Materno").ToString
-            Dim Nombre As String = Row("Nombre").ToString
+            Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString()
+            Dim ApellidoMaterno As String = Row("Apellido Materno").ToString()
+            Dim Nombre As String = Row("Nombre").ToString()
 
 
-            Dim CuentaContable As String = Row("CuentaContable").ToString.Trim.Replace("-", "").Replace(" ", "")
+            Dim CuentaContable As String = Row("CuentaContable").ToString().Trim.Replace("-", "").Replace(" ", "")
 
             If CuentaContable.Length > 0 Then
-                Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero
+                Dim CveCuentaContable As Integer = DTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContable}'").ToEntero()
 
                 If CveCuentaContable > 0 Then
                     Row("CveCuentaContable") = CveCuentaContable
@@ -3216,7 +3216,10 @@ Partial Class General_SaldosIniciales
         Dim dTDepartamentos As New DataTable
         Dim dTTurno As New DataTable
         Dim ObjRH As New ClsRH
-
+        Dim dtTipoTrabajador As New DataTable
+        If (ObjRH.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then
+            dtTipoTrabajador = ObjRH.DtResultados
+        End If
         Dim dtpuestos = GlobalDTRHPuestos(UsuarioActual.CveEmpresa)
         dtpuestos.CaseSensitive = False
         If ObjRH.GetRegistrosPatronales(-1, UsuarioActual.CveEmpresa, -1) Then
@@ -3239,45 +3242,46 @@ Partial Class General_SaldosIniciales
             For Each Row As DataRow In dt.Rows
                 Dim myarraystr As String()
                 Dim RegistroPatronal As String = Row("Registro Patronal").ToString().ToUpper()
-                Dim Codigo As String = Row("Código").ToString
-                Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString
-                Dim ApellidoMaterno As String = Row("Apellido Materno").ToString
-                Dim Nombre As String = Row("Nombre").ToString
-                Dim CorreoElectronico As String = Row("Correo Electronico").ToString
-                Dim FechaIngreso As String = Row("Fecha Ingreso").ToString
-                Dim FechaBaja As String = Row("Fecha Baja").ToString
-                Dim NumeroSS As String = Row("Numero SS").ToString
-                Dim AltaIMSS As String = Row("Alta IMSS").ToString
-                Dim SalarioDiario As String = Row("Salario Diario").ToString
-                Dim Direccion As String = Row("Dirección").ToString
-                Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString
-                Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString
-                Dim Sexo As String = Row("Sexo").ToString
-                Dim CodigoPostal As String = Row("Código Postal").ToString
-                Dim Ciudad As String = Row("Ciudad").ToString
-                Dim EstadoCivil As String = Row("Estado Civil").ToString.ToUpper
-                Dim Telefono As String = Row("Teléfono").ToString
-                Dim Celular As String = Row("Celular").ToString
-                Dim RFC As String = Row("RFC").ToString
-                Dim CURP As String = Row("CURP").ToString
-                Dim ClabeInterbancaria As String = Row("CLABE").ToString
-                Dim EstatusPersonal As String = Row("Estatus Personal").ToString.ToUpper
-                Dim SubProyecto As String = Row("SubProyecto").ToString.ToUpper
+                Dim Codigo As String = Row("Código").ToString()
+                Dim ApellidoPaterno As String = Row("Apellido Paterno").ToString()
+                Dim ApellidoMaterno As String = Row("Apellido Materno").ToString()
+                Dim Nombre As String = Row("Nombre").ToString()
+                Dim CorreoElectronico As String = Row("Correo Electronico").ToString()
+                Dim FechaIngreso As String = Row("Fecha Ingreso").ToString()
+                Dim FechaBaja As String = Row("Fecha Baja").ToString()
+                Dim NumeroSS As String = Row("Numero SS").ToString()
+                Dim AltaIMSS As String = Row("Alta IMSS").ToString()
+                Dim SalarioDiario As String = Row("Salario Diario").ToString()
+                Dim Direccion As String = Row("Dirección").ToString()
+                Dim FechaNacimiento As String = Row("Fecha Nacimiento").ToString()
+                Dim LugarNacimiento As String = Row("Lugar Nacimiento").ToString()
+                Dim Sexo As String = Row("Sexo").ToString()
+                Dim CodigoPostal As String = Row("Código Postal").ToString()
+                Dim Ciudad As String = Row("Ciudad").ToString()
+                Dim EstadoCivil As String = Row("Estado Civil").ToString().ToUpper
+                Dim Telefono As String = Row("Teléfono").ToString()
+                Dim Celular As String = Row("Celular").ToString()
+                Dim RFC As String = Row("RFC").ToString()
+                Dim CURP As String = Row("CURP").ToString()
+                Dim ClabeInterbancaria As String = Row("CLABE").ToString()
+                Dim EstatusPersonal As String = Row("Estatus Personal").ToString().ToUpper
+                Dim SubProyecto As String = Row("SubProyecto").ToString().ToUpper
                 'Nuevas
-                Dim Estado As String = Row("Estado").ToString
-                Dim NombrePadre As String = Row("Nombre Padre").ToString
-                Dim NombreMadre As String = Row("Nombre Madre").ToString
-                Dim Puesto As String = Row("Puesto").ToString
-                Dim Turno As String = Row("Turno").ToString
-                Dim TipoContrato As String = Row("Tipo Contrato").ToString
-                Dim Departamento As String = Row("Departamento").ToString
-                Dim TipoPeriodo As String = Row("Tipo Periodo").ToString
-                Dim Escolaridad As String = Row("Escolaridad").ToString
-                Dim SDI As String = Row("SDI").ToString
-                Dim MetodoPago As String = Row("Metodo Pago").ToString
-                Dim Nominista As String = Row("Nominista").ToString
-                Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString.ToEntero
-                Dim Saldo As Decimal = Row("Saldo").ToString.ToDecimal
+                Dim Estado As String = Row("Estado").ToString()
+                Dim NombrePadre As String = Row("Nombre Padre").ToString()
+                Dim NombreMadre As String = Row("Nombre Madre").ToString()
+                Dim Puesto As String = Row("Puesto").ToString()
+                Dim Turno As String = Row("Turno").ToString()
+                Dim TipoContrato As String = Row("Tipo Contrato").ToString()
+                Dim Departamento As String = Row("Departamento").ToString()
+                Dim TipoPeriodo As String = Row("Tipo Periodo").ToString()
+                Dim Escolaridad As String = Row("Escolaridad").ToString()
+                Dim SDI As String = Row("SDI").ToString()
+                Dim MetodoPago As String = Row("Metodo Pago").ToString()
+                Dim Nominista As String = Row("Nominista").ToString()
+                Dim CveCuentaContable As Integer = Row("CveCuentaContable").ToString().ToEntero()
+                Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+                Dim TipoTrabajador As String = Row("Tipo Trabajador").ToString()
 
                 Dim NombreCompleto As String = $"{Nombre} {ApellidoPaterno} {ApellidoMaterno}"
 
@@ -3289,7 +3293,7 @@ Partial Class General_SaldosIniciales
                 Dim CveGenero As Integer = 0
                 Dim CveEstadoCivil As Integer = 0
                 Dim CveEstatusPersonal As Integer = 0
-                ' Dim CveSucursal As Integer = GlobalDTSucursales(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSucursal").ToString.ToEntero
+                ' Dim CveSucursal As Integer = GlobalDTSucursales(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSucursal").ToString().ToEntero()
                 Dim CveRegistroPatronal As Integer
                 Dim CvePuesto As Integer
                 Dim CveTurno As Integer
@@ -3301,17 +3305,22 @@ Partial Class General_SaldosIniciales
                 Dim CveMetodoPago As Integer
                 Dim CveUsuarioNomina As Integer
                 Dim CveSubProyecto As Integer
+                Dim CveTipoTrabajador As Integer
 
                 myarraystr = Puesto.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CvePuesto = myarraystr(0).ToEntero()
-                    CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(CvePuesto) = ({CvePuesto})").ToString.ToEntero
+                    CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(CvePuesto) = ({CvePuesto})").ToString().ToEntero()
                 Else
-                    CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString.ToEntero
+                    CvePuesto = dtpuestos.FiltroPrimeroValor("CvePuesto", $"(Puesto) = ('{Puesto}')").ToString().ToEntero()
 
                 End If
 
-                CveRegistroPatronal = dtregistrospatronales.FiltroPrimeroValor("CveRegistroPatronal", $"(RegistroPatronal) = ('{RegistroPatronal}')").ToString.ToEntero
+                CveTipoTrabajador = dtTipoTrabajador.FiltroPrimeroValor("CveTipoTrabajador", $"(TipoTrabajador) = ('{TipoTrabajador}')").ToString().ToEntero()
+                If CveTipoTrabajador = 0 Then
+                    CveTipoTrabajador = -1
+                End If
+                CveRegistroPatronal = dtregistrospatronales.FiltroPrimeroValor("CveRegistroPatronal", $"(RegistroPatronal) = ('{RegistroPatronal}')").ToString().ToEntero()
                 If CvePuesto = 0 Then
                     CvePuesto = -1
                 End If
@@ -3319,9 +3328,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = Turno.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveTurno = myarraystr(0).ToEntero()
-                    CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"CveTurno = {CveTurno}").ToString.ToEntero
+                    CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"CveTurno = {CveTurno}").ToString().ToEntero()
                 Else
-                    CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString.ToEntero
+                    CveTurno = dTTurno.FiltroPrimeroValor("CveTurno", $"Turno = '{Turno}'").ToString().ToEntero()
                 End If
                 If CveTurno = 0 Then
                     CveTurno = -1
@@ -3346,10 +3355,10 @@ Partial Class General_SaldosIniciales
                 myarraystr = Departamento.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveDepartamento = myarraystr(0).ToEntero()
-                    CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"CveDepartamento = {CveDepartamento}").ToString.ToEntero
+                    CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"CveDepartamento = {CveDepartamento}").ToString().ToEntero()
                 Else
 
-                    CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString.ToEntero
+                    CveDepartamento = dTDepartamentos.FiltroPrimeroValor("CveDepartamento", $"Departamento = '{Departamento}'").ToString().ToEntero()
                 End If
                 If CveDepartamento <= 0 Then
                     CveDepartamento = -1
@@ -3358,9 +3367,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = Estado.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveEstado = myarraystr(0).ToEntero()
-                    CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"CveEstado = {CveEstado}").ToString.ToEntero
+                    CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"CveEstado = {CveEstado}").ToString().ToEntero()
                 Else
-                    CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado}'").ToString.ToEntero
+                    CveEstado = GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado}'").ToString().ToEntero()
                 End If
                 If CveEstado = 0 Then
                     CveEstado = -1
@@ -3369,9 +3378,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = TipoContrato.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveTipoContrato = myarraystr(0).ToEntero()
-                    CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"CveTipoContrato = {CveTipoContrato}").ToString.ToEntero
+                    CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"CveTipoContrato = {CveTipoContrato}").ToString().ToEntero()
                 Else
-                    CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString.ToEntero
+                    CveTipoContrato = GlobalDTTiposContrato().FiltroPrimeroValor("CveTipoContrato", $"TipoContrato = '{TipoContrato}'").ToString().ToEntero()
                 End If
                 If CveTipoContrato = 0 Then
                     CveTipoContrato = -1
@@ -3389,9 +3398,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = TipoPeriodo.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveTipoPeriodo = myarraystr(0).ToEntero()
-                    CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"CveTipoPeriodo = {CveTipoPeriodo}").ToString.ToEntero
+                    CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"CveTipoPeriodo = {CveTipoPeriodo}").ToString().ToEntero()
                 Else
-                    CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"TipoPeriodo = '{TipoPeriodo}'").ToString.ToEntero
+                    CveTipoPeriodo = GlobalDTTipoPeriodo().FiltroPrimeroValor("CveTipoPeriodo", $"TipoPeriodo = '{TipoPeriodo}'").ToString().ToEntero()
                 End If
                 If CveTipoPeriodo = 0 Then
                     CveTipoPeriodo = -1
@@ -3400,9 +3409,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = Escolaridad.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveEscolaridad = myarraystr(0).ToEntero()
-                    CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"CveEscolaridad = {CveEscolaridad}").ToString.ToEntero
+                    CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"CveEscolaridad = {CveEscolaridad}").ToString().ToEntero()
                 Else
-                    CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"Escolaridad = '{Escolaridad}'").ToString.ToEntero
+                    CveEscolaridad = GlobalDTEscolaridad().FiltroPrimeroValor("CveEscolaridad", $"Escolaridad = '{Escolaridad}'").ToString().ToEntero()
                 End If
                 'If CveEscolaridad = 0 Then
                 '    CveEscolaridad = -1
@@ -3416,9 +3425,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = MetodoPago.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveMetodoPago = myarraystr(0).ToEntero()
-                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString.ToEntero
+                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"CveMetodoPago = {CveMetodoPago}").ToString().ToEntero()
                 Else
-                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString.ToEntero
+                    CveMetodoPago = GlobalDTMetodosPago().FiltroPrimeroValor("CveMetodoPago", $"ClaveSAT = '{MetodoPago}'").ToString().ToEntero()
                 End If
                 If CveMetodoPago = 0 Then
                     CveMetodoPago = -1
@@ -3427,9 +3436,9 @@ Partial Class General_SaldosIniciales
                 myarraystr = Nominista.Split(":"c)
                 If (myarraystr.Length > 1) Then
                     CveUsuarioNomina = myarraystr(0).ToEntero()
-                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString.ToEntero
+                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"CveUsuario = {CveUsuarioNomina}").ToString().ToEntero()
                 Else
-                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString.ToEntero
+                    CveUsuarioNomina = GlobalDTUsuarios(-1, -1).FiltroPrimeroValor("CveUsuario", $"Nombre = '{Nominista}'").ToString().ToEntero()
                 End If
                 If CveUsuarioNomina = 0 Then
                     CveUsuarioNomina = -1
@@ -3462,10 +3471,10 @@ Partial Class General_SaldosIniciales
 
 
 
-                Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString.ToEntero()
+                Dim CvePersonal As Integer = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"NombreCompletoNombre = '{NombreCompleto}'").ToString().ToEntero()
 
                 If Not (CvePersonal > 0) Then
-                    CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString.ToEntero()
+                    CvePersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePersonal", $"CURP = '{CURP}'").ToString().ToEntero()
 
                 End If
 
@@ -3523,9 +3532,9 @@ Partial Class General_SaldosIniciales
                         SDI = SalarioDiario
                     End If
                     If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
-                                  -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
+                                  -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString(), CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
                                  LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, "", Celular, RFC, CURP, "", NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, CveSubProyecto, "", -1,
-                                 ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal) Then
+                                 ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina, CveRegistroPatronal:=CveRegistroPatronal, CveTipoTrabajador:=CveTipoTrabajador) Then
                         If (ObjRH.noguardoXcurpb) Then
                         Else
                             ErrorRH = True
@@ -3556,7 +3565,7 @@ Partial Class General_SaldosIniciales
                             Exit For
                         End If
 
-                        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero
+                        Dim CveCuentaBancaria As Integer = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1).FiltroPrimeroValor("CveCuenta", "").ToEntero()
 
                         If Not CveCuentaBancaria > 0 Then
                             Alert("No se detecto una cuenta Bancaria", TipoMensaje.MsgAdvertencia)
@@ -3581,11 +3590,11 @@ Partial Class General_SaldosIniciales
                             Exit For
                         End If
 
-                        Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString, "", Saldo, 1,
+                        Dim CveIE As Integer = ObjBancos.AddBancos_IE(CveCuentaBancaria, 3, Fecha, FolioStr.ToString(), "", Saldo, 1,
                                                        1, "Saldo Inicial", "", False, False, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, FolioStr.ToString, 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, FolioStr.ToString, 28, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, FolioStr.ToString(), 30, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, FolioStr.ToString(), 28, FolioStr, Fecha, -1, -1, CveIE:=CveIE, CvePersonal:=CvePersonal, Contabilizable:=False, ImporteMX:=Saldo) Then ErrorRH = True : Exit For
 
 
                     End If
@@ -3912,7 +3921,8 @@ Partial Class General_SaldosIniciales
         libro.Cell(crow, ccol).Value = "Registro Patronal" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "CuentaContable" : ccol = ccol + 1
         libro.Cell(crow, ccol).Value = "Saldo" : ccol = ccol + 1
-
+        libro.Cell(crow, ccol).Value = "Tipo Trabajador" : ccol = ccol + 1
+        '
 
         libro.Range(crow, 1, crow, ccol - 1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189))
         libro.Range(crow, 1, crow, ccol - 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White
diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx
index 50bb92df8..e5f0cdf13 100644
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -401,6 +401,12 @@
                                 <asp:ListItem Text="Todos" Value="3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <label class="col-md-1 compoonenlabel" style="line-height: 1; max-width: 85px;">Tipo Trabajador:</label>
+                        <div class="col-md-1">
+                            <asp:DropDownList Width="100%" ID="DdlTipoTrabajador" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true"
+                                              DataTextField="TipoTrabajadorB" DataValueField="CveTipoTrabajador" ValidationGroup="GrpGuardar">
+                            </asp:DropDownList>
+                        </div>
                         <div class="col-md-2" style="max-width: 160px !important; white-space: nowrap;">
                             <label class="compoonenlabel">Ver obligaciones:</label>
                             <asp:CheckBox ID="Chkobligaciones" Text=" " CssClass="chksino" runat="server" />
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs
index 69b5b8280..d568ab061 100644
--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -134,6 +134,17 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         set { ViewState["PermisoEmitir"] = value; }
     }
+    
+    protected int CveTipoTrabajador
+    {
+        get
+        {
+            if (ViewState["CveTipoTrabajador"] == null) { return 0; }
+            else { return ViewState["CveTipoTrabajador"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["CveTipoTrabajador"] = value; }
+    }
     protected int CvePeriodoSeleccionado
     {
         get
@@ -236,9 +247,25 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
-            if(UsuarioActual.CveUsuario == 100) {
-                Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
+            using (ClsRH objrh = new ClsRH())
+            {
+                if(objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa))
+                {
+                    DataTable dt = objrh.DtResultados;
+                    DataRow drow = dt.NewRow();
+                    drow["CveTipoTrabajador"] = "-1";
+                    drow["TipoTrabajadorB"] = "Todos";
+                    dt.Rows.InsertAt(drow, 0);
+                    dt.AcceptChanges();
+                    DdlTipoTrabajador.DataSource = dt;
+                    DdlTipoTrabajador.DataBind();
+                    DdlTipoTrabajador.SelectedValueExist( "-1");
+                }
             }
+                if (UsuarioActual.CveUsuario == 100)
+                {
+                    Alert("recuerda que solo la empresa (119) tiene activado el timbrado 4.0", TipoMensaje.ToastAdventencia);
+                }
             //CreaObjetoEmpresa(UsuarioActual);
             DataTable dtperinc = null;
             using (ClsNominas objnom = new ClsNominas())
@@ -461,6 +488,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
         FiltCvePeriodo = DdlPeriodo.SelectedValue.ToEntero();
         FiltAgrupador = 1;
+        CveTipoTrabajador = DdlTipoTrabajador.SelectedValue.ToEntero();
         HypPDFSTimbrados.Attributes.Add("onclick", string.Format("GETPDF({0},{1})", -1, FiltCvePeriodo));
         cargaDatos();
         LtlPeriodoseleccionado.Text = string.Format("{0} ({1} Empleados)", DdlPeriodo.SelectedItem.Text, dtempleados.COUNT("CvePersonal", " CvePersonal >0 "));
@@ -519,7 +547,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                 LnkFormatoTabular.Visible = true;
                 HypPDFSTimbrados.Visible = true;
-                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
+                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador) && objnom.DTSetResultados.Tables.Count > 4)
                 {
                     dtempleados = objnom.DTSetResultados.Tables[3];
                     dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
@@ -6395,7 +6423,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             ObjPersonal.IniciaTransacSQL();
             bool OcurrioError = false;
 
-            if (!ObjPersonal.AddAsistenciaMasiva2(DdlPeriodoCM.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))
+            if (!ObjPersonal.AddAsistenciaMasiva2(DdlPeriodoCM.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,-1))
                 OcurrioError = true;
 
             if (OcurrioError)
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index f9192e73b..69820e6b4 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -1094,30 +1094,30 @@ Partial Class RH_Personal
 
             Else
 
-                'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
-                '    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
-                '    Dim drow As DataRow = dt.NewRow()
-                '    If UsuarioActual.CveEmpresa <> 158 Then
-                '        drow = dt.NewRow()
-                '        drow("CveTipoTrabajador") = "2"
-                '        drow("TipoTrabajadorB") = "Operativo"
-                '        dt.Rows.InsertAt(drow, 0)
-                '        drow = dt.NewRow()
-                '        drow("CveTipoTrabajador") = "3"
-                '        drow("TipoTrabajadorB") = "Administrativo"
-                '        dt.Rows.InsertAt(drow, 0)
+                If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                    Dim drow As DataRow = dt.NewRow()
+                    If UsuarioActual.CveEmpresa <> 158 Then
+                        drow = dt.NewRow()
+                        drow("CveTipoTrabajador") = "2"
+                        drow("TipoTrabajadorB") = "Operativo"
+                        dt.Rows.InsertAt(drow, 0)
+                        drow = dt.NewRow()
+                        drow("CveTipoTrabajador") = "3"
+                        drow("TipoTrabajadorB") = "Administrativo"
+                        dt.Rows.InsertAt(drow, 0)
 
-                '    End If
-                '    drow = dt.NewRow()
-                '    drow("CveTipoTrabajador") = "-1"
-                '    drow("TipoTrabajadorB") = "Seleccione"
-                '    dt.Rows.InsertAt(drow, 0)
-                '    If DdlTipoTrabajador.Items.Count() > 0 Then
-                '        DdlTipoTrabajador.SelectedValueExist("-1")
-                '    End If
-                '    DdlTipoTrabajador.DataSource = dt
-                '    DdlTipoTrabajador.DataBind()
-                'End If
+                    End If
+                    drow = dt.NewRow()
+                    drow("CveTipoTrabajador") = "-1"
+                    drow("TipoTrabajadorB") = "Seleccione"
+                    dt.Rows.InsertAt(drow, 0)
+                    If DdlTipoTrabajador.Items.Count() > 0 Then
+                        DdlTipoTrabajador.SelectedValueExist("-1")
+                    End If
+                    DdlTipoTrabajador.DataSource = dt
+                    DdlTipoTrabajador.DataBind()
+                End If
             End If
         End Using
     End Sub
@@ -1125,7 +1125,7 @@ Partial Class RH_Personal
     Protected Sub cargaagrodeptos()
         Using objrh As New ClsRH()
             If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
-                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue))
+                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveTipoTrabajador ={0}", DdlTipoTrabajador.SelectedValue.ToEntero()))
                 Dim drow As DataRow = dt.NewRow()
                 drow("CveDepartamento") = "-1"
                 drow("Departamento") = "Seleccione"