-- RF validacion de estados, en el combo

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