Ens bilagsnummer

Du kan jo kode hvad som helst, især hvis du ikke skal opdatere noget - hvad er det, du vil checke for?

Hej Maria,

Jeg vil gerne have systemet chekket for ens bilags nummer men kun fra d. 01.01.2004,
det vil sige hvis der findes et identisk nummer fra før denne dato skal systemet ikke reager.

Hsund

Så er det bare at kode en Search med en variabel, er skifter NejJa, og hvis ja, så kommer med en box, der skriver noget med "bilaget brugt efter 1.1.2004". Det kan sagtens lade sig gøre.

Hej Maria,

1.000 tak - kan du skrive koden (C5 - ver 3,0 SP3) der er ingen tilretninger i Post-recorden i Finkladde.

Hsund

Ok, bare du ikke sladrer til min arbejdsgiver ;-)
Øverst:
INT &INt1

Nederst:
WHILE &int1 == 0                                                             
    SEARCH FinPost USING DatoIdx                                             
        WHERE Finpost.Dato > Str2Date("01.01.2004",123) AND                 
        &Int1 == 0                                                           
        IF Finpost.Bilag == Finkladde.Bilag THEN                             
            SET BOX(1,"Bilagsnr er tidligere andvendt.",1)                   
            SET &Int1 = 1                                                   
        ENDIF                                                               
    END                                                                     
    SET &int1 = 1                                                           
END   

Det virker :-)

For resten - det er nok ikke verdens hurtigste løsning, hvis der er mange finansposter.

Hej Marie,

1.000 tak - min mund er lukket med syv sejl :-), du har ret det tager lang tid, vi har har 326.500 finposter, så hver linie skift tager ca. 60 sek. - kan det evt. laves så det tager noget hurtigere - kan det sættes et andet sted i C5.

Hsund

Efter koden (i post-record triggeren) hvor der bliver konstanteret at bilagsnummeret bliver brugt kan du prøve med følgende search og index istedet for
IF FinPost[BilagIdx,FinKladde.Bilag].Løbenummer THEN
    SEARCH FinPost USING BilagIdx
        WHERE FinPost.Bilag == FinKladde.Bilag
          AND FinPost.Dato  > 01\01\2004

      SET Box(1,"bla bla" ....
      Break
 
    END
ENDIF
Det burde ikke tage så lang tid - kun hvis I har rigtig mange posteringer med samme bilagsnummer!

lukket