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)