ARRAY

[Alain da Silva]

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

[Alain da Silva]

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

[Luisão]

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

[AnaCatacombs]

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?

[Luisão]

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

[dorneles]

xbrowse(aArray)

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

[Alain da Silva]

Obrigado pela ajuda, é só para mostrar mesmo, uma consulta minha.

Alain/Rancharia

XHarbour 0.99.71

FWHX 7.04 Workshop 4.5

[AnaCatacombs]

É, 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.

[Alain da Silva]

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

[vagner]

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"

[Alain da Silva]

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

[AnaCatacombs]

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