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

23/11/2016

2

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

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar