Regimen Fiscal Proveedores

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
 

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>

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()
 
 

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()