Regimen Fiscal Proveedores

2022-06-07 21:06:08 -07:00
parent 807fc97250
commit 300b071460
4 changed files with 53 additions and 4 deletions
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -112,6 +112,7 @@ Public Class ClsCompProveedores
    Public Property DIOTCvePais As Integer
    Public Property Situacion As String = ""
    Public Property DIOTNacionalidad As String
+    Public Property CveRegimenFiscal As Integer = -1

    Public ReadOnly Property DtResultados() As DataTable
        Get
@@ -399,6 +400,8 @@ Public Class ClsCompProveedores
                Me.DIOTCvePais = Data.Rows(0)("DIOTCvePais").ToString.ToEntero
                Me.Situacion = Data.Rows(0)("Situacion").ToString
                Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
+                Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
+
            End If

            Retorno = True
@@ -421,7 +424,7 @@ Public Class ClsCompProveedores
            IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
            Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
            Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-            Optional CveConfianzaProveedor As Integer = -1) As Boolean
+            Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean

        Dim Retorno As Boolean = False

@@ -524,6 +527,9 @@ Public Class ClsCompProveedores

            .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor

+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
+
+
            .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
        End With

@@ -564,7 +570,7 @@ Public Class ClsCompProveedores
                                    IdCtaContRetIVAAcreditable As Integer, CtaContRetIVAACreditable As String, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
                                    Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
                                    Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
-                                    Optional CveConfianzaProveedor As Integer = -1) As Boolean
+                                    Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean

        Dim Retorno As Boolean = False
        DataAdapter("PA_Comp_ProveedorUpdate")
@@ -666,7 +672,9 @@ Public Class ClsCompProveedores
            .Add("@FechaEvaluacion", SqlDbType.VarChar).Value = FechaEvaluacion
            .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador

+
            .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal

        End With

--- a/Compras/Proveedores.aspx
+++ b/Compras/Proveedores.aspx
@@ -350,6 +350,20 @@
                                                        </asp:DropDownList>
                                                    </td>
                                                </tr>
+
+                                                 <tr>
+                                                    <td>Regimen Fiscal:</td>
+                                                    <td>
+                                                        <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto"  Width="206px"  DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control select2me input-sm">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+
+                                                        <asp:RequiredFieldValidator ID="RfvDdlRegimenFiscal" runat="server" ControlToValidate="DdlRegimenFiscal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RfvDdlRegimenFiscal" Width="350px"></ajax:ValidatorCalloutExtender>
+
+                                                    </td>
+                                                </tr>
+
                                                <tr style="display: none">
                                                    <td>Estatus SAT:</td>
                                                    <td>
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -485,6 +485,7 @@ Partial Class Compras_Proveedores
            SerieSucursal = ""
            TrFolioDuplicado.Visible = False
            CargaMonedas()
+            CargaRegimenFiscal()
            'HlAgregarExcel.Visible = UsuarioActual.CveRol = 1

            If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then
@@ -648,6 +649,13 @@ Partial Class Compras_Proveedores
        RegisterPostBackControl()
    End Sub

+    Private Sub CargaRegimenFiscal()
+        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
+        DdlRegimenFiscal.DataBind()
+
+        DdlRegimenFiscal.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+    End Sub
+
    Private Sub SetValues()
        ViewState("Orden") = ""
        ViewState("OrdenUsuarios") = ""
@@ -741,6 +749,15 @@ Partial Class Compras_Proveedores
                        TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                        TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
                        ChkEstado.Checked = True
+
+                        If Version = "4.0" Then
+
+                            Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
+                            Dim CveRegimenFiscal As Integer = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CveRegimenFiscal", $" CodigoRegimenFiscal = '{ CodigoRegimenFiscal }'").ToEntero
+                            DdlRegimenFiscal.SelectedValueExist(CveRegimenFiscal)
+
+                        End If
+
                    Else
                        TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
                        TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "nombre"))
@@ -865,6 +882,8 @@ Partial Class Compras_Proveedores
                DdlDIOTPais.SelectedValueExist(ObjProveedor.DIOTCvePais)
                TxtDIOTNacionalidad.Text = ObjProveedor.DIOTNacionalidad

+                DdlRegimenFiscal.SelectedValueExist(ObjProveedor.CveRegimenFiscal
+                                                    )
                If UsuarioActual.Empresa.TipoContabilidad = 1 Then
                    CargaCuentasConceptos()
                    divCuentas.Visible = True
@@ -1716,7 +1735,7 @@ Partial Class Compras_Proveedores
                DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
                AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
+                CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then

                Dim NuevoCveProveedor = ObjProveedores.CveProveedor

@@ -1877,7 +1896,7 @@ Partial Class Compras_Proveedores
                        DdlCtaContRetIVAAcreditable.SelectedValue.ToEntero, DdlCtaContRetIVAAcreditable.SelectedItem.Text, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
                        DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
                        DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
-                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero()) Then
+                        CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
                'CargaDatos()


--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -414,6 +414,11 @@ Partial Class Inventarios_EntradasSalidas
                LnkCambioVigencia.Visible = True
            End If

+            If EsConsumoInterno AndAlso UsuarioActual.TienePermisoProceso(340) Then
+                TxtFecha.Enabled = True
+                ImgFecha.Visible = True
+            End If
+
        End If

    End Sub
@@ -1056,6 +1061,9 @@ Partial Class Inventarios_EntradasSalidas

        End If

+
+
+
        UpModalInventarioFisico.Update()
        BloqueaEdicionEncabezado()
        Mov.Dispose()