clear
use bodesali share
brow for numeruta="41" and fecha=date()-2
set cent on
brow for numeruta="41" and fecha=date()-2
delete for numeruta="41" and fecha=ctod("06/18/2022")
!cd
use dbf\resp\r41 share
!cd
use resp\r41 share
brow
set
SELECT 2
use bodesali share
brow
set
SELECT 1
BROWSE LAST
brow
select tipo,fecha,folio,clavprod,carginic,reca_uno,reca_dos,sumas,devolucion,venta,pedido,cargfina,cont1,cont2,cont3,totacont,diferencia,"41",imptvtas;
from "r41";
into array x
set
SELECT 2
append from array x
brow