Clipper On Line • Ver Tópico - Manifestação do destinatário

Manifestação do destinatário

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Manifestação do destinatário

Mensagempor JoséQuintas » 19 Mai 2020 17:33

Vou começar um módulo pra isso.
Alguém tem dica e/ou módulo isolado pra isso?
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14317
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

Manifestação do destinatário

Mensagempor JoséQuintas » 19 Mai 2020 17:35

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

/*
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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14317
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes

Manifestação do destinatário

Mensagempor JoséQuintas » 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.

/*
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
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 14317
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 859 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro