Re: IP Driver 8.0.8658 Практическое применение в бизнесе
Добавлено: 06 Декабрь 2013, 4:25
				
				Код: Выделить всё
   
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 , так сразу на клиент возвращается ПУСТО.