From 84af70041770f3d3ef132fd3ade676d3e4599a2f Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Fri, 20 Dec 2024 19:35:28 -0700
Subject: [PATCH] =?UTF-8?q?Energ=C3=ADa=20El=C3=A9ctrica=202024-12-20?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/CuentasBancariasDetalle.aspx           |  14 +-
 Bancos/CuentasBancariasDetalle.aspx.vb        |   8 +-
 Bancos/DepositosCaja.aspx                     | 174 +++++++++++-------
 .../SaldosIniciales/FormatoClientes.xlsx      | Bin 9527 -> 9582 bytes
 General/SaldosIniciales.aspx.vb               |  68 ++++++-
 Ventas/Clientes.aspx.vb                       |   4 +-
 6 files changed, 188 insertions(+), 80 deletions(-)

diff --git a/Bancos/CuentasBancariasDetalle.aspx b/Bancos/CuentasBancariasDetalle.aspx
index 7c2bb543c..2f73ed70c 100644
--- a/Bancos/CuentasBancariasDetalle.aspx
+++ b/Bancos/CuentasBancariasDetalle.aspx
@@ -383,7 +383,7 @@
                                     </div>
                                     <div class="portlet-body form-horizontal form-row-sepe formnombottom label12">
                                         <div class="form-body">
-                                            <table width="400px" border="0" cellpadding="0">
+                                            <table width="500px" border="0" cellpadding="0">
                                                 <tr>
                                                     <td colspan="3" style="text-align: center;"><b>Usuarios con acceso a la cuenta</b></td>
                                                 </tr> 
@@ -398,12 +398,16 @@
                                                     <td colspan="3" style="vertical-align: top;">
                                                         <asp:GridView ID="GVU" runat="server" Width="400px" DataKeyNames="CveCuenta,CveUsuario" AutoGenerateColumns="False" GridLines="None" CssClass="mysmallbtn">
                                                             <Columns>
-                                                                <asp:BoundField HeaderText="Nombre" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
+                                                                
+                                                                <asp:TemplateField  HeaderText="Nombre" ItemStyle-HorizontalAlign="Left" >
+                                                                <ItemTemplate>                                                                    
+                                                                    <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
+                                                                    (<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>)
+                                                                </ItemTemplate>
+                                                                </asp:TemplateField>
                                                                 <asp:TemplateField ShowHeader="False">
-                                                                    <ItemTemplate>
-                                                                        <%--<asp:ImageButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />--%>
+                                                                    <ItemTemplate>                                                                        
                                                                         <asp:LinkButton ID="ImageButton4" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" 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>
diff --git a/Bancos/CuentasBancariasDetalle.aspx.vb b/Bancos/CuentasBancariasDetalle.aspx.vb
index b8a934923..5aee71c2e 100644
--- a/Bancos/CuentasBancariasDetalle.aspx.vb
+++ b/Bancos/CuentasBancariasDetalle.aspx.vb
@@ -478,8 +478,12 @@ Partial Class Bancos_CuentasBancariasDetalle
         For Each row As DataRow In DTUsuarios.Rows
             sUsuarios = $"{sUsuarios} {row("CveUsuario").ToString},"
         Next
-        If sUsuarios <> "" Then
-            DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
+        If sUsuarios <> "" Then
+
+            '            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
+            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
+            DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
+            'DdlUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros($"CveUsuario NOT IN ({sUsuarios.Substring(0, sUsuarios.Length - 1)})", "Nombre")
             DdlUsuarios.DataBind()
         End If
     End Sub
diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx
index 0b3a38715..3bebf5677 100644
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -219,111 +219,147 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpComisiones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="row rowcheck truncate" id="DivComisioncheck">
+
+            <div class="row rowcheck truncate " id="DivComisioncheck" style="padding:0px!important;margin:0px!important">
                 <div class="col-md-1 truncate" runat="server" id="DivFaltante" style="width: 155px;">
                     <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox" />
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivComision" style="display: none;">
-                    <div class="col-md-1" style="padding-right: 130px;">
-                        <label>Importe:</label>
-                        <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm " Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+
+                <div class="col-md-2 DivComision" style="display: none">
+
+                    <div class="form-group form-md-line-input input-iconright" style="width: 100px">
+                        <asp:TextBox runat="server" ID="TxtComision"
+                            Width="100px" onkeypress="return numericOnly(this);"
+                            ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
+                        <label for="<%=  TxtComision.ClientID.ToString()%>">Importe:</label>
                     </div>
 
-                    <div class="col-md-1" style="padding-right: 190px;">
-                        <label>SubProyecto:</label>
-                        <asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                </div>
+
+                <div class="col-md-2 DivComision" style="display: none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control select2me" Width="100%">
                         </asp:DropDownList>
+                        <label for="<%=  DdlSubProyectoDeposito.ClientID.ToString()%>">SubProyecto:</label>
                     </div>
 
-                    <div class="col-md-1">
-                        <label>Clasificación:</label>
-                        <asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+
+                </div>
+
+                <div class="col-md-2 DivComision" style="display: none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlClasificacion" AutoPostBack="false" Class="form-control select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%">
                         </asp:DropDownList>
+                        <label for="<%=  DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
                     </div>
+
                 </div>
 
             </div>
-            <div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;" runat="server">
+
+            <div class="row rowcheck truncate" id="DivDescuentocheck"  runat="server" style="padding:0px!important;margin:0px!important" >
                 <div class="col-md-1" runat="server" id="Div1" style="width: 155px">
                     <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox" />
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivDescuento" style="display: none">
-                    <div class="col-md-1" style="padding-right: 130px;">
-                        <label for="TxtDescuento">Importe:</label>
-                        <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm " Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+                <div class="col-md-1 DivDescuento" style="display:none" >                   
+                    <div class="form-group form-md-line-input input-iconright">
+                         <asp:TextBox runat="server" ID="TxtDescuento"  Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control   Numeros"></asp:TextBox>
+                        <label for="<%=  TxtDescuento.ClientID.ToString()%>">Importe:</label>
+                    </div>  
+                </div>
 
-                    </div>
+                <div class="col-md-1 DivDescuento" style="display:none" >                    
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlSubProyectoDescuento" Width="100px"  runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"  CssClass="form-control select2me" >
+                        </asp:DropDownList>
+                        <label for="<%=  DdlSubProyectoDescuento.ClientID.ToString()%>">SubProyecto:</label>
+                    </div>  
 
-                    <div class="col-md-1" style="padding-right: 190px;">
-                        <label>SubProyecto:</label>
-                        <asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                        </asp:DropDownList>
-                    </div>
+                </div>
 
-                    <div class="col-md-2">
-                        <label>Clasificación:</label>
-                        <asp:DropDownList ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
-                        </asp:DropDownList>
-                    </div>
-                    <div class="col-md-1">
-                        <label>Emp:</label>
-                        <asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                <div class="col-md-2 DivDescuento" style="display:none">
+                    <div class="form-group form-md-line-input input-iconright">
+                        <asp:DropDownList ID="DdlClasificacionDescuento" Width="100%"  AutoPostBack="false"  runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" CssClass="form-control select2me">
                         </asp:DropDownList>
+                        <label for="<%=  DdlClasificacionDescuento.ClientID.ToString()%>">Clasificación:</label>
                     </div>
                 </div>
 
+                <div class="col-md-2 DivDescuento" style="display:none">
+                     <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlPersonal" AutoPostBack="false" Width="100%"   runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control select2me">
+                            </asp:DropDownList>
+                         <label for="<%=  DdlPersonal.ClientID.ToString()%>">Emp:</label>
+                     </div>  
+                </div>
             </div>
-            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -15px;" runat="server">
+
+            <div class="row rowcheck truncate" id="DivIntercheck"   runat="server" style="padding:0px!important;margin:0px!important">
 
                 <div class="col-md-1" runat="server" id="Div2" style="width: 155px">
                     <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox" />
                 </div>
-                <div class="col-md-10 rowcheckCampos" id="DivInter" style="display: none">
-                    <div class="col-md-1" id="dd" style="padding-right: 130px;">
-                        <label>Intermediario:</label>
-                        <asp:DropDownList ID="DdlProveedorIntermediario" CssClassDdl="select2me" Width="100px" CssStyle="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>
-                    </div>
-                    <div class="col-md-2" style="width: 205px;">
-                        <div class="col-md-6" id="DivinterImporte" style="padding-left: 0px; padding-right: 0px;">
-                            <label>Importe:</label>
-                            <asp:TextBox runat="server" ID="TxtComisionIntermediario" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+                <div class="col-md-10 rowcheckCampos xspadding" id="DivInter" style="display: none">
+                    <div class="col-md-1" id="dd" >
+                        <div class="form-group form-md-line-input input-iconright" >
+                            <asp:DropDownList ID="DdlProveedorIntermediario" CssClass="form-control select2me" Width="100%"  DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:DropDownList>                            
+                            <label for="<%=  DdlProveedorIntermediario.ClientID.ToString()%>">Intermediario:</label>
                         </div>
-                        <div class="col-md-6" id="DivIVA">
-                            <label>IVA:</label>
-                            <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+                    </div>
+                    
+                    <div class="col-md-1" id="DivinterImporte" >
+                        <div class="form-group form-md-line-input input-iconright" >
+                            <asp:TextBox runat="server" ID="TxtComisionIntermediario"  Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
+                            <label for="<%=  TxtComisionIntermediario.ClientID.ToString()%>">Importe:</label>
                         </div>
                     </div>
 
+                    <div class="col-md-1" id="DivIVA">
+                        <div class="form-group form-md-line-input input-iconright" >
+                            <asp:TextBox runat="server" ID="TxtIVA" Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="form-control Numeros"></asp:TextBox>
+                            <label for="<%=  TxtIVA.ClientID.ToString()%>">IVA:</label>
+                        </div>
+                    </div>
+                    
                     <div class="col-md-1" id="dd2" style="margin-right: 100px;">
-                        <label id="LblClasificacion3">Gasto:</label>
-                        <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
-                        </asp:DropDownList>
-                    </div>
-                    <div class="col-md-1" id="divSubProyectoIntermediario">
-                        <label id="LblSubproyectoIntermediario">SubProyecto:</label>
 
-                        <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                        </asp:DropDownList>
+                        <div class="form-group form-md-line-input input-iconright" >
+                            <asp:DropDownList ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="  form-control  select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
+                                </asp:DropDownList>
+                            <label for="<%=  DdlClasificacionIntermediario.ClientID.ToString()%>"><label id="LblClasificacion3">Gasto:</label></label>
+                        </div>
+                        
+                        
+                    </div>
+                    <div class="col-md-2" id="divSubProyectoIntermediario">
+                        <div class="form-group form-md-line-input input-iconright" >                            
+                            <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" Width="100%"  AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control select2me" >
+                            </asp:DropDownList>
+                            <label for="<%=  DdlSubProyectoIntermediario.ClientID.ToString()%>"><label id="LblSubproyectoIntermediario">SubProyecto:</label></label>
+                        </div>                        
                     </div>
                 </div>
             </div>
-            <div class="row rowcheck truncate" id="DivRowCuenta" style="margin-top: -15px;" runat="server" visible="false" >
+            
+            <div class="row rowcheck truncate" id="DivRowCuenta" style="padding:0px!important;margin:0px!important" runat="server" visible="false" >
 
                 <div class="col-md-1" runat="server" id="Div3" style="width: 155px">
                     <asp:CheckBox ID="ChkCuentaRetorno" runat="server" Text="Caja" CssClass="checkbox" />
-                </div>
-                <div class="col-md-10 rowcheckCampos" id="DivRowCuenta2" style="display: none">                    
-                    <div class="row">
-                        <div class="col-md-2" id="DivCuentaImporte" style="padding-left: 0px; padding-right: 0px;">
-                            <label>Importe:</label>
-                            <asp:TextBox runat="server" ID="TxtCuentaRetorno" Class=" input-sm " Width="75px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass="Numeros"></asp:TextBox>
+                </div>                    
+                        <div class="col-md-2 DivRowCuenta2" id="DivCuentaImporte" style="display:none">                            
+                                <div class="form-group form-md-line-input input-iconright" >
+                                    <asp:TextBox runat="server" ID="TxtCuentaRetorno"  Width="100px" onkeypress="return numericOnly(this);" ondrop="return false;" onpaste="return false;" CssClass=" form-control Numeros"></asp:TextBox>
+                                    <label for="<%=  TxtCuentaRetorno.ClientID.ToString()%>">Importe:</label>
+                                </div>
                         </div>
-                        <div class="col-md-6" style="padding-left: 0px; padding-right: 0px;">
-                            <label>Obs:</label>
-                            <asp:TextBox runat="server" ID="TxtCuentaRetornoObs" Class=" input-sm " Width="250px" ></asp:TextBox>
+                        <div class="col-md-6 DivRowCuenta2"  style="display:none">
+                             <div class="form-group form-md-line-input input-iconright" >
+                                 <asp:TextBox runat="server" ID="TxtCuentaRetornoObs"   Width="100%" CssClass=" form-control" ></asp:TextBox>
+                                 <label for="<%=  TxtCuentaRetornoObs.ClientID.ToString()%>">Obs:</label>
+                             </div>
                         </div>
-                    </div>            
-                </div>
+                    
+                
             </div>
 
         </ContentTemplate>
@@ -671,13 +707,13 @@
 
         function CheckFaltante(chk) {
             if (chk.checked == true) {
-                $('#DivComision').css("display", "block");
+                $('.DivComision').css("display", "block");
                 $('#DivComisioncheck').removeClass("truncate");
                 $("#DivDescuentocheck").css("margin-top", 0);
             } else {
                 $('#C_TxtComision').val(0);
                 Recalcular();
-                $('#DivComision').css("display", "none");
+                $('.DivComision').css("display", "none");
                 $('#DivComisioncheck').addClass("truncate");
                 $("#DivDescuentocheck").css("margin-top", -25);
 
@@ -687,7 +723,7 @@
 
         function CheckDescuento(chk) {
             if (chk.checked == true) {
-                $('#DivDescuento').css("display", "block");
+                $('.DivDescuento').css("display", "block");
                 $('#DivDescuentocheck').removeClass("truncate");
                 $("#DivIntercheck").css("margin-top", 0);
 
@@ -695,7 +731,7 @@
             } else {
                 $('#C_TxtDescuento').val(0);
                 Recalcular();
-                $('#DivDescuento').css("display", "none");
+                $('.DivDescuento').css("display", "none");
                 $('#DivDescuentocheck').addClass("truncate");
                 $("#DivIntercheck").css("margin-top", -25);
 
@@ -719,13 +755,13 @@
         }
         function CheckRowCuenta(chk) {
             if (chk.checked == true) {
-                $('#DivRowCuenta2').css("display", "block");
+                $('.DivRowCuenta2').css("display", "block");
                 $('#DivRowCuenta').removeClass("truncate");
 
             } else {
                 
                 Recalcular();
-                $('#DivRowCuenta2').css("display", "none");
+                $('.DivRowCuenta2').css("display", "none");
                 $('#DivRowCuenta').addClass("truncate");
             }
         }
diff --git a/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx b/Empresas/Grales/SaldosIniciales/FormatoClientes.xlsx
index 2b681f06a2408605c8b6536a2a552b5cb495c340..e86d7a992369764ded8572ca50ee993cfaeb4910 100644
GIT binary patch
delta 2771
zcmY+GXE@sn8^-@JD^{ZRCLFaxmDsaLsJ+^vMmd_O*i>n%)}eNaTGa+Ap^Dh6wO6eg
zwThy|s-9yO<?VStob$fV*ZX?DJok0~p1U6P4OKZnhwHOT{y<L+0Q+<RzzP6BsJDCw
z)*s`B#bV?_?|YZqI$?9+>=6Yu7mv$Z+2Ek`mmf(;3U6sHp$>CL)V9L!iT(Qz$~Oq4
zi-=E<lZ>ni0hISPCV8aw$nkW^%X)Q66QA%@(Xe4%^l64oQHx_Y<<r-AO@qvjMW#qO
z6eq4w)|x{3zLgbKn;KHDH-8hbAaQ%#vQJyNl2i4h<VA@CLuPR*?HK%-w2^IknvF-|
zhG>Y!C+7So-`Q#}rG>M`I>@PdSnF;*$!MZYlab)1lqK4e^ra~em%yUCn*&5b39y{G
z?ug~HxXYoG^9Ci-f1kw%>+5n~>`d?2oeRhNc8<aH;cbpQ)T=J5BVhI(a`#7y6a9+4
z$n<vaQiO3EY(`T>HQY_SleHRLP}%W2eEShEb5srQ8v{rSD}mO0UL!EHa#gh%U5rU1
zogl&ZQvRE&mTJgG&wGh<aCXe02FSU;iT9HReHj;13q&=}-2a7%w1<h+`UzX~Jg!~e
zBl=4p;|CO^$FCw=Cf@V1C3^JB@Y@k|Mf;1pRO~+aWbJENOkl=++BQ8CF9V;+Jjw@>
zhhSkhRZ5E>OPpr?x-6x>+c815@K(unE1frz1kOeA{_I<hsTv$;JO6>)KN)w@f9n09
zKVU=aE$f)xTG%<AI|d?ng24Hhd${&f?=ZTXO~Oa1S1k;iq&IlPXpgWcDOmU(ocp(x
zs>P6<bEWn=?L3wp*Hp2?B5j0VBGo6Mq*fze!&oRs(bS9?3!R#w*6O2?{U~oW#^A!7
z*CR@T^Pk;w&u@&+2qtx|Ej2HDzj+bk9y_&`lU3@_+t(w<pEviZGswMVtrRz`^B_VV
zkgN-Mo%mMKB~f$HR4<a-Qz5L|YgSP$vR8RX+HjZ=H3Vgx$XSretwwOXV~8!B&uhDp
z_zEmaj>#)-=yyHh5Lb<nf;*An`-TlzyUHXj>!uCe$NbZ-i<*KBu*G2fBVdE)!Qtrc
z!^5tEFeKcV*pGm3D5x0h|E4|MPh=r{+f<ObDtb^Xw$CD09#F@BnKle9K-DJPn_N2{
z5p>LjPorkXd%;-9RA6x`@bEqy%u53RG%R=pCQ;n4eDp3#?5I0Dl6MhaC8UzjwzVGx
ziQf*lx$zFPAG}{9ukAGNa>ES<Y#Ni;!rc(>_O!XkZCaBYVP8;;Gpo;OpoT53)sP{%
zUhTHUJF@VPvC6b>?sf*84P0wm2tTjULLHPJ<?+!(8?J|9O`E~`Lx(LywNzQ`l9{CK
z4IJ~CZL>vv!Z;y-R0dBb$ds3Q`I<XO3dPEpv>)f+jmuFX#$9o?q&_)tu9+P}uSJ!W
zhH2H<n@-6J*Adv(YNOn2$dfA-X$d~keWwOi1Ea`xmDoGW9f7A@Y3TN66V*zf)K2F;
zkCQ=P9xLT^xxJ%~R3)3U>(g{*CCBdRxIXW@-Iry42+Q!f);XesAlH*G3_91rc5d=x
zfqqBl%R^0&QP*4!tCkOcGT;2H(S?{VZw8%69$Oa7^o{PQIQw}bXhgVqW*&VhZv1MS
zu_7^DN!^_B*G!mJ$5m+8XntIhZZ=fD1vlHHdlDj4m%@{*tFqM}O!ci<<bpJsi9<h<
zF1tg3KePbFl`e^E+N>c3g&L-Jn74_#;IEZ?HB!#I4W95mVF_bze^Wc17-<qMzcIvW
z+`3+no}yu#jzAe}bb1ZeHga($K-Ilq7_Kmv1NJL8qsU21Pf&bj|9k-`N1d*`kPQoh
z5CdW-Re#sbEVlF{hwA?b_l?E{S!v}K&vc-0olxi7P6iJ7?q}y6&=O2sRnPl)yzq^F
z;m>4H*TER?1+t54g%>%jmQCZX8Lm)~wOXFNK~KUrZa)4}eXHe8GDb1GsfCI2skd2^
z+^Of+TV});rzt8on;hRi|IIVc(j2P5|Kt4q69pH5vbEDAtHpPjlJ*wYT&5GQe6V+9
zj@d@LCf&OgaYx<th~<<X04^?m5&h!g*~Fk(Cma&<#XkNFXsGIZ<1d;Wi+MGFn<9sT
zRY{d3gIhEiXr&5N`GUtN7%rURN{7jKjmM;2%<a}Ti89AxDF*DMVxYNxZs{s)h!oav
zER$=YGN^1HB~S*o#~n=_9iK{k)(9LAQt%CPLO5Og0h9dbkXQt-x>8(Og~$|r+8xi{
zT!qMRljr>1YP)yYF(Jyq(b$jsse&Y(r949<$v#?Via})bAO~{kq5h?3t>QEv7ob%4
zcNroZSfh158zGq{^4X|1Jfq(;hKkZ`YF(xZT94LoGS3{<QP(k_8r9Jl;e>8Js7pv4
z!F$v|dhtOuqto~prSCJL)#<^vZ-z+h>{evs=4<^@0z96bYX%k$bsge|7B_b`&Zx+{
ztS=Z@Sk#&rDnI}r^()xy06tla6BlSb=rf@MX@UL8TG)6Q3y4H}8+BBPiwTyA=blb~
z`+Wc2e5+|nVXF3W9^a>*3O#(0sdK7L=m96&ar~XntPAtHkh@abU%Ll*UnV~+ig2x0
z87e!PG7g+jAEAl)$>8>OAWPmq%_}{#s4|W_MX1`eiJHkw?)cKP=K^u<-TOG6!)$))
z24@z)@B7Tw<ffA{LJXrOD9L#^bQ@#XAq2Czc&x}Jv*%#f|KY`+Oy&b+5pzn9COl%D
zCEwo0dg#@_1J;1=TN_6}B=fw{r9Rzw#C5~hOXDkd`}kE42(fP)4=OsxVM9SdY71rj
zDof_?f=v@jo)fkRJ?$wAw0k)I3m*DJ7ZRX}KA3&IkY2}}END|xt8eModU@V8OHaX8
zFp_}&i?bxoS*3xeFvl;cA`=!ku5H_3Ffh9@cg`2QT%*qd3Qaqi0!KHKgDjflA&uHw
zYuUN?g0jNBW6IV}@S9$yZyLz`cDpxaiAM3DIVcy3<Y+uslTpJzAnlg_jjhv&DDg;3
zWzxgP(znWk%>I%nmt<1NIm5i|2cRvQE>zS_u&rm*e*>C<HE7ew=9h);WN!gc5N-_B
z3FnU4rCofr+IC}nU}7}*rMo?gfpkKM$d7v3IVG_%pOn>rV>jZCojSYxUIAWy{Y)%(
zcT?&ZaQ7(mHz07+z6^yG&8|{P9b@gUR3=NdlMHo}4_(Gu5ZZ$c#1;i#EH85pvNBRa
z(xh>CY)bWpLR~oHHF8?W75NH2ob}c96wjz@D_C!8MEnX*MY}>ff2RO^0tOXGeUf7Q
z(}yG|jEDuJEr#9Lpl2&VF6h(s80TyRX5(-+M6D~onpUW5td;DqRCk}R_MTAZy2P<Z
z(9yI#bMa<yH;5y9=^39(g+lieNe0_ki9(+U4zkZzmDWsQpTlnIlD8vfE|WG^RZJIC
znpN^}7hM`HHUThy#`=D+rJQA2*Q#P7(zs$!tXPcbcQUJq^MCgg!L+IW2QD7T#%7+E
zfz*qSb2k0MNM~$a>nCTo3h?)Z$rK@dYKDI*BVGw+2KtVVg30pz`w{_w`xkWn9T<KP
zb{!Oehl=SiopAlPU<L#}@b<tLh;i`!f9U>Q0staDNlb$8A4jPG0Q$c&5Q`rX)1rb3
O<5|T;>83^h*8T&gRtc8?

delta 2709
zcmY*bc{tPy7yel@)=@*o&|vIQw8)SwBPPSx-3T@I>|`vBX^ee~W=7n?C^UqKAv@_J
zWVx2IWRPSH`DnxN)%VA}&v*Vf&v~BrIe)$9ec!WTR&VyakCzmmH)+S_1b{7G01yEH
zAkzPIL{O-oTTqbSsmK8T3VWBJDGdm*p!N{_Q_n(*3Wz?AHM&q7XcREsW>=Q(o;)r;
z=wD)G&)#gt@@4&Jq%Q5{_3=xW#=kogf}48Ju2HUZT^2<|&&#EW*~zzD?OGoH+Q>p>
zj})WPiu~e5Bqhe*D__=fI-Giv62Kzj07TW~={wH_?No-E(yDP*1@OkEC(mcO?|zY4
zFS^jCJB*H`uO(u!kz~nublVY>T25X~$|L(hepU=RTU2Prz7O-Z@Y9Z7Fp?r-f76zd
z160pJ$1Tq**Mv$AI3(Qjppf6gq^`n1?cjrngjXcL2+q-A2V{wja`l)Juzs#MbN_W^
z+*XIEf5y-p5#5HEL|o9EuBLuC;+UXY5iF9(vMj>gb9i>2Pk1xVrz0abDKSoAXu<;F
zl9u(!lA4S5?CDD$8IAYL?kp8>srK6A_+sYpsbL;^we{sT=Yn8FC>?VWhq3Y8m5iT$
zg(7*y<Jup9UP*X9?2YvaSL7Gcncn^CI3RQ+hM3K7)qw9kuya0xR{Q(-4}OKmqK>7=
z;ivY!Y9_Shz;liBX1VdrxtOiaQt{Qmhp0joiCx7j-D51V-lLDbcuHC}+K-+>4pK??
zPCZ^+$dg`Su)hVzG^aa74c65@(#v%=NUkLHAh-oRDE`|~yrLcXd$E0dv-*2W?3o5a
z#yWj`%fCJ1U0n9s<VJ0rUeze{NXIfy9tCI2^E9mKZ7ey1B0|<b!<NZ?7t1Q0@1=J$
zo7w)h?J7?1(?TYuZ(qoJ_SW@0!!IB(ijs^^_y0_`wM=5+16n?%U=72G<4Gz56Qqdl
zKU6fj4aY0uK5O*5g}w9{(a=d6((2+sEQvkYy~E>+4-ms+qmQ?P5((4JtzV%ieq%2I
zBqmt;uW&I1XaYpTUQcspx53@(`Q0|Frb<Ji)C6u;8qaDAnin;Q+@-U&Wv#pqI&*nh
zD;_$+=8^r|V0I>^1{+&Sj1YVym4zm%gNQNXt5o&Z#$>u=Qq1X|YR~oB@<b8`jlu<C
z9)Qkr@;l`%>ae*0;FS<fS5S`hOA#@%O6&Sp?<l2M7y%sib!FFP8TcIUj}p%%U-xSz
z_)d{#t5c2@W9^kW3*u<o`Q@z*$fuHe0`5-&v;UNbniPI$q7H<okfPh+7Me8~=f%qL
zi0mJiuSPR>f8avK7JE11gZcRGy3FU_+KYPV)OIX&(s=VSm!;N}^5Pt+YLXEi#9bas
zDYJd(Nwd?OoI8sPOw`!%LNqpv?msgAI0#1gF3Q|#rV(H_Q$;#dyy(JvqT{|I$#oS^
z2q3F;NP)gTEMTH3vBgr}TPj~LT4ld`*kXe8>B^PB+PAPA0IBzSUx)3egMn_MtG40s
zvQfUB%pIZ6);mO53aQY2_=MISCI69*=*IqinR0~#T3vxCdOoM(`aH8evaVD<Y{EMs
zeL`(Z{lV-VhPI3PD}bFf?{hkAVPe;MELN8T%V%=u(zuiU&*ShLC%KA+PDd8AS*VmG
zhV)mP%o7`bK}hF)1}c6OuU)SR)eYt<d2$pMUdp;a+?QJjUn1S8kMU<W^q1%8;*k9+
z4VFG1*ugGb5Qk!UDecl4w-T95b*A}ptxOm9jHw@v)w*Mz{-Z<ZS>aMPo?#Hh#p6*7
z0rfKdB%<B`lb6qE1AOPXfisepRH_Fv1avLP*!4xC%wA908Q8Ic16X3PI!~rdk!)*Q
zF!!pYhU-lvDJ*ZHR=GqrmMkPwo$311QVykAO<5?UeJn12ZDsyhq0z_dAY;|s4R4U*
zXi+7ir1fCOg|0AK*rQ~te*(o!RaYVoRXwM7IUB4fF>;5=hF02JOI!kGX&iG_YubT3
zZsw0nQ3LKg%UxqR<CZ7y)_pP4e}<~cKR1m#{N>T4!{7bzFl($A`<DhJ;lm#(`#?kW
zwZy&@56NyDhOl6>vay@Jm9$tSfht}ay)pSbE$_7BesAlkmUnpDEQ<%tZ{M5N^x2hB
zzqp=45zf~-C=}dmuSh(7{jzk~?MaWadT(CU2>T>r$%UcX3r2*dK?1hwR!KQLMD4O<
z8ifQ=6i<L?i7VOcxQD2A$%uQ~e11LeoEmr4866^#hEd6I(^Tw|SrwDD!W;2<v?_8p
z&44*^K_GHXM7+Ti!RXO?7C2cK!M!@DplKCh$X85|;lA_|A#3$L1zfsk&NueegHNb-
z+e1*ObK4*MnC@M~_wypuL?GlM)KuWE9s-JH?gfN3R~=+${~Q{TjL@+)S(#PWnxao^
zc<i~hUQ3?^nBri%0LVnG9$w4=07A4@7@YLpK(OWbvc6ha(1MnMHKc~qjzZ=nO5DuT
zRT$PHi#<K{hv7s0Rb;&@+ua3;7Ad?v)}Nt$_KkYwiQAhSn#!OmX8rN<e%bmFQTV&b
zjqvS7)Z#hLh`EH2e74a*W#4!e|J!A1Ha=h4UFy<e;|tTzhNnFYu>Gz^BAUcRR3!;z
zu)LEjK`3ay_H1TJ5A0oepYl<sxut))XXjSuD%?uk%v1D@>H{R2^17x+X#v_wHvIq}
zIU0!yC_~zjziS_9&p+6a==^}{G&q`$w(;QPDxfQ(0`HBbLEG+kqc9~(^tIKnmb1vf
z;etDx2}0H&Q=g));mi}Ud+@`A+oaUxvKVQ{ukT7`s4qY-GZm-A(H71kW&~eb<qv(w
zLeE*u$VN;|@&<MLcsU;%)48F`9*xHo2X@SS!%U<wg%!B7F0T@bBsPZL4KKI3Wo=aC
zde4}bH!rxC*aTGS=Vo+|@#k4+g%A1SrEdz3rPo^7@W=*?Vn;(I((p|fe(8evf}cO9
z?Q)tCPr9;MHZc$1pF4H;VRh8)!B5wL-)0K}lyOk(FTPxv`O<P6Bx}s?^Pc57MD-GK
z8TSVgUT{ehLS?R6M+@|_#QjI89^rf68S4(Z5csX3##z1ZRR1VD`!77*eNIcs#+v*F
z+fL}#H^Y97!kgANq(@`z>k_5%Ulw|X5NKP8|CxHpd<xUR#tL1$a;+~{YCYdixjTE)
zP!krF^lkoyRw|Nocusd(<DfS@hNex&@nnD&B{pJkXO9j;RemJ<3o}+ZV%<v($l>C&
z<T-d1SJCGJq1H1Ysw>#Lvnx^&ed5tz)9=H5!xJw8#u!Awf`Ym41EZLBUuAs6N#W8S
z?viQXR-KB2Ii~c?MHT!~`JZ?gY2_LBR<Nq;IvMKd{R3UUfFph*^T~a=xqOdZ*zzQ^
zJoIj=yyCWoqO4=q6|*bmA9sp!qu<Uxf$^_iJiP8kjo*?pr&86HS$WjS_(%>2abpc`
z9nJN>AcM=GxIq8Bdo(`;mU|Hd05oBKN!mC9EcI{30f59WfBCndf;4?WNt(30DyKP^
zmI)T4xyq|@jM7r%Wnlj(j2i$T|E~O+NVHCQCD=cV{`xUR{|~pP@hV*6oPyI#6y$gx
I%l*dw3xAC7TmS$7

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index b04588b00..77cbe83d7 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1316,6 +1316,7 @@ Partial Class General_SaldosIniciales
                 Dim ErrorClientes As Boolean = False
                 Dim ExisteCliente As Boolean = False
                 Dim Contador As Integer = 0
+                Dim CountRFCGenerico As Integer = 0
                 Dim NumRow As Integer = 0
 
 
@@ -1376,7 +1377,17 @@ Partial Class General_SaldosIniciales
 
                     Dim Vendedor As String = If(dt.Columns.Contains("Vendedor"), Row("Vendedor").ToString(), "").Trim
                     Dim Clasificacion As String = If(dt.Columns.Contains("ClasificacionCliente"), Row("ClasificacionCliente").ToString(), "").Trim
-                    Dim CveCliente As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+
+                    Dim CveCliente As Integer = -1 'GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+
+                    Dim EsRFCGenerico As Boolean = If(RFC.ToUpper = "XAXX010101000" Or RFC.ToUpper = "XEXX010101000" Or RFC.ToUpper = "AAA010101AAA", True, False)
+
+                    'If CveCliente <= 0 And Not EsRFCGenerico Then
+                    '    If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1) Then
+                    '        CveCliente = ObjClientes.DtResultados.Copy().FiltroPrimeroValor("CveCliente", $"RFC = '{RFC}'").ToString().ToEntero()
+                    '    End If
+                    'End If
+
 
                     Dim CveVendedor As Integer = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveVendedor", $"Vendedor = '{Vendedor}'").ToString().ToEntero()
                     Dim CveClasificación As Integer = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClienteClasificacion", $"ClienteClasificacion = '{Clasificacion}'").ToEntero()
@@ -1400,6 +1411,8 @@ Partial Class General_SaldosIniciales
                     Dim CveRegimenFiscal As Integer = 0
                     Dim TipoPersona As Boolean = If(RFC.Length = 12, True, False)
 
+
+
                     If CodigoRegimenFiscal.Trim.Length > 0 Then
                         CveRegimenFiscal = GlobalDTRegimenesFiscales.FiltroPrimeroValor("CveRegimenFiscal", $"CodigoRegimenFiscal= '{CodigoRegimenFiscal}' ").ToEntero()
                         If Not CveRegimenFiscal > 0 Then
@@ -1500,10 +1513,57 @@ Partial Class General_SaldosIniciales
                     'Contacto
 
                     If CveCliente > 0 Then
+
                         ExisteCliente = True
-                        Contador = Contador + 1
+
+                        'PermiteCredito As Boolean, CveSubProyecto As Integer, CveClienteCorporativo As Integer,
+
+                        Dim CveSATEstado As Integer = GlobalDTGralEstados("-1").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero()
+                        CveSATEstado = If(CveSATEstado > 0, CveSATEstado, -1)
+                        Dim PermiteCredito As Boolean = If(LimiteCredito > 0, True, False)
+
+
+
+                        If EsRFCGenerico Then
+                            CountRFCGenerico = CountRFCGenerico + 1
+                        End If
+
+                        Codigo = If(Codigo.Trim.Length = 0, "-1", Codigo)
+
+                        If Not EsRFCGenerico AndAlso Not ObjClientes.UpdateCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, Correo,
+                                                          "-1", "-1", Pagina, "-1", -1, False, -1, -1, False, True, "-1", CveVendedor, PlazoCobranza, -1,
+                                   "-1", "-1", "-1", Codigo, LimiteCredito, False, "-1", "-1", "-1", False, "-1", "-1", "-1", "-1", "-1", False, "-1", UsuarioActual.CveUsuario, CveCliente, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                   "-1", "-1", PermiteCredito, -1, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
+                                   BonificacionUsado:=BonificacionUsado, CobranzaContacto:=CobranzaContacto, CobranzaCorreo:=CobranzaCorreo, DiasEspecifico:=DiasPagoEspecifico, DiasRevision:=DìaVisita, CobranzaTelefono:=CobranzaTelefono, CveFormaPago:=CveFormaPago33, CveUsoCFDI:=CveUsoCFDI, CveSATEstado:=CveSATEstado, CveAdminTrayecto:=0,
+                                    RegimenSociedad:=RegimenSociedad, CveRegimenFiscal:=CveRegimenFiscal, TipoPersona:=TipoPersona) Then
+
+                            ErrorClientes = True
+                            RFC.GuardaLog
+                            Exit For
+                        Else
+                            If EsRFCGenerico Then
+                                CountRFCGenerico = CountRFCGenerico + 1
+                            Else
+                                Contador = Contador + 1
+                            End If
+                        End If
+
+                        If CveCuentaContable > 0 Then
+
+                            Dim ObjConta As New ClsContabilidad(ObjClientes.IniciaTransacSQL)
+
+                            If Not ObjConta.AddCuentasAsignaciones(1, UsuarioActual.CveEmpresa, CveCuentaContable,
+                                          -1, ObjClientes.CveCliente, -1, -1, -1, 0, CveBancoCuenta:=-1, CveConceptoNomina:=-1, CveSubProyecto:=-1, CveActivoFijo:=-1,
+                                          CveTipoGasto:=-1, RegeneraCuenta:=False) Then
+                                ErrorClientes = True
+                            End If
+                        End If
+
+
+
                     Else
                         Dim CveSATEstado As Integer = GlobalDTGralEstados("-1").FiltroPrimeroValor("CveSATEstado", String.Format(" NombreEstado  ='{0}'", Estado.ToUpper)).ToEntero()
+                        CveSATEstado = If(CveSATEstado > 0, CveSATEstado, 26)
 
                         If Not ObjClientes.AddCliente(RazonSocial, RazonSocial, Calle, NumExt.ToString(), NumInt, Colonia, Poblacion, Poblacion, Estado, Pais, RFC, CodigoPostal, Telefono, Contacto, Correo, "", "", Pagina, "", -1, False, 0, 0, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CveVendedor, PlazoCobranza, -1,
                                    "-1", "-1", "-1", Codigo, LimiteCredito, False, "", "", "", False, "", "", "", "", "", False, "", "", "", False, 0, -1, EsDistribuidor:=EsDistribuidor, CveClienteClasificacion:=CveClasificación, CargoUsado:=CargoUsado,
@@ -1513,6 +1573,8 @@ Partial Class General_SaldosIniciales
                             ErrorClientes = True
                             RFC.GuardaLog
                             Exit For
+                        Else
+                            GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
                         End If
 
                         If CveCuentaContable > 0 Then
@@ -1533,7 +1595,7 @@ Partial Class General_SaldosIniciales
                     'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados
                     GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
                     If Contador > 0 Then
-                        Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente. <br>Se Omitieron: <b>{1}</b> Clientes ya que ya se encontraban registrados.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
+                        Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente. <br>Se Omitieron: <b>{1}</b> Clientes ya que ya se encontraban registrados. RFC Genericos Omitidos {2}", NumRows - Contador, Contador, CountRFCGenerico), TipoMensaje.MsgInformacion)
                     Else
                         Alert(String.Format("Se agregaron: <b>{0}</b> Clientes correctamente.", NumRows), TipoMensaje.MsgInformacion)
                     End If
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index b227f33e8..d68c92804 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1527,7 +1527,9 @@ Partial Class Clientes
                 TxtRetISR.Text = ObjClientes.RetISR.ToString()
                 ChkRetIVAFletesAcarreos.Checked = ObjClientes.RetieneIVAFletes
                 If ObjClientes.CveSubProyecto > 0 Then
-                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
+                    DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=ObjClientes.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
+                ElseIf UsuarioActual.CveSubProyecto > 0 Then
+                    DdlSubProyecto.SelectedValueExistInsert(UsuarioActual.CveSubProyecto, GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto:=UsuarioActual.CveSubProyecto).FiltroPrimeroValor("SubProyecto"))
                 End If
                 TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
                 DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())