GET com ABAS

[JoséQuintas]

Geralmente o conteúdo de um get pode decidir o caminho de funcionamento do restante, então é complicado deixar o click do mouse liberado à vontade pro usuário.
Acabaria sendo muito trabalho pra pouca coisa, ou pra facilitar problemas.
Acabo usando uma forma mais simples de fazer isso.
Algo como;

Código: Selecionar todos

DO WHILE .T.
   DO CASE
   CASE nTab == 1; Gets da tab1
   CASE nTab == 2; Gets da tab2
   CASE nTab == 3; Gets da tab3
   OTHERWISE; EXIT
   ENDCASE
   IF ! lDigita 
      CLEAR GETS
      EXIT
   ENDIF
   READ
   nTab := iif( LastKey() == K_UP, Max( 1, nTab - 1 ), nTab + 1 )
ENDDO

[JoséQuintas]

Poderia mostrar um xemplo prático disso funcionando para ver como é?

O que chama de exemplo prático?
Tela?

Fonte?
Coloque um get em cada opção, com limpeza de tela.

[JoséQuintas]

Ainda não deu tempo.
Trabalhando na migração do MySQL, e hoje teve mudança em CTE e MDFE pra complicar tudo.

Por enquanto tive até que resetar no controle de fontes do GIT, e trabalhando em fontes de um mês atrás...
Com certeza isso vai acelerar minha migração pra MySQL, porque não vou ficar trabalhando com fonte velho por muito tempo.
Então.. muito trabalho nos próximos dias.

[JoséQuintas]

pois é... antes quando o governo ainda não tinha essas "maravilhas" para complicar, um sistema ficava anos sem precisar de alteração

Qual a mudança:

Colocar no XML o endereço de consulta de manifesto, que é sempre o mesmo, seguido da chave, que já tem no XML
E nem sequer entra na assinatura, trata-se de algo que não vale para o documento, mas obrigatório pra transmitir.

Apenas a velha burocracia, mas agora eletrônica.
Talvez até eles joguem fora a informação, porque não tem valor para o XML.