Clipper On Line • Ver Tópico - SPLITBOX for next ou do while para a matriz ITEMS

SPLITBOX for next ou do while para a matriz ITEMS

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 13 Abr 2020 22:23

alguem sabe se eh possivel colocar for next ou do while dentro de um split box pra gerar a quantidade de opcoes do ITEMS?
ex:
            LISTBOX List_1 ;
                WIDTH 200 ;
                HEIGHT 400 ;
                ITEMS {OPCOES[1,3],OPCOES[2,3],;
                 OPCOES[3,3],OPCOES[4,3],;
            OPCOES[5,3]} ;
                VALUE 1 ;
                TOOLTIP 'escolha a apção'

como no exemplo acima, a matriz opcoes pode conter valores de 1 a 20 ou ate +... vai do gosto do fregues;
alguem sabe como fazer um tipo de do while assim:
N=1
do while N <= 1 to len(OPCOES)
                ITEMS {OPCOES[N,3],,,,} ;
                N++
end do

ou for next assim:
N=1
for N = 1 to len(OPCOES)
                ITEMS {OPCOES[N,3],,,,} ;
next

num sei se consegui explica o meu problema.
se alguem tiver uma luz
vlw
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor Fernando queiroz » 13 Abr 2020 23:46

algo tipo isso
   FOR EACH oPAIS IN SEFAZ_CIDADE
      IF oPAIS[1] == "EX"
         AAdd(MEMVAR->aPAIS,oPAIS[3])
      ENDIF
   NEXT
   
   FOR EACH oUF IN SEFAZ_UF
      AAdd(MEMVAR->aUF,oUF[1])
   NEXT
   
   FOR EACH oCIDADE IN SEFAZ_CIDADE
      IF oCIDADE[1] == MEMVAR->UF
         AAdd(MEMVAR->aMunicipios,oCIDADE[3])
      ENDIF
   NEXT


carrego 3 tabelas de uma outra tabela, e dependendo da UF eu carrego somente os municípios desta UF

#define SEFAZ_CIDADE { ;
   { "EX", "000132 ", "AFEGANISTAO" }, ;
   { "EX", "000175 ", "ALBANIA, REPUBLICA DA" }, ;
   { "EX", "000230 ", "ALEMANHA" }, ;
   { "EX", "000310 ", "BURKINA FASO" }, ;
   { "EX", "000370 ", "ANDORRA" }, ;
   { "EX", "000400 ", "ANGOLA" }, ;
   { "EX", "000418 ", "ANGUILLA" }, ;
   { "EX", "000434 ", "ANTIGUA E BARBUDA" }, ;
   { "EX", "000477 ", "ANTILHAS HOLANDESAS" }, ;
   { "EX", "000531 ", "ARABIA SAUDITA" }, ;
   { "EX", "000590 ", "ARGELIA" }, ;
   { "EX", "000639 ", "ARGENTINA" }, ;
   { "EX", "000647 ", "ARMENIA, REPUBLICA DA" }, ;
   { "EX", "000655 ", "ARUBA" }, ;
   { "EX", "000698 ", "AUSTRALIA" }, ;
   { "EX", "000728 ", "AUSTRIA" }, ;
   { "EX", "000736 ", "AZERBAIJAO, REPUBLICA" }, ;
   { "EX", "000779 ", "BAHAMAS, ILHAS" }, ;
   { "EX", "000809 ", "BAHREIN, ILHAS" }, ;
   { "EX", "000817 ", "BANGLADESH" }, ;
   { "EX", "000833 ", "BARBADOS" }, ;
   { "EX", "000850 ", "BELARUS, REPUBLICA DA" }, ;
   { "EX", "000876 ", "BELGICA" }, ;
   { "EX", "000884 ", "BELIZE" }, ;
   { "EX", "000906 ", "BERMUDAS" }, ;
   { "EX", "000930 ", "MIANMAR (BIRMANIA)" }, ;
   { "EX", "000973 ", "BOLIVIA" }, ;
   { "EX", "000981 ", "BOSNIA-HERZEGOVINA (R" }, ;
   { "EX", "001015 ", "BOTSUANA" }, ;
   { "EX", "001058 ", "BRASIL" }, ;
   { "EX", "001082 ", "BRUNEI" }, ;
   { "EX", "001112 ", "BULGARIA, REPUBLICA D" }, ;
   { "EX", "001155 ", "BURUNDI" }, ;
   { "EX", "001198 ", "BUTAO" }, ;
   { "EX", "001279 ", "CABO VERDE, REPUBLICA" }, ;
   { "EX", "001376 ", "CAYMAN, ILHAS" }, ;
   { "EX", "001414 ", "CAMBOJA" }, ;
   { "EX", "001457 ", "CAMAROES" }, ;
   { "EX", "001490 ", "CANADA" }, ;
   { "EX", "001504 ", "GUERNSEY, ILHA DO CAN" }, ;
   { "EX", "001508 ", "JERSEY, ILHA DO CANAL" }, ;
   { "EX", "001511 ", "CANARIAS, ILHAS" }, ;
   { "EX", "001538 ", "CAZAQUISTAO, REPUBLIC" }, ;
   { "EX", "001546 ", "CATAR" }, ;
   { "EX", "001589 ", "CHILE" }, ;
   { "EX", "001600 ", "CHINA, REPUBLICA POPU" }, ;
   { "EX", "001619 ", "FORMOSA (TAIWAN)" }, ;
   { "EX", "001635 ", "CHIPRE" }, ;
   { "EX", "001651 ", "COCOS(KEELING),ILHAS" }, ;
   { "EX", "001694 ", "COLOMBIA" }, ;
   { "EX", "001732 ", "COMORES, ILHAS" }, ;
   { "EX", "001775 ", "CONGO" }, ;
   { "EX", "001830 ", "COOK, ILHAS" }, ;
   { "EX", "001872 ", "COREIA, REP.POP.DEMOC" }, ;
   { "EX", "001902 ", "COREIA, REPUBLICA DA" }, ;
   { "EX", "001937 ", "COSTA DO MARFIM" }, ;
   { "EX", "001953 ", "CROACIA (REPUBLICA DA" }, ;
   { "EX", "001961 ", "COSTA RICA" }, ;
   { "EX", "001988 ", "COVEITE" }, ;
   { "EX", "001996 ", "CUBA" }, ;
   { "EX", "002291 ", "BENIN" }, ;
   { "EX", "002321 ", "DINAMARCA" }, ;
   { "EX", "002356 ", "DOMINICA,ILHA" }, ;
   { "EX", "002399 ", "EQUADOR" }, ;
   { "EX", "002402 ", "EGITO" }, ;
   { "EX", "002437 ", "ERITREIA" }, ;
   { "EX", "002445 ", "EMIRADOS ARABES UNIDO" }, ;
   { "EX", "002453 ", "ESPANHA" }, ;
   { "EX", "002461 ", "ESLOVENIA, REPUBLICA" }, ;
   { "EX", "002470 ", "ESLOVACA, REPUBLICA" }, ;
   { "EX", "002496 ", "ESTADOS UNIDOS" }, ;
   { "EX", "002518 ", "ESTONIA, REPUBLICA DA" }, ;
   { "EX", "002534 ", "ETIOPIA" }, ;
   { "EX", "002550 ", "FALKLAND (ILHAS MALVI" }, ;
   { "EX", "002593 ", "FEROE, ILHAS" }, ;
   { "EX", "002674 ", "FILIPINAS" }, ;
   { "EX", "002712 ", "FINLANDIA" }, ;
   { "EX", "002755 ", "FRANCA" }, ;
   { "EX", "002810 ", "GABAO" }, ;
   { "EX", "002852 ", "GAMBIA" }, ;
   { "EX", "002895 ", "GANA" }, ;
   { "EX", "002917 ", "GEORGIA, REPUBLICA DA" }, ;
   { "EX", "002933 ", "GIBRALTAR" }, ;
   { "EX", "002976 ", "GRANADA" }, ;
   { "EX", "003018 ", "GRECIA" }, ;
   { "EX", "003050 ", "GROENLANDIA" }, ;
   { "EX", "003093 ", "GUADALUPE" }, ;
   { "EX", "003131 ", "GUAM" }, ;
   { "EX", "003174 ", "GUATEMALA" }, ;
   { "EX", "003255 ", "GUIANA FRANCESA" }, ;
   { "EX", "003298 ", "GUINE" }, ;
   { "EX", "003310 ", "GUINE-EQUATORIAL" }, ;
   { "EX", "003344 ", "GUINE-BISSAU" }, ;
   { "EX", "003379 ", "GUIANA" }, ;
   { "EX", "003417 ", "HAITI" }, ;
   { "EX", "003450 ", "HONDURAS" }, ;
   { "EX", "003514 ", "HONG KONG" }, ;
   { "EX", "003557 ", "HUNGRIA, REPUBLICA DA" }, ;
   { "EX", "003573 ", "IEMEN" }, ;
   { "EX", "003595 ", "MAN, ILHA DE" }, ;
   { "EX", "003611 ", "INDIA" }, ;
   { "EX", "003654 ", "INDONESIA" }, ;
   { "EX", "003697 ", "IRAQUE" }, ;
   { "EX", "003727 ", "IRA, REPUBLICA ISLAMI" }, ;
   { "EX", "003751 ", "IRLANDA" }, ;
   { "EX", "003794 ", "ISLANDIA" }, ;
   { "EX", "003832 ", "ISRAEL" }, ;
   { "EX", "003867 ", "ITALIA" }, ;
   { "EX", "003913 ", "JAMAICA" }, ;
   { "EX", "003964 ", "JOHNSTON, ILHAS" }, ;
   { "EX", "003999 ", "JAPAO" }, ;
   { "EX", "004030 ", "JORDANIA" }, ;
   { "EX", "004111 ", "KIRIBATI" }, ;
   { "EX", "004200 ", "LAOS, REP.POP.DEMOCR." }, ;
   { "EX", "004260 ", "LESOTO" }, ;
   { "EX", "004278 ", "LETONIA, REPUBLICA DA" }, ;
   { "EX", "004316 ", "LIBANO" }, ;
   { "EX", "004340 ", "LIBERIA" }, ;
   { "EX", "004383 ", "LIBIA" }, ;
   { "EX", "004405 ", "LIECHTENSTEIN" }, ;
   { "EX", "004421 ", "LITUANIA, REPUBLICA D" }, ;
   { "EX", "004456 ", "LUXEMBURGO" }, ;
   { "EX", "004472 ", "MACAU" }, ;
   { "EX", "004499 ", "MACEDONIA, ANT.REP.IU" }, ;
   { "EX", "004502 ", "MADAGASCAR" }, ;
   { "EX", "004525 ", "MADEIRA, ILHA DA" }, ;
   { "EX", "004553 ", "MALASIA" }, ;
   { "EX", "004588 ", "MALAVI" }, ;
   { "EX", "004618 ", "MALDIVAS" }, ;
   { "EX", "004642 ", "MALI" }, ;
   { "EX", "004677 ", "MALTA" }, ;
   { "EX", "004723 ", "MARIANAS DO NORTE" }, ;
   { "EX", "004740 ", "MARROCOS" }, ;
   { "EX", "004766 ", "MARSHALL,ILHAS" }, ;
   { "EX", "004774 ", "MARTINICA" }, ;
   { "EX", "004855 ", "MAURICIO" }, ;
   { "EX", "004880 ", "MAURITANIA" }, ;
   { "EX", "004901 ", "MIDWAY, ILHAS" }, ;
   { "EX", "004936 ", "MEXICO" }, ;
   { "EX", "004944 ", "MOLDAVIA, REPUBLICA D" }, ;
   { "EX", "004952 ", "MONACO" }, ;
   { "EX", "004979 ", "MONGOLIA" }, ;
   { "EX", "004985 ", "MONTENEGRO" }, ;
   { "EX", "004995 ", "MICRONESIA" }, ;
   { "EX", "005010 ", "MONTSERRAT,ILHAS" }, ;
   { "EX", "005053 ", "MOCAMBIQUE" }, ;
   { "EX", "005070 ", "NAMIBIA" }, ;
   { "EX", "005088 ", "NAURU" }, ;
   { "EX", "005118 ", "CHRISTMAS,ILHA (NAVID" }, ;
   { "EX", "005177 ", "NEPAL" }, ;
   { "EX", "005215 ", "NICARAGUA" }, ;
   { "EX", "005258 ", "NIGER" }, ;
   { "EX", "005282 ", "NIGERIA" }, ;
   { "EX", "005312 ", "NIUE,ILHA" }, ;
   { "EX", "005355 ", "NORFOLK,ILHA" }, ;
   { "EX", "005380 ", "NORUEGA" }, ;
   { "EX", "005428 ", "NOVA CALEDONIA" }, ;
   { "EX", "005452 ", "PAPUA NOVA GUINE" }, ;
   { "EX", "005487 ", "NOVA ZELANDIA" }, ;
   { "EX", "005517 ", "VANUATU" }, ;
   { "EX", "005568 ", "OMA" }, ;
   { "EX", "005665 ", "PACIFICO,ILHAS DO (PO" }, ;
   { "EX", "005738 ", "PAISES BAIXOS (HOLAND" }, ;
   { "EX", "005754 ", "PALAU" }, ;
   { "EX", "005762 ", "PAQUISTAO" }, ;
   { "EX", "005800 ", "PANAMA" }, ;
   { "EX", "005860 ", "PARAGUAI" }, ;
   { "EX", "005894 ", "PERU" }, ;
   { "EX", "005932 ", "PITCAIRN,ILHA" }, ;
   { "EX", "005991 ", "POLINESIA FRANCESA" }, ;
   { "EX", "006033 ", "POLONIA, REPUBLICA DA" }, ;
   { "EX", "006076 ", "PORTUGAL" }, ;
   { "EX", "006114 ", "PORTO RICO" }, ;
   { "EX", "006238 ", "QUENIA" }, ;
   { "EX", "006254 ", "QUIRGUIZ, REPUBLICA" }, ;
   { "EX", "006289 ", "REINO UNIDO" }, ;
   { "EX", "006408 ", "REPUBLICA CENTRO-AFRI" }, ;
   { "EX", "006475 ", "REPUBLICA DOMINICANA" }, ;
   { "EX", "006602 ", "REUNIAO, ILHA" }, ;
   { "EX", "006653 ", "ZIMBABUE" }, ;
   { "EX", "006700 ", "ROMENIA" }, ;
   { "EX", "006750 ", "RUANDA" }, ;
   { "EX", "006769 ", "RUSSIA, FEDERACAO DA" }, ;
   { "EX", "006777 ", "SALOMAO, ILHAS" }, ;
   { "EX", "006781 ", "SAINT KITTS E NEVIS" }, ;
   { "EX", "006858 ", "SAARA OCIDENTAL" }, ;
   { "EX", "006874 ", "EL SALVADOR" }, ;
   { "EX", "006904 ", "SAMOA" }, ;
   { "EX", "006912 ", "SAMOA AMERICANA" }, ;
   { "EX", "006955 ", "SAO CRISTOVAO E NEVES" }, ;
   { "EX", "006971 ", "SAN MARINO" }, ;
   { "EX", "007005 ", "SAO PEDRO E MIQUELON" }, ;
   { "EX", "007056 ", "SAO VICENTE E GRANADI" }, ;
   { "EX", "007102 ", "SANTA HELENA" }, ;
   { "EX", "007153 ", "SANTA LUCIA" }, ;
   { "EX", "007200 ", "SAO TOME E PRINCIPE," }, ;
   { "EX", "007285 ", "SENEGAL" }, ;
   { "EX", "007315 ", "SEYCHELLES" }, ;
   { "EX", "007358 ", "SERRA LEOA" }, ;
   { "EX", "007370 ", "SERVIA" }, ;
   { "EX", "007412 ", "CINGAPURA" }, ;
   { "EX", "007447 ", "SIRIA, REPUBLICA ARAB" }, ;
   { "EX", "007480 ", "SOMALIA" }, ;
   { "EX", "007501 ", "SRI LANKA" }, ;
   { "EX", "007544 ", "SUAZILANDIA" }, ;
   { "EX", "007560 ", "AFRICA DO SUL" }, ;
   { "EX", "007595 ", "SUDAO" }, ;
   { "EX", "007641 ", "SUECIA" }, ;
   { "EX", "007676 ", "SUICA" }, ;
   { "EX", "007706 ", "SURINAME" }, ;
   { "EX", "007722 ", "TADJIQUISTAO, REPUBLI" }, ;
   { "EX", "007765 ", "TAILANDIA" }, ;
   { "EX", "007803 ", "TANZANIA, REP.UNIDA D" }, ;
   { "EX", "007820 ", "TERRITORIO BRIT.OC.IN" }, ;
   { "EX", "007838 ", "DJIBUTI" }, ;
   { "EX", "007889 ", "CHADE" }, ;
   { "EX", "007919 ", "TCHECA, REPUBLICA" }, ;
   { "EX", "007951 ", "TIMOR LESTE" }, ;
   { "EX", "008001 ", "TOGO" }, ;
   { "EX", "008052 ", "TOQUELAU,ILHAS" }, ;
   { "EX", "008109 ", "TONGA" }, ;
   { "EX", "008150 ", "TRINIDAD E TOBAGO" }, ;
   { "EX", "008206 ", "TUNISIA" }, ;
   { "EX", "008230 ", "TURCAS E CAICOS,ILHAS" }, ;
   { "EX", "008249 ", "TURCOMENISTAO, REPUBL" }, ;
   { "EX", "008273 ", "TURQUIA" }, ;
   { "EX", "008281 ", "TUVALU" }, ;
   { "EX", "008311 ", "UCRANIA" }, ;
   { "EX", "008338 ", "UGANDA" }, ;
   { "EX", "008451 ", "URUGUAI" }, ;
   { "EX", "008478 ", "UZBEQUISTAO, REPUBLIC" }, ;
   { "EX", "008486 ", "VATICANO, EST.DA CIDA" }, ;
   { "EX", "008508 ", "VENEZUELA" }, ;
   { "EX", "008583 ", "VIETNA" }, ;
   { "EX", "008630 ", "VIRGENS,ILHAS (BRITAN" }, ;
   { "EX", "008664 ", "VIRGENS,ILHAS (E.U.A." }, ;
   { "EX", "008702 ", "FIJI" }, ;
   { "EX", "008737 ", "WAKE, ILHA" }, ;
   { "EX", "008885 ", "CONGO, REPUBLICA DEMO" }, ;
   { "EX", "008907 ", "ZAMBIA" }, ;
   { "EX", "008958 ", "ZONA DO CANAL DO PANA" }, ;
   { "RO", "1100015", "ALTA FLORESTA D OESTE" }, ;
   { "RO", "1100023", "ARIQUEMES" }, ;
   { "RO", "1100031", "CABIXI" }, ;
   { "RO", "1100049", "CACOAL" }, ;
   { "RO", "1100056", "CEREJEIRAS" }, ;
   { "RO", "1100064", "COLORADO DO OESTE" }, ;
   { "RO", "1100072", "CORUMBIARA" }, ;
   { "RO", "1100080", "COSTA MARQUES" }, ;
   { "RO", "1100098", "ESPIGAO D OESTE" }, ;
   { "RO", "1100106", "GUAJARA-MIRIM" }, ;
   { "RO", "1100114", "JARU" }, ;
   { "RO", "1100122", "JI-PARANA" }, ;
   { "RO", "1100130", "MACHADINHO D OESTE" }, ;
   { "RO", "1100148", "NOVA BRASILANDIA D OESTE" }, ;
   { "RO", "1100155", "OURO PRETO DO OESTE" }, ;
   { "RO", "1100189", "PIMENTA BUENO" }, ;
   { "RO", "1100205", "PORTO VELHO" }, ;
   { "RO", "1100254", "PRESIDENTE MEDICI" }, ;
   { "RO", "1100262", "RIO CRESPO" }, ;
   { "RO", "1100288", "ROLIM DE MOURA" }, ;
   { "RO", "1100296", "SANTA LUZIA D OESTE" }, ;
   { "RO", "1100304", "VILHENA" }, ;
   { "RO", "1100320", "SAO MIGUEL DO GUAPORE" }, ;
   { "RO", "1100338", "NOVA MAMORE" }, ;
   { "RO", "1100346", "ALVORADA D OESTE" }, ;
   { "RO", "1100379", "ALTO ALEGRE DOS PARECIS" }, ;
   { "RO", "1100403", "ALTO PARAISO" }, ;
   { "RO", "1100452", "BURITIS" }, ;
   { "RO", "1100502", "NOVO HORIZONTE DO OESTE" }, ;
   { "RO", "1100601", "CACAULANDIA" }, ;
   { "RO", "1100700", "CAMPO NOVO DE RONDONIA" }, ;
   { "RO", "1100809", "CANDEIAS DO JAMARI" }, ;
   { "RO", "1100908", "CASTANHEIRAS" }, ;
   { "RO", "1100924", "CHUPINGUAIA" }, ;
   { "RO", "1100940", "CUJUBIM" }, ;
   { "RO", "1101005", "GOVERNADOR JORGE TEIXEIRA" }, ;
   { "RO", "1101104", "ITAPUA DO OESTE" }, ;
   { "RO", "1101203", "MINISTRO ANDREAZZA" }, ;
   { "RO", "1101302", "MIRANTE DA SERRA" }, ;
   { "RO", "1101401", "MONTE NEGRO" }, ;
   { "RO", "1101435", "NOVA UNIAO" }, ;
   { "RO", "1101450", "PARECIS" }, ;
   { "RO", "1101468", "PIMENTEIRAS DO OESTE" }, ;
   { "RO", "1101476", "PRIMAVERA DE RONDONIA" }, ;
   { "RO", "1101484", "SAO FELIPE D OESTE" }, ;
   { "RO", "1101492", "SAO FRANCISCO DO GUAPORE" }, ;
   { "RO", "1101500", "SERINGUEIRAS" }, ;
   { "RO", "1101559", "TEIXEIROPOLIS" }, ;
   { "RO", "1101609", "THEOBROMA" }, ;
   { "RO", "1101708", "URUPA" }, ;
   { "RO", "1101757", "VALE DO ANARI" }, ;
   { "RO", "1101807", "VALE DO PARAISO" }, ;
   { "AC", "1200013", "ACRELANDIA" }, ;
   { "AC", "1200054", "ASSIS BRASIL" }, ;
   { "AC", "1200104", "BRASILEIA" }, ;
   { "AC", "1200138", "BUJARI" }, ;
   { "AC", "1200179", "CAPIXABA" }, ;
   { "AC", "1200203", "CRUZEIRO DO SUL" }, ;
   { "AC", "1200252", "EPITACIOLANDIA" }, ;
   { "AC", "1200302", "FEIJO" }, ;
   { "AC", "1200328", "JORDAO" }, ;
   { "AC", "1200336", "MANCIO LIMA" }, ;
   { "AC", "1200344", "MANOEL URBANO" }, ;
   { "AC", "1200351", "MARECHAL THAUMATURGO" }, ;
   { "AC", "1200385", "PLACIDO DE CASTRO" }, ;
   { "AC", "1200393", "PORTO WALTER" }, ;
   { "AC", "1200401", "RIO BRANCO" }, ;
   { "AC", "1200427", "RODRIGUES ALVES" }, ;
   { "AC", "1200435", "SANTA ROSA DO PURUS" }, ;
   { "AC", "1200450", "SENADOR GUIOMARD" }, ;
   { "AC", "1200500", "SENA MADUREIRA" }, ;
   { "AC", "1200609", "TARAUACA" }, ;
   { "AC", "1200708", "XAPURI" }, ;
   { "AC", "1200807", "PORTO ACRE" }, ;
   { "AM", "1300029", "ALVARAES" }, ;
   { "AM", "1300060", "AMATURA" }, ;
   { "AM", "1300086", "ANAMA" }, ;
   { "AM", "1300102", "ANORI" }, ;
   { "AM", "1300144", "APUI" }, ;
   { "AM", "1300201", "ATALAIA DO NORTE" }, ;
   { "AM", "1300300", "AUTAZES" }, ;
   { "AM", "1300409", "BARCELOS" }, ;
   { "AM", "1300508", "BARREIRINHA" }, ;
   { "AM", "1300607", "BENJAMIN CONSTANT" }, ;
   { "AM", "1300631", "BERURI" }, ;
   { "AM", "1300680", "BOA VISTA DO RAMOS" }, ;
   { "AM", "1300706", "BOCA DO ACRE" }, ;
   { "AM", "1300805", "BORBA" }, ;
   { "AM", "1300839", "CAAPIRANGA" }, ;
   { "AM", "1300904", "CANUTAMA" }, ;
   { "AM", "1301001", "CARAUARI" }, ;
   { "AM", "1301100", "CAREIRO" }, ;
   { "AM", "1301159", "CAREIRO DA VARZEA" }, ;
   { "AM", "1301209", "COARI" }, ;
   { "AM", "1301308", "CODAJAS" }, ;
   { "AM", "1301407", "EIRUNEPE" }, ;
   { "AM", "1301506", "ENVIRA" }, ;
   { "AM", "1301605", "FONTE BOA" }, ;
   { "AM", "1301654", "GUAJARA" }, ;
   { "AM", "1301704", "HUMAITA" }, ;
   { "AM", "1301803", "IPIXUNA" }, ;
   { "AM", "1301852", "IRANDUBA" }, ;
   { "AM", "1301902", "ITACOATIARA" }, ;
   { "AM", "1301951", "ITAMARATI" }, ;
   { "AM", "1302009", "ITAPIRANGA" }, ;
   { "AM", "1302108", "JAPURA" }, ;
   { "AM", "1302207", "JURUA" }, ;
   { "AM", "1302306", "JUTAI" }, ;
   { "AM", "1302405", "LABREA" }, ;
   { "AM", "1302504", "MANACAPURU" }, ;
   { "AM", "1302553", "MANAQUIRI" }, ;
   { "AM", "1302603", "MANAUS" }, ;
   { "AM", "1302702", "MANICORE" }, ;
   { "AM", "1302801", "MARAA" }, ;
   { "AM", "1302900", "MAUES" }, ;
   { "AM", "1303007", "NHAMUNDA" }, ;
   { "AM", "1303106", "NOVA OLINDA DO NORTE" }, ;
   { "AM", "1303205", "NOVO AIRAO" }, ;
   { "AM", "1303304", "NOVO ARIPUANA" }, ;
   { "AM", "1303403", "PARINTINS" }, ;
   { "AM", "1303502", "PAUINI" }, ;
   { "AM", "1303536", "PRESIDENTE FIGUEIREDO" }, ;
   { "AM", "1303569", "RIO PRETO DA EVA" }, ;
   { "AM", "1303601", "SANTA ISABEL DO RIO NEGRO" }, ;
   { "AM", "1303700", "SANTO ANTONIO DO ICA" }, ;
   { "AM", "1303809", "SAO GABRIEL DA CACHOEIRA" }, ;
   { "AM", "1303908", "SAO PAULO DE OLIVENCA" }, ;
   { "AM", "1303957", "SAO SEBASTIAO DO UATUMA" }, ;
   { "AM", "1304005", "SILVES" }, ;
   { "AM", "1304062", "TABATINGA" }, ;
   { "AM", "1304104", "TAPAUA" }, ;
HARBOUR 3.2, HWGUI 2.22 B4, SEFAZCLASS, DBFCDX, PDFClass, LETODBF
Fernando queiroz
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 440
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 6 vezes
Mens.Curtidas: 16 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 14 Abr 2020 20:17

Fernando queiroz escreveu:algo tipo isso
ISSO.
como transferi a matriz pra dentro de ITEMS , alguem sabe?
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor Fernando queiroz » 14 Abr 2020 23:05

FOR EACH oCIDADE IN SEFAZ_CIDADE
IF oCIDADE[1] == MEMVAR->UF
AAdd(MEMVAR->aMunicipios,oCIDADE[3])
ENDIF
NEXT

LISTBOX List_1 ;
WIDTH 200 ;
HEIGHT 400 ;
ITEMS MEMVAR->aMunicipios ;
VALUE 1 ;
TOOLTIP 'escolha a apção'
HARBOUR 3.2, HWGUI 2.22 B4, SEFAZCLASS, DBFCDX, PDFClass, LETODBF
Fernando queiroz
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 440
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 6 vezes
Mens.Curtidas: 16 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 15 Abr 2020 18:36

Fernando queiroz escreveu:ITEMS MEMVAR->aMunicipios ;
testei e ate me vieram melhorias.
brigadu Fernando e aos demais
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 24 Abr 2020 22:51

boa noite pessoal
fiz as melhorias
ficou o seguinte
            LISTBOX List_1 PARENT f_para;
               WIDTH 200 ;
               HEIGHT 400 ;
               VALUE 1 ;
               ITEMS aITEMS;
               ONCLICK msginfo(aITEMS)
minha duvida eh
o array aitems eh preenchido por um laço fornext
quando ha o clique seja comum ou duplo do mouse como faco para que uma das opcoes execute uma determinada tarefa
alguem pode m ajudar
pois ja tentei
ONCLICK msginfo(aITEMS) - o msginfo eh apenas pra testar o q acontece
ONDBCLICK msginfo(aITEMS) - o msginfo eh apenas pra testar o q acontece
ONDBCLICK aITEMS

mas sinceramente nao consigo pensar na solucao pois no velho clipper usava o comando MENU TO...
exemplo de como usava
MOLDURA (02,01,NUM_OPCOES + 03,64,.f.,'Cria Tabelas')
         do while I <= NUM_OPCOES
            @ I + 02,02 prompt ' ' + OPCOES [I,3]
            LETRA++
            I++
         enddo
         menu to OPCAO
         if OPCAO = 0
            FIM := .t.
         else
            eval (OPCOES [OPCAO,2])
         endif

o ponto principal do codigo acima era o ENTER na opcao q executava o EVAL...
como faco para executar o eval no LISTBOX
vlw
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 24 Abr 2020 22:59

pra outro tste tentei asim
ON DBLCLICK  TESTE(This.CellColIndex,This.CellRow,This.CellCol,This.CellWidth,This.CellHeight);

na funcao fiz o seguinte teste e esperava algum resultado diferente de zero (0)
FUNC TESTE(A,B,C,D,E)
   MSGINFO(A)
   MSGINFO(B)
   MSGINFO(C)
   MSGINFO(D)
   MSGINFO(E)
RETURN NIL

mas todas as msginfo postaram "0"
o q ta errado
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes

SPLITBOX for next ou do while para a matriz ITEMS

Mensagempor syslink » 25 Abr 2020 15:08

syslink escreveu:ON DBLCLICK  TESTE(This.CellColIndex,This.CellRow,This.CellCol,This.CellWidth,This.CellHeight);
achei uns exemplos aqui e o problema eh q essas coisas so funcionam parece num grid, pois no listblox so funciona this.value e mais nada
e o dblclick modei pra assim e deu certo
ON DBLCLICK eval(OPCOES[this.value,2]);
syslink
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 126
Data de registro: 20 Fev 2018 13:13
Cidade/Estado: joinvile/sc
Curtiu: 2 vezes
Mens.Curtidas: 2 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro