Factuurnummers 2009 aanpassen

denpar

Een klant wil de factuurnummers van alle verkoopfacturen gemaakt in 2009 aanpassen...

Voorbeeld:
Oud nummer : 09000010
Moet worden : 090010 (posities 3+4 verwijderen)

Ik heb een report geschreven met onderstaande code:



Sales Invoice Header - OnPreDataItem()"
Sales Invoice Header".SETFILTER("Document Date",'%1..%2',AbpDatDocDatumVanaf,AbpDatDocDatumTm);

Sales Invoice Header - OnAfterGetRecord()
AbpCodNieuwFactuurnr:=COPYSTR("Sales Invoice Header"."No.",1,2)+COPYSTR("Sales Invoice Header"."No.",5,15);

IF NOT AbpBooTestrun THEN BEGIN
"Sales Invoice Header"."Factuurnr. oud":="Sales Invoice Header"."No.";
"Sales Invoice Header".MODIFY;
AbpRecFactuur:="Sales Invoice Header";
RENAME("Sales Invoice Header"."No.",AbpCodNieuwFactuurnr);
"Sales Invoice Header":=AbpRecFactuur;
END;


Ik krijg telkens weer de foutmelding 'Er zijn te veel sleutelvelden gedefinieerd, zodat Verkoopfactuur niet kon worden opgehaald. Het aantal velden in de primaire sleutel is 1'. Ik heb in de tabel 'Sales invoice header' alleen de primaire sleutel (=No.) aanstaan, andere keys zijn disabled!

Wat doe ik verkeerd?????

Shedman

Rename moet je alleen de nieuwe primaire sleutelvelden opgeven. De oude naam zit al in het record. Dus dit zou het moeten doen:

RENAME(AbpCodNieuwFactuurnr);

denpar

Bedankt voor de tip Shedman, dit is inderdaad de oplossing!!!!

Het leven kan soms zo eenvoudig zijn......