Clipper On Line • Ver Tópico - AJUDA com Browse Array

AJUDA com Browse Array

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

AJUDA com Browse Array

Mensagempor Fernando queiroz » 01 Dez 2017 16:07

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
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

AJUDA com Browse Array

Mensagempor sygecom » 01 Dez 2017 20:41

Faz uma tabelinha em excel e posta aqui pra termos ideia do que está querendo, assim fica mais facil de montar o exemplo em Hwgui.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

AJUDA com Browse Array

Mensagempor Fernando queiroz » 08 Dez 2017 12:16

consegui resolver gerando dois arquivo temporários e carregando o browse com eles

acho que gerando o arquivo na memoria ficaria mais rápido , enfim ta funcionando

:-Y :-Y :-Y
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
Fernando queiroz
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 737
Data de registro: 12 Nov 2014 23:41
Cidade/Estado: Porto Alegre/RS
Curtiu: 12 vezes
Mens.Curtidas: 58 vezes

AJUDA com Browse Array

Mensagempor Itamar M. Lins Jr. » 08 Dez 2017 19:07

Ola!
Parabéns ! Tinha esquecido que também uso assim. Eu não uso essa opção array.
Nem soube responder por isso.

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes




Retornar para HwGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online 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