From 453570af6f3b1531f77456b05b3eb240e693f308 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 12 Mar 2025 19:22:18 -0700
Subject: [PATCH] =?UTF-8?q?--=20nuevo=20globalDT=20DIOT=20Tipo=20Operaci?=
 =?UTF-8?q?=C3=B3n,,=20en=20base=20a=202025?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsGenerales.vb    | 14 ++++++++++++++
 App_Code/ClsPaginas.vb      | 16 ++++++++++++++++
 Compras/Proveedores.aspx    | 24 +++++++++++++++---------
 Compras/Proveedores.aspx.vb | 22 ++++++++++++++++++++++
 4 files changed, 67 insertions(+), 9 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 3b125265b..4e0ef922e 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2973,6 +2973,20 @@ Public Class ClsGenerales
         End Try
         Return Retorno
     End Function
+
+    Public Function GetSATDIOTTipoOperacion() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_DIOT_TipoOperacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los tipos de operacion del SAT-DIOT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
     Public Function GetSATUnidadesAduana() As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_SAT_UnidadAduanaGet")
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index b9c0c104c..c884bbe5d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -561,6 +561,22 @@ Public Class ClsPaginas
             HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
+
+    Property GlobalDTDIOTTipoOperacion() As DataTable
+        Get
+            Dim AppNombre As String = "GlobalDTDIOTTipoOperacion"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGrales As New ClsGenerales
+                If ObjGrales.GetSATDIOTTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados
+                ObjGrales.Dispose()
+            End If
+            GlobalDTDIOTTipoOperacion = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDTDIOTTipoOperacion"
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTGralPaises() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTGralPaises"
diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx
index 1801c70c2..81079cc46 100644
--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -799,20 +799,19 @@
                                 </div>
                                 <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom">
                                     <div class="form-body">
+                                         <asp:UpdatePanel ID="UPPDIOT" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            
                                         <table border="0"  >
                                             <tr>
                                                 <td>Tipo Tercero:</td>
                                                 <td>
                                                     <div class="form-group form-md-line-input" style="width: 200px">
-                                                        <asp:DropDownList ID="DDlDIOTTipoTercero" runat="server" Width="100%">
+                                                        <asp:DropDownList ID="DDlDIOTTipoTercero" runat="server" Width="100%" AutoPostBack="true" OnSelectedIndexChanged ="DDlDIOTTipoTercero_SelectedIndexChanged">
                                                             <asp:ListItem Text="-" Value="0"></asp:ListItem>
                                                             <asp:ListItem Text="04 - Proveedor Nacional" Value="1"></asp:ListItem>
-                                                            <asp:ListItem Text="05 - Proveedor Extranjero" Value="2"></asp:ListItem>
-                                                            <asp:ListItem Text="Accionistas, Socios o Integrantes" Value="3"></asp:ListItem>
-                                                            <asp:ListItem Text="Retenciones (excepto Proveedores)" Value="4"></asp:ListItem>
-                                                            <asp:ListItem Text="15 - Proveedor Nacional Global" Value="5"></asp:ListItem>
-                                                            <asp:ListItem Text="15 - Proveedor Extranjero Global" Value="6"></asp:ListItem>
-                                                            <asp:ListItem Text="Egresos Varios" Value="7"></asp:ListItem>
+                                                            <asp:ListItem Text="05 - Proveedor Extranjero" Value="2"></asp:ListItem>  
+                                                            <asp:ListItem Text="15 - Proveedor Global" Value="5"></asp:ListItem>                                                         
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVTipoTercero" runat="server" ControlToValidate="DDlDIOTTipoTercero" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Tercero''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCETipoTercero" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoTercero" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -833,11 +832,16 @@
                                                 <td>Tipo Operación:</td>
                                                 <td>
                                                     <div class="form-group form-md-line-input" style="width: 200px">
-                                                        <asp:DropDownList ID="DdlDIOTTipoOperacion" runat="server" Width="100%">
+                                                        <asp:DropDownList ID="DdlDIOTTipoOperacion" runat="server" Width="100%" DataTextField="ClaveSATTipoOperacionDescripcion" DataValueField="CveTipoOperacion">
                                                             <asp:ListItem Text="-" Value="0"></asp:ListItem>
+                                                            <asp:ListItem Text="02 - Enajenación de bienes" Value="4"></asp:ListItem>
                                                             <asp:ListItem Text="03 - Prestación de Servicios Profesionales" Value="1"></asp:ListItem>
                                                             <asp:ListItem Text="06 - Arrendamiento de inmuebles" Value="2"></asp:ListItem>
+                                                            <asp:ListItem Text="07 - Importación de bienes o servicios" Value="7"></asp:ListItem>
+                                                            <asp:ListItem Text="08 - Importación por transferencia virtual" Value="8"></asp:ListItem>
                                                             <asp:ListItem Text="85 - Otros" Value="3"></asp:ListItem>
+                                                            <asp:ListItem Text="87 - Operaciones globales" Value="9"></asp:ListItem>
+                                                            
                                                         </asp:DropDownList>
                                                         <asp:RequiredFieldValidator ID="RFVTipoOperacion" runat="server" ControlToValidate="DdlDIOTTipoOperacion" InitialValue="0" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Operación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCETipoOperacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoOperacion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -864,7 +868,9 @@
                                                 </td>
                                             </tr>
                                         </table>
-                                    </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+                                            </div>
                                 </div>
                             </div>
                         </div>
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index e5548a436..51eeafbab 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -908,6 +908,7 @@ Partial Class Compras_Proveedores
                 'DIOT
                 CargaDIOTPais()
                 DDlDIOTTipoTercero.SelectedValueExist(ObjProveedor.DIOTCveTipoTercero)
+                CargaTipoTransaccion()
                 DdlDIOTTipoOperacion.SelectedValueExist(ObjProveedor.DIOTCveTipoOperacion)
                 TxtDIOTNumIDFiscal.Text = ObjProveedor.DIOTNumeroIDFiscal
                 DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
@@ -5876,6 +5877,27 @@ Partial Class Compras_Proveedores
         End If
 
     End Sub
+
+    Protected Sub DDlDIOTTipoTercero_SelectedIndexChanged(sender As Object, e As EventArgs)
+        CargaTipoTransaccion()
+    End Sub
+
+
+    Private Sub CargaTipoTransaccion()
+        Dim Filtro As String = ""
+        Select Case DDlDIOTTipoTercero.SelectedValue
+            Case "1"
+                Filtro = "AplicaProvNacional = 1"
+            Case "2"
+                Filtro = "AplicaProvExtranjero = 1"
+            Case "5"
+                Filtro = "AplicaProvGlobal = 1"
+        End Select
+
+        DdlDIOTTipoOperacion.DataSource = GlobalDTDIOTTipoOperacion.FiltraParametros(Filtro)
+        DdlDIOTTipoOperacion.DataBind()
+    End Sub
+
 End Class