--Merge Ventas
This commit is contained in:
@@ -2205,12 +2205,13 @@ Partial Class Compras_Compras
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
|
||||
End If
|
||||
|
||||
|
||||
ElseIf RFCProv.Length = 12 Then
|
||||
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
@@ -2220,12 +2221,14 @@ Partial Class Compras_Compras
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
|
||||
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
|
||||
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
@@ -2251,12 +2254,14 @@ Partial Class Compras_Compras
|
||||
DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
|
||||
End If
|
||||
|
||||
If DIOTCveTipoOperacion = 3 Then ' 85 - Otros
|
||||
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
|
||||
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
|
||||
DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
|
||||
DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
End If
|
||||
UpPS.Update()
|
||||
End Sub
|
||||
|
||||
@@ -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>
|
||||
|
||||
@@ -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,17 @@ Partial Class Compras_Proveedores
|
||||
TxtRazonSocial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
|
||||
TxtNombreComercial.Text = HttpUtility.HtmlDecode(ValorXml(node, "Nombre"))
|
||||
ChkEstado.Checked = True
|
||||
|
||||
Dim CodigoRegimenFiscal As String = ValorXml(node, "RegimenFiscal")
|
||||
|
||||
If Version = "4.0" Or CodigoRegimenFiscal.Trim.Length > 0 Then
|
||||
|
||||
|
||||
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 +884,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 +1737,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 +1898,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()
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user