Hi Sir,
This is my code.
ClearCollect(
ColExportEJF,
ForAll(
'NAFS AUTO EJF_Gallery'.AllItems,
{
REMARKS: ThisRecord.REMARKS,
TAT:ThisRecord.TAT,
'Aging from Repossession':ThisRecord.'Aging from Repossession',
'Disposal Date':ThisRecord.'Disposal Date',
'Appraisal Date':ThisRecord.'Appraisal Date',
'Date of KF Request for Appraisal':ThisRecord.'Date of KF Request for Appraisal',
'Reason of EJF': ThisRecord.'Reason of EJF',
'Chassis Number': ThisRecord.'Chassis Number',
'Motor Number':ThisRecord.'Motor Number',
'Collateral Description': ThisRecord.'Collateral Description',
BOOKINGSTATUS:ThisRecord.'SUB STATUS',
'SAMS Remarks':ThisRecord.'SAMS Remarks',
'Acknowledge by SAMS': ThisRecord.'Acknowledge by SAMS',
'AAM APPROVER 2 REMARKS': ThisRecord.'AAM APPROVER 2 REMARKS',
'AAM APPROVER 2': ThisRecord.'AAM APPROVER 2',
'AAM APPROVER 1 REMARKS': ThisRecord.'AAM APPROVER 1 REMARKS',
'AAM APPROVER 1': ThisRecord.'AAM APPROVER 1',
'LSR APPROVER REMARKS':ThisRecord.'LSR APPROVER REMARKS',
'LSR APPROVER': ThisRecord.'LSR APPROVER',
'PMS BOOKING DATE':ThisRecord.'PMS BOOKING DATE',
'Date Routed KF for PMS Booking': ThisRecord.'Date Routed KF for PMS Booking',
'COS DATE': ThisRecord.'COS DATE',
'AUCTION DATE': ThisRecord.'AUCTION DATE',
'EJF FILED DATE':ThisRecord.'EJF FILED DATE',
'EJF FILING NO.':ThisRecord.'EJF FILING NO.',
STATUS: ThisRecord.STATUS.Value,
'DOC DEF': ThisRecord.'DOC DEF'.Value,
'Documents Submitted':Concat(LookUp(EjfCol,'ACCOUNT NAME' = ThisRecord.'ACCOUNT NAME').'Documents Submitted', Value,";"),
MANNER: ThisRecord.MANNER.Value,
'REPO DATE':ThisRecord.'REPO DATE',
OB: Text(ThisRecord.OB,"#,###.00"),
'ACCOUNT NAME':ThisRecord.'ACCOUNT NAME',
LAN:ThisRecord.LAN,
'REPO YARD': ThisRecord.'REPO YARD'.Value,
OBU:ThisRecord.Title
}
)
);Set(varEJFExport1,
"OBU" & "," &
"REPO YARD" & "," &
"LAN" & "," &
"ACCOUNT NAME" & "," &
"OB" & "," &
"REPO DATE" & "," &
"MANNER" & "," &
"DOCUMENTS SUBMITTED" & "," &
"DOC DEF" & "," &
"STATUS" & "," &
"EJF FILING NO." & "," &
"EJF FILED DATE" & "," &
"AUCTION DATE" & "," &
"COS DATE" & "," &
"DATE ROUTED KF FOR PMS BOOKING" & "," &
"PMS BOOKING DATE" & "," &
"LSR APPROVER" & "," &
"LSR APPROVER REMARKS" & "," &
"AAM APPROVER 1" & "," &
"AAM APROVER 1 REMARKS" & "," &
"AAM APPROVER 2" & "," &
"AAM APPROVER 2 REMARKS" & "," &
"Acknowledge by SAMS" & "," &
"SAMS REMARKS" & "," &
"BOOKING STATUS" & "," &
"COLLATERAL DESCRIPTION" & "," &
"MOTOR NUMBER" & "," &
"CHASSIS NUMBER" & "," &
"REASON OF EJF" & "," &
"DATE KF REQUEST FOR APPRAISAL" & "," &
"APPRAISAL DATE" & "," &
"DISPOSAL DATE" & "," &
"AGING FROM REPOSSESION" & "," &
"TAT"& "," &
"REMARKS" &
Concat(ColExportEJF,
OBU & "," &
'REPO YARD' & "," &
LAN & "," &
'ACCOUNT NAME'& "," &
OB & "," &
'REPO DATE' & "," &
MANNER & "," &
'DOC DEF'& "," &
STATUS& "," &&
'EJF FILING NO.'& "," &
'EJF FILED DATE'& "," &
'AUCTION DATE'& "," &
'COS DATE'& "," &
'Date Routed KF for PMS Booking' & "," &
'Documents Submitted' & "," &
'PMS BOOKING DATE' & "," &
'LSR APPROVER'& "," &
'LSR APPROVER REMARKS'& "," &
'AAM APPROVER 1'& "," &
'AAM APPROVER 1 REMARKS'& "," &
'AAM APPROVER 2'& "," &
'AAM APPROVER 2 REMARKS'& "," &
'Acknowledge by SAMS'& "," &
'SAMS Remarks'& "," &
BOOKINGSTATUS& "," &
'Collateral Description'& "," &
'Motor Number'& "," &
'Chassis Number'& "," &
'Reason of EJF'& "," &
'Date of KF Request for Appraisal'& "," &
'Appraisal Date'& "," &
'Disposal Date'& "," &
'Aging from Repossession'& "," &
TAT& "," &
REMARKS & Char(10)));
ExportToCSV2.Run(varEJFExport1,User().Email)
My problem now is it's empty. Thank you!
