PC Toledo

Código: Selecionar todos

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