Нужно ,чтобы в отчет были выведены данные по условию LEFTCOPY([DialogForm.DataSet1."CDATTR1"],1)="2"
В данном отчете к условию (стандартному) фильтра
{ фильтр на нулевые значения }
If pZero.Checked=False Then DataSet1.Params['cFilting'] := DataSet1.Params['cFilting'] + if(LENGTH(DataSet1.Params['cFilting'])<>0,' and ','')+'(KB<>0 or KP<>0 or KR<>0 or KE<>0)';
Добавляю еще одну строку:
DataSet1.Params['cFilting'] := DataSet1.Params['cFilting'] + if(LENGTH(DataSet1.Params['cFilting'])<>0,' and ','')+'LEFTCOPY(CDATTR1, 1)="2"';
Но при выводе отчета программа ругается на
Error in line 13 File ‘leftcopy.prg’ does not exist
Т.е. выражение для фильтра надо задавть как-то по другому?
В данном отчете к условию (стандартному) фильтра
{ фильтр на нулевые значения }
If pZero.Checked=False Then DataSet1.Params['cFilting'] := DataSet1.Params['cFilting'] + if(LENGTH(DataSet1.Params['cFilting'])<>0,' and ','')+'(KB<>0 or KP<>0 or KR<>0 or KE<>0)';
Добавляю еще одну строку:
DataSet1.Params['cFilting'] := DataSet1.Params['cFilting'] + if(LENGTH(DataSet1.Params['cFilting'])<>0,' and ','')+'LEFTCOPY(CDATTR1, 1)="2"';
Но при выводе отчета программа ругается на
Error in line 13 File ‘leftcopy.prg’ does not exist
Т.е. выражение для фильтра надо задавть как-то по другому?