маркеры не заработали.
Код: Выделить всё
#params
[Compilers]
IncludesPath=D:\INCLUDES\src\Inc
#end
#include galnet.inc
end;
const
sci134EnIns = 6922;
cmDoMarkUnMark = 1221;
end;
Interface Programma_2 'Отчёт по платёжным документам' (, , sci134EnIns) EscClose;
show at (, ,90, 70);
var
Markers,IndexNo:longInt;
k_osh:integer;
n: integer;
i: LongInt;
sum_sum,sum_nds:double;
dogovor: string;
d_n,d_k: date;
stmt,query: longInt;
kol1,kol3,kol4: string;
kol5,kol6: double;
kol2: date;
create view
var
(isPicked)
as select if (SearchMarker(Markers, schet1, IndexNo) = True, 'v', '-'), *
from katbank where corg=3h;
screen ekr1 (, , sci1EnEsc);
show at (, ,89, 20);
Fields
d_n : ['DD.MM.YYYY'], noProtect;
d_k : ['DD.MM.YYYY'], noProtect;
buttons
cmOK, default;
cmCancel;
<<
Период с .@@@@@@@@@@ по .@@@@@@@@@@
<. ~С~формировать .>
<. ~З~акрыть .>
>>
end;
browse b_schet;
show at (, 21, , );
table katbank;
fields
{font={color=if(IsPicked='-', 0, 13)}};
isPicked '' :[1], Skip;
name 'Банк' :[65], protect, NoDel;
schet1 'Счёт' :[30], protect, NoDel;
end;
HandleEvent
CmInit:
{
Markers := InitMarker('', 8, 20, 20);
//message('маркер №'+Markers);
}
cmDone:
{
DoneMarker(Markers, '');
}
cmDoMarkUnMark:
{
InvertMarker(Markers, katbank.schet1);
message('маркер - '+Markers+' записей - '+GetMarkerCount(Markers));
if ((GetNext katbank) = tsOk) {};
RescanPanel(#katbank);
}