Формируется таблица по фильтру. в результате, кроме остальных имеем два основных поля: "сумма" и "комиссия". Необходимо, что бы в конце формирования, в поле "сумма" выводились суммы с вычетом комиссии. И из сформировавшейся структуры исключить поле "комиссия". Подскажиете пожалуйста, как это можно сделать в FoxPro 2.6?

Фильтр выборки:

RELEASE WINDOW WhatDate
SET CURSOR OFF

SELECT 1
USE FILIALS alias filials
store alltrim(FILIALS.MAILPATH5) to out
store out + substr(dt,1,2)+substr(dt,4,2)+substr(dt,9,2)+'.dbf' to namfilda
store 0 to itsum
GO TOP

do while not eof()

m.fname = alltrim(FILIALS.PATH)+"KJ.DBF"
select 0
IF USED('kj')
SELECT kj
ENDIF
use
USE (m.fname) IN 0
SELECT kj

store filials.fil to fil
WAIT WINDOW 'Идет сортировка данных по '+filials.name nowa
select 2
select ALL fdats(kj.dpl,.F.) AS dpl,;
kj.fio as fio,;
kj.adr as adr,;
kj.lc as lc,;
kj.komis as komis,;
fpack(kj.sum,7,2,.f.) AS SUM;
From kj;
WHERE kop="Q" and fdats(kj.dpl,.F.) >= m.LookDate and fdats(kj.dpl,.F.) <= m.LookDateEND and ;
KODPlat=kj.kpl and;
not kj.storno ;
into dbf tempz3

формирование структуры:

if cstru
copy structure to &namfilda
select 17
use &namfilda
store .f. to cstru
endif

select 17
append from tempz3
select filials
skip
enddo

Формируется таблица по фильтру. в результате, кроме остальных имеем два основных поля: "сумма" и "комиссия". Необходимо, что бы в конце формирования, в поле "сумма" выводились суммы с вычетом комиссии. И из сформировавшейся структуры исключить поле "комиссия". Подскажиете пожалуйста, как это можно сделать в FoxPro 2.6?

Фильтр выборки:

RELEASE WINDOW WhatDate
SET CURSOR OFF

SELECT 1
USE FILIALS alias filials
store alltrim(FILIALS.MAILPATH5) to out
store out + substr(dt,1,2)+substr(dt,4,2)+substr(dt,9,2)+'.dbf' to namfilda
store 0 to itsum
GO TOP

do while not eof()

m.fname = alltrim(FILIALS.PATH)+"KJ.DBF"
select 0
IF USED('kj')
SELECT kj
ENDIF
use
USE (m.fname) IN 0
SELECT kj

store filials.fil to fil
WAIT WINDOW 'Идет сортировка данных по '+filials.name nowa
select 2
select ALL fdats(kj.dpl,.F.) AS dpl,;
kj.fio as fio,;
kj.adr as adr,;
kj.lc as lc,;
kj.komis as komis,;
fpack(kj.sum,7,2,.f.) AS SUM;
From kj;
WHERE kop="Q" and fdats(kj.dpl,.F.) >= m.LookDate and fdats(kj.dpl,.F.) <= m.LookDateEND and ;
KODPlat=kj.kpl and;
not kj.storno ;
into dbf tempz3

формирование структуры:

if cstru
copy structure to &namfilda
select 17
use &namfilda
store .f. to cstru
endif

select 17
append from tempz3
select filials
skip
enddo

Да. получилось! :) но мне надо как то исключить поле komis из конечного формирования...

Все. я все сделала :)

Да. получилось! :) но мне надо как то исключить поле komis из конечного формирования...