diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx
index 190076940..b0ac30892 100644
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2374,16 +2374,25 @@
-
+
@@ -3665,8 +3674,8 @@
$('#<%= TxtTelefonoCliente.ClientID %>').val('');
$('#<%= TxtCiudadCliente.ClientID %>').val('');
$('#<%= TxtLocalidadCliente.ClientID %>').val('');
- $('#<%= TxtEstadoCliente.ClientID %>').val('');
- $('#<%= TxtPaisCliente.ClientID %>').val('');
+ $('#<%= DdlEstadoSAT.ClientID %>').val('');
+ $('#<%= DdlSATPais.ClientID %>').val('');
$('#<%= TxtCorreoCliente.ClientID %>').val('');
$('#divAgregarCliente').modal();
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 927c6b1ad..da3eeb9e4 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2298,6 +2298,19 @@ Partial Class PV
If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectoDatos.Enabled = False
End Sub
+ Private Sub CargaEstados(Optional ClaveSATPais As String = "MEX")
+
+ DdlEstadoSAT.Items.Clear()
+ DdlEstadoSAT.DataSource = GlobalDTEstado(ClaveSATPais)
+
+ DdlEstadoSAT.DataBind()
+ DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+ End Sub
+ Protected Sub DdlSATPais_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaEstados(DdlSATPais.SelectedValue)
+ End Sub
+
Private Sub CargaEmpresa()
If UsuarioActual.Empresa.UsaContabilidad Then
Dim ObjFisConfiguracion As New ClsFISConfiguracion
@@ -5505,6 +5518,7 @@ Partial Class PV
DivFormaCliente.Visible = False
TxtRFCCliente.Text = "XAXX010101000"
UpAgregarCliente.Update()
+ CargaEstados()
RegistraScript("showDivEC();")
End Sub
@@ -5527,8 +5541,6 @@ Partial Class PV
RFVColoniaC.Visible = False
RFVCiudadC.Visible = False
RFVLocalidadC.Visible = False
- RFVEstadoC.Visible = False
- RFVPaisC.Visible = False
TxtNombreCliente.Focus()
DdlMetodoCliente.SelectedValueExist(1)
@@ -5538,7 +5550,7 @@ Partial Class PV
If dr IsNot Nothing Then
TxtCPCliente.Text = dr("CP").ToString
- TxtEstadoCliente.Text = dr("Estado").ToString
+ 'TxtEstadoCliente.Text = dr("Estado").ToString RMf FAlta
TxtCiudadCliente.Text = dr("Municipio").ToString
TxtLocalidadCliente.Text = dr("Localidad").ToString
End If
@@ -5570,8 +5582,6 @@ Partial Class PV
RFVColoniaC.Visible = True
RFVCiudadC.Visible = True
RFVLocalidadC.Visible = True
- RFVEstadoC.Visible = True
- RFVPaisC.Visible = True
DdlMetodoCliente.SelectedValueExist(-1)
DdlFormaCliente.SelectedValueExist(-1)
@@ -5580,12 +5590,12 @@ Partial Class PV
End Sub
Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
- Dim CvePreioLista As Integer = -1
+ Dim CvePrecioLista As Integer = -1
If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
If Dr IsNot Nothing Then
If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
- CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+ CvePrecioLista = Dr("CvePrecioLista").ToString.ToEntero
End If
End If
End If
@@ -5593,7 +5603,7 @@ Partial Class PV
Dim ObjCliente As New ClsClientes
If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim,
- TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim,
+ TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, DdlEstadoSAT.SelectedValue.ToEntero, TxtRFCCliente.Text.Trim,
TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
UsuarioActual.CveEmpresa, "", DdlMetodoCliente.SelectedValue.ToEntero, DdlFormaCliente.SelectedValue.ToEntero) Then
If ObjCliente.DtResultados.Rows.Count > 0 Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d9bf20d71..754b814a3 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18501,7 +18501,6 @@ Partial Class Ventas
RFVColoniaC.Visible = False
RFVCiudadC.Visible = False
RFVLocalidadC.Visible = False
- RfvDdlEstadoSAT.Visible = False
RFVSATPais.Visible = False
DdlMetodoCliente.SelectedValueExist(1)
@@ -18534,7 +18533,6 @@ Partial Class Ventas
RFVColoniaC.Visible = True
RFVCiudadC.Visible = True
RFVLocalidadC.Visible = True
- RfvDdlEstadoSAT.Visible = True
RFVSATPais.Visible = True
DdlMetodoCliente.SelectedValueExist(-1)