From 3438e1d21ba32a263ccd7fec75535db068b8c268 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 29 Jun 2024 07:30:21 -0700
Subject: [PATCH] =?UTF-8?q?-activaci=C3=B3n=20gastosenvio?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx    |  7 +++++++
 Ventas/Clientes.aspx.vb | 17 ++++++++---------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index cb845c362..ef7407d92 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1195,6 +1195,13 @@
                                                                 <asp:CheckBox ID="ChkNoDesglosaIVA" Checked="false" CssClass="make-switchsd" data-size="small" runat="server" />
                                                         </div>
                                                     </div>
+                                                </div>
+                                                <div class="row" id="divGastosEnvio" runat="server" visible="false">
+                                                    <div class="col-md-6">
+                                                        <div class="form-group form-md-line-input" >
+                                                             <asp:TextBox ID="TxtGastosEnvio" CssClass="form-control" runat="server" ></asp:TextBox>
+                                                               <label for="<%= TxtGastosEnvio.ClientID.ToString()%>">$ Envío:</label></div>
+                                                    </div>                                                    
                                                 </div>
                                                   <div class="row">
                                                       <div class="col-md-6">
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 997d09f0c..9fe195a53 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -603,8 +603,6 @@ Partial Class Clientes
 
 #End Region
 
-
-
 #Region " A C U M U L A D O R E S"
     Property CveVentaNota As Integer
         Get
@@ -660,10 +658,6 @@ Partial Class Clientes
         End Set
     End Property
 
-
-
-
-
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -1495,7 +1489,7 @@ Partial Class Clientes
                 If ObjClientes.CveSubProyecto > 0 Then
                     DdlSubProyecto.SelectedValueExistInsert(ObjClientes.CveSubProyecto.ToString(), GlobalDTSubProyectos(-1, CveSubProyecto:=ObjClientes.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("SubProyecto"))
                 End If
-
+                TxtGastosEnvio.Text = ObjClientes.GastosEnvio.FormatoNumero
                 DdlZonaHoraria.SelectedValueExist(ObjClientes.DtResultados(0)("CveZonaHoraria").ToString())
                 ChkEstado.Checked = ObjClientes.Estatus
                 EstatusAnteriorCliente = ObjClientes.Estatus
@@ -2595,7 +2589,8 @@ Partial Class Clientes
                                         CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                         TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked) Then
+                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente,
+                                        CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
 
                         CveClienteNuevo = ObjClientes.CveCliente
 
@@ -2680,7 +2675,7 @@ Partial Class Clientes
                                             CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                             NoDesglosaIVA:=Not ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
                                             Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, CveAlmacenAlterno:=DdlAlmacenAlterno.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked,
-                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked) Then
+                                            EnQuebranto:=ChkEnQuebranto.Checked, EnDemanda:=ChkEnDemanda.Checked, CreditoRegistroFirmas:=TxtNombreFirmas.Text.Trim, EsFilial:=ChkEsFilial.Checked, GastosEnvio:=TxtGastosEnvio.Text.ToDecimal) Then
 
                         If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
                             ErrorProceso = True
@@ -6182,6 +6177,10 @@ Partial Class Clientes
             DdlSATPais.Items.Add(New ListItem("Guatemala", "GTM"))
         End If
 
+        If UsuarioActual.CveEmpresa.Contiene(194) Then
+            divGastosEnvio.Visible = True
+        End If
+
         If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then 'si la empresa deduce ieps
             divDesgloseImpuestos.Visible = True
         End If