Clipper On Line • Ver Tópico - Aquilo de programa fácil

Aquilo de programa fácil

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

Moderador: Moderadores

 

Aquilo de programa fácil

Mensagempor JoséQuintas » 27 Nov 2018 22:56

Estou passando uma fase difícil: ouço um apito 24 horas por dia
Isso é ruim pra dormir, e também pra trabalhar, porque acaba tirando a concentração.
Difícil concentrar em coisas mais complicadas... apesar que música ajuda, pra "esquecer" um pouco o zumbido.

Nessas horas, aquilo de ter deixado todos os fontes fáceis ajuda muito.

Necessidade:
na nota fiscal eletrônica, mostrar o número sequencial aonde aparece o produto no pedido de compra, além do próprio número de pedido.

Vamos pensar... só o usuário digitando mesmo.... e na digitação do produto no pedido.... e precisa salvar junto do produto...

Alterar estrutura, em ze_updatedbf.prg
      { "IPPEDCOM",   "C", 6 }, ;      // Sequencia no pedido de compra


Fora de uso, mas já que inventei, também estrutura em ze_updatemysql.prg
      "IPPEDCOM   VARCHAR(6)   NOT NULL DEFAULT '', " + ;


Pronto, agora o arquivo tem o campo, falta digitar.
É criar varíavel, GET, salvar, isto no módulo pedidos, na digitação de produtos.

Rotina IncAltItem()
   LOCAL mipPedCom
...
   mipPedCom   := jpitped->ipPedCom
...
   @ Row() + 1, 3 SAY "Seq.Pedido Compra" GET mipPedCom  PICTURE "@K 999999" VALID ReturnValue( .T., mipPedCom := iif( Val( mipPedCom ) == 0, Space(6), StrZero( Val( mipPedCom ), 6 ) ) )
...
         /* REPLACE */ jpitped->ipPedCom   WITH mipPedCom, ;


E agora colocar na nota eletrônica
STATIC FUNCTION NfeBlocoProdutoCompra( cXml )

   LOCAL xItem, xPedido

   xItem   := StrZero( Val( SoNumeros( jpitped->ipPedCom ) ), 6 )
   xPedido := Left( AllTrim( jppedi->pdPedCli ), 15 ) // limite fazenda 15 caracteres

   IF ! Empty( jppedi->pdPedCli )
      cXml += XmlTag( "xPed", xPedido )
   ENDIF
   IF Val( xItem ) != 0
      cXml += XmlTag( "nItemPed", xItem )
   ENDIF

   RETURN NIL


Também posso alterar a versão dos DBFs, já que tem um campo a mais.
Alterando a versão dos DBFs, será feito um backup automático antes da alteração de estrutura - também automática.

FUNCTION AppVersaoDbf()

   RETURN 20180704


Pronto.
Agora é gerar um novo aplicativo e deixar na internet.
Depois é só o cliente clicar em atualizar versão, e já fica pronto pra uso.

Posso até pensar em alterar aquele outro campo: pdPedCli, pra pdPedCom, pra não me confundir depois com os nomes.
Este é no pedido, e o outro é nos itens. Apesar de nos itens não ser o número do pedido, está relacionado com o pedido de compra, e fica mais fácil definir o nome assim do que pdSeqPedCom ou outra coisa, que até ultrapassa o limite de 8 caracteres.

Tudo tem a ver com ficar fácil... quanto mais fácil, mais rápida e segura uma alteração.
E acabamos mantendo o ritmo mesmo quando estamos fora do ritmo.... rs
Para o cliente... tudo certo... tudo caminha como sempre foi... o atendimento não está comprometido.

É como eu digo: é aproveitar bastante quando está bom, pra deixar tudo fácil. E depois, bom ou ruim, tudo vai fácil.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Aquilo de programa fácil

Mensagempor susviela@bol.com.br » 27 Nov 2018 23:04

É isso ai ... a vida é assim mesmo ...
Bem o que está escrito na minha assinatura:

"E quando você perder o controle, colherá o que plantou."
.
.
"E quando você perder o controle, colherá o que plantou."
=========================================
Carlos Alberto Nunes #Susviela
Site: https://www.PowerInformatica.com.br
=========================================
Blog xBase: https://programandoxbase.wordpress.com/
Blog TI: https://susviela.wordpress.com

( #ProgramandoxBase #AllxBase )
Avatar de usuário

susviela@bol.com.br
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 236
Data de registro: 30 Jun 2017 11:17
Cidade/Estado: São José / SC
Curtiu: 153 vezes
Mens.Curtidas: 24 vezes

Aquilo de programa fácil

Mensagempor JoséQuintas » 04 Dez 2018 11:30

Já vi alguns motivos pela internet.

Na espera de consulta, conversei com outras pessoas:

- uma senhora ouvia barulhos, resolveu com cirurgia.
- uma senhora ouvia vozes, ainda estava tentando detectar qual o problema (talvez possuída?... rs)

No dia da consulta, a médica disse que meu problema era simples e não precisava cirurgia.
Talvez no retorno, levando o exame, tenha novidades.

hazael escreveu:parece ser relacionado com ouvir som alto, música, mp3, etc..


Não costumo ouvir som alto, apesar da aparelhagem de som.

https://www.correiobraziliense.com.br/app/noticia/ciencia-e-saude/2017/11/26/interna_ciencia_saude,643503/tem-zumbido-no-ouvido-conheca-as-possiveis-causas-e-saiba-o-que-fazer.shtml

A lista de possíveis causas é longa e engloba fatores determinantes, como bruxismo, transtornos da mastigação, alterações musculares, cardiovasculares e neurológicas, distúrbios psiquiátricos e até tumores na via auditiva.

Grupo de risco
- Pessoas que fumam ou ingerem bebidas alcoólicas com muita frequência têm maior risco de desenvolver o zumbido

Cuidados
O que se deve evitar:
- Alimentos com muita cafeína e açúcar, como Coca-Cola, chocolate, café, bebidas energéticas.
- Exposição ao som alto.
- Uso de cotonetes.
- Bebidas alcoólicas e tabaco.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

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