Clipper On Line • Ver Tópico - LIB JoséQuintas

LIB JoséQuintas

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

Moderador: Moderadores

 

LIB JoséQuintas

Mensagempor JoséQuintas » 01 Set 2017 20:44

A título de curiosidade, sobre a compilação -w3 -es2
Quem usa xHarbour, ou algumas LIBs gráficas tem problema com isso.

Meu aplicativo, e a LIB, tem opção de criar os menus internos de 4 formas diferentes, incluindo a opção modo console.
Estou eliminando essa opção.

https://github.com/JoseQuintas/JoseQuintas/commit/f6c6da54523a173f851e3ac6f21609ad077a33a3

Após apagar o que se referia a isso, esta foi a compilação.

Compiling 'source\ze_FrmMainClass.prg'...
100
source\ze_FrmMainClass.prg:183: warning W0003 Variable 'NROW' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0003 Variable 'NCOL' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0003 Variable 'OELEMENT' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0003 Variable 'NOPC' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0003 Variable 'CCORANT' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0003 Variable 'OMENUOPCOES' declared but not used in function '177:FRMGUICLASS_OPTIONSELECT'

source\ze_FrmMainClass.prg:183: warning W0032 Variable 'ALSTOPCOES' is assigned but not used in function '177:FRMGUICLASS_OPTIONSELECT'
400
No code generated.
hbmk2 [josequintas]: Error: Running Harbour compiler job #1. 1


É muito legal.
Me avisando que sobrou esse "lixo" no fonte, que não precisa mais dessas variáveis.

Na compilação normal não acusa esse erro (-w0 -es0).
Mas fica lixo no fonte, que pode confundir e complicar depois.

É como ter um ajudante conferindo os fontes.
O preço desse ajudante: declarar variáveis.
Seria o mesmo, caso usasse uma variável que não existe.
Não resolve todos os problemas, mas ajuda a evitar alguns.

Por exemplo... se eu apagar alguma coisa que vai fazer falta, vai acabar acusando erro também...

Decidi apagar a opção de menu em console, porque não uso há muitos anos.
E pra acrescentar recursos, vai acabar me dando trabalho pra mantê-lo.
Aliás... nos pedidos tem quase 30 opções, se fosse em texto, nem caberia na tela.... rs
Nenhum usuário/cliente tem todas as opções disponíveis, só minha senha mesmo. Ainda pensando em uma disposição mais interessante 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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 03 Set 2017 00:25

Tem a ver com isto.

Um usuário comum:

pedido1.png


Minha senha, com tudo liberado, acaba tendo menu de complemento, de tanta opção... quase 30.... rs

pedido2.png


A diferença é que com as alterações isso ficou automático: se couber na tela o que estiver liberado aparece tudo, senão entra esse auxiliar automaticamente.
Talvez eu altere pra um menu popup estilo Windows.... talvez não.
Haja ícone.... rs

Por isso removi de vez o menu estilo console: nem caberiam 30 opções na área de mensagem.... rs
Só vou remover os Fx que apareceram, porque não deveria aparecer...
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 21 Set 2017 18:01

Alterei todas as telas do aplicativo: ícones maiores.
Em ze_frmMainClass, alterei width e height do button de 3 linhas x 4 colunas, para 4 linhas x 6 colunas.
Alterei também o SetMode( 38,100 ) pra SetMode( 40, 100 ), pra não ter que ajustar cada tela.
TODO aplicativo com ícones maiores, com 3 linhas de alteração.
Tudo que está na LIB faz parte do aplicativo, então também alterou.
Até mesmo o preview de relatórios....
Algo quase impossível numa tela GUI, desenhada em IDE.

Quase impossível...
Pelo menos se fosse Visual Basic 6, seria só alterar a posição de cada controle.
Acho que seria algo parecido com isto:

FOR EACH oControl IN Forms.Control
   IF oControl.Type IS CommandButton THEN
  ELSE
      oControl.Row = oControl.Row + 10
   ENDIF
NEXT


Nem lembro mais se VB tem FOR/EACH, mas lembro de algo parecido com isso...
Parece até Harbour, só o THEN a mais .... rs
Anexos
jpa.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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 21 Set 2017 18:11

Agora há pouco um cliente me avisou sobre EXPORTAÇÃO.
Aquele detalhe da unidade de medida.
Não costumo ter nota de exportação, apesar do aplicativo estar preparado pra isso - ou quase.

Mas naquelas brincadeiras de converter Excel ou Html...não é que a tabela já está pronta na LIB José Quintas.... rs

https://github.com/JoseQuintas/JoseQuintas/blob/master/source/ze_tabncm.prg

É a isso que chamo de trabalhar tranquilo: vou precisar de algo que já fiz.... rs

Só resta pensar no cadastro de produtos, com a unidade de exportação e fator de conversão, e também ajustar a NFE pra usar essa medida/conversão.
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor FabioAugusto » 14 Nov 2018 16:51

José Quintas boa tarde!

Parabéns pelo conteúdo dessa LIB,é uma excelente contribuição para programadores como eu que estão procurando atualizações para nossos projetos.
Por gentileza, ainda tem disponivel para download o conteudo dessa LIB ?
O link https://github.com/JoseQuintas/LibJoseQuintas não esta mais disponivel.

Obrigado.

Fabio Augusto França
FabioAugusto
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 05 Mai 2008 16:57
Curtiu: 0 vez
Mens.Curtidas: 0 vez

LIB JoséQuintas

Mensagempor JoséQuintas » 14 Nov 2018 17:20

Dica:

No github, seria só procurar por josequintas

a página aonde encontra tudo que está em meu nome:

https://github.com/JoseQuintas

e o da lib

https://github.com/JoseQuintas/JoseQuintas

ela é dependente da sefazclass

https://github.com/JoseQuintas/sefazclass
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor FabioAugusto » 14 Nov 2018 18:10

Obrigado Quintas!
FabioAugusto
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 12
Data de registro: 05 Mai 2008 16:57
Curtiu: 0 vez
Mens.Curtidas: 0 vez

LIB JoséQuintas

Mensagempor JoséQuintas » 17 Nov 2018 11:34

Eu acostumei com as facilidades desse meu modo de trabalho, equivalente à LIB JoseQuintas
Mostrar no que facilita.

Hoje um cliente pediu uma nova opção:
Fechou negócio com uma rede de empresas, e quer facilidade pra cadastrar filiais, algo do tipo clonar um cliente existente, e alterar só uma parte.

Então vamos lá...
Imaginei ele consultar um cadastro, e clicar em um botão.

Passo 1:
Criar o botão.

alt1.png


Depois compilar C<ENTER>
pronto, uma única linha, e lá está o novo botão, com o ícone default.

alt2.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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 17 Nov 2018 11:49

Passo 2: definir ícone

Bom... essa rotina está na LIB josequintas.....

ir na pasta da Josequintas: ccd j

primeiro alterar a rotina de telas, pra indicar o resource e a tooltip do botão

alt3.png


recompilar a josequintas: c <ENTER>

voltar pra pasta do aplicativo:
ccd i<ENTER>

Conferir o RC, se existe ou precisa acrescentar o resource.

alt4.png


recompilar o aplicativo:
c<ENTER>

alt5.png


Pronto, lá está a nova imagem.
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 17 Nov 2018 11:55

Passo 3: criar a chamada à função

Só colocar no método userfunction

alt6.png


Pronto.
Agora só criar a DuplicaCliente()

Se a rotina precisar esconder os botões, só usar ::GuiHide() e depois ::GuiShow(), mas acho que só uma pergunta basta pra isso.
A rotina só vai precisar fazer a parte dela, sem preocupação com tela.
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 17 Nov 2018 12:05

Pronto.

duplica.png


Vou testar depois, mas acho que é isso aí.
Grava a mesma informação, mas colocando outro código, e aciona a alteração.
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor JoséQuintas » 17 Nov 2018 13:33

Ajuste final.
Por precaução, deixar sem endereço e sem endereço de entrega.
Também obrigar a acertar o CNPJ e IE.
Dá pra manter cidade/UF, porque a grande maioria é dentro de SP.

Agora vai ser aguardar os testes no cliente.

alt7.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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor bang » 28 Nov 2019 18:30

Oi amigo, onde encontro essa lib?

Tentei baixar no link mas deu que naum existe
:'( :( :'( :( :'( :( :'( :( :'(

Ou eh eu que naum sabe baixar?????? :%

Parece muito boa, quero usar no meu projeto, tem como ajudar um perdido? :))
Obrigado
bang
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 2
Data de registro: 28 Nov 2019 18:17
Cidade/Estado: olinada-pe
Curtiu: 0 vez
Mens.Curtidas: 0 vez

LIB JoséQuintas

Mensagempor JoséQuintas » 28 Nov 2019 21:03

Se voltar um pouco as mensagens, vai ver o link, mas de um modo geral é procurar no GitHub JoseQuintas

Tá reduzido, até criar alguma coisa que funcione separado novamente.
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: 13530
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

LIB JoséQuintas

Mensagempor asimoes » 29 Nov 2019 08:47

Quintas,

Os icones que você usa, onde a gente acha ?
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4587
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 312 vezes
Mens.Curtidas: 222 vezes

Anterior Próximo



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 5 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