C5 3.0 Styring af fragt i ordre-/debitormodulet

Har du adgang til udvikling (forms), for det vil nok kræve at du på formen ordrekart laver lidt programmering, som tæller linierne sammen og hvis beløbet er større end XXX kr., indsætter et beløb i fragtfeltet.

Ja det har jeg, men jeg skal nok have lidt hjælp, da jeg ikke har brugt det så meget endnu. Kan du hjælpe?

Er der slet ikke nogen, der kan hjælpe med dette problem ?

Jamen dog. Er der ingen der har svaret dig.

Hvis du virkelig mener det med at det er bestillingen, der skal være over x kr og ikke er det beløb, der vil komme frem ved fakturering efter metoden "LeverNu" eller "Bekræft" hvor beløbet vil kunne blive et andet end bestilt så:

I XAL kørslen "OrdFakturaTotaler" (Generelt / Tilpasning / Udviklingsmenu / XAL ( Ret) , i linie 218 efter

ELSEIF &Metode == 2 THEN

Tilføj:
IF  OrdKart.Levering    == 'FritO1000' AND
    OrdKart.Varebeløb  >= 1000 THEN
    SET OrdKart.GebyrFM    = 0
ELSE
    SET OrdKart.GebyrFM    = 300
ENDIF

hvor 'FritO100' er en ny leveringsbetingelse du opretter under Debitor / Tilpasning / Leveringsbetingelser og derefter sætter denne leveringsbetingelse på de debitorer, der skal have denne aftale. OG 1000 er det beløb, som der mindst skal købes for.

Denne metode er en nødløsning, da man ikke bør hardcode sådan noget som en bestemt leveringsbetingelse og bestemte beløb ind i elementerne, men derimod bør lave sådanne ting i nogle parametre. Det vil føre for vidt at beskrive det her. Kontakt evt. din C5 forhandler eller ved tilbage for yderligere kontakt.

Tak for dit svar adnb. Jeg er lydhør, når du fortæller, at man ikke bør hardcode sådan noget.
En anden mulighed for os kunne også være, at der "popper" en tekst op, når vi vælger debitoren under ordreindtastningen. I teksten kunne vi så f.eks. angive, at vi skal være opmærksom på, at ordre til denne kunde skal leveres fragtfrit ved f.eks over 1000 kr.

Ja hvis du hellere vil det, så kunne du kode noget lignende i UXL kørslen "Ord_Opret" (Det koster ikke en form) Noget med
IF DebKart.Levering == 'FritO1000' THEN
  SET Box(1, "Hov hov; ingen fragt hvis bestilling er over 1000",0)
ENDIF
Ja undskyld formuleringen.

Det virker, og formuleringen er "fed" ! - takker

adnb:
Kan jeg alligevel udvide den lidt ? - jeg giver gerne yderligere point.
Kan jeg under ordreindtastningen eller ved oprettlsen af ordren få den til (automatisk) at vise notatet på debitoren ?

Inde i UXL Ord_Opret tilføjer du:

IF Notat[NotatIdx, DebKart.FileId, Debkart.RecId].Recid THEN
    PROCESS 17 'Form=Notat Pos=1,13 "PARM=1;'+Int2Str(DebKart.FileID)+';'+
Int2Str(DebKart.RecID)+';78 10 1 13 Notat på debitor'
ENDIF

Du kan evt. ændre på pos og størelse for at placere boksen bedre. Parm=1 betyder at du ikke kan rette i notatet. Vil du gerne have lov til det, retter du 1 til 0.

God fornøjelse.

Respekt !

Kan jeg give dig yderligere point på dette emne nu hvor jeg har givet dig en gang eller skal jeg oprette et nyt spørgsmål ?

Behøves ikke. Hvis du er tilfreds så er det godt nok.

MEGET TILFREDS, tak endnu engang