Confirmando alterações
Enviado: 22 Out 2019 13:54
Estou alterando meu arquivo de pedidos de JPPEDI pra JPPEDIDO.
Uso como ALIAS o próprio nome do arquivo, então, isso implica em alterar TODOS os fontes que usam pedidos.
Como conferir se ficou algum de fora?
Na falta de outra opção, acabei usando um recurso do DOS/Windows.
Como era só pra conferência, juntei os fontes:
Como procurar JPPEDI? o find
Mesmo assim, muita coisa pra conferir visualmente.
Como conferir o que já foi corrigido?
Ué... o que já foi corrigido, está como jppedido.
Então outro filtro, o find negativo
Pronto.
Me listou as linhas contendo JPPEDI, mas que não contém JPPEDIDO.
Se está JPPEDI falta corrigir, mas se está JPPEDIDO já foi corrigido.
Poderia ser o contrário também.
Na pasta da LIB,sobraram só as duas tags de indexação, que nem interessa alterar agora.
Na pasta dos outros fontes, sobraram o uso dos índices, e também as rotinas de atualização de versão.
Lógico, esta foi a pesquisa final.
Antes dessa, encontrei fontes aonde tinha esquecido de alterar.
Não sei se algum editor de textos permitiria pesquisar isso fácil.
Talvez algum que use RegEx(), ou talvez um programa em Harbour.
Mas... arquivo bat resolveu.
Fica aí a dica.
Nota:
É parte das mudanças que acabei misturando na migração pra MySQL.
Agora primeiro organizando tudo.
Quando chegar a vez do MySQL não quero ter nada pendente, pra não querer fazer tudo de uma vez e perder o controle - de novo.
Uso como ALIAS o próprio nome do arquivo, então, isso implica em alterar TODOS os fontes que usam pedidos.
Como conferir se ficou algum de fora?
Na falta de outra opção, acabei usando um recurso do DOS/Windows.
Como era só pra conferência, juntei os fontes:
Código: Selecionar todos
COPY *.PRG LIXO
Código: Selecionar todos
TYPE lixo | find /i "jppedi"
Como conferir o que já foi corrigido?
Ué... o que já foi corrigido, está como jppedido.
Então outro filtro, o find negativo
Código: Selecionar todos
TYPE lixo | find /i "jppedi" | find /i /v "jppedido"
Me listou as linhas contendo JPPEDI, mas que não contém JPPEDIDO.
Se está JPPEDI falta corrigir, mas se está JPPEDIDO já foi corrigido.
Poderia ser o contrário também.
Código: Selecionar todos
TYPE lixo | find /i /v "jppedido" | find /i "jppedi"
Código: Selecionar todos
type lixo | find /i "jppedi" | find /i /v "jppedido"
IndexInd( "jppedi2", "pdCliFor+Dtos(pdDatEmi)+pdPedido" )
IndexInd( "jppedi3", "pdNotFis+pdPedido" )
Código: Selecionar todos
type lixo | find /i "jppedi" | find /i /v "jppedido"
OrdSetFocus("jppedi2")
2016.08.29 - No PrecoItem() testa se estÒo abertos jppedi e jpcadas
OrdSetFocus( "jppedi2" )
IF ! File( "jppedi.dbf" )
IF ! ValidaStru( "JPPEDI", aStruList )
MsgStop( "JPPEDI nÒo dispnÝvel!" )
IF ! UseSoDbf( "jppedi", .T. )
SELECT jppedi
SEEK jppedi->pdPedido
FieldPut( nCont, jppedi->( FieldGet( FieldNum( cCampo ) ) ) )
SELECT jppedi
fErase( "jppedi.dbf" )
:ExecuteCmd( "DROP TABLE IF EXISTS JPPEDI" )
Lógico, esta foi a pesquisa final.
Antes dessa, encontrei fontes aonde tinha esquecido de alterar.
Não sei se algum editor de textos permitiria pesquisar isso fácil.
Talvez algum que use RegEx(), ou talvez um programa em Harbour.
Mas... arquivo bat resolveu.
Fica aí a dica.
Nota:
É parte das mudanças que acabei misturando na migração pra MySQL.
Agora primeiro organizando tudo.
Quando chegar a vez do MySQL não quero ter nada pendente, pra não querer fazer tudo de uma vez e perder o controle - de novo.