From 5d42f1d1285fbd1da0880c6dcf386e3ff32e37de Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 13 Mar 2023 17:24:40 -0700
Subject: [PATCH] Mejora carga de almacen, uso cfdi de pago

---
 Ventas/Ventas.aspx    |  3 ++-
 Ventas/Ventas.aspx.vb | 29 +++++++++++++++++------------
 2 files changed, 19 insertions(+), 13 deletions(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 9b21741e3..45e3ad0ea 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -1724,6 +1724,7 @@
 
                         <asp:UpdatePanel ID="UpINV" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
+                                <asp:HiddenField ID="HdnCargarInventario" runat="server" ClientIDMode="Static" Value="True"/>
                                 <asp:Button ID="BtnCargarInventario" runat="server" ClientIDMode="Static" Text="" Style="display: none;" OnClick="BtnCargarInventario_Click" />
                                 <div class="portlet box purpleAlmacen" id="DivSalidaAlmacen" runat="server">
                                     <div class="portlet-title">
@@ -9501,7 +9502,7 @@
                 step: 30
             });
 
-            if(<%= Me.HabilitarCargaAlmacen %>  == true){
+            if(HdnCargarInventario.value  == 'True'){
                 $("#TabAlmacen_tab .ajax__tab_inner").click(function () {
                     CargaMovimientosInventario();
                 });
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1476aafc4..7028d4086 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2307,16 +2307,6 @@ Partial Class Ventas
             ViewState("CveContratoTipo") = value
         End Set
     End Property
-
-    Public Property HabilitarCargaAlmacen As Boolean
-        Get
-            Return CBool(IfNull(ViewState("HabilitarCargaAlmacen"), False, ViewState("HabilitarCargaAlmacen")))
-        End Get
-        Set(value As Boolean)
-            ViewState("HabilitarCargaAlmacen") = value
-        End Set
-    End Property
-
 #End Region
 
     '#Region "AuxiliarConta"
@@ -2856,6 +2846,7 @@ Partial Class Ventas
                     'SI ES VENTA NUEVA, NO RECARGAR TAB DE ALMACEN
                     If CveVenta <= 0 Then
                         'REMOVER EVENTO PARA RECARGAR ALMACEN
+                        HdnCargarInventario.Value = "False"
                         spanAlmacen.Attributes.Remove("onclick")
                         Tab.ActiveTabIndex = 1
                         Updatetabs.Update()
@@ -6136,10 +6127,17 @@ Partial Class Ventas
             DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
         End If
 
-
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
 
+        If Not UsuarioActual.CveEmpresa.Contiene(76, 15) Then
+            If DdlUsoCFDI.DataSource IsNot Nothing Then
+                If DdlUsoCFDI.Items.FindByValue("25") IsNot Nothing Then
+                    DdlUsoCFDI.Items.Remove(DdlUsoCFDI.Items.FindByValue("25"))
+                End If
+            End If
+        End If
+
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
@@ -32903,6 +32901,7 @@ Partial Class Ventas
         'REMOVER EVENTO PARA RECARGAR ALMACEN
         spanAlmacen.Attributes.Remove("onclick")
         Tab.ActiveTabIndex = 1
+        HdnCargarInventario.Value = "False"
         Updatetabs.Update()
 
 
@@ -33094,7 +33093,12 @@ Partial Class Ventas
             If Not (EstablecioFolio AndAlso UsuarioActual.TienePermisoProceso(130)) Then
                 TxtFecha.Text = Now.ToString()
             End If
-            TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
+
+            'SI TIENE LINEA ADICIONAL, NO DEBE MODIFICAR LA FECHA YA ASIGNADA
+            If DdlLineaAdicional.SelectedValue.ToEntero() <= 0 Then
+                TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
+            End If
+
             TxtFechaEjecucion.Text = Now.ToString()
 
             DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty)
@@ -36585,6 +36589,7 @@ Partial Class Ventas
         'REMOVER EVENTO PARA RECARGAR ALMACEN
         spanAlmacen.Attributes.Remove("onclick")
         Tab.ActiveTabIndex = 1
+        HdnCargarInventario.Value = "False"
         Updatetabs.Update()
     End Sub
     Protected Sub LBAplicaDevolucion_Click(sender As Object, e As EventArgs)