[me ajude!] VISUAL FOX PRO, para dinossauros que não abrem mão!

Modelagem

23/11/2016

Olá amigos,
Gostaria de saber se alguém pode me ajudar com meu programa?

tenho um form que ao clicar no botão exuta tais linhas de comando:

DO C:\\OK\\PRG\\CPZERO.PRG WITH HOME()+"&warqx1", 1252
USE &warqx1 
DELETE FROM &warqx1 where marca='ESPECIAL'
PACK
COPY TO C:\\OK\\TEXTO\\001.txt DELIMITED WITH "" WITH CHARACTER TAB
CLOSE TABLES 

DO C:\\OK\\PRG\\CPZERO.PRG WITH HOME()+"&warqx2", 1252
USE &warqx2 
DELETE FROM &warqx2 where marca='ESPECIAL'
PACK
COPY TO C:\\OK\\TEXTO\\002.txt DELIMITED WITH "" WITH CHARACTER TAB
CLOSE TABLES 

DO C:\\OK\\PRG\\CPZERO.PRG WITH HOME()+"&warqx3", 1252
USE &warqx3 
DELETE FROM &warqx3 where marca='ESPECIAL'
PACK
COPY TO C:\\OK\\TEXTO\\003.txt DELIMITED WITH "" WITH CHARACTER TAB
CLOSE TABLES


ele recebe as infos do meu textbox (que sempre será o caminho da table .DBF);
executa o CPZERO, para codificar a pagina como 1252;
delete desta tabela em questão as linhas onde a coluna marca='ESPECIAIS' (estas não são usadas pelo meu chefe)
pack tudo em uma nova table e então copia para um arquivo em TXT numa pasta do prog.

meu problema é que estão sendo enviadas as vezes 4 e as vezes 5 tables por mes, e no mes que tem 4 somente um campo fica vazio, ocorrendo um erro.
gostaria de poder adaptar um if else aqui ou um do case, mas, não sei e minhas tentativas ~são falhas o vfp me diz que não tenho os argumentos corretos,

Alguem me ajuda?
abraços!!!

Arthur Micheloni
Arthur Micheloni

Arthur Micheloni

Curtidas 0
POSTAR