Clipper On Line • Ver Tópico - Manifestação do destinatário
Mudar para estilo Clássico
Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.
Postar uma resposta

Manifestação do destinatário

19 Mai 2020 17:33

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

Manifestação do destinatário

19 Mai 2020 17:35

Só fiz isto... ou seja... nada.... rs....

Código:
/*
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


manif.png

Manifestação do destinatário

19 Mai 2020 18:24

Melhorou um pouco.
Agora tem a tabela no SQL e browse funcionando.
O próximo passo é colocar as rotinas nos botões pra "rechear" com informação.
Isso inclui buscar na fazenda e manifestar.
Ah sim, e escolher ícones para os que estão faltando.

Código:
/*
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


manif.png
Postar uma resposta