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

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

Curtir t�pico + 0

Responder