From c9da910f6c9a09c4d6b6b7b04757534a806e277b Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 29 Feb 2024 12:06:57 -0700
Subject: [PATCH] --remisiones con aplicacion de devoluciones --mostrar tipo
 docto default despues de bloquear --mostrar AtencionA en ingresos func 190

---
 Ventas/Ventas.aspx.vb | 43 ++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 40 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index ae52c43a7..e05c849bc 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3435,7 +3435,7 @@ Partial Class Ventas
                 HlAgregarExcel.Visible = True
             End If
 
-            If DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
+            If DdlTipoComprobante.SelectedValue.Contiene("Rem") AndAlso UsuarioActual.Empresa.Funcionalidad(109) <> "1" Then
                 ' IPP 15 Julio 2017 - ERA FALSE
                 ImgAntiPend.Visible = False
                 UpPS.Update()
@@ -3655,7 +3655,7 @@ Partial Class Ventas
 
                     End If
 
-                    UsuarioActual.Empresa = ObjEmpresa.Empresa
+                    Usuario.Empresa = ObjEmpresa.Empresa
                     ADSSession.ADSSessionConfig.sessionUser.CveEmpresa = ObjEmpresa.Empresa.CveEmpresa
 
                     ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarEmpresa, Nothing, ObjEmpresa.Empresa.CveEmpresa)
@@ -5060,6 +5060,10 @@ Partial Class Ventas
 
                 Select Case DbRowVenta("TipoDocto").ToString()
                     Case "Ing"
+                        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                            TxtAtencionA.Text = DbRowVenta("AtencionA").ToString()
+                        End If
+
                         Trsaldo.Visible = True
                         HplSaldoAuxiliar.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
                         HplPagado.NavigateUrl = String.Format("/Contabilidad/PopUpAuxiliar.aspx?Tipo=CxCClientes&CveCliente={0}&CveVenta={1}&TB_iframe=true&height=550&width=920", DbRowVenta("CveCliente"), DbRowVenta("CveVenta"))
@@ -7163,6 +7167,12 @@ Partial Class Ventas
             CalculaLineasAdicionales()
             HabilitaRemisionPublicoGeneral = 0
             HabilitarRemisionesPublicoGeneral()
+
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+                If Not String.IsNullOrEmpty(UsuarioActual.CveTipoDocumento) Then
+                    DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                End If
+            End If
         End If
 
 
@@ -7171,6 +7181,8 @@ Partial Class Ventas
         End If
 
 
+
+
         'If UsuarioActual.Empresa.Funcionalidad(705) = "1" Then
         '    Using ObjVentas As New ClsVentas
         '        If ObjVentas.GetLineasAdicionales(-1, CveCliente, -1, -1, DdlMoneda.SelectedValue.ToEntero(), MinFecha, MaxFecha, 0, UsuarioActual.CveEmpresa) Then
@@ -17569,6 +17581,10 @@ Partial Class Ventas
             ImgAntiPend.Visible = False
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
+            ImgAntiPend.Visible = True
+        End If
+
 
         TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToShortDateString
 
@@ -17600,6 +17616,10 @@ Partial Class Ventas
             ImgAntiPend.Visible = True
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
+            ImgAntiPend.Visible = True
+        End If
+
         MostrarOpcionesPaqueteria()
 
         TrAtencionA.Visible = True
@@ -30621,7 +30641,7 @@ Partial Class Ventas
         divAnticipoMsg.Visible = False
 
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-            If DdlTipoComprobante.SelectedValue = "Ing" AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
+            If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem") AndAlso DdlTipoAmortizacionAnticipo.SelectedValue = "4" Then
                 Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 And SaldoSubtotal > 0  {If(CveVenta < 0, $"AND Tipo = 'NC' ", "")}")
                 divAmortizacionTipoRelacion.Visible = False
                 GVAnticipos.DataSource = DtMovtos
@@ -37357,6 +37377,23 @@ Partial Class Ventas
             DdlTipoAmortizacionAnticipo_SelectedIndexChanged(DdlTipoAmortizacionAnticipo, EventArgs.Empty)
 
             divAmortizacionTipoRelacion.Visible = False
+
+            If DdlTipoComprobante.SelectedValue = "Rem" Then
+                If DdlTipoAmortizacionAnticipo.Items.FindByValue("1") IsNot Nothing Then
+                    DdlTipoAmortizacionAnticipo.Items.Remove(DdlTipoAmortizacionAnticipo.Items.FindByValue("1"))
+                End If
+                If DdlTipoAmortizacionAnticipo.Items.FindByValue("2") IsNot Nothing Then
+                    DdlTipoAmortizacionAnticipo.Items.Remove(DdlTipoAmortizacionAnticipo.Items.FindByValue("2"))
+                End If
+            Else
+                If DdlTipoAmortizacionAnticipo.Items.FindByValue("1") Is Nothing Then
+                    DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo en descuento", "1"))
+                End If
+                If DdlTipoAmortizacionAnticipo.Items.FindByValue("2") Is Nothing Then
+                    DdlTipoAmortizacionAnticipo.Items.Add(New ListItem("Amortización anticipo con nota de crédito", "2"))
+                End If
+            End If
+
         End If
 
         UpAnticipos.Update()