Você pode baixar no link abaixo:Vlademir escreveu:Como consigo a última versão e atualização do xHarbour e HwGui.
Utilizo hoje: xHarbour 0.99.70
hwgui: 2.16
Código: Selecionar todos
@ 400,130 GET oLITROS VAR wLITROS PICTURE "@E 999,999.9" SIZE 100,22;
STYLE WS_TABSTOP;
TOOLTIP "Informe a Quantidade de Litros"
Código: Selecionar todos
function duplicaRecebimentoItemComprado()
Local oDuplicaItemComprado, oFont:= HFont():Add( "Courier",0,-13 )
Local oFont2 := HFont():Add( "MS Sans Serif",0,-13 )
local nQuantidade, oQuantidade,;
oGrava, oSai, cUsuario, cMatricula
nQuantidade:=0
INIT DIALOG oDuplicaItemComprado TITLE "Compra - duplicar lançamento" ;
CLIPPER NOEXIT ;
AT 0,0 SIZE 400,200 ;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU ;
FONT oFont
@ 10,40 SAY "Quantidade que ficará neste lançamento:" ;
SIZE 350, 22
@ 10,65 GET oQuantidade VAR nQuantidade SIZE 120,25 ;
PICTURE "@e 9,999,999.999" ;
STYLE WS_TABSTOP+WS_DLGFRAME
@ 140,65 SAY Compras->unidade ;
SIZE 50, 22 ;
STYLE WS_DLGFRAME
@ 10,150 OWNERBUTTON oGrava SIZE 75,25 ;
TEXT "Grava" ;
ON CLICK {|| gravaDuplicaItem( cUsuario, cMatricula,nQuantidade), oDuplicaItemComprado:close() }
@ 90,150 OWNERBUTTON oSai SIZE 75,25 ;
TEXT "Sair" ;
ON CLICK {|| oDuplicaItemComprado:close() }
ACTIVATE DIALOG oDuplicaItemComprado
oFont:Release()
return nil
Código: Selecionar todos
function duplicaRecebimentoItemComprado()
Local oDuplicaItemComprado, oFont:= HFont():Add( "Courier",0,-13 )
Local oFont2 := HFont():Add( "MS Sans Serif",0,-13 )
local nQuantidade, oQuantidade,;
oGrava, oSai, cUsuario, cMatricula
nQuantidade:=0
INIT DIALOG oDuplicaItemComprado TITLE "Compra - duplicar lançamento" ;
CLIPPER NOEXIT ;
AT 0,0 SIZE 400,200 ;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE + WS_CAPTION + WS_SYSMENU ;
FONT oFont
@ 10,40 SAY "Quantidade que ficará neste lançamento:" ;
SIZE 350, 22
@ 10,65 GET oQuantidade VAR nQuantidade SIZE 120,25 ;
PICTURE "@e 9,999,999.999" ;
STYLE WS_TABSTOP+WS_DLGFRAME
@ 140,65 SAY Compras->unidade ;
SIZE 50, 22 ;
STYLE WS_DLGFRAME
@ 10,150 OWNERBUTTON oGrava SIZE 75,25 ;
TEXT "Grava" ;
ON CLICK {|| gravaDuplicaItem( cUsuario, cMatricula,nQuantidade), oDuplicaItemComprado:close() };
STYLE WS_TABSTOP
@ 90,150 OWNERBUTTON oSai SIZE 75,25 ;
TEXT "Sair" ;
ON CLICK {|| oDuplicaItemComprado:close() };
STYLE WS_TABSTOP
ACTIVATE DIALOG oDuplicaItemComprado
oFont:Release()
return nil
Código: Selecionar todos
INIT DIALOG oForm CLIPPER NOEXIT ;
TITLE "Comprados" ;
FONT oFont ;
AT 0, 0 SIZE 850, 400
@ 5, 5 BROWSE oBrowse DATABASE OF oForm SIZE 845,340 ;
STYLE WS_VSCROLL + WS_HSCROLL+WS_TABSTOP ;
ON SIZE {|o,x,y|MoveWindow(o:handle,5,5,x-5,(y-60))} ;
ON CLICK {|| detalheOrdemItemComprado(), oBrowse:refresh() } ;
MULTISELECT
ADD COLUMN {|| ordemCpra } TO oBrowse HEADER 'Ord/Compra'
ADD COLUMN {|| alltrim(id) } TO oBrowse HEADER 'Requisição' PICTURE "@!"
@ 120, 360 BUTTON oDetalhe ;
CAPTION "Detalhe/Compra" ;
SIZE 90,25 ;
STYLE WS_TABSTOP ;
TOOLTIP "Detalhes da ordem de compra" ;
ON SIZE {|o,x,y|MoveWindow(o:handle,120,(y-40))} ;
ON CLICK {|| detalheOrdemItemComprado(), oBrowse:refresh() }
@ 215, 360 BUTTON oImprimeOrdem ;
CAPTION "Imprime/Ordem" ;
SIZE 80,25 ;
STYLE WS_TABSTOP ;
TOOLTIP "Imprimir a ordem de compra" ;
ON SIZE {|o,x,y|MoveWindow(o:handle,215,(y-40))} ;
ON CLICK {|| imprimeOrdemCompra( oBrowse,.f. ) }
ACTIVATE DIALOG oForm