Alain da Silva Posted April 16, 2012 Report Share Posted April 16, 2012 Pessoal, estou criando um array: AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ARQNFECP->DESCRICAO,ARQNFECP->CONTABIL,ARQNFECP->CUSTO,ARQNFECP->HISTORICO}) ARQNFECP->(DBSKIP()) ENDDO id=code>id=code>Como faço para mostrar esse array? MSGINFO? EM GET? COMO SERIA? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 16, 2012 Author Report Share Posted April 16, 2012 Pessoal, estou criando um array: AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ARQNFECP->DESCRICAO,ARQNFECP->CONTABIL,ARQNFECP->CUSTO,ARQNFECP->HISTORICO}) ARQNFECP->(DBSKIP()) ENDDO id=code>id=code>Como faço para mostrar esse array? MSGINFO? EM GET? COMO SERIA? Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
Luisão Posted April 16, 2012 Report Share Posted April 16, 2012 Para mostrar para o usuário, use xBrowse ou TCBrowse. Para mostrar para testes, use MSGINFO(cValtoChar(AARRAY)). -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted April 16, 2012 Report Share Posted April 16, 2012 Eu uso O VALTOPRG para testes também.. Mas não creio que seja essa sua necessidade. Você só quer mostrar , ou vai precisar editar também? Quote Link to comment Share on other sites More sharing options...
Luisão Posted April 16, 2012 Report Share Posted April 16, 2012 Ops, marquei bobeira, é VALTOPRG mesmo, como a Ana falou. cValToChar funciona para vários tipos também, exceto objeto e array. -- Luis Fernando Jr. FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
dorneles Posted April 16, 2012 Report Share Posted April 16, 2012 xbrowse(aArray) FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 16, 2012 Author Report Share Posted April 16, 2012 Obrigado pela ajuda, é só para mostrar mesmo, uma consulta minha. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted April 16, 2012 Report Share Posted April 16, 2012 É, como o Dorneles mesmo disse, vc pode usar o xbrowse ou o ListBox (Você precisaria concatenar os itens da sua array) Qualquer um dos dois pode atender sua necessidade, mas eu acho que o xbrowse vai funcionar melhor. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 16, 2012 Author Report Share Posted April 16, 2012 Eu achei que o VALTOPRG fica difÃcil a visualização. preferi usar o browse mesmo. FUNCTION MOSTRACAMPO(OCONTROLE) SELE 50 DBSETORDER(2) DBSEEK(STR(OCONTROLE,11)) ORDSCOPE(0,STR(OCONTROLE,11)) ORDSCOPE(1,STR(OCONTROLE,11)) ARQNFECP->(DBGOTOP()) AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ALLTRIM(ARQNFECP->DESCRICAO),ARQNFECP->CONTABIL,ALLTRIM(ARQNFECP->CUSTO),ALLTRIM(ARQNFECP->HISTORICO)}) ARQNFECP->(DBSKIP()) ENDDO DEFINE DIALOG oDLG FROM 1, 1 TO 300, 1100 ; TITLE "Visualizar Produto-Apropriação Contábil"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL oDLG: LHELPICON := .F. // TIRA A ? DA JANELA oDLG:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } @ 01.0,01.0 BROWSE oBrowse OF oDLG SIZE 500,100 oBrowse:SetArray(aARRAY) ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 01 SIZE 300 PICT "@!" CENTER HEADER "DESCRIÇÃO" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 02 SIZE 100 PICT "@!" CENTER HEADER "CONTA CONTABIL" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 03 SIZE 300 PICT "@!" CENTER HEADER "SETOR" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 04 SIZE 300 PICT "@!" CENTER HEADER "HISTORICO" ************************************************** @120,10 SBUTTON oBtn; SIZE 40, 15 PIXELS OF oDLG; PROMPT "&OK" RESOURCE "CANCELA"; ACTION (SAIDLG:=.T.,TPIMPRES:END()); COLORS XPAZUL,BRANCO; TEXT POSITION ON_RIGHT XP ACTIVATE DIALOG oDLG CENTER RETURN(.T.) id=code>id=code>Obrigado a todos pela ajuda Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
vagner Posted April 16, 2012 Report Share Posted April 16, 2012 citação:Eu achei que o VALTOPRG fica difÃcil a visualização. preferi usar o browse mesmo. FUNCTION MOSTRACAMPO(OCONTROLE) SELE 50 DBSETORDER(2) DBSEEK(STR(OCONTROLE,11)) ORDSCOPE(0,STR(OCONTROLE,11)) ORDSCOPE(1,STR(OCONTROLE,11)) ARQNFECP->(DBGOTOP()) AARRAY:={} WHILE ARQNFECP->(!EOF()) AaDd(aArray,{ALLTRIM(ARQNFECP->DESCRICAO),ARQNFECP->CONTABIL,ALLTRIM(ARQNFECP->CUSTO),ALLTRIM(ARQNFECP->HISTORICO)}) ARQNFECP->(DBSKIP()) ENDDO DEFINE DIALOG oDLG FROM 1, 1 TO 300, 1100 ; TITLE "Visualizar Produto-Apropriação Contábil"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL oDLG: LHELPICON := .F. // TIRA A ? DA JANELA oDLG:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } @ 01.0,01.0 BROWSE oBrowse OF oDLG SIZE 500,100 oBrowse:SetArray(aARRAY) ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 01 SIZE 300 PICT "@!" CENTER HEADER "DESCRIÇÃO" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 02 SIZE 100 PICT "@!" CENTER HEADER "CONTA CONTABIL" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 03 SIZE 300 PICT "@!" CENTER HEADER "SETOR" ADD COLUMN TO BROWSE oBrowse DATA ARRAY ELEM 04 SIZE 300 PICT "@!" CENTER HEADER "HISTORICO" ************************************************** @120,10 SBUTTON oBtn; SIZE 40, 15 PIXELS OF oDLG; PROMPT "&OK" RESOURCE "CANCELA"; ACTION (SAIDLG:=.T.,TPIMPRES:END()); COLORS XPAZUL,BRANCO; TEXT POSITION ON_RIGHT XP ACTIVATE DIALOG oDLG CENTER RETURN(.T.) id=code>id=code>Obrigado a todos pela ajuda Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 id=quote>id=quote>Olá, Qual o motivo de se usar o array ? Já está Scopado, pq não usar diretamente o arquivo no browse ? Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted April 17, 2012 Author Report Share Posted April 17, 2012 bom dia Vagner, é somente pra uma visualização minha pra ver o que foi contabilizado. eu tenho um browse com as informações: ----------------------------------------------------- Nº NFe Fornecedor Dt.Emissão Valor Forma de Pagto ----------------------------------------------------- ai eu criei um botão pra me mostrar os produtos e que conta foi contabilizado. é somente um atalho. Alain/Rancharia XHarbour 0.99.71 FWHX 7.04 Workshop 4.5 Quote Link to comment Share on other sites More sharing options...
AnaCatacombs Posted April 17, 2012 Report Share Posted April 17, 2012 Nada impede que você use o xbrowse direto no banco de dados. É só marcas as colunas como não editáveis. Mas enfim, cada um sabe das suas necessidades Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.