30 Abr 2020 02:20
#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
30 Abr 2020 12:08
30 Abr 2020 15:36
03 Mai 2020 17:26
Itamar M. Lins Jr. escreveu:Eu faço qualquer programa,"padrão" somente tirando ou adicionando objetos usando CTRL+C, CTRL+V!