Bom, o que está valendo é o último que fica gravado....
Então CADC é o controle de numeração, que vai somando 1 a 1.
Já a outra rotina era baseada em nota fiscal lançada no financeiro.
Todos nós sabemos que nem toda nota fiscal gera financeiro, então não serve de referência.
Provavelmente entrou a rotina com controle de numeração, mas esqueceram de apagar a anterior, e ficou aí o fonte inútil.
No momento só resta bloquear a parte que ficou inútil.
Mas é interessante.... uma reorganização de fonte descobre muita coisa nos fontes....
Neste último caso, era um fonte inteiro confuso.
O fonte reorganizado conseguiu isolar um pouco a parte confusa, em blocos menores e mais fáceis de enxergar.
Mas eu não estava atrás de problemas, apenas coincidiu que estava justamente mexendo um pouco nesse fonte, padronizando uma pequena parte.
Agora vai ser pesquisar o uso desse CADC nos demais fontes, é possível que tenham coisa parecida.
Nota:
Reduzir a quantidade de aplicativos pra fazer esse tipo de coisa pode ser interessante.
Nem que seja redução parcial: não é possível que tenha 20 aplicativos com 20 cadastros de clientes diferentes... poderia ter um único pra todos os aplicativos, e nesse único, dedicação total.
Práticas que facilitam programar Clipper/Harbour
Moderador: Moderadores
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Práticas que facilitam programar Clipper/Harbour
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/