Not Able to Create new transfer Order

Stivan_dsouza21

I have written the below Code for User Rights but i m not able to create new Transfer Order:

CSOMapping2.RESET;
CSOMapping2.SETRANGE(CSOMapping2."User Id",UPPERCASE(USERID));
IF CSOMapping2.FINDFIRST THEN
BEGIN
TH.RESET;
IF TH.FINDSET THEN
REPEAT
CSOMapping1.RESET;
CSOMapping1.SETRANGE("User Id",UPPERCASE(USERID));
CSOMapping1.SETRANGE(Type,CSOMapping.Type::Location);
CSOMapping1.SETFILTER(Value,'%1|%2',TH."Transfer-from Code",TH."Transfer-to Code");
IF CSOMapping1.FINDFIRST THEN
TH.MARK := TRUE
UNTIL TH.NEXT = 0;

TH.MARKEDONLY(TRUE);
COPY(TH);
END;

Can somebody help......

ara3n

Can you turn on the debugger and step through you code?