alex,
LET vOntem = Date(Today()-1, 'YYYY-MM-DD'); //O formato da data vai depender de cada tabela e base de dados.
Fato:
SQL SELECT * FROM Clientes WHERE DATA = '$(vOntem)';
CONCATENATE
LOAD * FROM CLIENTES.qvd (qvd) WHERE NOT Exists(DATA);
STORE CLIENTES INTO CLIENTES.qvd (qvd);
sendo:
LET vOntem = Date(Today()-1, 'YYYY-MM-DD');
Fato:
SQL SELECT * FROM Clientes WHERE DATA = '$(vOntem)';
vai pegar a data de hoje menos 1 dia para montar a data que sera lida.....(particularmente eu iria ler a ultima data do QVD.....mas nao quis mexer no que voce ja tem...)
CONCATENATE
LOAD * FROM CLIENTES.qvd (qvd) WHERE NOT Exists(DATA);
o concatenate vai "apendar" a leitura seguinte com o arquivo lido antes (Fato: SQL Select.....).
aonde o WHERE NOT Exists(DATA); nao vai ler do QVD os clientes que tenham a mesma data que esta sendo lida no Fato......
Entao, voce le registros a partir de uma data (no caso ontem) e junta com os dados lidos e salvos em QVD. Depois de ler os novos e ler os do QVD voce salva sobre o QVD lido, deixando ele "atualizado".....
Deu para explicar? Este somente "inclui" e não funciona para registros que tenham update ou delete......(bem, pelo menos se a data alterar para o update, daria certo. Falta neste rotina o caso do delete......)
furtado@farolbi.com.br
