@@ -1118,9 +1096,12 @@
¿El Cliente nos retiene IVA por Fletes y Acarreos?:
+
+
+
+
-
-
+
CFDI Versión
@@ -1148,16 +1129,21 @@
-
-
- El cliente desglosa IEPS:
+
+
+
+ El cliente desglosa IEPS:
-
-
-
- El cliente No desglosa IVA:
-
-
+
+
+
+
+
+ El cliente No desglosa IVA:
+
+
+
+
@@ -4636,7 +4622,7 @@
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 9d7fbb575..9f376cfb1 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1436,7 +1436,7 @@ Partial Class Clientes
DdlMonedaExtranjeraAnticipos.SelectedValue = IdCtaMonedaExtranjeraAnticipos
ActivarRegistroAutomatico()
- HeedarContable.Attributes.Remove("onclick")
+ HeaderContable.Attributes.Remove("onclick")
UpFiscalContable.Update()
End Sub
@@ -2061,30 +2061,40 @@ Partial Class Clientes
End Sub
Private Sub CargaFormaPago33()
- DdlFormaPago33.Items.Clear()
- DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
- DdlFormaPago33.DataBind()
+ 'DdlFormaPago33.Items.Clear()
+ 'DdlFormaPago33.DataSource = GlobalDTVtaFormaPago
+ 'DdlFormaPago33.DataBind()
+ CargaFormaDePago()
DdlSucursalFormaPago33.Items.Clear()
DdlSucursalFormaPago33.DataSource = GlobalDTVtaFormaPago
DdlSucursalFormaPago33.DataBind()
End Sub
Private Sub CargaComboCFDI()
- Dim RegimenFiscalCliente = DdlRegimenFiscal.SelectedValue.ToString()
- 'If Not UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
- ' RegimenFiscalCliente = "-1"
- 'End If
+ Dim RegimenFiscalCliente As String = "-1"
+ If DdlRegimenFiscal.SelectedValue <> "-1" Then RegimenFiscalCliente = GlobalDTRegimenesFiscales(-1).FiltroPrimeroValor("CodigoRegimenFiscal", $"CveRegimenFiscal = {DdlRegimenFiscal.SelectedValue}")
+ Dim tcveuso As Integer = DdlUsoCFDI.SelectedValue.ToEntero
- DdlUsoCFDI.Items.Clear()
+ DdlUsoCFDI.SelectedIndex = -1
+ DdlUsoCFDI.Items.Clear()
+ DdlUsoCFDI.ClearSelection()
Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
- DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+ DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+ DdlUsoCFDI.ClearSelection()
- DdlUsoCFDI.DataBind()
+ Try
+ DdlUsoCFDI.DataBind()
+ Catch ex As Exception
+
+ End Try
+
DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ If tcveuso > 0 Then DdlUsoCFDI.SelectedValueExist(tcveuso)
DdlSucursalUsoCFDI.Items.Clear()
DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
DdlSucursalUsoCFDI.DataBind()
+ UpFiscalContable.Update()
End Sub
#End Region
@@ -10322,6 +10332,7 @@ Partial Class Clientes
DdlRegimenFiscal.DataSource = dt
DdlRegimenFiscal.DataBind()
DdlRegimenFiscal.SelectedValueExist(Val)
+ CargaComboCFDI()
UpDatos.Update()
End Sub
@@ -10480,10 +10491,8 @@ Partial Class Clientes
UpLineaAdicionalmodal.Update()
- End Sub
-
-
-
+ End Sub
+
Protected Sub LnkEliminarLineaAdicional_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveLineaAdicionalEliminar = GvRow.DataKey("CveLineaAdicional").ToEntero
@@ -10503,10 +10512,8 @@ Partial Class Clientes
GetLineasAdicionales()
End If
- End Sub
-
-
-
+ End Sub
+
Protected Sub DdlTipoLineaAdicionalModal_SelectedIndexChanged(sender As Object, e As EventArgs)
DvLineaAdicionalDiasVenciemientoModal.Visible = If(DdlTipoLineaAdicionalModal.SelectedValue.ToEntero = 2, True, False)
@@ -10525,7 +10532,7 @@ Partial Class Clientes
DdlFormaPago33.Items.Clear()
- If DdlMetodoPago33.SelectedValue.ToEntero = 3 Then
+ If DdlMetodoPago33.SelectedValue = "3" Then
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
Else
DdlFormaPago33.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
@@ -10572,11 +10579,8 @@ Partial Class Clientes
If Not ErrorCambio Then
Alert("Vendedor Cambiado Correctamente.", TipoMensaje.MsgInformacion, $"document.location.href=""/Ventas/Clientes.aspx?CveCliente={CveCliente}""")
- End If
-
-
-
-
+ End If
+
End Sub
@@ -10589,7 +10593,10 @@ Partial Class Clientes
UpDatos.Update()
+ End Sub
+
+ Private Sub DdlRegimenFiscal_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRegimenFiscal.SelectedIndexChanged
+ CargaComboCFDI()
End Sub
-
End Class
diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 5c97355a1..1b1b48cfc 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2605,7 +2605,7 @@
-
+
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index d5374cd1e..c964184aa 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -8661,4 +8661,15 @@ Partial Class PV
RegistraScript("AbrirModalDescuentoAdicional();")
End Sub
+
+ Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
+ DdlFormaCliente.Items.Clear()
+ If DdlMetodoCliente.SelectedValue = "3" Then
+ DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+ Else
+ DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+ End If
+ DdlFormaCliente.DataBind()
+
+ End Sub
End Class
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 38d20fbab..add126eba 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -7899,7 +7899,7 @@
-
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 61376ad6f..0d52520b8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6154,14 +6154,10 @@ Partial Class Ventas
dtt = GlobalDTVtaFormaPago
End If
DdlFormaPago33.Items.Clear()
- 'DdlFormaPago33.ClearSelection()
- 'DdlFormaPago33.DataBind()
DdlFormaPago33.DataSource = dtt
DdlFormaPago33.SelectedValue = dtt.FiltroPrimeroValor("CveFormaPago", "")
DdlFormaPago33.DataBind()
- DdlFormaCliente.DataSource = GlobalDTVtaFormaPago
- DdlFormaCliente.DataBind()
DdlMetodoCliente.DataSource = GlobalDTVtaMetodoPago
DdlMetodoCliente.DataBind()
@@ -23508,7 +23504,8 @@ Partial Class Ventas
RdTipoPersona.SelectedValue = "0"
DdlMetodoCliente.SelectedValueExist(1)
- DdlFormaCliente.SelectedValueExist(1)
+
+ 'DdlFormaCliente.SelectedValueExist(1)
DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales().FiltraParametros("CveRegimenFiscal = 11")
DdlRegimenFiscalCliente.DataBind()
@@ -37116,5 +37113,16 @@ Partial Class Ventas
Tab.ActiveTabIndex = 0
Updatetabs.Update()
End Sub
+
+ Private Sub DdlMetodoCliente_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlMetodoCliente.SelectedIndexChanged
+ DdlFormaCliente.Items.Clear()
+ If DdlMetodoCliente.SelectedValue = "3" Then
+ DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago = 20")
+ Else
+ DdlFormaCliente.DataSource = GlobalDTVtaFormaPago.FiltraParametros("CveFormaPago <> 20")
+ End If
+ DdlFormaCliente.DataBind()
+
+ End Sub
End Class