tenho a seguinte tela e quaro carregar o browse com os meses do ano e as entradas e saidas de um produto selecionado mas nao tenho a minimaidéia de como carregar o array, segue codigo abaixo
STATIC FUNCTION CADASTROPRODUTOSDADOS( )
LOCAL oDlg, oBrowse1, oBrowse2, oOwnerbutton1
PRIVATE aMes:={"JANEIRO","FEVEREIRO","MARCO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"}
INIT DIALOG oDlg TITLE "Dados adicionais do Cadastro de Produtos" ;
ICON HIcon():AddFile('sgc.ico') ;
AT 0, 0 SIZE 665,460 CLIPPER NOEXIT NOEXITESC NOCLOSABLE ;
STYLE WS_OVERLAPPEDWINDOW+DS_CENTER+DS_ABSALIGN
Thisform := oDlg
@ 7,14 BROWSE oBrowse1 ARRAY SIZE 649,197 ;
STYLE WS_TABSTOP+ES_AUTOHSCROLL +WS_HSCROLL
oBrowse1:oStyleHead := HStyle():New( { 0xffffff, 0xbbbbbb }, 1 )
// CREATE oBrowse1 // SCRIPT GENARATE BY DESIGNER
oBrowse1:aArray := {}
oBrowse1:AddColumn( HColumn():New('Mês ',,'U',, 20 ,.F.,1,,,,,,,,,{"JANEIRO","FEVEREIRO","MARCO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"},,))
oBrowse1:AddColumn( HColumn():New('Estoque Anterior',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:AddColumn( HColumn():New(' Entradas ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:AddColumn( HColumn():New(' Saidas ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse1:AddColumn( HColumn():New(' Estoque Atual ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
// END BROWSE SCRIPT - oBrowse1
@ 7,225 BROWSE oBrowse2 ARRAY SIZE 649,185 ;
STYLE WS_TABSTOP+ES_AUTOHSCROLL +WS_HSCROLL
oBrowse2:oStyleHead := HStyle():New( { 0xffffff, 0xbbbbbb }, 1 )
// CREATE oBrowse2 // SCRIPT GENARATE BY DESIGNER
oBrowse2:aArray := {}
oBrowse2:AddColumn( HColumn():New('Fornecedor ',,'U',, 0 ,.F.,0,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New(' DANFE ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New(' Data Emissão ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New(' Data Entrada ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New(' Quantidade ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
oBrowse2:AddColumn( HColumn():New(' Valor Compra ',,'U',, 0 ,.F.,1,,,,,,,,,,,))
@ 557,419 OWNERBUTTON oOwnerbutton1 SIZE 98,32 ;
TEXT 'Fechar' ;
COORDINATES 0, 0, 0, 0 ;
BITMAP 'turnoff' FROM RESOURCE ;
COORDINATES 5, 0, 0, 0;
ON CLICK {|| hwg_Enddialog() }
oOwnerbutton1:Anchor := 12
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult