5. Juli 2017 11:55
5. Juli 2017 12:44
5. Juli 2017 13:20
5. Juli 2017 14:10
5. Juli 2017 14:34
5. Juli 2017 14:41
6. Juli 2017 16:37
CustLegdeEntryRecord.SETFILTER("Document Type",'Invoice');
CustLegdeEntryRecord.SETRANGE("Last Issued Reminder Level",3);
OutputTable.INIT;
CustLegdeEntryRecord.FINDFIRST;
REPEAT
OutputTable."No." := CustLegdeEntryRecord."Customer No.";
CustomerRec.GET(CustLegdeEntryRecord."Customer No.");
OutputTable.Name := CustomerRec.Name;
OutputTable.ReminderLevel := CustLegdeEntryRecord."Last Issued Reminder Level";
IF OutputTable.INSERT THEN
;
UNTIL CustLegdeEntryRecord.NEXT = 0;
CustLegdeEntryRecord.RESET;
CustLegdeEntryRecord.SETFILTER("Document Type",'Invoice');
CustLegdeEntryRecord.SETRANGE("Last Issued Reminder Level",0,3);
CustLegdeEntryRecord.FINDFIRST;
REPEAT
OutputTable."No." := CustLegdeEntryRecord."Customer No.";
CustomerRec.GET(CustLegdeEntryRecord."Customer No.");
OutputTable.Name := CustomerRec.Name;
OutputTable.ReminderLevel := CustLegdeEntryRecord."Last Issued Reminder Level";
IF OutputTable.INSERT THEN
;
UNTIL CustLegdeEntryRecord.NEXT = 0;
OutputTable.SETRANGE("ReminderLevel",3);
REPEAT
IF OutputTable.DELETE THEN
;
UNTIL OutputTable.NEXT = 0;
14. Juli 2017 12:40
14. Juli 2017 13:27
DasChamaeleon hat geschrieben:Vielleicht bekomme ich von dem ein oder anderen Experten ein klein wenig Feedback?
Gruss
IF xyz.FINDFIRST THEN BEGIN
//CustLegdeEntryRecord.SETFILTER("Document Type",'Invoice'); <--- SETRANGE ist doch auch möglich :)
CustLegdeEntryRecord.SETRANGE("Document Type",CustLegdeEntryRecord."Document Type"::Invoice);
OutputTable.SETRANGE("ReminderLevel",3);
REPEAT
IF OutputTable.DELETE THEN
;
UNTIL OutputTable.NEXT = 0;
Clear(OutPutTable)
OutputTable.SETRANGE("ReminderLevel",3);
IF NOT OutPutTable.ISEMPTY THEN
OutputTable.DELETEALL