Vou começar um módulo pra isso.
Alguém tem dica e/ou módulo isolado pra isso?

Moderador: Moderadores
/*
PDFEMANIF - Manifestação do Destinatário
*/
#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
/*
PDFEMANIF - Manifestação do Destinatário
*/
#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" )
AAdd( oFrm:acMenuOptions, "<F>Filtro" )
oFrm:Execute()
RETURN
CREATE CLASS frmManifClass INHERIT frmGuiClass
VAR cnSQL INIT ADOClass():New( AppConexao() )
METHOD Execute()
ENDCLASS
METHOD Execute() CLASS frmManifClass
LOCAL oTBrowse
::FormBegin()
WITH OBJECT ::cnSQL
oTBrowse := { ;
{ "#ID", { || Str( :Number( "IDMANIFESTACAO" ), 9 ) } }, ;
{ "MODFIS", { || Str( :Number( "MANMODFIS" ), 2 ) } }, ;
{ "NUMDOC", { || Str( :Number( "MANNUMDOC" ), 9 ) } }, ;
{ "D.EMISSAO", { || :Date( "MADEMISSAO" ) } }, ;
{ "D.MANIF", { || :Date( "MADMANIF" ) } }, ;
{ "STATUS", { || :String( "MACSTATUS", 1 ) } }, ;
{ "EMITENTE", { || :String( "EMITENTE", 50 ) } }, ;
{ "N.USU", { || Str( :Number( "MANUSU" ), 9 ) } } }
BrowseADORC( 5, 0, MaxRow() - 3, MaxCol(), ::cnSQL, oTBrowse, "", { || NIL }, { || Digita( ::cnSQL ) } )
:CloseRecordset()
ENDWITH
::FormEnd()
RETURN NIL
STATIC FUNCTION Digita( cnSQL )
( cnSQL )
RETURN NIL
Retornar para Contribuições, Dicas e Tutoriais
Usuários vendo este fórum: Nenhum usuário registrado online e 23 visitantes