SetUpNewLine() Van Tabel 97 / Form 124

rowix

Graag zou ik deze functie uit tabel 97 willen gebruiken:

SetUpNewLine()

CommentLine.SETRANGE("Table Name","Table Name");
CommentLine.SETRANGE("No.","No.");
CommentLine.SETRANGE(Date,WORKDATE);
IF NOT CommentLine.FIND('-') THEN
  Date := WORKDATE;

Nu zie ik in formulier 124 de aanroep van de functie als volgt staan:

Form - OnNewRecord(BelowxRec : Boolean)

SetUpNewLine;

Verder zie ik niks. Alleen Bij locals staat de BelowxRec : Boolean

Ik heb de functie nagemaakt maar dan met mijn veldnamen.

En als ik dan mijn formulier wil compileren geeft hij een foutmelding
Deze luidt als volgt:

Bij de aanroep van de functie moet tenminste het minimale aantal parameters worden gebruikt.

Maar ik zie in form 124 ook geen Parameters Gedeclareerd ](*,)

2tje

Gebruik je een maatwerk tabel?
Heeft je nieuwe form dezelfde properties als Form 124?
Zijn je variabelen in de functie goed gedefinieerd?
Het lijkt erop dat je vanuit het form een andere functie aanroept dan je wilt.

rowix

2tje wrote:

Gebruik je een maatwerk tabel?

Ja ik heb hem zelf gemaakt.

2tje wrote:

Heeft je nieuwe form dezelfde properties als Form 124

Zover ik kan zien zijn alleen die properties anders die het ook moeten zijn de rest heb ik "gepikt" van form 124

2tje wrote:

Zijn je variabelen in de functie goed gedefinieerd?

Ik heb in form 124 en in mijn form maar een variabele en dat is (BelowxRec [Boolean])

2tje wrote:

Het lijkt erop dat je vanuit het form een andere functie aanroept dan je wilt.

Na het proberen te compileren springt hij gelijk naar de regel waar ik SetUpNewLine; heb neergezet en hij zet dan de cursos tussen de e en ; zou dan het probleem in de tabel moeten zitten?

Wat ik niet aangepast/gemaakt heb in mijn eigen tabel zijn de variabele :
(WebSite [Record] Web Site)
(SynchMgt [Codeunit] Synchronization Management)

Die laaste word wel aangeroepen onder

OnInsert()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.InsertCustomerCommentLine(Rec);

OnModify()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.ModifyCustomerCommentLine(Rec,xRec);

OnDelete()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.DeleteCustomerCommentLine(Rec);

Zou het hier aan liggen ?

rowix

De code die ik gebruik is :

DocOpm.SETRANGE(Tabelnaam,Tabelnaam);
DocOpm.SETRANGE(Nummer,Nummer);
DocOpm.SETRANGE(Datum,WORKDATE);
IF NOT DocOpm.FIND('-') THEN
  Datum := WORKDATE;

Misschien doe ik hier iets verkeerd, op het forum wordt ook verwezen naar tabel 81 als je zoekt op SetUpNewLine doet deze het zelfde (Alleen iets meer)? #-o

Marije_Brummel

rowix wrote:

OnInsert()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.InsertCustomerCommentLine(Rec);

OnModify()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.ModifyCustomerCommentLine(Rec,xRec);

OnDelete()
IF "Table Name" = "Table Name"::Customer THEN
  IF WebSite.FIND('-') THEN
    SynchMgt.DeleteCustomerCommentLine(Rec);

Zou het hier aan liggen ?

Ik denk dat dit wegkan.

rowix

Ben er uit heb :oops: een foutje gemaakt in de tabel ik heb de variable per ongeluk ook onder het hoofdstukje parameter gezet en dat vind hij niet fijn

Maar het is opgelost dus bedankt voor de tips =D>