Tengo este programa en VF. Como haria para pasarlo a PHP
SET SAFE OFF
dia='_'+substr(dtoc(date()),1,2)+substr(dtoc(date( )),4,2)
use tbsetm
ZAP
appen from k:\averia
repla all origen with "SETM"
appen from k:\averiaS_QP
repla all origen with "QP" for empty(origen)
*select zonal,z_mnt,telefono,direccion,sintoma,fch_ave,hra _ave,hp_ave from tbsetm
ext=".txt"
copy to d:\appserv\www\tst\csv\setem\setem&ext fields zonal,z_mnt,telefono,direccion,sintoma,fch_ave,hra _ave,hp_ave delimited with character ","
use tbcorte
zap
appen from i:\Despacho\ftp\cortes.txt sdf
ext=".txt"
copy to d:\appserv\www\tst\csv\cortes\cortes&ext fields fono,corte,fec1,fec2 delimited with character ","
close all
Agradecere su ayuda