Publicado el Dejar un comentario

CLIENTES004 Cuando uno de los comboboxes de la forma cambia

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()

    Select Case Ambiente.Tag
           Case 0
                if cmbFields(0) = "México" Then
                   ColocaEstados
                Else
                   strText = cmbFields(1) 
                   cmbFields(1).Clear
                   cmbFields(1) = strText
                End If

           Case 1

                if cmbFields(1) = "Distrito federal" Then
                   ColocaDelegaciones
                Else
                   strText = cmbFields(2) 
                   cmbFields(2).Clear
                   cmbFields(2) = strText
                End If


    End Select

End Sub


Public Sub ColocaEstados()

    cmbFields(1).AddItem "Aguascalientes"
    cmbFields(1).AddItem "Baja california norte"
    cmbFields(1).AddItem "Baja california"
    cmbFields(1).AddItem "Campeche"
    cmbFields(1).AddItem "Chiapas"
    cmbFields(1).AddItem "Chihuahua"
    cmbFields(1).AddItem "Coahuila"
    cmbFields(1).AddItem "Colima"
    cmbFields(1).AddItem "Distrito federal"
    cmbFields(1).AddItem "Durango"
    cmbFields(1).AddItem "Guanajuato"
    cmbFields(1).AddItem "Guerrero"
    cmbFields(1).AddItem "Hidalgo"
    cmbFields(1).AddItem "Jalisco"
    cmbFields(1).AddItem "Mexico"
    cmbFields(1).AddItem "Michoacan"
    cmbFields(1).AddItem "Morelos"
    cmbFields(1).AddItem "Nayarit"
    cmbFields(1).AddItem "Nuevo leon"
    cmbFields(1).AddItem "Oaxaca"
    cmbFields(1).AddItem "Puebla"
    cmbFields(1).AddItem "Queretaro"
    cmbFields(1).AddItem "Quintana roo"
    cmbFields(1).AddItem "San luis potosi"
    cmbFields(1).AddItem "Sinaloa"
    cmbFields(1).AddItem "Sonora"
    cmbFields(1).AddItem "Tabasco"
    cmbFields(1).AddItem "Tamaulipas"
    cmbFields(1).AddItem "Tlaxcala"
    cmbFields(1).AddItem "Veracruz"
    cmbFields(1).AddItem "Yucatan"
    cmbFields(1).AddItem "Zacatecas"

End Sub


Public Sub ColocaDelegaciones()

    cmbFields(2).AddItem "Alvaro Obregón"
    cmbFields(2).AddItem "Azcapotzalco"
    cmbFields(2).AddItem "Benito Júarez"
    cmbFields(2).AddItem "Coyoacán"
    cmbFields(2).AddItem "Cuajimalpa"
    cmbFields(2).AddItem "Cuauhtémoc"
    cmbFields(2).AddItem "Gustabo A.Madero"
    cmbFields(2).AddItem "Iztacalco"
    cmbFields(2).AddItem "Iztapalapa"
    cmbFields(2).AddItem "La Magdalena Contreras"
    cmbFields(2).AddItem "Miguel Hidalgo"
    cmbFields(2).AddItem "Milpa Alta"
    cmbFields(2).AddItem "Tláhuac"
    cmbFields(2).AddItem "Tlalpan"
    cmbFields(2).AddItem "Venustiano Carranza"
    cmbFields(2).AddItem "Xochimilco"


End Sub
Deja un comentario