Код: Выделить всё
LOC:Records_IN_Batch= p2
LOC:Current_Stage = p3
Open(TCDMANUFACTURERS,40h)
RECS#=RECORDS(TCDMANUFACTURERS)
CASE UPPER(p1)
OF 'PREPARE'
ReturnValue=RECS#
Return(ReturnValue)
OF 'GETRECORDS'
LOC:TCDMANUFACTURERSSTRING=''
SET(TCDMANUFACTURERS,(LOC:Current_Stage -1) * LOC:Records_IN_Batch+1)
LOOP I#=1 TO LOC:Records_IN_Batch
NEXT(TCDMANUFACTURERS)
IF Errorcode()
BREAK
ELSE
LOC:TCDMANUFACTURERSSTRING=clip(LOC:TCDMANUFACTURERSSTRING) & TDMAN:MFA_ID &';'& TDMAN:MFA_BRAND &';'& '|'
END
END
Return LOC:TCDMANUFACTURERSSTRING
END
Т.е. как только воявляется Errorcode() <>0 , так сразу на клиент возвращается ПУСТО.
