Só curiosidade.... GTWVG
Enviado: 30 Abr 2020 02:20
Quem acha que GTWVG precisa muito fonte... é porque não otimizou o fonte.
Começando um trabalho novo aqui.
Só o esqueleto:
Nota: pra opções conhecidas já existe ícone pré-definido.
Começando um trabalho novo aqui.
Só o esqueleto:
#include "hbclass.ch"
PROCEDURE PDFEMANIF
LOCAL oFrm := frmManifClass():New()
oFrm:lNavigate := .F.
oFrm:cOptions := ""
AAdd( oFrm:acMenuOptions, "<B>Busca NFs" )
AAdd( oFrm:acMenuOptions, "<S>Confirma" )
AAdd( oFrm:acMenuOptions, "<N>Rejeita" )
AAdd( oFrm:acMenuOptions, "<P>Primeiro" )
AAdd( oFrm:acMenuOptions, "<->Anterior" )
AAdd( oFrm:acMenuOptions, "<+>Seguinte" )
AAdd( oFrm:acMenuOptions, "<U>Último" )
AAdd( oFrm:acMenuOptions, "<Up>Sobe" )
AAdd( oFrm:acMenuOptions, "<Down>Desce" )
oFrm:Execute()
RETURN
CREATE CLASS frmManifClass INHERIT frmGuiClass
METHOD Execute()
ENDCLASS
METHOD Execute() CLASS frmManifClass
::FormBegin()
Inkey(0)
::FormEnd()
RETURN NIL
Nota: pra opções conhecidas já existe ícone pré-definido.