| Compare Information Source Database: Demo Database NAV (9-0) => Target Database: Demo Database NAV (10-0) | ||
Dynamics NAV Table (Source): Salesperson/Purchaser -> Dynamics NAV Table (Target): Salesperson/Purchaser | ||
|
Dynamics NAV
Table (Source): Salesperson/Purchaser 1 OBJECT Table 13 Salesperson/Purchaser 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=15.09.15; 6 Time=12:00:00; 7 Version List=NAVW19.00; 8 } 9 PROPERTIES 10 { 11 DataCaptionFields=Code,Name; 12 OnInsert=BEGIN 13 VALIDATE(Code); 14 DimMgt.UpdateDefaultDim( 15 DATABASE::"Salesperson/Purchaser",Code, 16 "Global Dimension 1 Code","Global Dimension 2 Code"); 17 END; 18 19 OnModify=BEGIN 20 VALIDATE(Code); 21 END; 22 23 OnDelete=VAR 24 TeamSalesperson@1000 : Record 5084; 25 BEGIN 26 TeamSalesperson.RESET; 27 TeamSalesperson.SETRANGE("Salesperson Code",Code); 28 TeamSalesperson.DELETEALL; 29 DimMgt.DeleteDefaultDim(DATABASE::"Salesperson/Purchaser",Code); 30 END; 31 32 CaptionML=[DEU=Verkäufer/Einkäufer; 33 ENU=Salesperson/Purchaser]; 34 LookupPageID=Page14; 35 } 36 FIELDS 37 { 38 { 1 ; ;Code ;Code10 ;OnValidate=BEGIN 39 TESTFIELD(Code); 40 END; 41 42 CaptionML=[DEU=Code; 43 ENU=Code]; 44 NotBlank=Yes } 45 { 2 ; ;Name ;Text50 ;CaptionML=[DEU=Name; 46 ENU=Name] } 47 { 3 ; ;Commission % ;Decimal ;CaptionML=[DEU=Provision %; 48 ENU=Commission %]; 49 DecimalPlaces=2:2; 50 MinValue=0; 51 MaxValue=100 } 52 53 54 55 { 5050; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 56 OnValidate=BEGIN 57 ValidateShortcutDimCode(1,"Global Dimension 1 Code"); 58 END; 59 60 CaptionML=[DEU=Globaler Dimensionscode 1; 61 ENU=Global Dimension 1 Code]; 62 CaptionClass='1,1,1' } 63 { 5051; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 64 OnValidate=BEGIN 65 ValidateShortcutDimCode(2,"Global Dimension 2 Code"); 66 END; 67 68 CaptionML=[DEU=Globaler Dimensionscode 2; 69 ENU=Global Dimension 2 Code]; 70 CaptionClass='1,1,2' } 71 { 5052; ;E-Mail ;Text80 ;OnValidate=BEGIN 72 IF ("Search E-Mail" = UPPERCASE(xRec."E-Mail")) OR ("Search E-Mail" = '') THEN 73 "Search E-Mail" := "E-Mail"; 74 END; 75 76 ExtendedDatatype=E-Mail; 77 CaptionML=[DEU=E-Mail; 78 ENU=E-Mail] } 79 { 5053; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No.; 80 CaptionML=[DEU=Telefonnr.; 81 ENU=Phone No.] } 82 { 5054; ;Next To-do Date ;Date ;FieldClass=FlowField; 83 CalcFormula=Min(To-do.Date WHERE (Salesperson Code=FIELD(Code), 84 Closed=CONST(No), 85 System To-do Type=FILTER(Organizer|Salesperson Attendee))); 86 CaptionML=[DEU=Nächste Aufgabe am; 87 ENU=Next To-do Date]; 88 Editable=No } 89 { 5055; ;No. of Opportunities;Integer ;FieldClass=FlowField; 90 CalcFormula=Count("Opportunity Entry" WHERE (Salesperson Code=FIELD(Code), 91 Active=CONST(Yes), 92 Estimated Close Date=FIELD(Date Filter), 93 Action Taken=FIELD(Action Taken Filter), 94 Sales Cycle Code=FIELD(Sales Cycle Filter), 95 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 96 Probability %=FIELD(Probability % Filter), 97 Completed %=FIELD(Completed % Filter))); 98 CaptionML=[DEU=Anzahl Verkaufschancen; 99 ENU=No. of Opportunities]; 100 Editable=No } 101 { 5056; ;Estimated Value (LCY);Decimal ;FieldClass=FlowField; 102 CalcFormula=Sum("Opportunity Entry"."Estimated Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 103 Active=CONST(Yes), 104 Estimated Close Date=FIELD(Date Filter), 105 Action Taken=FIELD(Action Taken Filter), 106 Sales Cycle Code=FIELD(Sales Cycle Filter), 107 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 108 Probability %=FIELD(Probability % Filter), 109 Completed %=FIELD(Completed % Filter))); 110 CaptionML=[DEU=Erwarteter Wert (MW); 111 ENU=Estimated Value (LCY)]; 112 Editable=No; 113 AutoFormatType=1 } 114 { 5057; ;Calcd. Current Value (LCY);Decimal ;FieldClass=FlowField; 115 CalcFormula=Sum("Opportunity Entry"."Calcd. Current Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 116 Active=CONST(Yes), 117 Estimated Close Date=FIELD(Date Filter), 118 Action Taken=FIELD(Action Taken Filter), 119 Sales Cycle Code=FIELD(Sales Cycle Filter), 120 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 121 Probability %=FIELD(Probability % Filter), 122 Completed %=FIELD(Completed % Filter))); 123 CaptionML=[DEU=Berech. aktueller Wert (MW); 124 ENU=Calcd. Current Value (LCY)]; 125 Editable=No; 126 AutoFormatType=1 } 127 { 5058; ;Date Filter ;Date ;FieldClass=FlowFilter; 128 CaptionML=[DEU=Datumsfilter; 129 ENU=Date Filter] } 130 { 5059; ;No. of Interactions ;Integer ;FieldClass=FlowField; 131 CalcFormula=Count("Interaction Log Entry" WHERE (Salesperson Code=FIELD(Code), 132 Canceled=CONST(No), 133 Date=FIELD(Date Filter), 134 Postponed=CONST(No))); 135 CaptionML=[DEU=Anzahl Aktivitäten; 136 ENU=No. of Interactions]; 137 Editable=No } 138 { 5060; ;Cost (LCY) ;Decimal ;FieldClass=FlowField; 139 CalcFormula=Sum("Interaction Log Entry"."Cost (LCY)" WHERE (Salesperson Code=FIELD(Code), 140 Canceled=CONST(No), 141 Date=FIELD(Date Filter), 142 Postponed=CONST(No))); 143 CaptionML=[DEU=Einstandsbetrag (MW); 144 ENU=Cost (LCY)]; 145 Editable=No; 146 AutoFormatType=1 } 147 { 5061; ;Duration (Min.) ;Decimal ;FieldClass=FlowField; 148 CalcFormula=Sum("Interaction Log Entry"."Duration (Min.)" WHERE (Salesperson Code=FIELD(Code), 149 Canceled=CONST(No), 150 Date=FIELD(Date Filter), 151 Postponed=CONST(No))); 152 CaptionML=[DEU=Dauer (Min.); 153 ENU=Duration (Min.)]; 154 DecimalPlaces=0:0; 155 Editable=No } 156 { 5062; ;Job Title ;Text30 ;CaptionML=[DEU=Funktion; 157 ENU=Job Title] } 158 { 5063; ;Action Taken Filter ;Option ;FieldClass=FlowFilter; 159 CaptionML=[DEU=Kriterienaktionsfilter; 160 ENU=Action Taken Filter]; 161 OptionCaptionML=[DEU=" ,Nächster Schritt,Vorheriger Schritt,Aktualisiert,Gesprungen,Gewonnen,Verloren"; 162 ENU=" ,Next,Previous,Updated,Jumped,Won,Lost"]; 163 OptionString=[ ,Next,Previous,Updated,Jumped,Won,Lost] } 164 { 5064; ;Sales Cycle Filter ;Code10 ;FieldClass=FlowFilter; 165 TableRelation="Sales Cycle"; 166 CaptionML=[DEU=Verkaufsprozessfilter; 167 ENU=Sales Cycle Filter] } 168 { 5065; ;Sales Cycle Stage Filter;Integer ;FieldClass=FlowFilter; 169 TableRelation="Sales Cycle Stage".Stage WHERE (Sales Cycle Code=FIELD(Sales Cycle Filter)); 170 CaptionML=[DEU=Verkaufsprozess-Stufenfilter; 171 ENU=Sales Cycle Stage Filter] } 172 { 5066; ;Probability % Filter;Decimal ;FieldClass=FlowFilter; 173 CaptionML=[DEU=Wahrscheinlichkeit % Filter; 174 ENU=Probability % Filter]; 175 DecimalPlaces=1:1; 176 MinValue=0; 177 MaxValue=100 } 178 { 5067; ;Completed % Filter ;Decimal ;FieldClass=FlowFilter; 179 CaptionML=[DEU=Abgeschlossen % Filter; 180 ENU=Completed % Filter]; 181 DecimalPlaces=1:1; 182 MinValue=0; 183 MaxValue=100 } 184 { 5068; ;Avg. Estimated Value (LCY);Decimal ;FieldClass=FlowField; 185 CalcFormula=Average("Opportunity Entry"."Estimated Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 186 Active=CONST(Yes), 187 Estimated Close Date=FIELD(Date Filter), 188 Action Taken=FIELD(Action Taken Filter), 189 Sales Cycle Code=FIELD(Sales Cycle Filter), 190 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 191 Probability %=FIELD(Probability % Filter), 192 Completed %=FIELD(Completed % Filter))); 193 CaptionML=[DEU=Durchschn. erw. Wert (MW); 194 ENU=Avg. Estimated Value (LCY)]; 195 Editable=No; 196 AutoFormatType=1 } 197 { 5069; ;Avg.Calcd. Current Value (LCY);Decimal; 198 FieldClass=FlowField; 199 CalcFormula=Average("Opportunity Entry"."Calcd. Current Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 200 Active=CONST(Yes), 201 Estimated Close Date=FIELD(Date Filter), 202 Action Taken=FIELD(Action Taken Filter), 203 Sales Cycle Code=FIELD(Sales Cycle Filter), 204 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 205 Probability %=FIELD(Probability % Filter), 206 Completed %=FIELD(Completed % Filter))); 207 CaptionML=[DEU=Durchschn. ber. akt. Wert (MW); 208 ENU=Avg.Calcd. Current Value (LCY)]; 209 Editable=No; 210 AutoFormatType=1 } 211 { 5070; ;Contact Filter ;Code20 ;FieldClass=FlowFilter; 212 TableRelation=Contact; 213 CaptionML=[DEU=Kontaktfilter; 214 ENU=Contact Filter] } 215 { 5071; ;Contact Company Filter;Code20 ;FieldClass=FlowFilter; 216 TableRelation=Contact WHERE (Type=CONST(Company)); 217 CaptionML=[DEU=Kontakt Unternehmensfilter; 218 ENU=Contact Company Filter] } 219 { 5072; ;Campaign Filter ;Code20 ;FieldClass=FlowFilter; 220 TableRelation=Campaign; 221 CaptionML=[DEU=Kampagnenfilter; 222 ENU=Campaign Filter] } 223 { 5073; ;Estimated Value Filter;Decimal ;FieldClass=FlowFilter; 224 CaptionML=[DEU=Erwarteter Wert Filter; 225 ENU=Estimated Value Filter]; 226 AutoFormatType=1 } 227 { 5074; ;Calcd. Current Value Filter;Decimal;FieldClass=FlowFilter; 228 CaptionML=[DEU=Berech. aktueller Wert Filter; 229 ENU=Calcd. Current Value Filter]; 230 AutoFormatType=1 } 231 { 5075; ;Chances of Success % Filter;Decimal;FieldClass=FlowFilter; 232 CaptionML=[DEU=Erfolgschancen % Filter; 233 ENU=Chances of Success % Filter]; 234 DecimalPlaces=0:0; 235 MinValue=0; 236 MaxValue=100 } 237 { 5076; ;To-do Status Filter ;Option ;FieldClass=FlowFilter; 238 CaptionML=[DEU=Aufgabenstatusfilter; 239 ENU=To-do Status Filter]; 240 OptionCaptionML=[DEU=Nicht begonnen,In Bearbeitung,Erledigt,Warten,Zurückgestellt; 241 ENU=Not Started,In Progress,Completed,Waiting,Postponed]; 242 OptionString=Not Started,In Progress,Completed,Waiting,Postponed } 243 { 5077; ;Closed To-do Filter ;Boolean ;FieldClass=FlowFilter; 244 CaptionML=[DEU=Abgeschlossene Aufgaben Filter; 245 ENU=Closed To-do Filter] } 246 { 5078; ;Priority Filter ;Option ;FieldClass=FlowFilter; 247 CaptionML=[DEU=Prioritätenfilter; 248 ENU=Priority Filter]; 249 OptionCaptionML=[DEU=Niedrig,Normal,Hoch; 250 ENU=Low,Normal,High]; 251 OptionString=Low,Normal,High } 252 { 5079; ;Team Filter ;Code10 ;FieldClass=FlowFilter; 253 TableRelation=Team; 254 CaptionML=[DEU=Teamfilter; 255 ENU=Team Filter] } 256 { 5082; ;Opportunity Entry Exists;Boolean ;FieldClass=FlowField; 257 CalcFormula=Exist("Opportunity Entry" WHERE (Salesperson Code=FIELD(Code), 258 Active=CONST(Yes), 259 Contact No.=FIELD(Contact Filter), 260 Contact Company No.=FIELD(Contact Company Filter), 261 Sales Cycle Code=FIELD(Sales Cycle Filter), 262 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 263 Campaign No.=FIELD(Campaign Filter), 264 Action Taken=FIELD(Action Taken Filter), 265 Estimated Value (LCY)=FIELD(Estimated Value Filter), 266 Calcd. Current Value (LCY)=FIELD(Calcd. Current Value Filter), 267 Completed %=FIELD(Completed % Filter), 268 Chances of Success %=FIELD(Chances of Success % Filter), 269 Probability %=FIELD(Probability % Filter), 270 Estimated Close Date=FIELD(Date Filter), 271 Close Opportunity Code=FIELD(Close Opportunity Filter))); 272 CaptionML=[DEU=Verkaufschancenposten vorh.; 273 ENU=Opportunity Entry Exists]; 274 Editable=No } 275 { 5083; ;To-do Entry Exists ;Boolean ;FieldClass=FlowField; 276 CalcFormula=Exist(To-do WHERE (Salesperson Code=FIELD(Code), 277 Contact No.=FIELD(Contact Filter), 278 Contact Company No.=FIELD(Contact Company Filter), 279 Campaign No.=FIELD(Campaign Filter), 280 Team Code=FIELD(Team Filter), 281 Status=FIELD(To-do Status Filter), 282 Closed=FIELD(Closed To-do Filter), 283 Priority=FIELD(Priority Filter), 284 Date=FIELD(Date Filter))); 285 CaptionML=[DEU=Aufgabenposten vorhanden; 286 ENU=To-do Entry Exists]; 287 Editable=No } 288 { 5084; ;Close Opportunity Filter;Code10 ;FieldClass=FlowFilter; 289 TableRelation="Close Opportunity Code"; 290 CaptionML=[DEU=Verkaufschancenabschlussfilter; 291 ENU=Close Opportunity Filter] } 292 { 5085; ;Search E-Mail ;Code80 ;CaptionML=[DEU=E-Mail-Suchbegriff; 293 ENU=Search E-Mail] } 294 { 5086; ;E-Mail 2 ;Text80 ;ExtendedDatatype=E-Mail; 295 CaptionML=[DEU=E-Mail 2; 296 ENU=E-Mail 2] } 297 } 298 KEYS 299 { 300 { ;Code ;Clustered=Yes } 301 { ;Search E-Mail } 302 } 303 FIELDGROUPS 304 { 305 306 } 307 CODE 308 { 309 VAR 310 DimMgt@1000 : Codeunit 408; 311 312 PROCEDURE CreateInteraction@10(); 313 VAR 314 SegmentLine@1000 : TEMPORARY Record 5077; 315 BEGIN 316 SegmentLine.CreateInteractionFromSalesPurc(Rec); 317 END; 318 319 LOCAL PROCEDURE ValidateShortcutDimCode@29(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]); 320 BEGIN 321 DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode); 322 DimMgt.SaveDefaultDim(DATABASE::"Salesperson/Purchaser",Code,FieldNumber,ShortcutDimCode); 323 MODIFY; 324 END; 325 326 BEGIN 327 END. 328 } 329 } 330
|
Dynamics NAV
Table (Target): Salesperson/Purchaser 1 OBJECT Table 13 Salesperson/Purchaser 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=25.10.16; 6 Time=12:00:00; 7 Version List=NAVW110.00; 8 } 9 PROPERTIES 10 { 11 DataCaptionFields=Code,Name; 12 OnInsert=BEGIN 13 VALIDATE(Code); 14 DimMgt.UpdateDefaultDim( 15 DATABASE::"Salesperson/Purchaser",Code, 16 "Global Dimension 1 Code","Global Dimension 2 Code"); 17 END; 18 19 OnModify=BEGIN 20 VALIDATE(Code); 21 END; 22 23 OnDelete=VAR 24 TeamSalesperson@1000 : Record 5084; 25 BEGIN 26 TeamSalesperson.RESET; 27 TeamSalesperson.SETRANGE("Salesperson Code",Code); 28 TeamSalesperson.DELETEALL; 29 DimMgt.DeleteDefaultDim(DATABASE::"Salesperson/Purchaser",Code); 30 END; 31 32 CaptionML=[DEU=Verkäufer/Einkäufer; 33 ENU=Salesperson/Purchaser]; 34 LookupPageID=Page14; 35 } 36 FIELDS 37 { 38 { 1 ; ;Code ;Code10 ;OnValidate=BEGIN 39 TESTFIELD(Code); 40 END; 41 42 CaptionML=[DEU=Code; 43 ENU=Code]; 44 NotBlank=Yes } 45 { 2 ; ;Name ;Text50 ;CaptionML=[DEU=Name; 46 ENU=Name] } 47 { 3 ; ;Commission % ;Decimal ;CaptionML=[DEU=Provision %; 48 ENU=Commission %]; 49 DecimalPlaces=2:2; 50 MinValue=0; 51 MaxValue=100 } 52 { 140 ; ;Image ;Media ;ExtendedDatatype=Person; 53 CaptionML=[DEU=Image; 54 ENU=Image] } 55 { 5050; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 56 OnValidate=BEGIN 57 ValidateShortcutDimCode(1,"Global Dimension 1 Code"); 58 END; 59 60 CaptionML=[DEU=Globaler Dimensionscode 1; 61 ENU=Global Dimension 1 Code]; 62 CaptionClass='1,1,1' } 63 { 5051; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 64 OnValidate=BEGIN 65 ValidateShortcutDimCode(2,"Global Dimension 2 Code"); 66 END; 67 68 CaptionML=[DEU=Globaler Dimensionscode 2; 69 ENU=Global Dimension 2 Code]; 70 CaptionClass='1,1,2' } 71 { 5052; ;E-Mail ;Text80 ;OnValidate=BEGIN 72 IF ("Search E-Mail" = UPPERCASE(xRec."E-Mail")) OR ("Search E-Mail" = '') THEN 73 "Search E-Mail" := "E-Mail"; 74 END; 75 76 ExtendedDatatype=E-Mail; 77 CaptionML=[DEU=E-Mail; 78 ENU=Email] } 79 { 5053; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No.; 80 CaptionML=[DEU=Telefonnr.; 81 ENU=Phone No.] } 82 { 5054; ;Next To-do Date ;Date ;FieldClass=FlowField; 83 CalcFormula=Min(To-do.Date WHERE (Salesperson Code=FIELD(Code), 84 Closed=CONST(No), 85 System To-do Type=FILTER(Organizer|Salesperson Attendee))); 86 CaptionML=[DEU=Nächste Aufgabe am; 87 ENU=Next To-do Date]; 88 Editable=No } 89 { 5055; ;No. of Opportunities;Integer ;FieldClass=FlowField; 90 CalcFormula=Count("Opportunity Entry" WHERE (Salesperson Code=FIELD(Code), 91 Active=CONST(Yes), 92 Estimated Close Date=FIELD(Date Filter), 93 Action Taken=FIELD(Action Taken Filter), 94 Sales Cycle Code=FIELD(Sales Cycle Filter), 95 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 96 Probability %=FIELD(Probability % Filter), 97 Completed %=FIELD(Completed % Filter))); 98 CaptionML=[DEU=Anzahl Verkaufschancen; 99 ENU=No. of Opportunities]; 100 Editable=No } 101 { 5056; ;Estimated Value (LCY);Decimal ;FieldClass=FlowField; 102 CalcFormula=Sum("Opportunity Entry"."Estimated Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 103 Active=CONST(Yes), 104 Estimated Close Date=FIELD(Date Filter), 105 Action Taken=FIELD(Action Taken Filter), 106 Sales Cycle Code=FIELD(Sales Cycle Filter), 107 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 108 Probability %=FIELD(Probability % Filter), 109 Completed %=FIELD(Completed % Filter))); 110 CaptionML=[DEU=Erwarteter Wert (MW); 111 ENU=Estimated Value (LCY)]; 112 Editable=No; 113 AutoFormatType=1 } 114 { 5057; ;Calcd. Current Value (LCY);Decimal ;FieldClass=FlowField; 115 CalcFormula=Sum("Opportunity Entry"."Calcd. Current Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 116 Active=CONST(Yes), 117 Estimated Close Date=FIELD(Date Filter), 118 Action Taken=FIELD(Action Taken Filter), 119 Sales Cycle Code=FIELD(Sales Cycle Filter), 120 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 121 Probability %=FIELD(Probability % Filter), 122 Completed %=FIELD(Completed % Filter))); 123 CaptionML=[DEU=Berech. aktueller Wert (MW); 124 ENU=Calcd. Current Value (LCY)]; 125 Editable=No; 126 AutoFormatType=1 } 127 { 5058; ;Date Filter ;Date ;FieldClass=FlowFilter; 128 CaptionML=[DEU=Datumsfilter; 129 ENU=Date Filter] } 130 { 5059; ;No. of Interactions ;Integer ;FieldClass=FlowField; 131 CalcFormula=Count("Interaction Log Entry" WHERE (Salesperson Code=FIELD(Code), 132 Canceled=CONST(No), 133 Date=FIELD(Date Filter), 134 Postponed=CONST(No))); 135 CaptionML=[DEU=Anzahl Aktivitäten; 136 ENU=No. of Interactions]; 137 Editable=No } 138 { 5060; ;Cost (LCY) ;Decimal ;FieldClass=FlowField; 139 CalcFormula=Sum("Interaction Log Entry"."Cost (LCY)" WHERE (Salesperson Code=FIELD(Code), 140 Canceled=CONST(No), 141 Date=FIELD(Date Filter), 142 Postponed=CONST(No))); 143 CaptionML=[DEU=Einstandsbetrag (MW); 144 ENU=Cost (LCY)]; 145 Editable=No; 146 AutoFormatType=1 } 147 { 5061; ;Duration (Min.) ;Decimal ;FieldClass=FlowField; 148 CalcFormula=Sum("Interaction Log Entry"."Duration (Min.)" WHERE (Salesperson Code=FIELD(Code), 149 Canceled=CONST(No), 150 Date=FIELD(Date Filter), 151 Postponed=CONST(No))); 152 CaptionML=[DEU=Dauer (Min.); 153 ENU=Duration (Min.)]; 154 DecimalPlaces=0:0; 155 Editable=No } 156 { 5062; ;Job Title ;Text30 ;CaptionML=[DEU=Funktion; 157 ENU=Job Title] } 158 { 5063; ;Action Taken Filter ;Option ;FieldClass=FlowFilter; 159 CaptionML=[DEU=Kriterienaktionsfilter; 160 ENU=Action Taken Filter]; 161 OptionCaptionML=[DEU=" ,Nächster Schritt,Vorheriger Schritt,Aktualisiert,Gesprungen,Gewonnen,Verloren"; 162 ENU=" ,Next,Previous,Updated,Jumped,Won,Lost"]; 163 OptionString=[ ,Next,Previous,Updated,Jumped,Won,Lost] } 164 { 5064; ;Sales Cycle Filter ;Code10 ;FieldClass=FlowFilter; 165 TableRelation="Sales Cycle"; 166 CaptionML=[DEU=Verkaufsprozessfilter; 167 ENU=Sales Cycle Filter] } 168 { 5065; ;Sales Cycle Stage Filter;Integer ;FieldClass=FlowFilter; 169 TableRelation="Sales Cycle Stage".Stage WHERE (Sales Cycle Code=FIELD(Sales Cycle Filter)); 170 CaptionML=[DEU=Verkaufsprozess-Stufenfilter; 171 ENU=Sales Cycle Stage Filter] } 172 { 5066; ;Probability % Filter;Decimal ;FieldClass=FlowFilter; 173 CaptionML=[DEU=Wahrscheinlichkeit % Filter; 174 ENU=Probability % Filter]; 175 DecimalPlaces=1:1; 176 MinValue=0; 177 MaxValue=100 } 178 { 5067; ;Completed % Filter ;Decimal ;FieldClass=FlowFilter; 179 CaptionML=[DEU=Abgeschlossen % Filter; 180 ENU=Completed % Filter]; 181 DecimalPlaces=1:1; 182 MinValue=0; 183 MaxValue=100 } 184 { 5068; ;Avg. Estimated Value (LCY);Decimal ;FieldClass=FlowField; 185 CalcFormula=Average("Opportunity Entry"."Estimated Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 186 Active=CONST(Yes), 187 Estimated Close Date=FIELD(Date Filter), 188 Action Taken=FIELD(Action Taken Filter), 189 Sales Cycle Code=FIELD(Sales Cycle Filter), 190 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 191 Probability %=FIELD(Probability % Filter), 192 Completed %=FIELD(Completed % Filter))); 193 CaptionML=[DEU=Durchschn. erw. Wert (MW); 194 ENU=Avg. Estimated Value (LCY)]; 195 Editable=No; 196 AutoFormatType=1 } 197 { 5069; ;Avg.Calcd. Current Value (LCY);Decimal; 198 FieldClass=FlowField; 199 CalcFormula=Average("Opportunity Entry"."Calcd. Current Value (LCY)" WHERE (Salesperson Code=FIELD(Code), 200 Active=CONST(Yes), 201 Estimated Close Date=FIELD(Date Filter), 202 Action Taken=FIELD(Action Taken Filter), 203 Sales Cycle Code=FIELD(Sales Cycle Filter), 204 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 205 Probability %=FIELD(Probability % Filter), 206 Completed %=FIELD(Completed % Filter))); 207 CaptionML=[DEU=Durchschn. ber. akt. Wert (MW); 208 ENU=Avg.Calcd. Current Value (LCY)]; 209 Editable=No; 210 AutoFormatType=1 } 211 { 5070; ;Contact Filter ;Code20 ;FieldClass=FlowFilter; 212 TableRelation=Contact; 213 CaptionML=[DEU=Kontaktfilter; 214 ENU=Contact Filter] } 215 { 5071; ;Contact Company Filter;Code20 ;FieldClass=FlowFilter; 216 TableRelation=Contact WHERE (Type=CONST(Company)); 217 CaptionML=[DEU=Filter Kontaktunternehmen; 218 ENU=Contact Company Filter] } 219 { 5072; ;Campaign Filter ;Code20 ;FieldClass=FlowFilter; 220 TableRelation=Campaign; 221 CaptionML=[DEU=Kampagnenfilter; 222 ENU=Campaign Filter] } 223 { 5073; ;Estimated Value Filter;Decimal ;FieldClass=FlowFilter; 224 CaptionML=[DEU=Erwarteter Wert Filter; 225 ENU=Estimated Value Filter]; 226 AutoFormatType=1 } 227 { 5074; ;Calcd. Current Value Filter;Decimal;FieldClass=FlowFilter; 228 CaptionML=[DEU=Berech. aktueller Wert Filter; 229 ENU=Calcd. Current Value Filter]; 230 AutoFormatType=1 } 231 { 5075; ;Chances of Success % Filter;Decimal;FieldClass=FlowFilter; 232 CaptionML=[DEU=Erfolgschancen % Filter; 233 ENU=Chances of Success % Filter]; 234 DecimalPlaces=0:0; 235 MinValue=0; 236 MaxValue=100 } 237 { 5076; ;To-do Status Filter ;Option ;FieldClass=FlowFilter; 238 CaptionML=[DEU=Aufgabenstatusfilter; 239 ENU=To-do Status Filter]; 240 OptionCaptionML=[DEU=Nicht begonnen,In Bearbeitung,Erledigt,Warten,Zurückgestellt; 241 ENU=Not Started,In Progress,Completed,Waiting,Postponed]; 242 OptionString=Not Started,In Progress,Completed,Waiting,Postponed } 243 { 5077; ;Closed To-do Filter ;Boolean ;FieldClass=FlowFilter; 244 CaptionML=[DEU=Abgeschlossene Aufgaben Filter; 245 ENU=Closed To-do Filter] } 246 { 5078; ;Priority Filter ;Option ;FieldClass=FlowFilter; 247 CaptionML=[DEU=Prioritätenfilter; 248 ENU=Priority Filter]; 249 OptionCaptionML=[DEU=Niedrig,Normal,Hoch; 250 ENU=Low,Normal,High]; 251 OptionString=Low,Normal,High } 252 { 5079; ;Team Filter ;Code10 ;FieldClass=FlowFilter; 253 TableRelation=Team; 254 CaptionML=[DEU=Teamfilter; 255 ENU=Team Filter] } 256 { 5082; ;Opportunity Entry Exists;Boolean ;FieldClass=FlowField; 257 CalcFormula=Exist("Opportunity Entry" WHERE (Salesperson Code=FIELD(Code), 258 Active=CONST(Yes), 259 Contact No.=FIELD(Contact Filter), 260 Contact Company No.=FIELD(Contact Company Filter), 261 Sales Cycle Code=FIELD(Sales Cycle Filter), 262 Sales Cycle Stage=FIELD(Sales Cycle Stage Filter), 263 Campaign No.=FIELD(Campaign Filter), 264 Action Taken=FIELD(Action Taken Filter), 265 Estimated Value (LCY)=FIELD(Estimated Value Filter), 266 Calcd. Current Value (LCY)=FIELD(Calcd. Current Value Filter), 267 Completed %=FIELD(Completed % Filter), 268 Chances of Success %=FIELD(Chances of Success % Filter), 269 Probability %=FIELD(Probability % Filter), 270 Estimated Close Date=FIELD(Date Filter), 271 Close Opportunity Code=FIELD(Close Opportunity Filter))); 272 CaptionML=[DEU=Verkaufschancenposten vorh.; 273 ENU=Opportunity Entry Exists]; 274 Editable=No } 275 { 5083; ;To-do Entry Exists ;Boolean ;FieldClass=FlowField; 276 CalcFormula=Exist(To-do WHERE (Salesperson Code=FIELD(Code), 277 Contact No.=FIELD(Contact Filter), 278 Contact Company No.=FIELD(Contact Company Filter), 279 Campaign No.=FIELD(Campaign Filter), 280 Team Code=FIELD(Team Filter), 281 Status=FIELD(To-do Status Filter), 282 Closed=FIELD(Closed To-do Filter), 283 Priority=FIELD(Priority Filter), 284 Date=FIELD(Date Filter))); 285 CaptionML=[DEU=Aufgabenposten vorhanden; 286 ENU=To-do Entry Exists]; 287 Editable=No } 288 { 5084; ;Close Opportunity Filter;Code10 ;FieldClass=FlowFilter; 289 TableRelation="Close Opportunity Code"; 290 CaptionML=[DEU=Verkaufschancenabschlussfilter; 291 ENU=Close Opportunity Filter] } 292 { 5085; ;Search E-Mail ;Code80 ;CaptionML=[DEU=E-Mail-Suchbegriff; 293 ENU=Search Email] } 294 { 5086; ;E-Mail 2 ;Text80 ;ExtendedDatatype=E-Mail; 295 CaptionML=[DEU=E-Mail 2; 296 ENU=Email 2] } 297 } 298 KEYS 299 { 300 { ;Code ;Clustered=Yes } 301 { ;Search E-Mail } 302 } 303 FIELDGROUPS 304 { 305 { 1 ;Brick ;Code,Name,Image } 306 } 307 CODE 308 { 309 VAR 310 DimMgt@1000 : Codeunit 408; 311 312 PROCEDURE CreateInteraction@10(); 313 VAR 314 TempSegmentLine@1000 : TEMPORARY Record 5077; 315 BEGIN 316 TempSegmentLine.CreateInteractionFromSalesPurc(Rec); 317 END; 318 319 LOCAL PROCEDURE ValidateShortcutDimCode@29(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]); 320 BEGIN 321 DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode); 322 DimMgt.SaveDefaultDim(DATABASE::"Salesperson/Purchaser",Code,FieldNumber,ShortcutDimCode); 323 MODIFY; 324 END; 325 326 BEGIN 327 END. 328 } 329 } 330
|
|
Dynamics NAV Table (Source): Customer -> Dynamics NAV Table (Target): Customer | ||
|
Dynamics NAV
Table (Source): Customer 1 OBJECT Table 18 Customer 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=15.09.15; 6 Time=12:00:00; 7 Version List=NAVW19.00; 8 } 9 PROPERTIES 10 { 11 Permissions=TableData 21=r; 12 13 14 15 16 17 18 19 DataCaptionFields=No.,Name; 20 OnInsert=BEGIN 21 IF "No." = '' THEN BEGIN 22 SalesSetup.GET; 23 SalesSetup.TESTFIELD("Customer Nos."); 24 NoSeriesMgt.InitSeries(SalesSetup."Customer Nos.",xRec."No. Series",0D,"No.","No. Series"); 25 END; 26 27 28 IF "Invoice Disc. Code" = '' THEN 29 "Invoice Disc. Code" := "No."; 30 31 IF NOT InsertFromContact THEN 32 UpdateContFromCust.OnInsert(Rec); 33 34 DimMgt.UpdateDefaultDim( 35 DATABASE::Customer,"No.", 36 "Global Dimension 1 Code","Global Dimension 2 Code"); 37 END; 38 39 OnModify=BEGIN 40 "Last Date Modified" := TODAY; 41 42 IF (Name <> xRec.Name) OR 43 ("Search Name" <> xRec."Search Name") OR 44 ("Name 2" <> xRec."Name 2") OR 45 (Address <> xRec.Address) OR 46 ("Address 2" <> xRec."Address 2") OR 47 (City <> xRec.City) OR 48 ("Phone No." <> xRec."Phone No.") OR 49 ("Telex No." <> xRec."Telex No.") OR 50 ("Territory Code" <> xRec."Territory Code") OR 51 ("Currency Code" <> xRec."Currency Code") OR 52 ("Language Code" <> xRec."Language Code") OR 53 ("Salesperson Code" <> xRec."Salesperson Code") OR 54 ("Country/Region Code" <> xRec."Country/Region Code") OR 55 ("Fax No." <> xRec."Fax No.") OR 56 ("Telex Answer Back" <> xRec."Telex Answer Back") OR 57 ("VAT Registration No." <> xRec."VAT Registration No.") OR 58 ("Post Code" <> xRec."Post Code") OR 59 (County <> xRec.County) OR 60 ("E-Mail" <> xRec."E-Mail") OR 61 ("Home Page" <> xRec."Home Page") OR 62 (Contact <> xRec.Contact) 63 THEN BEGIN 64 MODIFY; 65 UpdateContFromCust.OnModify(Rec); 66 IF FIND THEN; 67 68 69 70 END; 71 END; 72 73 OnDelete=VAR 74 CampaignTargetGr@1000 : Record 7030; 75 ContactBusRel@1001 : Record 5054; 76 Job@1004 : Record 167; 77 DOPaymentCreditCard@1005 : Record 827; 78 SocialListeningSearchTopic@1007 : Record 871; 79 StdCustSalesCode@1003 : Record 172; 80 CustomReportSelection@1008 : Record 9657; 81 82 83 CampaignTargetGrMgmt@1002 : Codeunit 7030; 84 VATRegistrationLogMgt@1006 : Codeunit 249; 85 BEGIN 86 ApprovalsMgmt.OnCancelCustomerApprovalRequest(Rec); 87 88 IF DOPaymentCreditCard.FINDFIRST THEN 89 DOPaymentCreditCard.DeleteByCustomer(Rec); 90 91 ServiceItem.SETRANGE("Customer No.","No."); 92 IF ServiceItem.FINDFIRST THEN 93 IF CONFIRM( 94 Text008, 95 FALSE, 96 TABLECAPTION, 97 "No.", 98 ServiceItem.FIELDCAPTION("Customer No.")) 99 THEN 100 ServiceItem.MODIFYALL("Customer No.",'') 101 ELSE 102 ERROR(Text009); 103 104 Job.SETRANGE("Bill-to Customer No.","No."); 105 IF Job.FINDFIRST THEN 106 ERROR(Text015,TABLECAPTION,"No.",Job.TABLECAPTION); 107 108 MoveEntries.MoveCustEntries(Rec); 109 110 CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Customer); 111 CommentLine.SETRANGE("No.","No."); 112 CommentLine.DELETEALL; 113 114 CustBankAcc.SETRANGE("Customer No.","No."); 115 CustBankAcc.DELETEALL; 116 117 ShipToAddr.SETRANGE("Customer No.","No."); 118 ShipToAddr.DELETEALL; 119 120 SalesPrice.SETRANGE("Sales Type",SalesPrice."Sales Type"::Customer); 121 SalesPrice.SETRANGE("Sales Code","No."); 122 SalesPrice.DELETEALL; 123 124 SalesLineDisc.SETRANGE("Sales Type",SalesLineDisc."Sales Type"::Customer); 125 SalesLineDisc.SETRANGE("Sales Code","No."); 126 SalesLineDisc.DELETEALL; 127 128 SalesPrepmtPct.SETCURRENTKEY("Sales Type","Sales Code"); 129 SalesPrepmtPct.SETRANGE("Sales Type",SalesPrepmtPct."Sales Type"::Customer); 130 SalesPrepmtPct.SETRANGE("Sales Code","No."); 131 SalesPrepmtPct.DELETEALL; 132 133 StdCustSalesCode.SETRANGE("Customer No.","No."); 134 StdCustSalesCode.DELETEALL(TRUE); 135 136 ItemCrossReference.SETCURRENTKEY("Cross-Reference Type","Cross-Reference Type No."); 137 ItemCrossReference.SETRANGE("Cross-Reference Type",ItemCrossReference."Cross-Reference Type"::Customer); 138 ItemCrossReference.SETRANGE("Cross-Reference Type No.","No."); 139 ItemCrossReference.DELETEALL; 140 141 IF NOT SocialListeningSearchTopic.ISEMPTY THEN BEGIN 142 SocialListeningSearchTopic.FindSearchTopic(SocialListeningSearchTopic."Source Type"::Customer,"No."); 143 SocialListeningSearchTopic.DELETEALL; 144 END; 145 146 SalesOrderLine.SETCURRENTKEY("Document Type","Bill-to Customer No."); 147 SalesOrderLine.SETFILTER( 148 "Document Type",'%1|%2', 149 SalesOrderLine."Document Type"::Order, 150 SalesOrderLine."Document Type"::"Return Order"); 151 SalesOrderLine.SETRANGE("Bill-to Customer No.","No."); 152 IF SalesOrderLine.FINDFIRST THEN 153 ERROR( 154 Text000, 155 TABLECAPTION,"No.",SalesOrderLine."Document Type"); 156 157 SalesOrderLine.SETRANGE("Bill-to Customer No."); 158 SalesOrderLine.SETRANGE("Sell-to Customer No.","No."); 159 IF SalesOrderLine.FINDFIRST THEN 160 ERROR( 161 Text000, 162 TABLECAPTION,"No.",SalesOrderLine."Document Type"); 163 164 CampaignTargetGr.SETRANGE("No.","No."); 165 CampaignTargetGr.SETRANGE(Type,CampaignTargetGr.Type::Customer); 166 IF CampaignTargetGr.FIND('-') THEN BEGIN 167 ContactBusRel.SETRANGE("Link to Table",ContactBusRel."Link to Table"::Customer); 168 ContactBusRel.SETRANGE("No.","No."); 169 ContactBusRel.FINDFIRST; 170 REPEAT 171 CampaignTargetGrMgmt.ConverttoContact(Rec,ContactBusRel."Contact No."); 172 UNTIL CampaignTargetGr.NEXT = 0; 173 END; 174 175 ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled); 176 ServContract.SETRANGE("Customer No.","No."); 177 IF ServContract.FINDFIRST THEN 178 ERROR( 179 Text007, 180 TABLECAPTION,"No."); 181 182 ServContract.SETRANGE(Status); 183 ServContract.MODIFYALL("Customer No.",''); 184 185 ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled); 186 ServContract.SETRANGE("Bill-to Customer No.","No."); 187 IF ServContract.FINDFIRST THEN 188 ERROR( 189 Text007, 190 TABLECAPTION,"No."); 191 192 ServContract.SETRANGE(Status); 193 ServContract.MODIFYALL("Bill-to Customer No.",''); 194 195 ServHeader.SETCURRENTKEY("Customer No.","Order Date"); 196 ServHeader.SETRANGE("Customer No.","No."); 197 IF ServHeader.FINDFIRST THEN 198 ERROR( 199 Text013, 200 TABLECAPTION,"No.",ServHeader."Document Type"); 201 202 ServHeader.SETRANGE("Bill-to Customer No."); 203 IF ServHeader.FINDFIRST THEN 204 ERROR( 205 Text013, 206 TABLECAPTION,"No.",ServHeader."Document Type"); 207 208 UpdateContFromCust.OnDelete(Rec); 209 210 CustomReportSelection.SETRANGE("Source Type",DATABASE::Customer); 211 CustomReportSelection.SETRANGE("Source No.","No."); 212 CustomReportSelection.DELETEALL; 213 214 215 216 VATRegistrationLogMgt.DeleteCustomerLog(Rec); 217 218 DimMgt.DeleteDefaultDim(DATABASE::Customer,"No."); 219 END; 220 221 OnRename=BEGIN 222 ApprovalsMgmt.RenameApprovalEntries(xRec.RECORDID,RECORDID); 223 "Last Date Modified" := TODAY; 224 END; 225 226 CaptionML=[DEU=Debitor; 227 ENU=Customer]; 228 LookupPageID=Page22; 229 DrillDownPageID=Page22; 230 } 231 FIELDS 232 { 233 { 1 ; ;No. ;Code20 ;AltSearchField=Search Name; 234 OnValidate=BEGIN 235 IF "No." <> xRec."No." THEN BEGIN 236 SalesSetup.GET; 237 NoSeriesMgt.TestManual(SalesSetup."Customer Nos."); 238 "No. Series" := ''; 239 END; 240 IF "Invoice Disc. Code" = '' THEN 241 "Invoice Disc. Code" := "No."; 242 END; 243 244 245 CaptionML=[DEU=Nr.; 246 ENU=No.] } 247 { 2 ; ;Name ;Text50 ;OnValidate=BEGIN 248 IF ("Search Name" = UPPERCASE(xRec.Name)) OR ("Search Name" = '') THEN 249 "Search Name" := Name; 250 END; 251 252 CaptionML=[DEU=Name; 253 ENU=Name] } 254 { 3 ; ;Search Name ;Code50 ;CaptionML=[DEU=Suchbegriff; 255 ENU=Search Name] } 256 { 4 ; ;Name 2 ;Text50 ;CaptionML=[DEU=Name 2; 257 ENU=Name 2] } 258 { 5 ; ;Address ;Text50 ;CaptionML=[DEU=Adresse; 259 ENU=Address] } 260 { 6 ; ;Address 2 ;Text50 ;CaptionML=[DEU=Adresse 2; 261 ENU=Address 2] } 262 { 7 ; ;City ;Text30 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code".City 263 ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code".City WHERE (Country/Region Code=FIELD(Country/Region Code)); 264 OnValidate=BEGIN 265 PostCode.ValidateCity(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED); 266 END; 267 268 ValidateTableRelation=No; 269 TestTableRelation=No; 270 CaptionML=[DEU=Ort; 271 ENU=City] } 272 { 8 ; ;Contact ;Text50 ;OnValidate=BEGIN 273 IF RMSetup.GET THEN 274 IF RMSetup."Bus. Rel. Code for Customers" <> '' THEN 275 IF (xRec.Contact = '') AND (xRec."Primary Contact No." = '') THEN BEGIN 276 MODIFY; 277 UpdateContFromCust.OnModify(Rec); 278 UpdateContFromCust.InsertNewContactPerson(Rec,FALSE); 279 MODIFY(TRUE); 280 END 281 END; 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 CaptionML=[DEU=Kontakt; 302 ENU=Contact] } 303 { 9 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No.; 304 CaptionML=[DEU=Telefonnr.; 305 ENU=Phone No.] } 306 { 10 ; ;Telex No. ;Text20 ;CaptionML=[DEU=Telexnr.; 307 ENU=Telex No.] } 308 { 11 ; ;Document Sending Profile;Code20 ;TableRelation="Document Sending Profile".Code; 309 CaptionML=[DEU=Belegsendeprofil; 310 ENU=Document Sending Profile] } 311 { 14 ; ;Our Account No. ;Text20 ;CaptionML=[DEU=Unsere Kontonr.; 312 ENU=Our Account No.] } 313 { 15 ; ;Territory Code ;Code10 ;TableRelation=Territory; 314 CaptionML=[DEU=Gebietscode; 315 ENU=Territory Code] } 316 { 16 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 317 OnValidate=BEGIN 318 ValidateShortcutDimCode(1,"Global Dimension 1 Code"); 319 END; 320 321 CaptionML=[DEU=Globaler Dimensionscode 1; 322 ENU=Global Dimension 1 Code]; 323 CaptionClass='1,1,1' } 324 { 17 ; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 325 OnValidate=BEGIN 326 ValidateShortcutDimCode(2,"Global Dimension 2 Code"); 327 END; 328 329 CaptionML=[DEU=Globaler Dimensionscode 2; 330 ENU=Global Dimension 2 Code]; 331 CaptionClass='1,1,2' } 332 { 18 ; ;Chain Name ;Code10 ;CaptionML=[DEU=Unternehmenskette; 333 ENU=Chain Name] } 334 { 19 ; ;Budgeted Amount ;Decimal ;CaptionML=[DEU=Budgetierter Betrag; 335 ENU=Budgeted Amount]; 336 AutoFormatType=1; 337 AutoFormatExpr="Currency Code" } 338 { 20 ; ;Credit Limit (LCY) ;Decimal ;CaptionML=[DEU=Kreditlimit (MW); 339 ENU=Credit Limit (LCY)]; 340 AutoFormatType=1 } 341 { 21 ; ;Customer Posting Group;Code10 ;TableRelation="Customer Posting Group"; 342 CaptionML=[DEU=Debitorenbuchungsgruppe; 343 ENU=Customer Posting Group] } 344 { 22 ; ;Currency Code ;Code10 ;TableRelation=Currency; 345 CaptionML=[DEU=Währungscode; 346 ENU=Currency Code] } 347 { 23 ; ;Customer Price Group;Code10 ;TableRelation="Customer Price Group"; 348 CaptionML=[DEU=Debitorenpreisgruppe; 349 ENU=Customer Price Group] } 350 { 24 ; ;Language Code ;Code10 ;TableRelation=Language; 351 CaptionML=[DEU=Sprachcode; 352 ENU=Language Code] } 353 { 26 ; ;Statistics Group ;Integer ;CaptionML=[DEU=Statistikgruppe; 354 ENU=Statistics Group] } 355 { 27 ; ;Payment Terms Code ;Code10 ;TableRelation="Payment Terms"; 356 CaptionML=[DEU=Zlg.-Bedingungscode; 357 ENU=Payment Terms Code] } 358 { 28 ; ;Fin. Charge Terms Code;Code10 ;TableRelation="Finance Charge Terms"; 359 CaptionML=[DEU=Zinskonditionencode; 360 ENU=Fin. Charge Terms Code] } 361 { 29 ; ;Salesperson Code ;Code10 ;TableRelation=Salesperson/Purchaser; 362 CaptionML=[DEU=Verkäufercode; 363 ENU=Salesperson Code] } 364 { 30 ; ;Shipment Method Code;Code10 ;TableRelation="Shipment Method"; 365 CaptionML=[DEU=Lieferbedingungscode; 366 ENU=Shipment Method Code] } 367 { 31 ; ;Shipping Agent Code ;Code10 ;TableRelation="Shipping Agent"; 368 OnValidate=BEGIN 369 IF "Shipping Agent Code" <> xRec."Shipping Agent Code" THEN 370 VALIDATE("Shipping Agent Service Code",''); 371 END; 372 373 AccessByPermission=TableData 5790=R; 374 CaptionML=[DEU=Zustellercode; 375 ENU=Shipping Agent Code] } 376 { 32 ; ;Place of Export ;Code20 ;CaptionML=[DEU=Transitstelle; 377 ENU=Place of Export] } 378 { 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Customer; 379 ValidateTableRelation=No; 380 TestTableRelation=No; 381 CaptionML=[DEU=Rechnungsrabattcode; 382 ENU=Invoice Disc. Code] } 383 { 34 ; ;Customer Disc. Group;Code20 ;TableRelation="Customer Discount Group"; 384 CaptionML=[DEU=Debitorenrabattgruppe; 385 ENU=Customer Disc. Group] } 386 { 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region; 387 CaptionML=[DEU=Länder-/Regionscode; 388 ENU=Country/Region Code] } 389 { 36 ; ;Collection Method ;Code20 ;CaptionML=[DEU=Einzugsverfahren; 390 ENU=Collection Method] } 391 { 37 ; ;Amount ;Decimal ;CaptionML=[DEU=Betrag; 392 ENU=Amount]; 393 AutoFormatType=1; 394 AutoFormatExpr="Currency Code" } 395 { 38 ; ;Comment ;Boolean ;FieldClass=FlowField; 396 CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Customer), 397 No.=FIELD(No.))); 398 CaptionML=[DEU=Bemerkung; 399 ENU=Comment]; 400 Editable=No } 401 { 39 ; ;Blocked ;Option ;CaptionML=[DEU=Gesperrt; 402 ENU=Blocked]; 403 OptionCaptionML=[DEU=" ,Liefern,Fakturieren,Alle"; 404 ENU=" ,Ship,Invoice,All"]; 405 OptionString=[ ,Ship,Invoice,All] } 406 { 40 ; ;Invoice Copies ;Integer ;CaptionML=[DEU=Anzahl Rechnungskopien; 407 ENU=Invoice Copies] } 408 { 41 ; ;Last Statement No. ;Integer ;CaptionML=[DEU=Letzte Kontoauszugsnr.; 409 ENU=Last Statement No.] } 410 { 42 ; ;Print Statements ;Boolean ;CaptionML=[DEU=Kontoauszüge drucken; 411 ENU=Print Statements] } 412 { 45 ; ;Bill-to Customer No.;Code20 ;TableRelation=Customer; 413 CaptionML=[DEU=Rech. an Deb.-Nr.; 414 ENU=Bill-to Customer No.] } 415 { 46 ; ;Priority ;Integer ;CaptionML=[DEU=Priorität; 416 ENU=Priority] } 417 { 47 ; ;Payment Method Code ;Code10 ;TableRelation="Payment Method"; 418 OnValidate=VAR 419 PaymentMethod@1000 : Record 289; 420 BEGIN 421 IF "Payment Method Code" = '' THEN 422 EXIT; 423 PaymentMethod.GET("Payment Method Code"); 424 IF PaymentMethod."Direct Debit" AND ("Payment Terms Code" = '') THEN 425 "Payment Terms Code" := PaymentMethod."Direct Debit Pmt. Terms Code"; 426 END; 427 428 CaptionML=[DEU=Zahlungsformcode; 429 ENU=Payment Method Code] } 430 { 54 ; ;Last Date Modified ;Date ;CaptionML=[DEU=Korrigiert am; 431 ENU=Last Date Modified]; 432 Editable=No } 433 { 55 ; ;Date Filter ;Date ;FieldClass=FlowFilter; 434 CaptionML=[DEU=Datumsfilter; 435 ENU=Date Filter] } 436 { 56 ; ;Global Dimension 1 Filter;Code20 ;FieldClass=FlowFilter; 437 TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 438 CaptionML=[DEU=Globaler Dimensionsfilter 1; 439 ENU=Global Dimension 1 Filter]; 440 CaptionClass='1,3,1' } 441 { 57 ; ;Global Dimension 2 Filter;Code20 ;FieldClass=FlowFilter; 442 TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 443 CaptionML=[DEU=Globaler Dimensionsfilter 2; 444 ENU=Global Dimension 2 Filter]; 445 CaptionClass='1,3,2' } 446 { 58 ; ;Balance ;Decimal ;FieldClass=FlowField; 447 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 448 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 449 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 450 Currency Code=FIELD(Currency Filter))); 451 CaptionML=[DEU=Saldo; 452 ENU=Balance]; 453 Editable=No; 454 AutoFormatType=1; 455 AutoFormatExpr="Currency Code" } 456 { 59 ; ;Balance (LCY) ;Decimal ;FieldClass=FlowField; 457 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 458 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 459 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 460 Currency Code=FIELD(Currency Filter))); 461 CaptionML=[DEU=Saldo (MW); 462 ENU=Balance (LCY)]; 463 Editable=No; 464 AutoFormatType=1 } 465 { 60 ; ;Net Change ;Decimal ;FieldClass=FlowField; 466 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 467 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 468 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 469 Posting Date=FIELD(Date Filter), 470 Currency Code=FIELD(Currency Filter))); 471 CaptionML=[DEU=Bewegung; 472 ENU=Net Change]; 473 Editable=No; 474 AutoFormatType=1; 475 AutoFormatExpr="Currency Code" } 476 { 61 ; ;Net Change (LCY) ;Decimal ;FieldClass=FlowField; 477 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 478 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 479 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 480 Posting Date=FIELD(Date Filter), 481 Currency Code=FIELD(Currency Filter))); 482 CaptionML=[DEU=Bewegung (MW); 483 ENU=Net Change (LCY)]; 484 Editable=No; 485 AutoFormatType=1 } 486 { 62 ; ;Sales (LCY) ;Decimal ;FieldClass=FlowField; 487 CalcFormula=Sum("Cust. Ledger Entry"."Sales (LCY)" WHERE (Customer No.=FIELD(No.), 488 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 489 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 490 Posting Date=FIELD(Date Filter), 491 Currency Code=FIELD(Currency Filter))); 492 CaptionML=[DEU=Verkauf (MW); 493 ENU=Sales (LCY)]; 494 Editable=No; 495 AutoFormatType=1 } 496 { 63 ; ;Profit (LCY) ;Decimal ;FieldClass=FlowField; 497 CalcFormula=Sum("Cust. Ledger Entry"."Profit (LCY)" WHERE (Customer No.=FIELD(No.), 498 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 499 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 500 Posting Date=FIELD(Date Filter), 501 Currency Code=FIELD(Currency Filter))); 502 CaptionML=[DEU=DB (MW); 503 ENU=Profit (LCY)]; 504 Editable=No; 505 AutoFormatType=1 } 506 { 64 ; ;Inv. Discounts (LCY);Decimal ;FieldClass=FlowField; 507 CalcFormula=Sum("Cust. Ledger Entry"."Inv. Discount (LCY)" WHERE (Customer No.=FIELD(No.), 508 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 509 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 510 Posting Date=FIELD(Date Filter), 511 Currency Code=FIELD(Currency Filter))); 512 CaptionML=[DEU=Rechnungsrabatte (MW); 513 ENU=Inv. Discounts (LCY)]; 514 Editable=No; 515 AutoFormatType=1 } 516 { 65 ; ;Pmt. Discounts (LCY);Decimal ;FieldClass=FlowField; 517 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 518 Entry Type=FILTER(Payment Discount..'Payment Discount (VAT Adjustment)'), 519 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 520 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 521 Posting Date=FIELD(Date Filter), 522 Currency Code=FIELD(Currency Filter))); 523 CaptionML=[DEU=Skonto (MW); 524 ENU=Pmt. Discounts (LCY)]; 525 Editable=No; 526 AutoFormatType=1 } 527 { 66 ; ;Balance Due ;Decimal ;FieldClass=FlowField; 528 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 529 Posting Date=FIELD(UPPERLIMIT(Date Filter)), 530 Initial Entry Due Date=FIELD(Date Filter), 531 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 532 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 533 Currency Code=FIELD(Currency Filter))); 534 CaptionML=[DEU=Fälliger Saldo; 535 ENU=Balance Due]; 536 Editable=No; 537 AutoFormatType=1; 538 AutoFormatExpr="Currency Code" } 539 { 67 ; ;Balance Due (LCY) ;Decimal ;FieldClass=FlowField; 540 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 541 Posting Date=FIELD(UPPERLIMIT(Date Filter)), 542 Initial Entry Due Date=FIELD(Date Filter), 543 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 544 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 545 Currency Code=FIELD(Currency Filter))); 546 CaptionML=[DEU=Fälliger Saldo (MW); 547 ENU=Balance Due (LCY)]; 548 Editable=No; 549 AutoFormatType=1 } 550 { 69 ; ;Payments ;Decimal ;FieldClass=FlowField; 551 CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Payment), 552 Entry Type=CONST(Initial Entry), 553 Customer No.=FIELD(No.), 554 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 555 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 556 Posting Date=FIELD(Date Filter), 557 Currency Code=FIELD(Currency Filter))); 558 CaptionML=[DEU=Zahlungen; 559 ENU=Payments]; 560 Editable=No; 561 AutoFormatType=1; 562 AutoFormatExpr="Currency Code" } 563 { 70 ; ;Invoice Amounts ;Decimal ;FieldClass=FlowField; 564 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Invoice), 565 Entry Type=CONST(Initial Entry), 566 Customer No.=FIELD(No.), 567 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 568 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 569 Posting Date=FIELD(Date Filter), 570 Currency Code=FIELD(Currency Filter))); 571 CaptionML=[DEU=Fakturierter Betrag; 572 ENU=Invoice Amounts]; 573 Editable=No; 574 AutoFormatType=1; 575 AutoFormatExpr="Currency Code" } 576 { 71 ; ;Cr. Memo Amounts ;Decimal ;FieldClass=FlowField; 577 CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Credit Memo), 578 Entry Type=CONST(Initial Entry), 579 Customer No.=FIELD(No.), 580 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 581 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 582 Posting Date=FIELD(Date Filter), 583 Currency Code=FIELD(Currency Filter))); 584 CaptionML=[DEU=Gutgeschriebener Betrag; 585 ENU=Cr. Memo Amounts]; 586 Editable=No; 587 AutoFormatType=1; 588 AutoFormatExpr="Currency Code" } 589 { 72 ; ;Finance Charge Memo Amounts;Decimal;FieldClass=FlowField; 590 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Finance Charge Memo), 591 Entry Type=CONST(Initial Entry), 592 Customer No.=FIELD(No.), 593 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 594 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 595 Posting Date=FIELD(Date Filter), 596 Currency Code=FIELD(Currency Filter))); 597 CaptionML=[DEU=Zinsrechnungsbetrag; 598 ENU=Finance Charge Memo Amounts]; 599 Editable=No; 600 AutoFormatType=1; 601 AutoFormatExpr="Currency Code" } 602 { 74 ; ;Payments (LCY) ;Decimal ;FieldClass=FlowField; 603 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Payment), 604 Entry Type=CONST(Initial Entry), 605 Customer No.=FIELD(No.), 606 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 607 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 608 Posting Date=FIELD(Date Filter), 609 Currency Code=FIELD(Currency Filter))); 610 CaptionML=[DEU=Bezahlt (MW); 611 ENU=Payments (LCY)]; 612 Editable=No; 613 AutoFormatType=1 } 614 { 75 ; ;Inv. Amounts (LCY) ;Decimal ;FieldClass=FlowField; 615 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Invoice), 616 Entry Type=CONST(Initial Entry), 617 Customer No.=FIELD(No.), 618 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 619 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 620 Posting Date=FIELD(Date Filter), 621 Currency Code=FIELD(Currency Filter))); 622 CaptionML=[DEU=Fakturierter Betrag (MW); 623 ENU=Inv. Amounts (LCY)]; 624 Editable=No; 625 AutoFormatType=1 } 626 { 76 ; ;Cr. Memo Amounts (LCY);Decimal ;FieldClass=FlowField; 627 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Credit Memo), 628 Entry Type=CONST(Initial Entry), 629 Customer No.=FIELD(No.), 630 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 631 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 632 Posting Date=FIELD(Date Filter), 633 Currency Code=FIELD(Currency Filter))); 634 CaptionML=[DEU=Gutgeschriebener Betrag (MW); 635 ENU=Cr. Memo Amounts (LCY)]; 636 Editable=No; 637 AutoFormatType=1 } 638 { 77 ; ;Fin. Charge Memo Amounts (LCY);Decimal; 639 FieldClass=FlowField; 640 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Finance Charge Memo), 641 Entry Type=CONST(Initial Entry), 642 Customer No.=FIELD(No.), 643 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 644 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 645 Posting Date=FIELD(Date Filter), 646 Currency Code=FIELD(Currency Filter))); 647 CaptionML=[DEU=Zinsrechnungsbetrag (MW); 648 ENU=Fin. Charge Memo Amounts (LCY)]; 649 Editable=No; 650 AutoFormatType=1 } 651 { 78 ; ;Outstanding Orders ;Decimal ;FieldClass=FlowField; 652 CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Order), 653 Bill-to Customer No.=FIELD(No.), 654 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 655 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 656 Currency Code=FIELD(Currency Filter))); 657 AccessByPermission=TableData 110=R; 658 CaptionML=[DEU=Auftragsbestand; 659 ENU=Outstanding Orders]; 660 Editable=No; 661 AutoFormatType=1; 662 AutoFormatExpr="Currency Code" } 663 { 79 ; ;Shipped Not Invoiced;Decimal ;FieldClass=FlowField; 664 CalcFormula=Sum("Sales Line"."Shipped Not Invoiced" WHERE (Document Type=CONST(Order), 665 Bill-to Customer No.=FIELD(No.), 666 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 667 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 668 Currency Code=FIELD(Currency Filter))); 669 AccessByPermission=TableData 110=R; 670 CaptionML=[DEU=Nicht fakt. Lieferungen; 671 ENU=Shipped Not Invoiced]; 672 Editable=No; 673 AutoFormatType=1; 674 AutoFormatExpr="Currency Code" } 675 { 80 ; ;Application Method ;Option ;CaptionML=[DEU=Ausgleichsmethode; 676 ENU=Application Method]; 677 OptionCaptionML=[DEU=Offener Posten,Saldomethode; 678 ENU=Manual,Apply to Oldest]; 679 OptionString=Manual,Apply to Oldest } 680 { 82 ; ;Prices Including VAT;Boolean ;CaptionML=[DEU=Preise inkl. MwSt.; 681 ENU=Prices Including VAT] } 682 { 83 ; ;Location Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No)); 683 CaptionML=[DEU=Lagerortcode; 684 ENU=Location Code] } 685 { 84 ; ;Fax No. ;Text30 ;CaptionML=[DEU=Faxnr.; 686 ENU=Fax No.] } 687 { 85 ; ;Telex Answer Back ;Text20 ;CaptionML=[DEU=Telex Namengeber; 688 ENU=Telex Answer Back] } 689 { 86 ; ;VAT Registration No.;Text20 ;OnValidate=VAR 690 VATRegNoFormat@1000 : Record 381; 691 VATRegistrationLogMgt@1002 : Codeunit 249; 692 BEGIN 693 IF VATRegNoFormat.Test("VAT Registration No.","Country/Region Code","No.",DATABASE::Customer) THEN 694 IF "VAT Registration No." <> xRec."VAT Registration No." THEN 695 VATRegistrationLogMgt.LogCustomer(Rec); 696 END; 697 698 CaptionML=[DEU=USt-IdNr.; 699 ENU=VAT Registration No.] } 700 { 87 ; ;Combine Shipments ;Boolean ;AccessByPermission=TableData 110=R; 701 CaptionML=[DEU=Sammelrechnung; 702 ENU=Combine Shipments] } 703 { 88 ; ;Gen. Bus. Posting Group;Code10 ;TableRelation="Gen. Business Posting Group"; 704 OnValidate=BEGIN 705 IF xRec."Gen. Bus. Posting Group" <> "Gen. Bus. Posting Group" THEN 706 IF GenBusPostingGrp.ValidateVatBusPostingGroup(GenBusPostingGrp,"Gen. Bus. Posting Group") THEN 707 VALIDATE("VAT Bus. Posting Group",GenBusPostingGrp."Def. VAT Bus. Posting Group"); 708 END; 709 710 CaptionML=[DEU=Geschäftsbuchungsgruppe; 711 ENU=Gen. Bus. Posting Group] } 712 { 89 ; ;Picture ;BLOB ;CaptionML=[DEU=Bild; 713 ENU=Picture]; 714 SubType=Bitmap } 715 { 90 ; ;GLN ;Code13 ;OnValidate=VAR 716 GLNCalculator@1000 : Codeunit 1607; 717 BEGIN 718 IF GLN <> '' THEN 719 GLNCalculator.AssertValidCheckDigit13(GLN); 720 END; 721 722 CaptionML=[DEU=GLN; 723 ENU=GLN]; 724 Numeric=Yes } 725 { 91 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code" 726 ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Country/Region Code)); 727 OnValidate=BEGIN 728 PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED); 729 END; 730 731 ValidateTableRelation=No; 732 TestTableRelation=No; 733 CaptionML=[DEU=PLZ-Code; 734 ENU=Post Code] } 735 { 92 ; ;County ;Text30 ;CaptionML=[DEU=Bundesregion; 736 ENU=County] } 737 { 97 ; ;Debit Amount ;Decimal ;FieldClass=FlowField; 738 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount" WHERE (Customer No.=FIELD(No.), 739 Entry Type=FILTER(<>Application), 740 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 741 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 742 Posting Date=FIELD(Date Filter), 743 Currency Code=FIELD(Currency Filter))); 744 CaptionML=[DEU=Sollbetrag; 745 ENU=Debit Amount]; 746 BlankZero=Yes; 747 Editable=No; 748 AutoFormatType=1; 749 AutoFormatExpr="Currency Code" } 750 { 98 ; ;Credit Amount ;Decimal ;FieldClass=FlowField; 751 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount" WHERE (Customer No.=FIELD(No.), 752 Entry Type=FILTER(<>Application), 753 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 754 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 755 Posting Date=FIELD(Date Filter), 756 Currency Code=FIELD(Currency Filter))); 757 CaptionML=[DEU=Habenbetrag; 758 ENU=Credit Amount]; 759 BlankZero=Yes; 760 Editable=No; 761 AutoFormatType=1; 762 AutoFormatExpr="Currency Code" } 763 { 99 ; ;Debit Amount (LCY) ;Decimal ;FieldClass=FlowField; 764 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount (LCY)" WHERE (Customer No.=FIELD(No.), 765 Entry Type=FILTER(<>Application), 766 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 767 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 768 Posting Date=FIELD(Date Filter), 769 Currency Code=FIELD(Currency Filter))); 770 CaptionML=[DEU=Sollbetrag (MW); 771 ENU=Debit Amount (LCY)]; 772 BlankZero=Yes; 773 Editable=No; 774 AutoFormatType=1 } 775 { 100 ; ;Credit Amount (LCY) ;Decimal ;FieldClass=FlowField; 776 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount (LCY)" WHERE (Customer No.=FIELD(No.), 777 Entry Type=FILTER(<>Application), 778 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 779 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 780 Posting Date=FIELD(Date Filter), 781 Currency Code=FIELD(Currency Filter))); 782 CaptionML=[DEU=Habenbetrag (MW); 783 ENU=Credit Amount (LCY)]; 784 BlankZero=Yes; 785 Editable=No; 786 AutoFormatType=1 } 787 { 102 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail; 788 CaptionML=[DEU=E-Mail; 789 ENU=E-Mail] } 790 { 103 ; ;Home Page ;Text80 ;ExtendedDatatype=URL; 791 CaptionML=[DEU=Homepage; 792 ENU=Home Page] } 793 { 104 ; ;Reminder Terms Code ;Code10 ;TableRelation="Reminder Terms"; 794 CaptionML=[DEU=Mahnmethodencode; 795 ENU=Reminder Terms Code] } 796 { 105 ; ;Reminder Amounts ;Decimal ;FieldClass=FlowField; 797 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Reminder), 798 Entry Type=CONST(Initial Entry), 799 Customer No.=FIELD(No.), 800 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 801 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 802 Posting Date=FIELD(Date Filter), 803 Currency Code=FIELD(Currency Filter))); 804 CaptionML=[DEU=Mahnbetrag; 805 ENU=Reminder Amounts]; 806 Editable=No; 807 AutoFormatType=1; 808 AutoFormatExpr="Currency Code" } 809 { 106 ; ;Reminder Amounts (LCY);Decimal ;FieldClass=FlowField; 810 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Reminder), 811 Entry Type=CONST(Initial Entry), 812 Customer No.=FIELD(No.), 813 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 814 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 815 Posting Date=FIELD(Date Filter), 816 Currency Code=FIELD(Currency Filter))); 817 CaptionML=[DEU=Mahnbetrag (MW); 818 ENU=Reminder Amounts (LCY)]; 819 Editable=No; 820 AutoFormatType=1 } 821 { 107 ; ;No. Series ;Code10 ;TableRelation="No. Series"; 822 CaptionML=[DEU=Nummernserie; 823 ENU=No. Series]; 824 Editable=No } 825 { 108 ; ;Tax Area Code ;Code20 ;TableRelation="Tax Area"; 826 CaptionML=[DEU=Steuergebietscode; 827 ENU=Tax Area Code] } 828 { 109 ; ;Tax Liable ;Boolean ;CaptionML=[DEU=Steuerpflichtig; 829 ENU=Tax Liable] } 830 { 110 ; ;VAT Bus. Posting Group;Code10 ;TableRelation="VAT Business Posting Group"; 831 CaptionML=[DEU=MwSt.-Geschäftsbuchungsgruppe; 832 ENU=VAT Bus. Posting Group] } 833 { 111 ; ;Currency Filter ;Code10 ;FieldClass=FlowFilter; 834 TableRelation=Currency; 835 CaptionML=[DEU=Währungsfilter; 836 ENU=Currency Filter] } 837 { 113 ; ;Outstanding Orders (LCY);Decimal ;FieldClass=FlowField; 838 CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order), 839 Bill-to Customer No.=FIELD(No.), 840 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 841 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 842 Currency Code=FIELD(Currency Filter))); 843 AccessByPermission=TableData 110=R; 844 CaptionML=[DEU=Auftragsbestand (MW); 845 ENU=Outstanding Orders (LCY)]; 846 Editable=No; 847 AutoFormatType=1 } 848 { 114 ; ;Shipped Not Invoiced (LCY);Decimal ;FieldClass=FlowField; 849 CalcFormula=Sum("Sales Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order), 850 Bill-to Customer No.=FIELD(No.), 851 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 852 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 853 Currency Code=FIELD(Currency Filter))); 854 AccessByPermission=TableData 110=R; 855 CaptionML=[DEU=Nicht fakt. Lieferungen (MW); 856 ENU=Shipped Not Invoiced (LCY)]; 857 Editable=No; 858 AutoFormatType=1 } 859 { 115 ; ;Reserve ;Option ;InitValue=Optional; 860 AccessByPermission=TableData 110=R; 861 CaptionML=[DEU=Reservieren; 862 ENU=Reserve]; 863 OptionCaptionML=[DEU=Nie,Optional,Immer; 864 ENU=Never,Optional,Always]; 865 OptionString=Never,Optional,Always } 866 { 116 ; ;Block Payment Tolerance;Boolean ;OnValidate=BEGIN 867 UpdatePaymentTolerance((CurrFieldNo <> 0) AND GUIALLOWED); 868 END; 869 870 CaptionML=[DEU=Zahlungstoleranz sperren; 871 ENU=Block Payment Tolerance] } 872 { 117 ; ;Pmt. Disc. Tolerance (LCY);Decimal ;FieldClass=FlowField; 873 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 874 Entry Type=FILTER(Payment Discount Tolerance|'Payment Discount Tolerance (VAT Adjustment)'|'Payment Discount Tolerance (VAT Excl.)'), 875 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 876 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 877 Posting Date=FIELD(Date Filter), 878 Currency Code=FIELD(Currency Filter))); 879 CaptionML=[DEU=Skontotoleranz (MW); 880 ENU=Pmt. Disc. Tolerance (LCY)]; 881 Editable=No; 882 AutoFormatType=1 } 883 { 118 ; ;Pmt. Tolerance (LCY);Decimal ;FieldClass=FlowField; 884 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 885 Entry Type=FILTER(Payment Tolerance|'Payment Tolerance (VAT Adjustment)'|'Payment Tolerance (VAT Excl.)'), 886 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 887 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 888 Posting Date=FIELD(Date Filter), 889 Currency Code=FIELD(Currency Filter))); 890 CaptionML=[DEU=Zahlungstoleranz (MW); 891 ENU=Pmt. Tolerance (LCY)]; 892 Editable=No; 893 AutoFormatType=1 } 894 { 119 ; ;IC Partner Code ;Code20 ;TableRelation="IC Partner"; 895 OnValidate=VAR 896 CustLedgEntry@1001 : Record 21; 897 AccountingPeriod@1000 : Record 50; 898 ICPartner@1002 : Record 413; 899 BEGIN 900 IF xRec."IC Partner Code" <> "IC Partner Code" THEN BEGIN 901 CustLedgEntry.SETCURRENTKEY("Customer No.","Posting Date"); 902 CustLedgEntry.SETRANGE("Customer No.","No."); 903 AccountingPeriod.SETRANGE(Closed,FALSE); 904 IF AccountingPeriod.FINDFIRST THEN 905 CustLedgEntry.SETFILTER("Posting Date",'>=%1',AccountingPeriod."Starting Date"); 906 IF CustLedgEntry.FINDFIRST THEN 907 IF NOT CONFIRM(Text011,FALSE,TABLECAPTION) THEN 908 "IC Partner Code" := xRec."IC Partner Code"; 909 910 CustLedgEntry.RESET; 911 IF NOT CustLedgEntry.SETCURRENTKEY("Customer No.",Open) THEN 912 CustLedgEntry.SETCURRENTKEY("Customer No."); 913 CustLedgEntry.SETRANGE("Customer No.","No."); 914 CustLedgEntry.SETRANGE(Open,TRUE); 915 IF CustLedgEntry.FINDLAST THEN 916 ERROR(Text012,FIELDCAPTION("IC Partner Code"),TABLECAPTION); 917 918 919 920 921 922 923 924 925 926 927 928 END; 929 930 IF "IC Partner Code" <> '' THEN BEGIN 931 ICPartner.GET("IC Partner Code"); 932 IF (ICPartner."Customer No." <> '') AND (ICPartner."Customer No." <> "No.") THEN 933 ERROR(Text010,FIELDCAPTION("IC Partner Code"),"IC Partner Code",TABLECAPTION,ICPartner."Customer No."); 934 ICPartner."Customer No." := "No."; 935 ICPartner.MODIFY; 936 END; 937 938 IF (xRec."IC Partner Code" <> "IC Partner Code") AND ICPartner.GET(xRec."IC Partner Code") THEN BEGIN 939 ICPartner."Customer No." := ''; 940 ICPartner.MODIFY; 941 END; 942 END; 943 944 CaptionML=[DEU=IC-Partnercode; 945 ENU=IC Partner Code] } 946 { 120 ; ;Refunds ;Decimal ;FieldClass=FlowField; 947 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Refund), 948 Entry Type=CONST(Initial Entry), 949 Customer No.=FIELD(No.), 950 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 951 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 952 Posting Date=FIELD(Date Filter), 953 Currency Code=FIELD(Currency Filter))); 954 CaptionML=[DEU=Erstattungen; 955 ENU=Refunds] } 956 { 121 ; ;Refunds (LCY) ;Decimal ;FieldClass=FlowField; 957 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Refund), 958 Entry Type=CONST(Initial Entry), 959 Customer No.=FIELD(No.), 960 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 961 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 962 Posting Date=FIELD(Date Filter), 963 Currency Code=FIELD(Currency Filter))); 964 CaptionML=[DEU=Erstattungen (MW); 965 ENU=Refunds (LCY)] } 966 { 122 ; ;Other Amounts ;Decimal ;FieldClass=FlowField; 967 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(" "), 968 Entry Type=CONST(Initial Entry), 969 Customer No.=FIELD(No.), 970 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 971 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 972 Posting Date=FIELD(Date Filter), 973 Currency Code=FIELD(Currency Filter))); 974 CaptionML=[DEU=Weitere Beträge; 975 ENU=Other Amounts] } 976 { 123 ; ;Other Amounts (LCY) ;Decimal ;FieldClass=FlowField; 977 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(" "), 978 Entry Type=CONST(Initial Entry), 979 Customer No.=FIELD(No.), 980 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 981 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 982 Posting Date=FIELD(Date Filter), 983 Currency Code=FIELD(Currency Filter))); 984 CaptionML=[DEU=Weitere Beträge (MW); 985 ENU=Other Amounts (LCY)] } 986 { 124 ; ;Prepayment % ;Decimal ;CaptionML=[DEU=Vorauszahlung %; 987 ENU=Prepayment %]; 988 DecimalPlaces=0:5; 989 MinValue=0; 990 MaxValue=100 } 991 { 125 ; ;Outstanding Invoices (LCY);Decimal ;FieldClass=FlowField; 992 CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice), 993 Bill-to Customer No.=FIELD(No.), 994 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 995 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 996 Currency Code=FIELD(Currency Filter))); 997 AccessByPermission=TableData 110=R; 998 CaptionML=[DEU=Ausstehende Rechnungen (MW); 999 ENU=Outstanding Invoices (LCY)]; 1000 Editable=No; 1001 AutoFormatType=1 } 1002 { 126 ; ;Outstanding Invoices;Decimal ;FieldClass=FlowField; 1003 CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Invoice), 1004 Bill-to Customer No.=FIELD(No.), 1005 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1006 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1007 Currency Code=FIELD(Currency Filter))); 1008 AccessByPermission=TableData 110=R; 1009 CaptionML=[DEU=Ausstehende Rechnungen; 1010 ENU=Outstanding Invoices]; 1011 Editable=No; 1012 AutoFormatType=1; 1013 AutoFormatExpr="Currency Code" } 1014 { 130 ; ;Bill-to No. Of Archived Doc.;Integer; 1015 FieldClass=FlowField; 1016 CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order), 1017 Bill-to Customer No.=FIELD(No.))); 1018 CaptionML=[DEU=Anzahl archivierter Belege für Rech. an; 1019 ENU=Bill-to No. Of Archived Doc.] } 1020 { 131 ; ;Sell-to No. Of Archived Doc.;Integer; 1021 FieldClass=FlowField; 1022 CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order), 1023 Sell-to Customer No.=FIELD(No.))); 1024 CaptionML=[DEU=Anzahl archivierter Belege für Verk. an; 1025 ENU=Sell-to No. Of Archived Doc.] } 1026 { 132 ; ;Partner Type ;Option ;CaptionML=[DEU=Partnerart; 1027 ENU=Partner Type]; 1028 OptionCaptionML=[DEU=" ,Unternehmen,Person"; 1029 ENU=" ,Company,Person"]; 1030 OptionString=[ ,Company,Person] } 1031 { 288 ; ;Preferred Bank Account;Code10 ;TableRelation="Customer Bank Account".Code WHERE (Customer No.=FIELD(No.)); 1032 CaptionML=[DEU=Bevorzugtes Bankkonto; 1033 ENU=Preferred Bank Account] } 1034 1035 1036 1037 { 840 ; ;Cash Flow Payment Terms Code;Code10;TableRelation="Payment Terms"; 1038 CaptionML=[DEU=Cashflow - Zlg.-Bedingungscode; 1039 ENU=Cash Flow Payment Terms Code] } 1040 { 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact; 1041 OnValidate=VAR 1042 Cont@1000 : Record 5050; 1043 ContBusRel@1001 : Record 5054; 1044 BEGIN 1045 Contact := ''; 1046 IF "Primary Contact No." <> '' THEN BEGIN 1047 Cont.GET("Primary Contact No."); 1048 1049 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1050 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1051 ContBusRel.SETRANGE("No.","No."); 1052 ContBusRel.FINDFIRST; 1053 1054 IF Cont."Company No." <> ContBusRel."Contact No." THEN 1055 ERROR(Text003,Cont."No.",Cont.Name,"No.",Name); 1056 1057 IF Cont.Type = Cont.Type::Person THEN 1058 Contact := Cont.Name 1059 END; 1060 END; 1061 1062 OnLookup=VAR 1063 Cont@1000 : Record 5050; 1064 ContBusRel@1001 : Record 5054; 1065 1066 BEGIN 1067 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1068 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1069 ContBusRel.SETRANGE("No.","No."); 1070 IF ContBusRel.FINDFIRST THEN 1071 Cont.SETRANGE("Company No.",ContBusRel."Contact No.") 1072 ELSE 1073 Cont.SETRANGE("No.",''); 1074 1075 IF "Primary Contact No." <> '' THEN 1076 IF Cont.GET("Primary Contact No.") THEN ; 1077 IF PAGE.RUNMODAL(0,Cont) = ACTION::LookupOK THEN 1078 1079 1080 1081 VALIDATE("Primary Contact No.",Cont."No."); 1082 1083 END; 1084 1085 CaptionML=[DEU=Primäre Kontaktnr.; 1086 ENU=Primary Contact No.] } 1087 { 5700; ;Responsibility Center;Code10 ;TableRelation="Responsibility Center"; 1088 CaptionML=[DEU=Zuständigkeitseinheitencode; 1089 ENU=Responsibility Center] } 1090 { 5750; ;Shipping Advice ;Option ;AccessByPermission=TableData 110=R; 1091 CaptionML=[DEU=Versandanweisung; 1092 ENU=Shipping Advice]; 1093 OptionCaptionML=[DEU=Teillieferung,Komplettlieferung; 1094 ENU=Partial,Complete]; 1095 OptionString=Partial,Complete } 1096 { 5790; ;Shipping Time ;DateFormula ;AccessByPermission=TableData 5790=R; 1097 CaptionML=[DEU=Transportzeit; 1098 ENU=Shipping Time] } 1099 { 5792; ;Shipping Agent Service Code;Code10 ;TableRelation="Shipping Agent Services".Code WHERE (Shipping Agent Code=FIELD(Shipping Agent Code)); 1100 OnValidate=BEGIN 1101 IF ("Shipping Agent Code" <> '') AND 1102 ("Shipping Agent Service Code" <> '') 1103 THEN 1104 IF ShippingAgentService.GET("Shipping Agent Code","Shipping Agent Service Code") THEN 1105 "Shipping Time" := ShippingAgentService."Shipping Time" 1106 ELSE 1107 EVALUATE("Shipping Time",'<>'); 1108 END; 1109 1110 CaptionML=[DEU=Zustellertransportartencode; 1111 ENU=Shipping Agent Service Code] } 1112 { 5900; ;Service Zone Code ;Code10 ;TableRelation="Service Zone"; 1113 CaptionML=[DEU=Servicegebietscode; 1114 ENU=Service Zone Code] } 1115 { 5902; ;Contract Gain/Loss Amount;Decimal ;FieldClass=FlowField; 1116 CalcFormula=Sum("Contract Gain/Loss Entry".Amount WHERE (Customer No.=FIELD(No.), 1117 Ship-to Code=FIELD(Ship-to Filter), 1118 Change Date=FIELD(Date Filter))); 1119 CaptionML=[DEU=Gewinn-/Verlustbetrag (Vertr.); 1120 ENU=Contract Gain/Loss Amount]; 1121 Editable=No; 1122 AutoFormatType=1 } 1123 { 5903; ;Ship-to Filter ;Code10 ;FieldClass=FlowFilter; 1124 TableRelation="Ship-to Address".Code WHERE (Customer No.=FIELD(No.)); 1125 CaptionML=[DEU=Lief. an Filter; 1126 ENU=Ship-to Filter] } 1127 { 5910; ;Outstanding Serv. Orders (LCY);Decimal; 1128 FieldClass=FlowField; 1129 CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order), 1130 Bill-to Customer No.=FIELD(No.), 1131 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1132 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1133 Currency Code=FIELD(Currency Filter))); 1134 CaptionML=[DEU=Serviceauftragsbestand (MW); 1135 ENU=Outstanding Serv. Orders (LCY)]; 1136 Editable=No; 1137 AutoFormatType=1 } 1138 { 5911; ;Serv Shipped Not Invoiced(LCY);Decimal; 1139 FieldClass=FlowField; 1140 CalcFormula=Sum("Service Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order), 1141 Bill-to Customer No.=FIELD(No.), 1142 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1143 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1144 Currency Code=FIELD(Currency Filter))); 1145 CaptionML=[DEU=Service Lief. nicht fakt. Betrag (MW); 1146 ENU=Serv Shipped Not Invoiced(LCY)]; 1147 Editable=No; 1148 AutoFormatType=1 } 1149 { 5912; ;Outstanding Serv.Invoices(LCY);Decimal; 1150 FieldClass=FlowField; 1151 CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice), 1152 Bill-to Customer No.=FIELD(No.), 1153 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1154 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1155 Currency Code=FIELD(Currency Filter))); 1156 CaptionML=[DEU=Ausstehende Servicerechnungen (MW); 1157 ENU=Outstanding Serv.Invoices(LCY)]; 1158 Editable=No; 1159 AutoFormatType=1 } 1160 { 7001; ;Allow Line Disc. ;Boolean ;InitValue=Yes; 1161 CaptionML=[DEU=Zeilenrabatt zulassen; 1162 ENU=Allow Line Disc.] } 1163 { 7171; ;No. of Quotes ;Integer ;FieldClass=FlowField; 1164 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote), 1165 Sell-to Customer No.=FIELD(No.))); 1166 CaptionML=[DEU=Anzahl Angebote; 1167 ENU=No. of Quotes]; 1168 Editable=No } 1169 { 7172; ;No. of Blanket Orders;Integer ;FieldClass=FlowField; 1170 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order), 1171 Sell-to Customer No.=FIELD(No.))); 1172 AccessByPermission=TableData 110=R; 1173 CaptionML=[DEU=Anzahl Rahmenaufträge; 1174 ENU=No. of Blanket Orders]; 1175 Editable=No } 1176 { 7173; ;No. of Orders ;Integer ;FieldClass=FlowField; 1177 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order), 1178 Sell-to Customer No.=FIELD(No.))); 1179 AccessByPermission=TableData 110=R; 1180 CaptionML=[DEU=Anzahl Aufträge; 1181 ENU=No. of Orders]; 1182 Editable=No } 1183 { 7174; ;No. of Invoices ;Integer ;FieldClass=FlowField; 1184 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice), 1185 Sell-to Customer No.=FIELD(No.))); 1186 CaptionML=[DEU=Anzahl Rechnungen; 1187 ENU=No. of Invoices]; 1188 Editable=No } 1189 { 7175; ;No. of Return Orders;Integer ;FieldClass=FlowField; 1190 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order), 1191 Sell-to Customer No.=FIELD(No.))); 1192 AccessByPermission=TableData 6660=R; 1193 CaptionML=[DEU=Anzahl Reklamationen; 1194 ENU=No. of Return Orders]; 1195 Editable=No } 1196 { 7176; ;No. of Credit Memos ;Integer ;FieldClass=FlowField; 1197 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo), 1198 Sell-to Customer No.=FIELD(No.))); 1199 CaptionML=[DEU=Anzahl Gutschriften; 1200 ENU=No. of Credit Memos]; 1201 Editable=No } 1202 { 7177; ;No. of Pstd. Shipments;Integer ;FieldClass=FlowField; 1203 CalcFormula=Count("Sales Shipment Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1204 CaptionML=[DEU=Anzahl gebuchter Lieferungen; 1205 ENU=No. of Pstd. Shipments]; 1206 Editable=No } 1207 { 7178; ;No. of Pstd. Invoices;Integer ;FieldClass=FlowField; 1208 CalcFormula=Count("Sales Invoice Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1209 CaptionML=[DEU=Anzahl gebuchter Rechnungen; 1210 ENU=No. of Pstd. Invoices]; 1211 Editable=No } 1212 { 7179; ;No. of Pstd. Return Receipts;Integer; 1213 FieldClass=FlowField; 1214 CalcFormula=Count("Return Receipt Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1215 CaptionML=[DEU=Anz. gebuchter Rücksendungen; 1216 ENU=No. of Pstd. Return Receipts]; 1217 Editable=No } 1218 { 7180; ;No. of Pstd. Credit Memos;Integer ;FieldClass=FlowField; 1219 CalcFormula=Count("Sales Cr.Memo Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1220 CaptionML=[DEU=Anzahl gebuchter Gutschriften; 1221 ENU=No. of Pstd. Credit Memos]; 1222 Editable=No } 1223 { 7181; ;No. of Ship-to Addresses;Integer ;FieldClass=FlowField; 1224 CalcFormula=Count("Ship-to Address" WHERE (Customer No.=FIELD(No.))); 1225 CaptionML=[DEU=Anzahl Lieferadressen; 1226 ENU=No. of Ship-to Addresses]; 1227 Editable=No } 1228 { 7182; ;Bill-To No. of Quotes;Integer ;FieldClass=FlowField; 1229 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote), 1230 Bill-to Customer No.=FIELD(No.))); 1231 CaptionML=[DEU=Anzahl Angebote für Rechnungsadresse; 1232 ENU=Bill-To No. of Quotes]; 1233 Editable=No } 1234 { 7183; ;Bill-To No. of Blanket Orders;Integer; 1235 FieldClass=FlowField; 1236 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order), 1237 Bill-to Customer No.=FIELD(No.))); 1238 AccessByPermission=TableData 110=R; 1239 CaptionML=[DEU=Anzahl Rahmenaufträge für Rechnungsadresse; 1240 ENU=Bill-To No. of Blanket Orders]; 1241 Editable=No } 1242 { 7184; ;Bill-To No. of Orders;Integer ;FieldClass=FlowField; 1243 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order), 1244 Bill-to Customer No.=FIELD(No.))); 1245 AccessByPermission=TableData 110=R; 1246 CaptionML=[DEU=Anzahl Aufträge für Rechnungsadresse; 1247 ENU=Bill-To No. of Orders]; 1248 Editable=No } 1249 { 7185; ;Bill-To No. of Invoices;Integer ;FieldClass=FlowField; 1250 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice), 1251 Bill-to Customer No.=FIELD(No.))); 1252 CaptionML=[DEU=Anzahl Rechungen für Rechnungsadresse; 1253 ENU=Bill-To No. of Invoices]; 1254 Editable=No } 1255 { 7186; ;Bill-To No. of Return Orders;Integer; 1256 FieldClass=FlowField; 1257 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order), 1258 Bill-to Customer No.=FIELD(No.))); 1259 AccessByPermission=TableData 6660=R; 1260 CaptionML=[DEU=Anzahl Reklamationen für Rechnungsadresse; 1261 ENU=Bill-To No. of Return Orders]; 1262 Editable=No } 1263 { 7187; ;Bill-To No. of Credit Memos;Integer;FieldClass=FlowField; 1264 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo), 1265 Bill-to Customer No.=FIELD(No.))); 1266 CaptionML=[DEU=Anzahl Gutschriften für Rechnungsadresse; 1267 ENU=Bill-To No. of Credit Memos]; 1268 Editable=No } 1269 { 7188; ;Bill-To No. of Pstd. Shipments;Integer; 1270 FieldClass=FlowField; 1271 CalcFormula=Count("Sales Shipment Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1272 CaptionML=[DEU=Anzahl gebuchter Lieferungen für Rechnungsadresse; 1273 ENU=Bill-To No. of Pstd. Shipments]; 1274 Editable=No } 1275 { 7189; ;Bill-To No. of Pstd. Invoices;Integer; 1276 FieldClass=FlowField; 1277 CalcFormula=Count("Sales Invoice Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1278 CaptionML=[DEU=Anzahl gebuchter Rechnungen für Rechnungsadresse; 1279 ENU=Bill-To No. of Pstd. Invoices]; 1280 Editable=No } 1281 { 7190; ;Bill-To No. of Pstd. Return R.;Integer; 1282 FieldClass=FlowField; 1283 CalcFormula=Count("Return Receipt Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1284 CaptionML=[DEU=Anzahl geb. Retourenbel. für Rechnungsadresse; 1285 ENU=Bill-To No. of Pstd. Return R.]; 1286 Editable=No } 1287 { 7191; ;Bill-To No. of Pstd. Cr. Memos;Integer; 1288 FieldClass=FlowField; 1289 CalcFormula=Count("Sales Cr.Memo Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1290 CaptionML=[DEU=Anz. geb. Gutschr. für Rechnungsadresse; 1291 ENU=Bill-To No. of Pstd. Cr. Memos]; 1292 Editable=No } 1293 { 7600; ;Base Calendar Code ;Code10 ;TableRelation="Base Calendar"; 1294 CaptionML=[DEU=Basiskalendercode; 1295 ENU=Base Calendar Code] } 1296 { 7601; ;Copy Sell-to Addr. to Qte From;Option; 1297 AccessByPermission=TableData 5050=R; 1298 CaptionML=[DEU=Verk. an Adr. in Ang. v. kop.; 1299 ENU=Copy Sell-to Addr. to Qte From]; 1300 OptionCaptionML=[DEU=Unternehmen,Person; 1301 ENU=Company,Person]; 1302 OptionString=Company,Person } 1303 } 1304 KEYS 1305 { 1306 { ;No. ;Clustered=Yes } 1307 { ;Search Name } 1308 { ;Customer Posting Group } 1309 { ;Currency Code } 1310 { ;Country/Region Code } 1311 { ;Gen. Bus. Posting Group } 1312 { ;Name,Address,City } 1313 { ;VAT Registration No. } 1314 { ;Name } 1315 { ;City } 1316 { ;Post Code } 1317 { ;Phone No. } 1318 { ;Contact } 1319 } 1320 FIELDGROUPS 1321 { 1322 { 1 ;DropDown ;No.,Name,City,Post Code,Phone No.,Contact } 1323 { 2 ;Brick ;No.,Name,Balance (LCY),Contact,Balance Due (LCY) } 1324 } 1325 CODE 1326 { 1327 VAR 1328 Text000@1000 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da noch ein(e) %3 (oder mehrere) für diesen Debitor vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one outstanding Sales %3 for this customer.'; 1329 Text002@1001 : TextConst 'DEU=Möchten Sie einen Kontakt für %1 %2 erstellen?;ENU=Do you wish to create a contact for %1 %2?'; 1330 SalesSetup@1002 : Record 311; 1331 CommentLine@1004 : Record 97; 1332 SalesOrderLine@1005 : Record 37; 1333 CustBankAcc@1006 : Record 287; 1334 ShipToAddr@1007 : Record 222; 1335 PostCode@1008 : Record 225; 1336 GenBusPostingGrp@1009 : Record 250; 1337 ShippingAgentService@1010 : Record 5790; 1338 ItemCrossReference@1016 : Record 5717; 1339 RMSetup@1018 : Record 5079; 1340 SalesPrice@1021 : Record 7002; 1341 SalesLineDisc@1022 : Record 7004; 1342 SalesPrepmtPct@1003 : Record 459; 1343 ServContract@1026 : Record 5965; 1344 ServHeader@1034 : Record 5900; 1345 ServiceItem@1027 : Record 5940; 1346 PaymentToleranceMgt@1038 : Codeunit 426; 1347 NoSeriesMgt@1011 : Codeunit 396; 1348 MoveEntries@1012 : Codeunit 361; 1349 UpdateContFromCust@1013 : Codeunit 5056; 1350 DimMgt@1014 : Codeunit 408; 1351 ApprovalsMgmt@1039 : Codeunit 1535; 1352 InsertFromContact@1015 : Boolean; 1353 Text003@1020 : TextConst 'DEU=Kontakt %1 %2 ist nicht mit Debitor %3 %4 verknüpft.;ENU=Contact %1 %2 is not related to customer %3 %4.'; 1354 Text004@1023 : TextConst 'DEU=buchen;ENU=post'; 1355 Text005@1024 : TextConst 'DEU=erstellen;ENU=create'; 1356 Text006@1025 : TextConst 'DEU=Sie können diese Belegart nicht %1, wenn der Debitor %2 für die Art %3 gesperrt ist.;ENU=You cannot %1 this type of document when Customer %2 is blocked with type %3'; 1357 Text007@1028 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da für diesen Debitor mindestens ein nicht stornierter Servicevertrag vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one not cancelled Service Contract for this customer.'; 1358 Text008@1029 : TextConst 'DEU=Wenn Sie %1 %2 löschen, wird die %3 für die verknüpften Serviceartikel ebenfalls gelöscht. Möchten Sie fortfahren?;ENU=Deleting the %1 %2 will cause the %3 to be deleted for the associated Service Items. Do you want to continue?'; 1359 Text009@1030 : TextConst 'DEU=Debitor kann nicht gelöscht werden.;ENU=Cannot delete customer.'; 1360 Text010@1031 : TextConst 'DEU=%1 %2 wurde %3 %4 zugewiesen.\Derselbe %1 kann nicht auf mehr als einen %3 eingegeben werden. Geben Sie einen anderen Code ein.;ENU=The %1 %2 has been assigned to %3 %4.\The same %1 cannot be entered on more than one %3. Enter another code.'; 1361 Text011@1033 : TextConst 'DEU=Das Abstimmen von IC-Buchungen kann schwierig sein, wenn Sie den IC-Partnercode ändern, weil %1 Posten in einem noch nicht geschlossenen Geschäftsjahr aufweist.\ Möchten Sie den IC-Partnercode trotzdem ändern?;ENU=Reconciling IC transactions may be difficult if you change IC Partner Code because this %1 has ledger entries in a fiscal year that has not yet been closed.\ Do you still want to change the IC Partner Code?'; 1362 Text012@1032 : TextConst 'DEU=Sie können den Inhalt des Feldes %1 nicht ändern, weil für dieses %2 ein oder mehrere offene Posten vorliegen.;ENU=You cannot change the contents of the %1 field because this %2 has one or more open ledger entries.'; 1363 Text013@1035 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da noch mindestens ein ausstehender Service-%3 für diesen Debitor vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one outstanding Service %3 for this customer.'; 1364 Text014@1017 : TextConst 'DEU=Bevor Sie Online Map verwenden können, müssen Sie die Felder des Fensters ''Online Map-Einrichtung'' ausfüllen.\Informationen hierzu finden Sie in der Hilfe zum Einrichten von Online Map.;ENU=Before you can use Online Map, you must fill in the Online Map Setup window.\See Setting Up Online Map in Help.'; 1365 Text015@1036 : TextConst 'DEU=%1 ''%2'' kann nicht gelöscht werden, da dem Debitor mindestens ein Objekt vom Typ %3 zugeordnet ist.;ENU=You cannot delete %1 %2 because there is at least one %3 associated to this customer.'; 1366 AllowPaymentToleranceQst@1037 : TextConst 'DEU=Möchten Sie Zahlungstoleranzen für momentan offene Posten zulassen?;ENU=Do you want to allow payment tolerance for entries that are currently open?'; 1367 RemovePaymentRoleranceQst@1019 : TextConst 'DEU=Möchten Sie Zahlungstoleranzen für momentan offene Posten löschen?;ENU=Do you want to remove payment tolerance from entries that are currently open?'; 1368 1369 1370 1371 1372 1373 1374 1375 PROCEDURE AssistEdit@2(OldCust@1000 : Record 18) : Boolean; 1376 VAR 1377 Cust@1001 : Record 18; 1378 BEGIN 1379 WITH Cust DO BEGIN 1380 Cust := Rec; 1381 SalesSetup.GET; 1382 SalesSetup.TESTFIELD("Customer Nos."); 1383 IF NoSeriesMgt.SelectSeries(SalesSetup."Customer Nos.",OldCust."No. Series","No. Series") THEN BEGIN 1384 NoSeriesMgt.SetSeries("No."); 1385 Rec := Cust; 1386 EXIT(TRUE); 1387 END; 1388 END; 1389 END; 1390 1391 LOCAL PROCEDURE ValidateShortcutDimCode@29(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]); 1392 BEGIN 1393 DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode); 1394 DimMgt.SaveDefaultDim(DATABASE::Customer,"No.",FieldNumber,ShortcutDimCode); 1395 MODIFY; 1396 END; 1397 1398 PROCEDURE ShowContact@1(); 1399 VAR 1400 ContBusRel@1000 : Record 5054; 1401 Cont@1001 : Record 5050; 1402 1403 1404 BEGIN 1405 IF "No." = '' THEN 1406 EXIT; 1407 1408 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1409 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1410 ContBusRel.SETRANGE("No.","No."); 1411 IF NOT ContBusRel.FINDFIRST THEN BEGIN 1412 IF NOT CONFIRM(Text002,FALSE,TABLECAPTION,"No.") THEN 1413 EXIT; 1414 UpdateContFromCust.InsertNewContact(Rec,FALSE); 1415 ContBusRel.FINDFIRST; 1416 END; 1417 COMMIT; 1418 1419 Cont.SETCURRENTKEY("Company Name","Company No.",Type,Name); 1420 Cont.SETRANGE("Company No.",ContBusRel."Contact No."); 1421 PAGE.RUN(PAGE::"Contact List",Cont); 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 END; 1435 1436 PROCEDURE SetInsertFromContact@3(FromContact@1000 : Boolean); 1437 BEGIN 1438 InsertFromContact := FromContact; 1439 END; 1440 1441 PROCEDURE CheckBlockedCustOnDocs@5(Cust2@1000 : Record 18;DocType@1001 : 'Quote,Order,Invoice,Credit Memo,Blanket Order,Return Order';Shipment@1005 : Boolean;Transaction@1003 : Boolean); 1442 BEGIN 1443 WITH Cust2 DO BEGIN 1444 IF ((Blocked = Blocked::All) OR 1445 ((Blocked = Blocked::Invoice) AND (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"])) OR 1446 1447 ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::"Blanket Order"]) AND 1448 (NOT Transaction)) OR 1449 ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"]) AND 1450 Shipment AND Transaction)) 1451 THEN 1452 CustBlockedErrorMessage(Cust2,Transaction); 1453 END; 1454 END; 1455 1456 PROCEDURE CheckBlockedCustOnJnls@7(Cust2@1003 : Record 18;DocType@1002 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund';Transaction@1000 : Boolean); 1457 BEGIN 1458 WITH Cust2 DO BEGIN 1459 IF (Blocked = Blocked::All) OR 1460 ((Blocked = Blocked::Invoice) AND (DocType IN [DocType::Invoice,DocType::" "])) 1461 THEN 1462 CustBlockedErrorMessage(Cust2,Transaction) 1463 END; 1464 END; 1465 1466 PROCEDURE CustBlockedErrorMessage@4(Cust2@1001 : Record 18;Transaction@1000 : Boolean); 1467 VAR 1468 Action@1002 : Text[30]; 1469 BEGIN 1470 IF Transaction THEN 1471 Action := Text004 1472 ELSE 1473 Action := Text005; 1474 ERROR(Text006,Action,Cust2."No.",Cust2.Blocked); 1475 END; 1476 1477 PROCEDURE DisplayMap@8(); 1478 VAR 1479 MapPoint@1001 : Record 800; 1480 MapMgt@1000 : Codeunit 802; 1481 BEGIN 1482 IF MapPoint.FINDFIRST THEN 1483 MapMgt.MakeSelection(DATABASE::Customer,GETPOSITION) 1484 ELSE 1485 MESSAGE(Text014); 1486 END; 1487 1488 PROCEDURE GetTotalAmountLCY@10() : Decimal; 1489 BEGIN 1490 CALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)", 1491 "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)"); 1492 1493 EXIT(GetTotalAmountLCYCommon); 1494 END; 1495 1496 PROCEDURE GetTotalAmountLCYUI@16() : Decimal; 1497 BEGIN 1498 SETAUTOCALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)", 1499 "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)"); 1500 1501 EXIT(GetTotalAmountLCYCommon); 1502 END; 1503 1504 LOCAL PROCEDURE GetTotalAmountLCYCommon@17() : Decimal; 1505 VAR 1506 SalesLine@1000 : Record 37; 1507 ServiceLine@1002 : Record 5902; 1508 SalesOutstandingAmountFromShipment@1001 : Decimal; 1509 ServOutstandingAmountFromShipment@1003 : Decimal; 1510 InvoicedPrepmtAmountLCY@1004 : Decimal; 1511 BEGIN 1512 SalesOutstandingAmountFromShipment := SalesLine.OutstandingInvoiceAmountFromShipment("No."); 1513 ServOutstandingAmountFromShipment := ServiceLine.OutstandingInvoiceAmountFromShipment("No."); 1514 InvoicedPrepmtAmountLCY := GetInvoicedPrepmtAmountLCY; 1515 1516 EXIT("Balance (LCY)" + "Outstanding Orders (LCY)" + "Shipped Not Invoiced (LCY)" + "Outstanding Invoices (LCY)" + 1517 "Outstanding Serv. Orders (LCY)" + "Serv Shipped Not Invoiced(LCY)" + "Outstanding Serv.Invoices(LCY)" - 1518 SalesOutstandingAmountFromShipment - ServOutstandingAmountFromShipment - InvoicedPrepmtAmountLCY); 1519 END; 1520 1521 PROCEDURE GetSalesLCY@13() : Decimal; 1522 VAR 1523 CustomerSalesYTD@1005 : Record 18; 1524 AccountingPeriod@1004 : Record 50; 1525 StartDate@1001 : Date; 1526 EndDate@1000 : Date; 1527 BEGIN 1528 StartDate := AccountingPeriod.GetFiscalYearStartDate(WORKDATE); 1529 EndDate := AccountingPeriod.GetFiscalYearEndDate(WORKDATE); 1530 CustomerSalesYTD := Rec; 1531 CustomerSalesYTD."SECURITYFILTERING"("SECURITYFILTERING"); 1532 CustomerSalesYTD.SETRANGE("Date Filter",StartDate,EndDate); 1533 CustomerSalesYTD.CALCFIELDS("Sales (LCY)"); 1534 EXIT(CustomerSalesYTD."Sales (LCY)"); 1535 END; 1536 1537 PROCEDURE CalcAvailableCredit@9() : Decimal; 1538 BEGIN 1539 EXIT(CalcAvailableCreditCommon(FALSE)); 1540 END; 1541 1542 PROCEDURE CalcAvailableCreditUI@15() : Decimal; 1543 BEGIN 1544 EXIT(CalcAvailableCreditCommon(TRUE)); 1545 END; 1546 1547 LOCAL PROCEDURE CalcAvailableCreditCommon@14(CalledFromUI@1000 : Boolean) : Decimal; 1548 BEGIN 1549 IF "Credit Limit (LCY)" = 0 THEN 1550 EXIT(0); 1551 IF CalledFromUI THEN 1552 EXIT("Credit Limit (LCY)" - GetTotalAmountLCYUI); 1553 EXIT("Credit Limit (LCY)" - GetTotalAmountLCY); 1554 END; 1555 1556 PROCEDURE CalcOverdueBalance@11() OverDueBalance : Decimal; 1557 VAR 1558 CustLedgEntryRemainAmtQuery@1000 : Query 21 SECURITYFILTERING(Filtered); 1559 BEGIN 1560 CustLedgEntryRemainAmtQuery.SETRANGE(Customer_No,"No."); 1561 CustLedgEntryRemainAmtQuery.SETRANGE(IsOpen,TRUE); 1562 CustLedgEntryRemainAmtQuery.SETFILTER(Due_Date,'<%1',WORKDATE); 1563 CustLedgEntryRemainAmtQuery.OPEN; 1564 1565 IF CustLedgEntryRemainAmtQuery.READ THEN 1566 OverDueBalance := CustLedgEntryRemainAmtQuery.Sum_Remaining_Amt_LCY; 1567 END; 1568 1569 PROCEDURE GetLegalEntityType@6() : Text; 1570 BEGIN 1571 EXIT(FORMAT("Partner Type")); 1572 END; 1573 1574 PROCEDURE GetLegalEntityTypeLbl@26() : Text; 1575 BEGIN 1576 EXIT(FIELDCAPTION("Partner Type")); 1577 END; 1578 1579 PROCEDURE SetStyle@12() : Text; 1580 BEGIN 1581 IF CalcAvailableCredit < 0 THEN 1582 EXIT('Unfavorable'); 1583 EXIT(''); 1584 END; 1585 1586 PROCEDURE HasValidDDMandate@23(Date@1000 : Date) : Boolean; 1587 VAR 1588 SEPADirectDebitMandate@1001 : Record 1230; 1589 BEGIN 1590 EXIT(SEPADirectDebitMandate.GetDefaultMandate("No.",Date) <> ''); 1591 END; 1592 1593 PROCEDURE GetInvoicedPrepmtAmountLCY@18() : Decimal; 1594 VAR 1595 SalesLine@1000 : Record 37; 1596 BEGIN 1597 SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No."); 1598 SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::Order); 1599 SalesLine.SETRANGE("Bill-to Customer No.","No."); 1600 SalesLine.CALCSUMS("Prepmt. Amount Inv. (LCY)","Prepmt. VAT Amount Inv. (LCY)"); 1601 EXIT(SalesLine."Prepmt. Amount Inv. (LCY)" + SalesLine."Prepmt. VAT Amount Inv. (LCY)"); 1602 END; 1603 1604 PROCEDURE CalcCreditLimitLCYExpendedPct@19() : Decimal; 1605 BEGIN 1606 IF "Credit Limit (LCY)" = 0 THEN 1607 EXIT(0); 1608 1609 IF "Balance (LCY)" / "Credit Limit (LCY)" < 0 THEN 1610 EXIT(0); 1611 1612 IF "Balance (LCY)" / "Credit Limit (LCY)" > 1 THEN 1613 EXIT(10000); 1614 1615 EXIT(ROUND("Balance (LCY)" / "Credit Limit (LCY)" * 10000,1)); 1616 END; 1617 1618 PROCEDURE CreateAndShowNewInvoice@21(); 1619 VAR 1620 SalesHeader@1000 : Record 36; 1621 BEGIN 1622 SalesHeader."Document Type" := SalesHeader."Document Type"::Invoice; 1623 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1624 SalesHeader.INSERT(TRUE); 1625 COMMIT; 1626 PAGE.RUNMODAL(PAGE::"Mini Sales Invoice",SalesHeader) 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 END; 1639 1640 PROCEDURE CreateAndShowNewCreditMemo@22(); 1641 VAR 1642 SalesHeader@1000 : Record 36; 1643 BEGIN 1644 SalesHeader."Document Type" := SalesHeader."Document Type"::"Credit Memo"; 1645 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1646 SalesHeader.INSERT(TRUE); 1647 COMMIT; 1648 PAGE.RUNMODAL(PAGE::"Mini Sales Credit Memo",SalesHeader) 1649 END; 1650 1651 PROCEDURE CreateAndShowNewQuote@24(); 1652 VAR 1653 SalesHeader@1000 : Record 36; 1654 BEGIN 1655 SalesHeader."Document Type" := SalesHeader."Document Type"::Quote; 1656 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1657 SalesHeader.INSERT(TRUE); 1658 COMMIT; 1659 PAGE.RUNMODAL(PAGE::"Mini Sales Quote",SalesHeader) 1660 END; 1661 1662 LOCAL PROCEDURE UpdatePaymentTolerance@20(UseDialog@1000 : Boolean); 1663 BEGIN 1664 IF "Block Payment Tolerance" THEN BEGIN 1665 IF UseDialog THEN 1666 IF NOT CONFIRM(RemovePaymentRoleranceQst,FALSE) THEN 1667 EXIT; 1668 PaymentToleranceMgt.DelTolCustLedgEntry(Rec); 1669 END ELSE BEGIN 1670 IF UseDialog THEN 1671 IF NOT CONFIRM(AllowPaymentToleranceQst,FALSE) THEN 1672 EXIT; 1673 PaymentToleranceMgt.CalcTolCustLedgEntry(Rec); 1674 END; 1675 END; 1676 1677 PROCEDURE GetBillToCustomerNo@27() : Code[20]; 1678 BEGIN 1679 IF "Bill-to Customer No." <> '' THEN 1680 EXIT("Bill-to Customer No."); 1681 EXIT("No."); 1682 END; 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723 1724 1725 1726 1727 1728 1729 1730 1731 1732 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746 1747 1748 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759 1760 1761 1762 1763 1764 1765 1766 1767 1768 1769 1770 1771 1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 1808 1809 1810 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1846 1847 1848 1849 1850 1851 1852 1853 1854 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 BEGIN 1889 END. 1890 } 1891 } 1892
|
Dynamics NAV
Table (Target): Customer 1 OBJECT Table 18 Customer 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=25.10.16; 6 Time=12:00:00; 7 Version List=NAVW110.00; 8 } 9 PROPERTIES 10 { 11 Permissions=TableData 21=r, 12 TableData 167=r, 13 TableData 249=rd, 14 TableData 5900=r, 15 TableData 5940=rm, 16 TableData 5965=rm, 17 TableData 7002=rd, 18 TableData 7004=rd; 19 DataCaptionFields=No.,Name; 20 OnInsert=VAR 21 DocumentNoVisibility@1000 : Codeunit 1400; 22 BEGIN 23 IF "No." = '' THEN 24 IF DocumentNoVisibility.CustomerNoSeriesIsDefault THEN BEGIN 25 SalesSetup.GET; 26 NoSeriesMgt.InitSeries(SalesSetup."Customer Nos.",xRec."No. Series",0D,"No.","No. Series"); 27 END; 28 IF "Invoice Disc. Code" = '' THEN 29 "Invoice Disc. Code" := "No."; 30 31 IF NOT (InsertFromContact OR (InsertFromTemplate AND (Contact <> ''))) THEN 32 UpdateContFromCust.OnInsert(Rec); 33 34 DimMgt.UpdateDefaultDim( 35 DATABASE::Customer,"No.", 36 "Global Dimension 1 Code","Global Dimension 2 Code"); 37 END; 38 39 OnModify=BEGIN 40 "Last Date Modified" := TODAY; 41 42 IF (Name <> xRec.Name) OR 43 ("Search Name" <> xRec."Search Name") OR 44 ("Name 2" <> xRec."Name 2") OR 45 (Address <> xRec.Address) OR 46 ("Address 2" <> xRec."Address 2") OR 47 (City <> xRec.City) OR 48 ("Phone No." <> xRec."Phone No.") OR 49 ("Telex No." <> xRec."Telex No.") OR 50 ("Territory Code" <> xRec."Territory Code") OR 51 ("Currency Code" <> xRec."Currency Code") OR 52 ("Language Code" <> xRec."Language Code") OR 53 ("Salesperson Code" <> xRec."Salesperson Code") OR 54 ("Country/Region Code" <> xRec."Country/Region Code") OR 55 ("Fax No." <> xRec."Fax No.") OR 56 ("Telex Answer Back" <> xRec."Telex Answer Back") OR 57 ("VAT Registration No." <> xRec."VAT Registration No.") OR 58 ("Post Code" <> xRec."Post Code") OR 59 (County <> xRec.County) OR 60 ("E-Mail" <> xRec."E-Mail") OR 61 ("Home Page" <> xRec."Home Page") OR 62 (Contact <> xRec.Contact) 63 THEN BEGIN 64 MODIFY; 65 UpdateContFromCust.OnModify(Rec); 66 IF NOT FIND THEN BEGIN 67 RESET; 68 IF FIND THEN; 69 END; 70 END; 71 END; 72 73 OnDelete=VAR 74 CampaignTargetGr@1000 : Record 7030; 75 ContactBusRel@1001 : Record 5054; 76 Job@1004 : Record 167; 77 78 SocialListeningSearchTopic@1007 : Record 871; 79 StdCustSalesCode@1003 : Record 172; 80 CustomReportSelection@1008 : Record 9657; 81 MyCustomer@1005 : Record 9150; 82 ServHeader@1009 : Record 5900; 83 CampaignTargetGrMgmt@1002 : Codeunit 7030; 84 VATRegistrationLogMgt@1006 : Codeunit 249; 85 BEGIN 86 ApprovalsMgmt.OnCancelCustomerApprovalRequest(Rec); 87 88 89 90 91 ServiceItem.SETRANGE("Customer No.","No."); 92 IF ServiceItem.FINDFIRST THEN 93 IF CONFIRM( 94 Text008, 95 FALSE, 96 TABLECAPTION, 97 "No.", 98 ServiceItem.FIELDCAPTION("Customer No.")) 99 THEN 100 ServiceItem.MODIFYALL("Customer No.",'') 101 ELSE 102 ERROR(Text009); 103 104 Job.SETRANGE("Bill-to Customer No.","No."); 105 IF NOT Job.ISEMPTY THEN 106 ERROR(Text015,TABLECAPTION,"No.",Job.TABLECAPTION); 107 108 MoveEntries.MoveCustEntries(Rec); 109 110 CommentLine.SETRANGE("Table Name",CommentLine."Table Name"::Customer); 111 CommentLine.SETRANGE("No.","No."); 112 CommentLine.DELETEALL; 113 114 CustBankAcc.SETRANGE("Customer No.","No."); 115 CustBankAcc.DELETEALL; 116 117 ShipToAddr.SETRANGE("Customer No.","No."); 118 ShipToAddr.DELETEALL; 119 120 SalesPrice.SETRANGE("Sales Type",SalesPrice."Sales Type"::Customer); 121 SalesPrice.SETRANGE("Sales Code","No."); 122 SalesPrice.DELETEALL; 123 124 SalesLineDisc.SETRANGE("Sales Type",SalesLineDisc."Sales Type"::Customer); 125 SalesLineDisc.SETRANGE("Sales Code","No."); 126 SalesLineDisc.DELETEALL; 127 128 SalesPrepmtPct.SETCURRENTKEY("Sales Type","Sales Code"); 129 SalesPrepmtPct.SETRANGE("Sales Type",SalesPrepmtPct."Sales Type"::Customer); 130 SalesPrepmtPct.SETRANGE("Sales Code","No."); 131 SalesPrepmtPct.DELETEALL; 132 133 StdCustSalesCode.SETRANGE("Customer No.","No."); 134 StdCustSalesCode.DELETEALL(TRUE); 135 136 ItemCrossReference.SETCURRENTKEY("Cross-Reference Type","Cross-Reference Type No."); 137 ItemCrossReference.SETRANGE("Cross-Reference Type",ItemCrossReference."Cross-Reference Type"::Customer); 138 ItemCrossReference.SETRANGE("Cross-Reference Type No.","No."); 139 ItemCrossReference.DELETEALL; 140 141 IF NOT SocialListeningSearchTopic.ISEMPTY THEN BEGIN 142 SocialListeningSearchTopic.FindSearchTopic(SocialListeningSearchTopic."Source Type"::Customer,"No."); 143 SocialListeningSearchTopic.DELETEALL; 144 END; 145 146 SalesOrderLine.SETCURRENTKEY("Document Type","Bill-to Customer No."); 147 SalesOrderLine.SETFILTER( 148 "Document Type",'%1|%2', 149 SalesOrderLine."Document Type"::Order, 150 SalesOrderLine."Document Type"::"Return Order"); 151 SalesOrderLine.SETRANGE("Bill-to Customer No.","No."); 152 IF SalesOrderLine.FINDFIRST THEN 153 ERROR( 154 Text000, 155 TABLECAPTION,"No.",SalesOrderLine."Document Type"); 156 157 SalesOrderLine.SETRANGE("Bill-to Customer No."); 158 SalesOrderLine.SETRANGE("Sell-to Customer No.","No."); 159 IF SalesOrderLine.FINDFIRST THEN 160 ERROR( 161 Text000, 162 TABLECAPTION,"No.",SalesOrderLine."Document Type"); 163 164 CampaignTargetGr.SETRANGE("No.","No."); 165 CampaignTargetGr.SETRANGE(Type,CampaignTargetGr.Type::Customer); 166 IF CampaignTargetGr.FIND('-') THEN BEGIN 167 ContactBusRel.SETRANGE("Link to Table",ContactBusRel."Link to Table"::Customer); 168 ContactBusRel.SETRANGE("No.","No."); 169 ContactBusRel.FINDFIRST; 170 REPEAT 171 CampaignTargetGrMgmt.ConverttoContact(Rec,ContactBusRel."Contact No."); 172 UNTIL CampaignTargetGr.NEXT = 0; 173 END; 174 175 ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled); 176 ServContract.SETRANGE("Customer No.","No."); 177 IF NOT ServContract.ISEMPTY THEN 178 ERROR( 179 Text007, 180 TABLECAPTION,"No."); 181 182 ServContract.SETRANGE(Status); 183 ServContract.MODIFYALL("Customer No.",''); 184 185 ServContract.SETFILTER(Status,'<>%1',ServContract.Status::Canceled); 186 ServContract.SETRANGE("Bill-to Customer No.","No."); 187 IF NOT ServContract.ISEMPTY THEN 188 ERROR( 189 Text007, 190 TABLECAPTION,"No."); 191 192 ServContract.SETRANGE(Status); 193 ServContract.MODIFYALL("Bill-to Customer No.",''); 194 195 ServHeader.SETCURRENTKEY("Customer No.","Order Date"); 196 ServHeader.SETRANGE("Customer No.","No."); 197 IF ServHeader.FINDFIRST THEN 198 ERROR( 199 Text013, 200 TABLECAPTION,"No.",ServHeader."Document Type"); 201 202 ServHeader.SETRANGE("Bill-to Customer No."); 203 IF ServHeader.FINDFIRST THEN 204 ERROR( 205 Text013, 206 TABLECAPTION,"No.",ServHeader."Document Type"); 207 208 UpdateContFromCust.OnDelete(Rec); 209 210 CustomReportSelection.SETRANGE("Source Type",DATABASE::Customer); 211 CustomReportSelection.SETRANGE("Source No.","No."); 212 CustomReportSelection.DELETEALL; 213 214 MyCustomer.SETRANGE("Customer No.","No."); 215 MyCustomer.DELETEALL; 216 VATRegistrationLogMgt.DeleteCustomerLog(Rec); 217 218 DimMgt.DeleteDefaultDim(DATABASE::Customer,"No."); 219 END; 220 221 OnRename=BEGIN 222 ApprovalsMgmt.RenameApprovalEntries(xRec.RECORDID,RECORDID); 223 "Last Date Modified" := TODAY; 224 END; 225 226 CaptionML=[DEU=Debitor; 227 ENU=Customer]; 228 LookupPageID=Page22; 229 DrillDownPageID=Page22; 230 } 231 FIELDS 232 { 233 { 1 ; ;No. ;Code20 ;OnValidate=BEGIN 234 235 IF "No." <> xRec."No." THEN BEGIN 236 SalesSetup.GET; 237 NoSeriesMgt.TestManual(SalesSetup."Customer Nos."); 238 "No. Series" := ''; 239 END; 240 IF "Invoice Disc. Code" = '' THEN 241 "Invoice Disc. Code" := "No."; 242 END; 243 244 AltSearchField=Search Name; 245 CaptionML=[DEU=Nr.; 246 ENU=No.] } 247 { 2 ; ;Name ;Text50 ;OnValidate=BEGIN 248 IF ("Search Name" = UPPERCASE(xRec.Name)) OR ("Search Name" = '') THEN 249 "Search Name" := Name; 250 END; 251 252 CaptionML=[DEU=Name; 253 ENU=Name] } 254 { 3 ; ;Search Name ;Code50 ;CaptionML=[DEU=Suchbegriff; 255 ENU=Search Name] } 256 { 4 ; ;Name 2 ;Text50 ;CaptionML=[DEU=Name 2; 257 ENU=Name 2] } 258 { 5 ; ;Address ;Text50 ;CaptionML=[DEU=Adresse; 259 ENU=Address] } 260 { 6 ; ;Address 2 ;Text50 ;CaptionML=[DEU=Adresse 2; 261 ENU=Address 2] } 262 { 7 ; ;City ;Text30 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code".City 263 ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code".City WHERE (Country/Region Code=FIELD(Country/Region Code)); 264 OnValidate=BEGIN 265 PostCode.ValidateCity(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED); 266 END; 267 268 ValidateTableRelation=No; 269 TestTableRelation=No; 270 CaptionML=[DEU=Ort; 271 ENU=City] } 272 { 8 ; ;Contact ;Text50 ;OnValidate=BEGIN 273 IF RMSetup.GET THEN 274 IF RMSetup."Bus. Rel. Code for Customers" <> '' THEN 275 IF (xRec.Contact = '') AND (xRec."Primary Contact No." = '') AND (Contact <> '') THEN BEGIN 276 MODIFY; 277 UpdateContFromCust.OnModify(Rec); 278 UpdateContFromCust.InsertNewContactPerson(Rec,FALSE); 279 MODIFY(TRUE); 280 END 281 END; 282 283 OnLookup=VAR 284 ContactBusinessRelation@1001 : Record 5054; 285 Cont@1000 : Record 5050; 286 BEGIN 287 ContactBusinessRelation.SETCURRENTKEY("Link to Table","No."); 288 ContactBusinessRelation.SETRANGE("Link to Table",ContactBusinessRelation."Link to Table"::Customer); 289 ContactBusinessRelation.SETRANGE("No.","No."); 290 IF ContactBusinessRelation.FINDFIRST THEN 291 Cont.SETRANGE("Company No.",ContactBusinessRelation."Contact No.") 292 ELSE 293 Cont.SETRANGE("Company No.",''); 294 295 IF "Primary Contact No." <> '' THEN 296 IF Cont.GET("Primary Contact No.") THEN ; 297 IF PAGE.RUNMODAL(0,Cont) = ACTION::LookupOK THEN 298 VALIDATE("Primary Contact No.",Cont."No."); 299 END; 300 301 CaptionML=[DEU=Kontakt; 302 ENU=Contact] } 303 { 9 ; ;Phone No. ;Text30 ;ExtendedDatatype=Phone No.; 304 CaptionML=[DEU=Telefonnr.; 305 ENU=Phone No.] } 306 { 10 ; ;Telex No. ;Text20 ;CaptionML=[DEU=Telexnr.; 307 ENU=Telex No.] } 308 { 11 ; ;Document Sending Profile;Code20 ;TableRelation="Document Sending Profile".Code; 309 CaptionML=[DEU=Belegsendeprofil; 310 ENU=Document Sending Profile] } 311 { 14 ; ;Our Account No. ;Text20 ;CaptionML=[DEU=Unsere Kontonr.; 312 ENU=Our Account No.] } 313 { 15 ; ;Territory Code ;Code10 ;TableRelation=Territory; 314 CaptionML=[DEU=Gebietscode; 315 ENU=Territory Code] } 316 { 16 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 317 OnValidate=BEGIN 318 ValidateShortcutDimCode(1,"Global Dimension 1 Code"); 319 END; 320 321 CaptionML=[DEU=Globaler Dimensionscode 1; 322 ENU=Global Dimension 1 Code]; 323 CaptionClass='1,1,1' } 324 { 17 ; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 325 OnValidate=BEGIN 326 ValidateShortcutDimCode(2,"Global Dimension 2 Code"); 327 END; 328 329 CaptionML=[DEU=Globaler Dimensionscode 2; 330 ENU=Global Dimension 2 Code]; 331 CaptionClass='1,1,2' } 332 { 18 ; ;Chain Name ;Code10 ;CaptionML=[DEU=Unternehmenskette; 333 ENU=Chain Name] } 334 { 19 ; ;Budgeted Amount ;Decimal ;CaptionML=[DEU=Budgetierter Betrag; 335 ENU=Budgeted Amount]; 336 AutoFormatType=1; 337 AutoFormatExpr="Currency Code" } 338 { 20 ; ;Credit Limit (LCY) ;Decimal ;CaptionML=[DEU=Kreditlimit (MW); 339 ENU=Credit Limit (LCY)]; 340 AutoFormatType=1 } 341 { 21 ; ;Customer Posting Group;Code10 ;TableRelation="Customer Posting Group"; 342 CaptionML=[DEU=Debitorenbuchungsgruppe; 343 ENU=Customer Posting Group] } 344 { 22 ; ;Currency Code ;Code10 ;TableRelation=Currency; 345 CaptionML=[DEU=Währungscode; 346 ENU=Currency Code] } 347 { 23 ; ;Customer Price Group;Code10 ;TableRelation="Customer Price Group"; 348 CaptionML=[DEU=Debitorenpreisgruppe; 349 ENU=Customer Price Group] } 350 { 24 ; ;Language Code ;Code10 ;TableRelation=Language; 351 CaptionML=[DEU=Sprachcode; 352 ENU=Language Code] } 353 { 26 ; ;Statistics Group ;Integer ;CaptionML=[DEU=Statistikgruppe; 354 ENU=Statistics Group] } 355 { 27 ; ;Payment Terms Code ;Code10 ;TableRelation="Payment Terms"; 356 CaptionML=[DEU=Zlg.-Bedingungscode; 357 ENU=Payment Terms Code] } 358 { 28 ; ;Fin. Charge Terms Code;Code10 ;TableRelation="Finance Charge Terms"; 359 CaptionML=[DEU=Zinskonditionencode; 360 ENU=Fin. Charge Terms Code] } 361 { 29 ; ;Salesperson Code ;Code10 ;TableRelation=Salesperson/Purchaser; 362 CaptionML=[DEU=Verkäufercode; 363 ENU=Salesperson Code] } 364 { 30 ; ;Shipment Method Code;Code10 ;TableRelation="Shipment Method"; 365 CaptionML=[DEU=Lieferbedingungscode; 366 ENU=Shipment Method Code] } 367 { 31 ; ;Shipping Agent Code ;Code10 ;TableRelation="Shipping Agent"; 368 OnValidate=BEGIN 369 IF "Shipping Agent Code" <> xRec."Shipping Agent Code" THEN 370 VALIDATE("Shipping Agent Service Code",''); 371 END; 372 373 AccessByPermission=TableData 5790=R; 374 CaptionML=[DEU=Zustellercode; 375 ENU=Shipping Agent Code] } 376 { 32 ; ;Place of Export ;Code20 ;CaptionML=[DEU=Transitstelle; 377 ENU=Place of Export] } 378 { 33 ; ;Invoice Disc. Code ;Code20 ;TableRelation=Customer; 379 ValidateTableRelation=No; 380 TestTableRelation=No; 381 CaptionML=[DEU=Rechnungsrabattcode; 382 ENU=Invoice Disc. Code] } 383 { 34 ; ;Customer Disc. Group;Code20 ;TableRelation="Customer Discount Group"; 384 CaptionML=[DEU=Debitorenrabattgruppe; 385 ENU=Customer Disc. Group] } 386 { 35 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region; 387 CaptionML=[DEU=Länder-/Regionscode; 388 ENU=Country/Region Code] } 389 { 36 ; ;Collection Method ;Code20 ;CaptionML=[DEU=Einzugsverfahren; 390 ENU=Collection Method] } 391 { 37 ; ;Amount ;Decimal ;CaptionML=[DEU=Betrag; 392 ENU=Amount]; 393 AutoFormatType=1; 394 AutoFormatExpr="Currency Code" } 395 { 38 ; ;Comment ;Boolean ;FieldClass=FlowField; 396 CalcFormula=Exist("Comment Line" WHERE (Table Name=CONST(Customer), 397 No.=FIELD(No.))); 398 CaptionML=[DEU=Bemerkung; 399 ENU=Comment]; 400 Editable=No } 401 { 39 ; ;Blocked ;Option ;CaptionML=[DEU=Gesperrt; 402 ENU=Blocked]; 403 OptionCaptionML=[DEU=" ,Liefern,Fakturieren,Alle"; 404 ENU=" ,Ship,Invoice,All"]; 405 OptionString=[ ,Ship,Invoice,All] } 406 { 40 ; ;Invoice Copies ;Integer ;CaptionML=[DEU=Anzahl Rechnungskopien; 407 ENU=Invoice Copies] } 408 { 41 ; ;Last Statement No. ;Integer ;CaptionML=[DEU=Letzte Kontoauszugsnr.; 409 ENU=Last Statement No.] } 410 { 42 ; ;Print Statements ;Boolean ;CaptionML=[DEU=Kontoauszüge drucken; 411 ENU=Print Statements] } 412 { 45 ; ;Bill-to Customer No.;Code20 ;TableRelation=Customer; 413 CaptionML=[DEU=Rech. an Deb.-Nr.; 414 ENU=Bill-to Customer No.] } 415 { 46 ; ;Priority ;Integer ;CaptionML=[DEU=Priorität; 416 ENU=Priority] } 417 { 47 ; ;Payment Method Code ;Code10 ;TableRelation="Payment Method"; 418 OnValidate=VAR 419 PaymentMethod@1000 : Record 289; 420 BEGIN 421 IF "Payment Method Code" = '' THEN 422 EXIT; 423 PaymentMethod.GET("Payment Method Code"); 424 IF PaymentMethod."Direct Debit" AND ("Payment Terms Code" = '') THEN 425 "Payment Terms Code" := PaymentMethod."Direct Debit Pmt. Terms Code"; 426 END; 427 428 CaptionML=[DEU=Zahlungsformcode; 429 ENU=Payment Method Code] } 430 { 54 ; ;Last Date Modified ;Date ;CaptionML=[DEU=Korrigiert am; 431 ENU=Last Date Modified]; 432 Editable=No } 433 { 55 ; ;Date Filter ;Date ;FieldClass=FlowFilter; 434 CaptionML=[DEU=Datumsfilter; 435 ENU=Date Filter] } 436 { 56 ; ;Global Dimension 1 Filter;Code20 ;FieldClass=FlowFilter; 437 TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 438 CaptionML=[DEU=Globaler Dimensionsfilter 1; 439 ENU=Global Dimension 1 Filter]; 440 CaptionClass='1,3,1' } 441 { 57 ; ;Global Dimension 2 Filter;Code20 ;FieldClass=FlowFilter; 442 TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 443 CaptionML=[DEU=Globaler Dimensionsfilter 2; 444 ENU=Global Dimension 2 Filter]; 445 CaptionClass='1,3,2' } 446 { 58 ; ;Balance ;Decimal ;FieldClass=FlowField; 447 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 448 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 449 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 450 Currency Code=FIELD(Currency Filter))); 451 CaptionML=[DEU=Saldo; 452 ENU=Balance]; 453 Editable=No; 454 AutoFormatType=1; 455 AutoFormatExpr="Currency Code" } 456 { 59 ; ;Balance (LCY) ;Decimal ;FieldClass=FlowField; 457 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 458 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 459 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 460 Currency Code=FIELD(Currency Filter))); 461 CaptionML=[DEU=Saldo (MW); 462 ENU=Balance (LCY)]; 463 Editable=No; 464 AutoFormatType=1 } 465 { 60 ; ;Net Change ;Decimal ;FieldClass=FlowField; 466 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 467 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 468 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 469 Posting Date=FIELD(Date Filter), 470 Currency Code=FIELD(Currency Filter))); 471 CaptionML=[DEU=Bewegung; 472 ENU=Net Change]; 473 Editable=No; 474 AutoFormatType=1; 475 AutoFormatExpr="Currency Code" } 476 { 61 ; ;Net Change (LCY) ;Decimal ;FieldClass=FlowField; 477 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 478 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 479 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 480 Posting Date=FIELD(Date Filter), 481 Currency Code=FIELD(Currency Filter))); 482 CaptionML=[DEU=Bewegung (MW); 483 ENU=Net Change (LCY)]; 484 Editable=No; 485 AutoFormatType=1 } 486 { 62 ; ;Sales (LCY) ;Decimal ;FieldClass=FlowField; 487 CalcFormula=Sum("Cust. Ledger Entry"."Sales (LCY)" WHERE (Customer No.=FIELD(No.), 488 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 489 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 490 Posting Date=FIELD(Date Filter), 491 Currency Code=FIELD(Currency Filter))); 492 CaptionML=[DEU=Verkauf (MW); 493 ENU=Sales (LCY)]; 494 Editable=No; 495 AutoFormatType=1 } 496 { 63 ; ;Profit (LCY) ;Decimal ;FieldClass=FlowField; 497 CalcFormula=Sum("Cust. Ledger Entry"."Profit (LCY)" WHERE (Customer No.=FIELD(No.), 498 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 499 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 500 Posting Date=FIELD(Date Filter), 501 Currency Code=FIELD(Currency Filter))); 502 CaptionML=[DEU=DB (MW); 503 ENU=Profit (LCY)]; 504 Editable=No; 505 AutoFormatType=1 } 506 { 64 ; ;Inv. Discounts (LCY);Decimal ;FieldClass=FlowField; 507 CalcFormula=Sum("Cust. Ledger Entry"."Inv. Discount (LCY)" WHERE (Customer No.=FIELD(No.), 508 Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), 509 Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), 510 Posting Date=FIELD(Date Filter), 511 Currency Code=FIELD(Currency Filter))); 512 CaptionML=[DEU=Rechnungsrabatte (MW); 513 ENU=Inv. Discounts (LCY)]; 514 Editable=No; 515 AutoFormatType=1 } 516 { 65 ; ;Pmt. Discounts (LCY);Decimal ;FieldClass=FlowField; 517 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 518 Entry Type=FILTER(Payment Discount..'Payment Discount (VAT Adjustment)'), 519 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 520 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 521 Posting Date=FIELD(Date Filter), 522 Currency Code=FIELD(Currency Filter))); 523 CaptionML=[DEU=Skonto (MW); 524 ENU=Pmt. Discounts (LCY)]; 525 Editable=No; 526 AutoFormatType=1 } 527 { 66 ; ;Balance Due ;Decimal ;FieldClass=FlowField; 528 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Customer No.=FIELD(No.), 529 Posting Date=FIELD(UPPERLIMIT(Date Filter)), 530 Initial Entry Due Date=FIELD(Date Filter), 531 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 532 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 533 Currency Code=FIELD(Currency Filter))); 534 CaptionML=[DEU=Fälliger Saldo; 535 ENU=Balance Due]; 536 Editable=No; 537 AutoFormatType=1; 538 AutoFormatExpr="Currency Code" } 539 { 67 ; ;Balance Due (LCY) ;Decimal ;FieldClass=FlowField; 540 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 541 Posting Date=FIELD(UPPERLIMIT(Date Filter)), 542 Initial Entry Due Date=FIELD(Date Filter), 543 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 544 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 545 Currency Code=FIELD(Currency Filter))); 546 CaptionML=[DEU=Fälliger Saldo (MW); 547 ENU=Balance Due (LCY)]; 548 Editable=No; 549 AutoFormatType=1 } 550 { 69 ; ;Payments ;Decimal ;FieldClass=FlowField; 551 CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Payment), 552 Entry Type=CONST(Initial Entry), 553 Customer No.=FIELD(No.), 554 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 555 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 556 Posting Date=FIELD(Date Filter), 557 Currency Code=FIELD(Currency Filter))); 558 CaptionML=[DEU=Zahlungen; 559 ENU=Payments]; 560 Editable=No; 561 AutoFormatType=1; 562 AutoFormatExpr="Currency Code" } 563 { 70 ; ;Invoice Amounts ;Decimal ;FieldClass=FlowField; 564 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Invoice), 565 Entry Type=CONST(Initial Entry), 566 Customer No.=FIELD(No.), 567 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 568 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 569 Posting Date=FIELD(Date Filter), 570 Currency Code=FIELD(Currency Filter))); 571 CaptionML=[DEU=Fakturierter Betrag; 572 ENU=Invoice Amounts]; 573 Editable=No; 574 AutoFormatType=1; 575 AutoFormatExpr="Currency Code" } 576 { 71 ; ;Cr. Memo Amounts ;Decimal ;FieldClass=FlowField; 577 CalcFormula=-Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Credit Memo), 578 Entry Type=CONST(Initial Entry), 579 Customer No.=FIELD(No.), 580 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 581 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 582 Posting Date=FIELD(Date Filter), 583 Currency Code=FIELD(Currency Filter))); 584 CaptionML=[DEU=Gutgeschriebener Betrag; 585 ENU=Cr. Memo Amounts]; 586 Editable=No; 587 AutoFormatType=1; 588 AutoFormatExpr="Currency Code" } 589 { 72 ; ;Finance Charge Memo Amounts;Decimal;FieldClass=FlowField; 590 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Finance Charge Memo), 591 Entry Type=CONST(Initial Entry), 592 Customer No.=FIELD(No.), 593 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 594 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 595 Posting Date=FIELD(Date Filter), 596 Currency Code=FIELD(Currency Filter))); 597 CaptionML=[DEU=Zinsrechnungsbetrag; 598 ENU=Finance Charge Memo Amounts]; 599 Editable=No; 600 AutoFormatType=1; 601 AutoFormatExpr="Currency Code" } 602 { 74 ; ;Payments (LCY) ;Decimal ;FieldClass=FlowField; 603 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Payment), 604 Entry Type=CONST(Initial Entry), 605 Customer No.=FIELD(No.), 606 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 607 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 608 Posting Date=FIELD(Date Filter), 609 Currency Code=FIELD(Currency Filter))); 610 CaptionML=[DEU=Bezahlt (MW); 611 ENU=Payments (LCY)]; 612 Editable=No; 613 AutoFormatType=1 } 614 { 75 ; ;Inv. Amounts (LCY) ;Decimal ;FieldClass=FlowField; 615 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Invoice), 616 Entry Type=CONST(Initial Entry), 617 Customer No.=FIELD(No.), 618 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 619 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 620 Posting Date=FIELD(Date Filter), 621 Currency Code=FIELD(Currency Filter))); 622 CaptionML=[DEU=Fakturierter Betrag (MW); 623 ENU=Inv. Amounts (LCY)]; 624 Editable=No; 625 AutoFormatType=1 } 626 { 76 ; ;Cr. Memo Amounts (LCY);Decimal ;FieldClass=FlowField; 627 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Credit Memo), 628 Entry Type=CONST(Initial Entry), 629 Customer No.=FIELD(No.), 630 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 631 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 632 Posting Date=FIELD(Date Filter), 633 Currency Code=FIELD(Currency Filter))); 634 CaptionML=[DEU=Gutgeschriebener Betrag (MW); 635 ENU=Cr. Memo Amounts (LCY)]; 636 Editable=No; 637 AutoFormatType=1 } 638 { 77 ; ;Fin. Charge Memo Amounts (LCY);Decimal; 639 FieldClass=FlowField; 640 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Finance Charge Memo), 641 Entry Type=CONST(Initial Entry), 642 Customer No.=FIELD(No.), 643 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 644 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 645 Posting Date=FIELD(Date Filter), 646 Currency Code=FIELD(Currency Filter))); 647 CaptionML=[DEU=Zinsrechnungsbetrag (MW); 648 ENU=Fin. Charge Memo Amounts (LCY)]; 649 Editable=No; 650 AutoFormatType=1 } 651 { 78 ; ;Outstanding Orders ;Decimal ;FieldClass=FlowField; 652 CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Order), 653 Bill-to Customer No.=FIELD(No.), 654 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 655 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 656 Currency Code=FIELD(Currency Filter))); 657 AccessByPermission=TableData 110=R; 658 CaptionML=[DEU=Auftragsbestand; 659 ENU=Outstanding Orders]; 660 Editable=No; 661 AutoFormatType=1; 662 AutoFormatExpr="Currency Code" } 663 { 79 ; ;Shipped Not Invoiced;Decimal ;FieldClass=FlowField; 664 CalcFormula=Sum("Sales Line"."Shipped Not Invoiced" WHERE (Document Type=CONST(Order), 665 Bill-to Customer No.=FIELD(No.), 666 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 667 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 668 Currency Code=FIELD(Currency Filter))); 669 AccessByPermission=TableData 110=R; 670 CaptionML=[DEU=Nicht fakt. Lieferungen; 671 ENU=Shipped Not Invoiced]; 672 Editable=No; 673 AutoFormatType=1; 674 AutoFormatExpr="Currency Code" } 675 { 80 ; ;Application Method ;Option ;CaptionML=[DEU=Ausgleichsmethode; 676 ENU=Application Method]; 677 OptionCaptionML=[DEU=Offener Posten,Saldomethode; 678 ENU=Manual,Apply to Oldest]; 679 OptionString=Manual,Apply to Oldest } 680 { 82 ; ;Prices Including VAT;Boolean ;CaptionML=[DEU=Preise inkl. MwSt.; 681 ENU=Prices Including VAT] } 682 { 83 ; ;Location Code ;Code10 ;TableRelation=Location WHERE (Use As In-Transit=CONST(No)); 683 CaptionML=[DEU=Lagerortcode; 684 ENU=Location Code] } 685 { 84 ; ;Fax No. ;Text30 ;CaptionML=[DEU=Faxnr.; 686 ENU=Fax No.] } 687 { 85 ; ;Telex Answer Back ;Text20 ;CaptionML=[DEU=Telex Namengeber; 688 ENU=Telex Answer Back] } 689 { 86 ; ;VAT Registration No.;Text20 ;OnValidate=VAR 690 VATRegNoFormat@1000 : Record 381; 691 VATRegistrationLogMgt@1002 : Codeunit 249; 692 BEGIN 693 IF VATRegNoFormat.Test("VAT Registration No.","Country/Region Code","No.",DATABASE::Customer) THEN 694 IF "VAT Registration No." <> xRec."VAT Registration No." THEN 695 VATRegistrationLogMgt.LogCustomer(Rec); 696 END; 697 698 CaptionML=[DEU=USt-IdNr.; 699 ENU=VAT Registration No.] } 700 { 87 ; ;Combine Shipments ;Boolean ;AccessByPermission=TableData 110=R; 701 CaptionML=[DEU=Sammelrechnung; 702 ENU=Combine Shipments] } 703 { 88 ; ;Gen. Bus. Posting Group;Code10 ;TableRelation="Gen. Business Posting Group"; 704 OnValidate=BEGIN 705 IF xRec."Gen. Bus. Posting Group" <> "Gen. Bus. Posting Group" THEN 706 IF GenBusPostingGrp.ValidateVatBusPostingGroup(GenBusPostingGrp,"Gen. Bus. Posting Group") THEN 707 VALIDATE("VAT Bus. Posting Group",GenBusPostingGrp."Def. VAT Bus. Posting Group"); 708 END; 709 710 CaptionML=[DEU=Geschäftsbuchungsgruppe; 711 ENU=Gen. Bus. Posting Group] } 712 { 89 ; ;Picture ;BLOB ;CaptionML=[DEU=Bild; 713 ENU=Picture]; 714 SubType=Bitmap } 715 { 90 ; ;GLN ;Code13 ;OnValidate=VAR 716 GLNCalculator@1000 : Codeunit 1607; 717 BEGIN 718 IF GLN <> '' THEN 719 GLNCalculator.AssertValidCheckDigit13(GLN); 720 END; 721 722 CaptionML=[DEU=GLN; 723 ENU=GLN]; 724 Numeric=Yes } 725 { 91 ; ;Post Code ;Code20 ;TableRelation=IF (Country/Region Code=CONST()) "Post Code" 726 ELSE IF (Country/Region Code=FILTER(<>'')) "Post Code" WHERE (Country/Region Code=FIELD(Country/Region Code)); 727 OnValidate=BEGIN 728 PostCode.ValidatePostCode(City,"Post Code",County,"Country/Region Code",(CurrFieldNo <> 0) AND GUIALLOWED); 729 END; 730 731 ValidateTableRelation=No; 732 TestTableRelation=No; 733 CaptionML=[DEU=PLZ-Code; 734 ENU=Post Code] } 735 { 92 ; ;County ;Text30 ;CaptionML=[DEU=Bundesregion; 736 ENU=County] } 737 { 97 ; ;Debit Amount ;Decimal ;FieldClass=FlowField; 738 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount" WHERE (Customer No.=FIELD(No.), 739 Entry Type=FILTER(<>Application), 740 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 741 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 742 Posting Date=FIELD(Date Filter), 743 Currency Code=FIELD(Currency Filter))); 744 CaptionML=[DEU=Sollbetrag; 745 ENU=Debit Amount]; 746 BlankZero=Yes; 747 Editable=No; 748 AutoFormatType=1; 749 AutoFormatExpr="Currency Code" } 750 { 98 ; ;Credit Amount ;Decimal ;FieldClass=FlowField; 751 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount" WHERE (Customer No.=FIELD(No.), 752 Entry Type=FILTER(<>Application), 753 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 754 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 755 Posting Date=FIELD(Date Filter), 756 Currency Code=FIELD(Currency Filter))); 757 CaptionML=[DEU=Habenbetrag; 758 ENU=Credit Amount]; 759 BlankZero=Yes; 760 Editable=No; 761 AutoFormatType=1; 762 AutoFormatExpr="Currency Code" } 763 { 99 ; ;Debit Amount (LCY) ;Decimal ;FieldClass=FlowField; 764 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Debit Amount (LCY)" WHERE (Customer No.=FIELD(No.), 765 Entry Type=FILTER(<>Application), 766 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 767 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 768 Posting Date=FIELD(Date Filter), 769 Currency Code=FIELD(Currency Filter))); 770 CaptionML=[DEU=Sollbetrag (MW); 771 ENU=Debit Amount (LCY)]; 772 BlankZero=Yes; 773 Editable=No; 774 AutoFormatType=1 } 775 { 100 ; ;Credit Amount (LCY) ;Decimal ;FieldClass=FlowField; 776 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Credit Amount (LCY)" WHERE (Customer No.=FIELD(No.), 777 Entry Type=FILTER(<>Application), 778 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 779 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 780 Posting Date=FIELD(Date Filter), 781 Currency Code=FIELD(Currency Filter))); 782 CaptionML=[DEU=Habenbetrag (MW); 783 ENU=Credit Amount (LCY)]; 784 BlankZero=Yes; 785 Editable=No; 786 AutoFormatType=1 } 787 { 102 ; ;E-Mail ;Text80 ;ExtendedDatatype=E-Mail; 788 CaptionML=[DEU=E-Mail; 789 ENU=Email] } 790 { 103 ; ;Home Page ;Text80 ;ExtendedDatatype=URL; 791 CaptionML=[DEU=Homepage; 792 ENU=Home Page] } 793 { 104 ; ;Reminder Terms Code ;Code10 ;TableRelation="Reminder Terms"; 794 CaptionML=[DEU=Mahnmethodencode; 795 ENU=Reminder Terms Code] } 796 { 105 ; ;Reminder Amounts ;Decimal ;FieldClass=FlowField; 797 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Reminder), 798 Entry Type=CONST(Initial Entry), 799 Customer No.=FIELD(No.), 800 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 801 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 802 Posting Date=FIELD(Date Filter), 803 Currency Code=FIELD(Currency Filter))); 804 CaptionML=[DEU=Mahnbetrag; 805 ENU=Reminder Amounts]; 806 Editable=No; 807 AutoFormatType=1; 808 AutoFormatExpr="Currency Code" } 809 { 106 ; ;Reminder Amounts (LCY);Decimal ;FieldClass=FlowField; 810 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Reminder), 811 Entry Type=CONST(Initial Entry), 812 Customer No.=FIELD(No.), 813 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 814 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 815 Posting Date=FIELD(Date Filter), 816 Currency Code=FIELD(Currency Filter))); 817 CaptionML=[DEU=Mahnbetrag (MW); 818 ENU=Reminder Amounts (LCY)]; 819 Editable=No; 820 AutoFormatType=1 } 821 { 107 ; ;No. Series ;Code10 ;TableRelation="No. Series"; 822 CaptionML=[DEU=Nummernserie; 823 ENU=No. Series]; 824 Editable=No } 825 { 108 ; ;Tax Area Code ;Code20 ;TableRelation="Tax Area"; 826 CaptionML=[DEU=Steuergebietscode; 827 ENU=Tax Area Code] } 828 { 109 ; ;Tax Liable ;Boolean ;CaptionML=[DEU=Steuerpflichtig; 829 ENU=Tax Liable] } 830 { 110 ; ;VAT Bus. Posting Group;Code10 ;TableRelation="VAT Business Posting Group"; 831 CaptionML=[DEU=MwSt.-Geschäftsbuchungsgruppe; 832 ENU=VAT Bus. Posting Group] } 833 { 111 ; ;Currency Filter ;Code10 ;FieldClass=FlowFilter; 834 TableRelation=Currency; 835 CaptionML=[DEU=Währungsfilter; 836 ENU=Currency Filter] } 837 { 113 ; ;Outstanding Orders (LCY);Decimal ;FieldClass=FlowField; 838 CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order), 839 Bill-to Customer No.=FIELD(No.), 840 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 841 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 842 Currency Code=FIELD(Currency Filter))); 843 AccessByPermission=TableData 110=R; 844 CaptionML=[DEU=Auftragsbestand (MW); 845 ENU=Outstanding Orders (LCY)]; 846 Editable=No; 847 AutoFormatType=1 } 848 { 114 ; ;Shipped Not Invoiced (LCY);Decimal ;FieldClass=FlowField; 849 CalcFormula=Sum("Sales Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order), 850 Bill-to Customer No.=FIELD(No.), 851 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 852 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 853 Currency Code=FIELD(Currency Filter))); 854 AccessByPermission=TableData 110=R; 855 CaptionML=[DEU=Nicht fakt. Lieferungen (MW); 856 ENU=Shipped Not Invoiced (LCY)]; 857 Editable=No; 858 AutoFormatType=1 } 859 { 115 ; ;Reserve ;Option ;InitValue=Optional; 860 AccessByPermission=TableData 110=R; 861 CaptionML=[DEU=Reservieren; 862 ENU=Reserve]; 863 OptionCaptionML=[DEU=Nie,Optional,Immer; 864 ENU=Never,Optional,Always]; 865 OptionString=Never,Optional,Always } 866 { 116 ; ;Block Payment Tolerance;Boolean ;OnValidate=BEGIN 867 UpdatePaymentTolerance((CurrFieldNo <> 0) AND GUIALLOWED); 868 END; 869 870 CaptionML=[DEU=Zahlungstoleranz sperren; 871 ENU=Block Payment Tolerance] } 872 { 117 ; ;Pmt. Disc. Tolerance (LCY);Decimal ;FieldClass=FlowField; 873 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 874 Entry Type=FILTER(Payment Discount Tolerance|'Payment Discount Tolerance (VAT Adjustment)'|'Payment Discount Tolerance (VAT Excl.)'), 875 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 876 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 877 Posting Date=FIELD(Date Filter), 878 Currency Code=FIELD(Currency Filter))); 879 CaptionML=[DEU=Skontotoleranz (MW); 880 ENU=Pmt. Disc. Tolerance (LCY)]; 881 Editable=No; 882 AutoFormatType=1 } 883 { 118 ; ;Pmt. Tolerance (LCY);Decimal ;FieldClass=FlowField; 884 CalcFormula=-Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Customer No.=FIELD(No.), 885 Entry Type=FILTER(Payment Tolerance|'Payment Tolerance (VAT Adjustment)'|'Payment Tolerance (VAT Excl.)'), 886 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 887 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 888 Posting Date=FIELD(Date Filter), 889 Currency Code=FIELD(Currency Filter))); 890 CaptionML=[DEU=Zahlungstoleranz (MW); 891 ENU=Pmt. Tolerance (LCY)]; 892 Editable=No; 893 AutoFormatType=1 } 894 { 119 ; ;IC Partner Code ;Code20 ;TableRelation="IC Partner"; 895 OnValidate=VAR 896 CustLedgEntry@1001 : Record 21; 897 AccountingPeriod@1000 : Record 50; 898 ICPartner@1002 : Record 413; 899 BEGIN 900 IF xRec."IC Partner Code" <> "IC Partner Code" THEN BEGIN 901 902 903 904 905 906 907 908 909 910 911 IF NOT CustLedgEntry.SETCURRENTKEY("Customer No.",Open) THEN 912 CustLedgEntry.SETCURRENTKEY("Customer No."); 913 CustLedgEntry.SETRANGE("Customer No.","No."); 914 CustLedgEntry.SETRANGE(Open,TRUE); 915 IF CustLedgEntry.FINDLAST THEN 916 ERROR(Text012,FIELDCAPTION("IC Partner Code"),TABLECAPTION); 917 918 CustLedgEntry.RESET; 919 CustLedgEntry.SETCURRENTKEY("Customer No.","Posting Date"); 920 CustLedgEntry.SETRANGE("Customer No.","No."); 921 AccountingPeriod.SETRANGE(Closed,FALSE); 922 IF AccountingPeriod.FINDFIRST THEN BEGIN 923 CustLedgEntry.SETFILTER("Posting Date",'>=%1',AccountingPeriod."Starting Date"); 924 IF CustLedgEntry.FINDFIRST THEN 925 IF NOT CONFIRM(Text011,FALSE,TABLECAPTION) THEN 926 "IC Partner Code" := xRec."IC Partner Code"; 927 END; 928 END; 929 930 IF "IC Partner Code" <> '' THEN BEGIN 931 ICPartner.GET("IC Partner Code"); 932 IF (ICPartner."Customer No." <> '') AND (ICPartner."Customer No." <> "No.") THEN 933 ERROR(Text010,FIELDCAPTION("IC Partner Code"),"IC Partner Code",TABLECAPTION,ICPartner."Customer No."); 934 ICPartner."Customer No." := "No."; 935 ICPartner.MODIFY; 936 END; 937 938 IF (xRec."IC Partner Code" <> "IC Partner Code") AND ICPartner.GET(xRec."IC Partner Code") THEN BEGIN 939 ICPartner."Customer No." := ''; 940 ICPartner.MODIFY; 941 END; 942 END; 943 944 CaptionML=[DEU=IC-Partnercode; 945 ENU=IC Partner Code] } 946 { 120 ; ;Refunds ;Decimal ;FieldClass=FlowField; 947 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(Refund), 948 Entry Type=CONST(Initial Entry), 949 Customer No.=FIELD(No.), 950 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 951 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 952 Posting Date=FIELD(Date Filter), 953 Currency Code=FIELD(Currency Filter))); 954 CaptionML=[DEU=Erstattungen; 955 ENU=Refunds] } 956 { 121 ; ;Refunds (LCY) ;Decimal ;FieldClass=FlowField; 957 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(Refund), 958 Entry Type=CONST(Initial Entry), 959 Customer No.=FIELD(No.), 960 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 961 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 962 Posting Date=FIELD(Date Filter), 963 Currency Code=FIELD(Currency Filter))); 964 CaptionML=[DEU=Erstattungen (MW); 965 ENU=Refunds (LCY)] } 966 { 122 ; ;Other Amounts ;Decimal ;FieldClass=FlowField; 967 CalcFormula=Sum("Detailed Cust. Ledg. Entry".Amount WHERE (Initial Document Type=CONST(" "), 968 Entry Type=CONST(Initial Entry), 969 Customer No.=FIELD(No.), 970 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 971 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 972 Posting Date=FIELD(Date Filter), 973 Currency Code=FIELD(Currency Filter))); 974 CaptionML=[DEU=Weitere Beträge; 975 ENU=Other Amounts] } 976 { 123 ; ;Other Amounts (LCY) ;Decimal ;FieldClass=FlowField; 977 CalcFormula=Sum("Detailed Cust. Ledg. Entry"."Amount (LCY)" WHERE (Initial Document Type=CONST(" "), 978 Entry Type=CONST(Initial Entry), 979 Customer No.=FIELD(No.), 980 Initial Entry Global Dim. 1=FIELD(Global Dimension 1 Filter), 981 Initial Entry Global Dim. 2=FIELD(Global Dimension 2 Filter), 982 Posting Date=FIELD(Date Filter), 983 Currency Code=FIELD(Currency Filter))); 984 CaptionML=[DEU=Weitere Beträge (MW); 985 ENU=Other Amounts (LCY)] } 986 { 124 ; ;Prepayment % ;Decimal ;CaptionML=[DEU=Vorauszahlung %; 987 ENU=Prepayment %]; 988 DecimalPlaces=0:5; 989 MinValue=0; 990 MaxValue=100 } 991 { 125 ; ;Outstanding Invoices (LCY);Decimal ;FieldClass=FlowField; 992 CalcFormula=Sum("Sales Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice), 993 Bill-to Customer No.=FIELD(No.), 994 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 995 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 996 Currency Code=FIELD(Currency Filter))); 997 AccessByPermission=TableData 110=R; 998 CaptionML=[DEU=Ausstehende Rechnungen (MW); 999 ENU=Outstanding Invoices (LCY)]; 1000 Editable=No; 1001 AutoFormatType=1 } 1002 { 126 ; ;Outstanding Invoices;Decimal ;FieldClass=FlowField; 1003 CalcFormula=Sum("Sales Line"."Outstanding Amount" WHERE (Document Type=CONST(Invoice), 1004 Bill-to Customer No.=FIELD(No.), 1005 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1006 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1007 Currency Code=FIELD(Currency Filter))); 1008 AccessByPermission=TableData 110=R; 1009 CaptionML=[DEU=Ausstehende Rechnungen; 1010 ENU=Outstanding Invoices]; 1011 Editable=No; 1012 AutoFormatType=1; 1013 AutoFormatExpr="Currency Code" } 1014 { 130 ; ;Bill-to No. Of Archived Doc.;Integer; 1015 FieldClass=FlowField; 1016 CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order), 1017 Bill-to Customer No.=FIELD(No.))); 1018 CaptionML=[DEU=Anzahl archivierter Belege für Rech. an; 1019 ENU=Bill-to No. Of Archived Doc.] } 1020 { 131 ; ;Sell-to No. Of Archived Doc.;Integer; 1021 FieldClass=FlowField; 1022 CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order), 1023 Sell-to Customer No.=FIELD(No.))); 1024 CaptionML=[DEU=Anzahl archivierter Belege für Verk. an; 1025 ENU=Sell-to No. Of Archived Doc.] } 1026 { 132 ; ;Partner Type ;Option ;CaptionML=[DEU=Partnerart; 1027 ENU=Partner Type]; 1028 OptionCaptionML=[DEU=" ,Unternehmen,Person"; 1029 ENU=" ,Company,Person"]; 1030 OptionString=[ ,Company,Person] } 1031 { 140 ; ;Image ;Media ;ExtendedDatatype=Person; 1032 CaptionML=[DEU=Image; 1033 ENU=Image] } 1034 { 288 ; ;Preferred Bank Account Code;Code10 ;TableRelation="Customer Bank Account".Code WHERE (Customer No.=FIELD(No.)); 1035 CaptionML=[DEU=Bevorzugter Bankkontocode; 1036 ENU=Preferred Bank Account Code] } 1037 { 840 ; ;Cash Flow Payment Terms Code;Code10;TableRelation="Payment Terms"; 1038 CaptionML=[DEU=Cashflow - Zlg.-Bedingungscode; 1039 ENU=Cash Flow Payment Terms Code] } 1040 { 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact; 1041 OnValidate=VAR 1042 Cont@1000 : Record 5050; 1043 ContBusRel@1001 : Record 5054; 1044 BEGIN 1045 Contact := ''; 1046 IF "Primary Contact No." <> '' THEN BEGIN 1047 Cont.GET("Primary Contact No."); 1048 1049 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1050 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1051 ContBusRel.SETRANGE("No.","No."); 1052 ContBusRel.FINDFIRST; 1053 1054 IF Cont."Company No." <> ContBusRel."Contact No." THEN 1055 ERROR(Text003,Cont."No.",Cont.Name,"No.",Name); 1056 1057 IF Cont.Type = Cont.Type::Person THEN 1058 Contact := Cont.Name 1059 END; 1060 END; 1061 1062 OnLookup=VAR 1063 Cont@1000 : Record 5050; 1064 ContBusRel@1001 : Record 5054; 1065 TempCust@1002 : TEMPORARY Record 18; 1066 BEGIN 1067 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1068 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1069 ContBusRel.SETRANGE("No.","No."); 1070 IF ContBusRel.FINDFIRST THEN 1071 Cont.SETRANGE("Company No.",ContBusRel."Contact No.") 1072 ELSE 1073 Cont.SETRANGE("No.",''); 1074 1075 IF "Primary Contact No." <> '' THEN 1076 IF Cont.GET("Primary Contact No.") THEN ; 1077 IF PAGE.RUNMODAL(0,Cont) = ACTION::LookupOK THEN BEGIN 1078 TempCust.COPY(Rec); 1079 FIND; 1080 TRANSFERFIELDS(TempCust,FALSE); 1081 VALIDATE("Primary Contact No.",Cont."No."); 1082 END; 1083 END; 1084 1085 CaptionML=[DEU=Primäre Kontaktnr.; 1086 ENU=Primary Contact No.] } 1087 { 5700; ;Responsibility Center;Code10 ;TableRelation="Responsibility Center"; 1088 CaptionML=[DEU=Zuständigkeitseinheitencode; 1089 ENU=Responsibility Center] } 1090 { 5750; ;Shipping Advice ;Option ;AccessByPermission=TableData 110=R; 1091 CaptionML=[DEU=Versandanweisung; 1092 ENU=Shipping Advice]; 1093 OptionCaptionML=[DEU=Teillieferung,Komplettlieferung; 1094 ENU=Partial,Complete]; 1095 OptionString=Partial,Complete } 1096 { 5790; ;Shipping Time ;DateFormula ;AccessByPermission=TableData 5790=R; 1097 CaptionML=[DEU=Transportzeit; 1098 ENU=Shipping Time] } 1099 { 5792; ;Shipping Agent Service Code;Code10 ;TableRelation="Shipping Agent Services".Code WHERE (Shipping Agent Code=FIELD(Shipping Agent Code)); 1100 OnValidate=BEGIN 1101 IF ("Shipping Agent Code" <> '') AND 1102 ("Shipping Agent Service Code" <> '') 1103 THEN 1104 IF ShippingAgentService.GET("Shipping Agent Code","Shipping Agent Service Code") THEN 1105 "Shipping Time" := ShippingAgentService."Shipping Time" 1106 ELSE 1107 EVALUATE("Shipping Time",'<>'); 1108 END; 1109 1110 CaptionML=[DEU=Zustellertransportartencode; 1111 ENU=Shipping Agent Service Code] } 1112 { 5900; ;Service Zone Code ;Code10 ;TableRelation="Service Zone"; 1113 CaptionML=[DEU=Servicegebietscode; 1114 ENU=Service Zone Code] } 1115 { 5902; ;Contract Gain/Loss Amount;Decimal ;FieldClass=FlowField; 1116 CalcFormula=Sum("Contract Gain/Loss Entry".Amount WHERE (Customer No.=FIELD(No.), 1117 Ship-to Code=FIELD(Ship-to Filter), 1118 Change Date=FIELD(Date Filter))); 1119 CaptionML=[DEU=Gewinn-/Verlustbetrag (Vertr.); 1120 ENU=Contract Gain/Loss Amount]; 1121 Editable=No; 1122 AutoFormatType=1 } 1123 { 5903; ;Ship-to Filter ;Code10 ;FieldClass=FlowFilter; 1124 TableRelation="Ship-to Address".Code WHERE (Customer No.=FIELD(No.)); 1125 CaptionML=[DEU=Lief. an Filter; 1126 ENU=Ship-to Filter] } 1127 { 5910; ;Outstanding Serv. Orders (LCY);Decimal; 1128 FieldClass=FlowField; 1129 CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Order), 1130 Bill-to Customer No.=FIELD(No.), 1131 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1132 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1133 Currency Code=FIELD(Currency Filter))); 1134 CaptionML=[DEU=Serviceauftragsbestand (MW); 1135 ENU=Outstanding Serv. Orders (LCY)]; 1136 Editable=No; 1137 AutoFormatType=1 } 1138 { 5911; ;Serv Shipped Not Invoiced(LCY);Decimal; 1139 FieldClass=FlowField; 1140 CalcFormula=Sum("Service Line"."Shipped Not Invoiced (LCY)" WHERE (Document Type=CONST(Order), 1141 Bill-to Customer No.=FIELD(No.), 1142 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1143 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1144 Currency Code=FIELD(Currency Filter))); 1145 CaptionML=[DEU=Service Lief. nicht fakt. Betrag (MW); 1146 ENU=Serv Shipped Not Invoiced(LCY)]; 1147 Editable=No; 1148 AutoFormatType=1 } 1149 { 5912; ;Outstanding Serv.Invoices(LCY);Decimal; 1150 FieldClass=FlowField; 1151 CalcFormula=Sum("Service Line"."Outstanding Amount (LCY)" WHERE (Document Type=CONST(Invoice), 1152 Bill-to Customer No.=FIELD(No.), 1153 Shortcut Dimension 1 Code=FIELD(Global Dimension 1 Filter), 1154 Shortcut Dimension 2 Code=FIELD(Global Dimension 2 Filter), 1155 Currency Code=FIELD(Currency Filter))); 1156 CaptionML=[DEU=Ausstehende Servicerechnungen (MW); 1157 ENU=Outstanding Serv.Invoices(LCY)]; 1158 Editable=No; 1159 AutoFormatType=1 } 1160 { 7001; ;Allow Line Disc. ;Boolean ;InitValue=Yes; 1161 CaptionML=[DEU=Zeilenrabatt zulassen; 1162 ENU=Allow Line Disc.] } 1163 { 7171; ;No. of Quotes ;Integer ;FieldClass=FlowField; 1164 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote), 1165 Sell-to Customer No.=FIELD(No.))); 1166 CaptionML=[DEU=Anzahl Angebote; 1167 ENU=No. of Quotes]; 1168 Editable=No } 1169 { 7172; ;No. of Blanket Orders;Integer ;FieldClass=FlowField; 1170 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order), 1171 Sell-to Customer No.=FIELD(No.))); 1172 AccessByPermission=TableData 110=R; 1173 CaptionML=[DEU=Anzahl Rahmenaufträge; 1174 ENU=No. of Blanket Orders]; 1175 Editable=No } 1176 { 7173; ;No. of Orders ;Integer ;FieldClass=FlowField; 1177 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order), 1178 Sell-to Customer No.=FIELD(No.))); 1179 AccessByPermission=TableData 110=R; 1180 CaptionML=[DEU=Anzahl Aufträge; 1181 ENU=No. of Orders]; 1182 Editable=No } 1183 { 7174; ;No. of Invoices ;Integer ;FieldClass=FlowField; 1184 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice), 1185 Sell-to Customer No.=FIELD(No.))); 1186 CaptionML=[DEU=Anzahl Rechnungen; 1187 ENU=No. of Invoices]; 1188 Editable=No } 1189 { 7175; ;No. of Return Orders;Integer ;FieldClass=FlowField; 1190 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order), 1191 Sell-to Customer No.=FIELD(No.))); 1192 AccessByPermission=TableData 6660=R; 1193 CaptionML=[DEU=Anzahl Reklamationen; 1194 ENU=No. of Return Orders]; 1195 Editable=No } 1196 { 7176; ;No. of Credit Memos ;Integer ;FieldClass=FlowField; 1197 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo), 1198 Sell-to Customer No.=FIELD(No.))); 1199 CaptionML=[DEU=Anzahl Gutschriften; 1200 ENU=No. of Credit Memos]; 1201 Editable=No } 1202 { 7177; ;No. of Pstd. Shipments;Integer ;FieldClass=FlowField; 1203 CalcFormula=Count("Sales Shipment Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1204 CaptionML=[DEU=Anzahl gebuchter Lieferungen; 1205 ENU=No. of Pstd. Shipments]; 1206 Editable=No } 1207 { 7178; ;No. of Pstd. Invoices;Integer ;FieldClass=FlowField; 1208 CalcFormula=Count("Sales Invoice Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1209 CaptionML=[DEU=Anzahl gebuchter Rechnungen; 1210 ENU=No. of Pstd. Invoices]; 1211 Editable=No } 1212 { 7179; ;No. of Pstd. Return Receipts;Integer; 1213 FieldClass=FlowField; 1214 CalcFormula=Count("Return Receipt Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1215 CaptionML=[DEU=Anz. gebuchter Rücksendungen; 1216 ENU=No. of Pstd. Return Receipts]; 1217 Editable=No } 1218 { 7180; ;No. of Pstd. Credit Memos;Integer ;FieldClass=FlowField; 1219 CalcFormula=Count("Sales Cr.Memo Header" WHERE (Sell-to Customer No.=FIELD(No.))); 1220 CaptionML=[DEU=Anzahl gebuchter Gutschriften; 1221 ENU=No. of Pstd. Credit Memos]; 1222 Editable=No } 1223 { 7181; ;No. of Ship-to Addresses;Integer ;FieldClass=FlowField; 1224 CalcFormula=Count("Ship-to Address" WHERE (Customer No.=FIELD(No.))); 1225 CaptionML=[DEU=Anzahl Lieferadressen; 1226 ENU=No. of Ship-to Addresses]; 1227 Editable=No } 1228 { 7182; ;Bill-To No. of Quotes;Integer ;FieldClass=FlowField; 1229 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Quote), 1230 Bill-to Customer No.=FIELD(No.))); 1231 CaptionML=[DEU=Anzahl Angebote für Rechnungsadresse; 1232 ENU=Bill-To No. of Quotes]; 1233 Editable=No } 1234 { 7183; ;Bill-To No. of Blanket Orders;Integer; 1235 FieldClass=FlowField; 1236 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Blanket Order), 1237 Bill-to Customer No.=FIELD(No.))); 1238 AccessByPermission=TableData 110=R; 1239 CaptionML=[DEU=Anzahl Rahmenaufträge für Rechnungsadresse; 1240 ENU=Bill-To No. of Blanket Orders]; 1241 Editable=No } 1242 { 7184; ;Bill-To No. of Orders;Integer ;FieldClass=FlowField; 1243 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Order), 1244 Bill-to Customer No.=FIELD(No.))); 1245 AccessByPermission=TableData 110=R; 1246 CaptionML=[DEU=Anzahl Aufträge für Rechnungsadresse; 1247 ENU=Bill-To No. of Orders]; 1248 Editable=No } 1249 { 7185; ;Bill-To No. of Invoices;Integer ;FieldClass=FlowField; 1250 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Invoice), 1251 Bill-to Customer No.=FIELD(No.))); 1252 CaptionML=[DEU=Anzahl Rechungen für Rechnungsadresse; 1253 ENU=Bill-To No. of Invoices]; 1254 Editable=No } 1255 { 7186; ;Bill-To No. of Return Orders;Integer; 1256 FieldClass=FlowField; 1257 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Return Order), 1258 Bill-to Customer No.=FIELD(No.))); 1259 AccessByPermission=TableData 6660=R; 1260 CaptionML=[DEU=Anzahl Reklamationen für Rechnungsadresse; 1261 ENU=Bill-To No. of Return Orders]; 1262 Editable=No } 1263 { 7187; ;Bill-To No. of Credit Memos;Integer;FieldClass=FlowField; 1264 CalcFormula=Count("Sales Header" WHERE (Document Type=CONST(Credit Memo), 1265 Bill-to Customer No.=FIELD(No.))); 1266 CaptionML=[DEU=Anzahl Gutschriften für Rechnungsadresse; 1267 ENU=Bill-To No. of Credit Memos]; 1268 Editable=No } 1269 { 7188; ;Bill-To No. of Pstd. Shipments;Integer; 1270 FieldClass=FlowField; 1271 CalcFormula=Count("Sales Shipment Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1272 CaptionML=[DEU=Anzahl gebuchter Lieferungen für Rechnungsadresse; 1273 ENU=Bill-To No. of Pstd. Shipments]; 1274 Editable=No } 1275 { 7189; ;Bill-To No. of Pstd. Invoices;Integer; 1276 FieldClass=FlowField; 1277 CalcFormula=Count("Sales Invoice Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1278 CaptionML=[DEU=Anzahl gebuchter Rechnungen für Rechnungsadresse; 1279 ENU=Bill-To No. of Pstd. Invoices]; 1280 Editable=No } 1281 { 7190; ;Bill-To No. of Pstd. Return R.;Integer; 1282 FieldClass=FlowField; 1283 CalcFormula=Count("Return Receipt Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1284 CaptionML=[DEU=Anzahl geb. Retourenbel. für Rechnungsadresse; 1285 ENU=Bill-To No. of Pstd. Return R.]; 1286 Editable=No } 1287 { 7191; ;Bill-To No. of Pstd. Cr. Memos;Integer; 1288 FieldClass=FlowField; 1289 CalcFormula=Count("Sales Cr.Memo Header" WHERE (Bill-to Customer No.=FIELD(No.))); 1290 CaptionML=[DEU=Anz. geb. Gutschr. für Rechnungsadresse; 1291 ENU=Bill-To No. of Pstd. Cr. Memos]; 1292 Editable=No } 1293 { 7600; ;Base Calendar Code ;Code10 ;TableRelation="Base Calendar"; 1294 CaptionML=[DEU=Basiskalendercode; 1295 ENU=Base Calendar Code] } 1296 { 7601; ;Copy Sell-to Addr. to Qte From;Option; 1297 AccessByPermission=TableData 5050=R; 1298 CaptionML=[DEU=Verk. an Adr. in Ang. v. kop.; 1299 ENU=Copy Sell-to Addr. to Qte From]; 1300 OptionCaptionML=[DEU=Unternehmen,Person; 1301 ENU=Company,Person]; 1302 OptionString=Company,Person } 1303 } 1304 KEYS 1305 { 1306 { ;No. ;Clustered=Yes } 1307 { ;Search Name } 1308 { ;Customer Posting Group } 1309 { ;Currency Code } 1310 { ;Country/Region Code } 1311 { ;Gen. Bus. Posting Group } 1312 { ;Name,Address,City } 1313 { ;VAT Registration No. } 1314 { ;Name } 1315 { ;City } 1316 { ;Post Code } 1317 { ;Phone No. } 1318 { ;Contact } 1319 } 1320 FIELDGROUPS 1321 { 1322 { 1 ;DropDown ;No.,Name,City,Post Code,Phone No.,Contact } 1323 { 2 ;Brick ;No.,Name,Balance (LCY),Contact,Balance Due (LCY),Image } 1324 } 1325 CODE 1326 { 1327 VAR 1328 Text000@1000 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da noch ein(e) %3 (oder mehrere) für diesen Debitor vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one outstanding Sales %3 for this customer.'; 1329 Text002@1001 : TextConst 'DEU=Möchten Sie einen Kontakt für %1 %2 erstellen?;ENU=Do you wish to create a contact for %1 %2?'; 1330 SalesSetup@1002 : Record 311; 1331 CommentLine@1004 : Record 97; 1332 SalesOrderLine@1005 : Record 37; 1333 CustBankAcc@1006 : Record 287; 1334 ShipToAddr@1007 : Record 222; 1335 PostCode@1008 : Record 225; 1336 GenBusPostingGrp@1009 : Record 250; 1337 ShippingAgentService@1010 : Record 5790; 1338 ItemCrossReference@1016 : Record 5717; 1339 RMSetup@1018 : Record 5079; 1340 SalesPrice@1021 : Record 7002; 1341 SalesLineDisc@1022 : Record 7004; 1342 SalesPrepmtPct@1003 : Record 459; 1343 ServContract@1026 : Record 5965; 1344 1345 ServiceItem@1027 : Record 5940; 1346 PaymentToleranceMgt@1038 : Codeunit 426; 1347 NoSeriesMgt@1011 : Codeunit 396; 1348 MoveEntries@1012 : Codeunit 361; 1349 UpdateContFromCust@1013 : Codeunit 5056; 1350 DimMgt@1014 : Codeunit 408; 1351 ApprovalsMgmt@1039 : Codeunit 1535; 1352 InsertFromContact@1015 : Boolean; 1353 Text003@1020 : TextConst 'DEU=Kontakt %1 %2 ist nicht mit Debitor %3 %4 verknüpft.;ENU=Contact %1 %2 is not related to customer %3 %4.'; 1354 Text004@1023 : TextConst 'DEU=buchen;ENU=post'; 1355 Text005@1024 : TextConst 'DEU=erstellen;ENU=create'; 1356 Text006@1025 : TextConst 'DEU=Sie können diese Belegart nicht %1, wenn der Debitor %2 für die Art %3 gesperrt ist.;ENU=You cannot %1 this type of document when Customer %2 is blocked with type %3'; 1357 Text007@1028 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da für diesen Debitor mindestens ein nicht stornierter Servicevertrag vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one not cancelled Service Contract for this customer.'; 1358 Text008@1029 : TextConst 'DEU=Wenn Sie %1 %2 löschen, wird die %3 für die verknüpften Serviceartikel ebenfalls gelöscht. Möchten Sie fortfahren?;ENU=Deleting the %1 %2 will cause the %3 to be deleted for the associated Service Items. Do you want to continue?'; 1359 Text009@1030 : TextConst 'DEU=Debitor kann nicht gelöscht werden.;ENU=Cannot delete customer.'; 1360 Text010@1031 : TextConst 'DEU=%1 %2 wurde %3 %4 zugewiesen.\Derselbe %1 kann nicht auf mehr als einen %3 eingegeben werden. Geben Sie einen anderen Code ein.;ENU=The %1 %2 has been assigned to %3 %4.\The same %1 cannot be entered on more than one %3. Enter another code.'; 1361 Text011@1033 : TextConst 'DEU=Das Abstimmen von IC-Buchungen kann schwierig sein, wenn Sie den IC-Partnercode ändern, weil %1 Posten in einem noch nicht geschlossenen Geschäftsjahr aufweist.\ Möchten Sie den IC-Partnercode trotzdem ändern?;ENU=Reconciling IC transactions may be difficult if you change IC Partner Code because this %1 has ledger entries in a fiscal year that has not yet been closed.\ Do you still want to change the IC Partner Code?'; 1362 Text012@1032 : TextConst 'DEU=Sie können den Inhalt des Feldes %1 nicht ändern, weil für dieses %2 ein oder mehrere offene Posten vorliegen.;ENU=You cannot change the contents of the %1 field because this %2 has one or more open ledger entries.'; 1363 Text013@1035 : TextConst 'DEU=Sie können %1 %2 nicht löschen, da noch mindestens ein ausstehender Service-%3 für diesen Debitor vorhanden ist.;ENU=You cannot delete %1 %2 because there is at least one outstanding Service %3 for this customer.'; 1364 Text014@1017 : TextConst 'DEU=Bevor Sie Online Map verwenden können, müssen Sie die Felder des Fensters ''Online Map-Einrichtung'' ausfüllen.\Informationen hierzu finden Sie in der Hilfe zum Einrichten von Online Map.;ENU=Before you can use Online Map, you must fill in the Online Map Setup window.\See Setting Up Online Map in Help.'; 1365 Text015@1036 : TextConst 'DEU=%1 ''%2'' kann nicht gelöscht werden, da dem Debitor mindestens ein Objekt vom Typ %3 zugeordnet ist.;ENU=You cannot delete %1 %2 because there is at least one %3 associated to this customer.'; 1366 AllowPaymentToleranceQst@1037 : TextConst 'DEU=Möchten Sie Zahlungstoleranzen für momentan offene Posten zulassen?;ENU=Do you want to allow payment tolerance for entries that are currently open?'; 1367 RemovePaymentRoleranceQst@1019 : TextConst 'DEU=Möchten Sie Zahlungstoleranzen für momentan offene Posten löschen?;ENU=Do you want to remove payment tolerance from entries that are currently open?'; 1368 CreateNewCustTxt@1041 : TextConst '@@@="%1 is the name to be used to create the customer. ";DEU=Erstellt eine neue Debitorenkarte für %1;ENU=Create a new customer card for %1'; 1369 SelectCustErr@1040 : TextConst 'DEU=Sie müssen einen vorhandenen Debitor auswählen.;ENU=You must select an existing customer.'; 1370 CustNotRegisteredTxt@1042 : TextConst 'DEU=Dieser Debitor ist nicht registriert. Zum Fortfahren wählen Sie eine der folgenden Optionen:;ENU=This customer is not registered. To continue, choose one of the following options:'; 1371 SelectCustTxt@1043 : TextConst 'DEU=Wählt einen vorhandenen Debitor aus;ENU=Select an existing customer'; 1372 InsertFromTemplate@1044 : Boolean; 1373 LookupRequested@1034 : Boolean; 1374 1375 PROCEDURE AssistEdit@2(OldCust@1000 : Record 18) : Boolean; 1376 VAR 1377 Cust@1001 : Record 18; 1378 BEGIN 1379 WITH Cust DO BEGIN 1380 Cust := Rec; 1381 SalesSetup.GET; 1382 SalesSetup.TESTFIELD("Customer Nos."); 1383 IF NoSeriesMgt.SelectSeries(SalesSetup."Customer Nos.",OldCust."No. Series","No. Series") THEN BEGIN 1384 NoSeriesMgt.SetSeries("No."); 1385 Rec := Cust; 1386 EXIT(TRUE); 1387 END; 1388 END; 1389 END; 1390 1391 LOCAL PROCEDURE ValidateShortcutDimCode@29(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]); 1392 BEGIN 1393 DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode); 1394 DimMgt.SaveDefaultDim(DATABASE::Customer,"No.",FieldNumber,ShortcutDimCode); 1395 MODIFY; 1396 END; 1397 1398 PROCEDURE ShowContact@1(); 1399 VAR 1400 ContBusRel@1000 : Record 5054; 1401 Cont@1001 : Record 5050; 1402 OfficeContact@1002 : Record 5050; 1403 OfficeMgt@1003 : Codeunit 1630; 1404 BEGIN 1405 IF OfficeMgt.GetContact(OfficeContact,"No.") AND (OfficeContact.COUNT = 1) THEN 1406 PAGE.RUN(PAGE::"Contact Card",OfficeContact) 1407 ELSE BEGIN 1408 IF "No." = '' THEN 1409 1410 1411 1412 1413 EXIT; 1414 1415 1416 1417 1418 1419 ContBusRel.SETCURRENTKEY("Link to Table","No."); 1420 ContBusRel.SETRANGE("Link to Table",ContBusRel."Link to Table"::Customer); 1421 ContBusRel.SETRANGE("No.","No."); 1422 IF NOT ContBusRel.FINDFIRST THEN BEGIN 1423 IF NOT CONFIRM(Text002,FALSE,TABLECAPTION,"No.") THEN 1424 EXIT; 1425 UpdateContFromCust.InsertNewContact(Rec,FALSE); 1426 ContBusRel.FINDFIRST; 1427 END; 1428 COMMIT; 1429 1430 Cont.SETCURRENTKEY("Company Name","Company No.",Type,Name); 1431 Cont.SETRANGE("Company No.",ContBusRel."Contact No."); 1432 PAGE.RUN(PAGE::"Contact List",Cont); 1433 END; 1434 END; 1435 1436 PROCEDURE SetInsertFromContact@3(FromContact@1000 : Boolean); 1437 BEGIN 1438 InsertFromContact := FromContact; 1439 END; 1440 1441 PROCEDURE CheckBlockedCustOnDocs@5(Cust2@1000 : Record 18;DocType@1001 : 'Quote,Order,Invoice,Credit Memo,Blanket Order,Return Order';Shipment@1005 : Boolean;Transaction@1003 : Boolean); 1442 BEGIN 1443 WITH Cust2 DO BEGIN 1444 IF ((Blocked = Blocked::All) OR 1445 ((Blocked = Blocked::Invoice) AND 1446 (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"])) OR 1447 ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::"Blanket Order"]) AND 1448 (NOT Transaction)) OR 1449 ((Blocked = Blocked::Ship) AND (DocType IN [DocType::Quote,DocType::Order,DocType::Invoice,DocType::"Blanket Order"]) AND 1450 Shipment AND Transaction)) 1451 THEN 1452 CustBlockedErrorMessage(Cust2,Transaction); 1453 END; 1454 END; 1455 1456 PROCEDURE CheckBlockedCustOnJnls@7(Cust2@1003 : Record 18;DocType@1002 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund';Transaction@1000 : Boolean); 1457 BEGIN 1458 WITH Cust2 DO BEGIN 1459 IF (Blocked = Blocked::All) OR 1460 ((Blocked = Blocked::Invoice) AND (DocType IN [DocType::Invoice,DocType::" "])) 1461 THEN 1462 CustBlockedErrorMessage(Cust2,Transaction) 1463 END; 1464 END; 1465 1466 PROCEDURE CustBlockedErrorMessage@4(Cust2@1001 : Record 18;Transaction@1000 : Boolean); 1467 VAR 1468 Action@1002 : Text[30]; 1469 BEGIN 1470 IF Transaction THEN 1471 Action := Text004 1472 ELSE 1473 Action := Text005; 1474 ERROR(Text006,Action,Cust2."No.",Cust2.Blocked); 1475 END; 1476 1477 PROCEDURE DisplayMap@8(); 1478 VAR 1479 MapPoint@1001 : Record 800; 1480 MapMgt@1000 : Codeunit 802; 1481 BEGIN 1482 IF MapPoint.FINDFIRST THEN 1483 MapMgt.MakeSelection(DATABASE::Customer,GETPOSITION) 1484 ELSE 1485 MESSAGE(Text014); 1486 END; 1487 1488 PROCEDURE GetTotalAmountLCY@10() : Decimal; 1489 BEGIN 1490 CALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)", 1491 "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)"); 1492 1493 EXIT(GetTotalAmountLCYCommon); 1494 END; 1495 1496 PROCEDURE GetTotalAmountLCYUI@16() : Decimal; 1497 BEGIN 1498 SETAUTOCALCFIELDS("Balance (LCY)","Outstanding Orders (LCY)","Shipped Not Invoiced (LCY)","Outstanding Invoices (LCY)", 1499 "Outstanding Serv. Orders (LCY)","Serv Shipped Not Invoiced(LCY)","Outstanding Serv.Invoices(LCY)"); 1500 1501 EXIT(GetTotalAmountLCYCommon); 1502 END; 1503 1504 LOCAL PROCEDURE GetTotalAmountLCYCommon@17() : Decimal; 1505 VAR 1506 SalesLine@1000 : Record 37; 1507 ServiceLine@1002 : Record 5902; 1508 SalesOutstandingAmountFromShipment@1001 : Decimal; 1509 ServOutstandingAmountFromShipment@1003 : Decimal; 1510 InvoicedPrepmtAmountLCY@1004 : Decimal; 1511 BEGIN 1512 SalesOutstandingAmountFromShipment := SalesLine.OutstandingInvoiceAmountFromShipment("No."); 1513 ServOutstandingAmountFromShipment := ServiceLine.OutstandingInvoiceAmountFromShipment("No."); 1514 InvoicedPrepmtAmountLCY := GetInvoicedPrepmtAmountLCY; 1515 1516 EXIT("Balance (LCY)" + "Outstanding Orders (LCY)" + "Shipped Not Invoiced (LCY)" + "Outstanding Invoices (LCY)" + 1517 "Outstanding Serv. Orders (LCY)" + "Serv Shipped Not Invoiced(LCY)" + "Outstanding Serv.Invoices(LCY)" - 1518 SalesOutstandingAmountFromShipment - ServOutstandingAmountFromShipment - InvoicedPrepmtAmountLCY); 1519 END; 1520 1521 PROCEDURE GetSalesLCY@13() : Decimal; 1522 VAR 1523 CustomerSalesYTD@1005 : Record 18; 1524 AccountingPeriod@1004 : Record 50; 1525 StartDate@1001 : Date; 1526 EndDate@1000 : Date; 1527 BEGIN 1528 StartDate := AccountingPeriod.GetFiscalYearStartDate(WORKDATE); 1529 EndDate := AccountingPeriod.GetFiscalYearEndDate(WORKDATE); 1530 CustomerSalesYTD := Rec; 1531 CustomerSalesYTD."SECURITYFILTERING"("SECURITYFILTERING"); 1532 CustomerSalesYTD.SETRANGE("Date Filter",StartDate,EndDate); 1533 CustomerSalesYTD.CALCFIELDS("Sales (LCY)"); 1534 EXIT(CustomerSalesYTD."Sales (LCY)"); 1535 END; 1536 1537 PROCEDURE CalcAvailableCredit@9() : Decimal; 1538 BEGIN 1539 EXIT(CalcAvailableCreditCommon(FALSE)); 1540 END; 1541 1542 PROCEDURE CalcAvailableCreditUI@15() : Decimal; 1543 BEGIN 1544 EXIT(CalcAvailableCreditCommon(TRUE)); 1545 END; 1546 1547 LOCAL PROCEDURE CalcAvailableCreditCommon@14(CalledFromUI@1000 : Boolean) : Decimal; 1548 BEGIN 1549 IF "Credit Limit (LCY)" = 0 THEN 1550 EXIT(0); 1551 IF CalledFromUI THEN 1552 EXIT("Credit Limit (LCY)" - GetTotalAmountLCYUI); 1553 EXIT("Credit Limit (LCY)" - GetTotalAmountLCY); 1554 END; 1555 1556 PROCEDURE CalcOverdueBalance@11() OverDueBalance : Decimal; 1557 VAR 1558 CustLedgEntryRemainAmtQuery@1000 : Query 21 SECURITYFILTERING(Filtered); 1559 BEGIN 1560 CustLedgEntryRemainAmtQuery.SETRANGE(Customer_No,"No."); 1561 CustLedgEntryRemainAmtQuery.SETRANGE(IsOpen,TRUE); 1562 CustLedgEntryRemainAmtQuery.SETFILTER(Due_Date,'<%1',WORKDATE); 1563 CustLedgEntryRemainAmtQuery.OPEN; 1564 1565 IF CustLedgEntryRemainAmtQuery.READ THEN 1566 OverDueBalance := CustLedgEntryRemainAmtQuery.Sum_Remaining_Amt_LCY; 1567 END; 1568 1569 PROCEDURE GetLegalEntityType@6() : Text; 1570 BEGIN 1571 EXIT(FORMAT("Partner Type")); 1572 END; 1573 1574 PROCEDURE GetLegalEntityTypeLbl@26() : Text; 1575 BEGIN 1576 EXIT(FIELDCAPTION("Partner Type")); 1577 END; 1578 1579 PROCEDURE SetStyle@12() : Text; 1580 BEGIN 1581 IF CalcAvailableCredit < 0 THEN 1582 EXIT('Unfavorable'); 1583 EXIT(''); 1584 END; 1585 1586 PROCEDURE HasValidDDMandate@23(Date@1000 : Date) : Boolean; 1587 VAR 1588 SEPADirectDebitMandate@1001 : Record 1230; 1589 BEGIN 1590 EXIT(SEPADirectDebitMandate.GetDefaultMandate("No.",Date) <> ''); 1591 END; 1592 1593 PROCEDURE GetInvoicedPrepmtAmountLCY@18() : Decimal; 1594 VAR 1595 SalesLine@1000 : Record 37; 1596 BEGIN 1597 SalesLine.SETCURRENTKEY("Document Type","Bill-to Customer No."); 1598 SalesLine.SETRANGE("Document Type",SalesLine."Document Type"::Order); 1599 SalesLine.SETRANGE("Bill-to Customer No.","No."); 1600 SalesLine.CALCSUMS("Prepmt. Amount Inv. (LCY)","Prepmt. VAT Amount Inv. (LCY)"); 1601 EXIT(SalesLine."Prepmt. Amount Inv. (LCY)" + SalesLine."Prepmt. VAT Amount Inv. (LCY)"); 1602 END; 1603 1604 PROCEDURE CalcCreditLimitLCYExpendedPct@19() : Decimal; 1605 BEGIN 1606 IF "Credit Limit (LCY)" = 0 THEN 1607 EXIT(0); 1608 1609 IF "Balance (LCY)" / "Credit Limit (LCY)" < 0 THEN 1610 EXIT(0); 1611 1612 IF "Balance (LCY)" / "Credit Limit (LCY)" > 1 THEN 1613 EXIT(10000); 1614 1615 EXIT(ROUND("Balance (LCY)" / "Credit Limit (LCY)" * 10000,1)); 1616 END; 1617 1618 PROCEDURE CreateAndShowNewInvoice@21(); 1619 VAR 1620 SalesHeader@1000 : Record 36; 1621 BEGIN 1622 SalesHeader."Document Type" := SalesHeader."Document Type"::Invoice; 1623 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1624 SalesHeader.INSERT(TRUE); 1625 COMMIT; 1626 PAGE.RUN(PAGE::"Sales Invoice",SalesHeader) 1627 END; 1628 1629 PROCEDURE CreateAndShowNewOrder@30(); 1630 VAR 1631 SalesHeader@1000 : Record 36; 1632 BEGIN 1633 SalesHeader."Document Type" := SalesHeader."Document Type"::Order; 1634 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1635 SalesHeader.INSERT(TRUE); 1636 COMMIT; 1637 PAGE.RUN(PAGE::"Sales Order",SalesHeader) 1638 END; 1639 1640 PROCEDURE CreateAndShowNewCreditMemo@22(); 1641 VAR 1642 SalesHeader@1000 : Record 36; 1643 BEGIN 1644 SalesHeader."Document Type" := SalesHeader."Document Type"::"Credit Memo"; 1645 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1646 SalesHeader.INSERT(TRUE); 1647 COMMIT; 1648 PAGE.RUN(PAGE::"Sales Credit Memo",SalesHeader) 1649 END; 1650 1651 PROCEDURE CreateAndShowNewQuote@24(); 1652 VAR 1653 SalesHeader@1000 : Record 36; 1654 BEGIN 1655 SalesHeader."Document Type" := SalesHeader."Document Type"::Quote; 1656 SalesHeader.SETRANGE("Sell-to Customer No.","No."); 1657 SalesHeader.INSERT(TRUE); 1658 COMMIT; 1659 PAGE.RUN(PAGE::"Sales Quote",SalesHeader) 1660 END; 1661 1662 LOCAL PROCEDURE UpdatePaymentTolerance@20(UseDialog@1000 : Boolean); 1663 BEGIN 1664 IF "Block Payment Tolerance" THEN BEGIN 1665 IF UseDialog THEN 1666 IF NOT CONFIRM(RemovePaymentRoleranceQst,FALSE) THEN 1667 EXIT; 1668 PaymentToleranceMgt.DelTolCustLedgEntry(Rec); 1669 END ELSE BEGIN 1670 IF UseDialog THEN 1671 IF NOT CONFIRM(AllowPaymentToleranceQst,FALSE) THEN 1672 EXIT; 1673 PaymentToleranceMgt.CalcTolCustLedgEntry(Rec); 1674 END; 1675 END; 1676 1677 PROCEDURE GetBillToCustomerNo@27() : Code[20]; 1678 BEGIN 1679 IF "Bill-to Customer No." <> '' THEN 1680 EXIT("Bill-to Customer No."); 1681 EXIT("No."); 1682 END; 1683 1684 PROCEDURE HasAddress@25() : Boolean; 1685 BEGIN 1686 CASE TRUE OF 1687 Address <> '': 1688 EXIT(TRUE); 1689 "Address 2" <> '': 1690 EXIT(TRUE); 1691 City <> '': 1692 EXIT(TRUE); 1693 "Country/Region Code" <> '': 1694 EXIT(TRUE); 1695 County <> '': 1696 EXIT(TRUE); 1697 "Post Code" <> '': 1698 EXIT(TRUE); 1699 Contact <> '': 1700 EXIT(TRUE); 1701 END; 1702 1703 EXIT(FALSE); 1704 END; 1705 1706 PROCEDURE GetCustNo@44(CustomerText@1000 : Text) : Text; 1707 BEGIN 1708 EXIT(GetCustNoOpenCard(CustomerText,TRUE)); 1709 END; 1710 1711 PROCEDURE GetCustNoOpenCard@36(CustomerText@1000 : Text;ShowCustomerCard@1006 : Boolean) : Code[20]; 1712 VAR 1713 Customer@1001 : Record 18; 1714 CustomerNo@1002 : Code[20]; 1715 CustomerWithoutQuote@1005 : Text; 1716 CustomerFilterFromStart@1004 : Text; 1717 CustomerFilterContains@1003 : Text; 1718 BEGIN 1719 IF CustomerText = '' THEN 1720 EXIT(''); 1721 1722 IF STRLEN(CustomerText) <= MAXSTRLEN(Customer."No.") THEN 1723 IF Customer.GET(COPYSTR(CustomerText,1,MAXSTRLEN(Customer."No."))) THEN 1724 EXIT(Customer."No."); 1725 1726 CustomerWithoutQuote := CONVERTSTR(CustomerText,'''','?'); 1727 1728 Customer.SETFILTER(Name,'''@' + CustomerWithoutQuote + ''''); 1729 IF Customer.FINDFIRST THEN 1730 EXIT(Customer."No."); 1731 Customer.SETRANGE(Name); 1732 1733 CustomerFilterFromStart := '''@' + CustomerWithoutQuote + '*'''; 1734 1735 Customer.FILTERGROUP := -1; 1736 Customer.SETFILTER("No.",CustomerFilterFromStart); 1737 1738 Customer.SETFILTER(Name,CustomerFilterFromStart); 1739 1740 IF Customer.FINDFIRST THEN 1741 EXIT(Customer."No."); 1742 1743 CustomerFilterContains := '''@*' + CustomerWithoutQuote + '*'''; 1744 1745 Customer.SETFILTER("No.",CustomerFilterContains); 1746 Customer.SETFILTER(Name,CustomerFilterContains); 1747 Customer.SETFILTER(City,CustomerFilterContains); 1748 Customer.SETFILTER(Contact,CustomerFilterContains); 1749 Customer.SETFILTER("Phone No.",CustomerFilterContains); 1750 Customer.SETFILTER("Post Code",CustomerFilterContains); 1751 1752 IF Customer.COUNT = 0 THEN 1753 MarkCustomersWithSimilarName(Customer,CustomerText); 1754 1755 IF Customer.COUNT = 1 THEN BEGIN 1756 Customer.FINDFIRST; 1757 EXIT(Customer."No."); 1758 END; 1759 1760 IF NOT GUIALLOWED THEN 1761 ERROR(SelectCustErr); 1762 1763 IF Customer.COUNT = 0 THEN BEGIN 1764 IF Customer.WRITEPERMISSION THEN 1765 CASE STRMENU( 1766 STRSUBSTNO( 1767 '%1,%2',STRSUBSTNO(CreateNewCustTxt,CONVERTSTR(CustomerText,',','.')),SelectCustTxt),1,CustNotRegisteredTxt) OF 1768 0: 1769 ERROR(SelectCustErr); 1770 1: 1771 EXIT(CreateNewCustomer(COPYSTR(CustomerText,1,MAXSTRLEN(Customer.Name)),ShowCustomerCard)); 1772 END; 1773 Customer.RESET; 1774 END; 1775 1776 IF ShowCustomerCard THEN 1777 CustomerNo := PickCustomer(Customer) 1778 ELSE BEGIN 1779 LookupRequested := TRUE; 1780 EXIT(''); 1781 END; 1782 1783 IF CustomerNo <> '' THEN 1784 EXIT(CustomerNo); 1785 1786 ERROR(SelectCustErr); 1787 END; 1788 1789 LOCAL PROCEDURE MarkCustomersWithSimilarName@33(VAR Customer@1001 : Record 18;CustomerText@1000 : Text); 1790 VAR 1791 TypeHelper@1002 : Codeunit 10; 1792 CustomerCount@1003 : Integer; 1793 CustomerTextLenght@1004 : Integer; 1794 Treshold@1005 : Integer; 1795 BEGIN 1796 IF CustomerText = '' THEN 1797 EXIT; 1798 IF STRLEN(CustomerText) > MAXSTRLEN(Customer.Name) THEN 1799 EXIT; 1800 CustomerTextLenght := STRLEN(CustomerText); 1801 Treshold := CustomerTextLenght DIV 5; 1802 IF Treshold = 0 THEN 1803 EXIT; 1804 1805 Customer.RESET; 1806 Customer.ASCENDING(FALSE); // most likely to search for newest customers 1807 IF Customer.FINDSET THEN 1808 REPEAT 1809 CustomerCount += 1; 1810 IF ABS(CustomerTextLenght - STRLEN(Customer.Name)) <= Treshold THEN 1811 IF TypeHelper.TextDistance(UPPERCASE(CustomerText),UPPERCASE(Customer.Name)) <= Treshold THEN 1812 Customer.MARK(TRUE); 1813 UNTIL Customer.MARK OR (Customer.NEXT = 0) OR (CustomerCount > 1000); 1814 Customer.MARKEDONLY(TRUE); 1815 END; 1816 1817 LOCAL PROCEDURE CreateNewCustomer@28(CustomerName@1000 : Text[50];ShowCustomerCard@1001 : Boolean) : Code[20]; 1818 VAR 1819 Customer@1005 : Record 18; 1820 MiniCustomerTemplate@1006 : Record 1300; 1821 CustomerCard@1002 : Page 21; 1822 BEGIN 1823 IF NOT MiniCustomerTemplate.NewCustomerFromTemplate(Customer) THEN 1824 Customer.INSERT(TRUE); 1825 1826 Customer.Name := CustomerName; 1827 Customer.MODIFY(TRUE); 1828 COMMIT; 1829 IF NOT ShowCustomerCard THEN 1830 EXIT(Customer."No."); 1831 Customer.SETRANGE("No.",Customer."No."); 1832 CustomerCard.SETTABLEVIEW(Customer); 1833 IF NOT (CustomerCard.RUNMODAL = ACTION::OK) THEN 1834 ERROR(SelectCustErr); 1835 1836 EXIT(Customer."No."); 1837 END; 1838 1839 LOCAL PROCEDURE PickCustomer@51(VAR Customer@1000 : Record 18) : Code[20]; 1840 VAR 1841 CustomerList@1001 : Page 22; 1842 BEGIN 1843 IF Customer.FINDSET THEN 1844 REPEAT 1845 Customer.MARK(TRUE); 1846 UNTIL Customer.NEXT = 0; 1847 IF Customer.FINDFIRST THEN; 1848 Customer.MARKEDONLY := TRUE; 1849 1850 CustomerList.SETTABLEVIEW(Customer); 1851 CustomerList.SETRECORD(Customer); 1852 CustomerList.LOOKUPMODE := TRUE; 1853 IF CustomerList.RUNMODAL = ACTION::LookupOK THEN 1854 CustomerList.GETRECORD(Customer) 1855 ELSE 1856 CLEAR(Customer); 1857 1858 EXIT(Customer."No."); 1859 END; 1860 1861 PROCEDURE OpenCustomerLedgerEntries@31(FilterOnDueEntries@1002 : Boolean); 1862 VAR 1863 DetailedCustLedgEntry@1001 : Record 379; 1864 CustLedgerEntry@1000 : Record 21; 1865 BEGIN 1866 DetailedCustLedgEntry.SETRANGE("Customer No.","No."); 1867 COPYFILTER("Global Dimension 1 Filter",DetailedCustLedgEntry."Initial Entry Global Dim. 1"); 1868 COPYFILTER("Global Dimension 2 Filter",DetailedCustLedgEntry."Initial Entry Global Dim. 2"); 1869 IF FilterOnDueEntries AND (GETFILTER("Date Filter") <> '') THEN BEGIN 1870 COPYFILTER("Date Filter",DetailedCustLedgEntry."Initial Entry Due Date"); 1871 DetailedCustLedgEntry.SETFILTER("Posting Date",'<=%1',GETRANGEMAX("Date Filter")); 1872 END; 1873 COPYFILTER("Currency Filter",DetailedCustLedgEntry."Currency Code"); 1874 CustLedgerEntry.DrillDownOnEntries(DetailedCustLedgEntry); 1875 END; 1876 1877 PROCEDURE SetInsertFromTemplate@32(FromTemplate@1000 : Boolean); 1878 BEGIN 1879 InsertFromTemplate := FromTemplate; 1880 END; 1881 1882 PROCEDURE IsLookupRequested@34() Result : Boolean; 1883 BEGIN 1884 Result := LookupRequested; 1885 LookupRequested := FALSE; 1886 END; 1887 1888 BEGIN 1889 END. 1890 } 1891 } 1892
|
|
Dynamics NAV Table (Source): Item Ledger Entry -> Dynamics NAV Table (Target): Item Ledger Entry | ||
|
Dynamics NAV
Table (Source): Item Ledger Entry 1 OBJECT Table 32 Item Ledger Entry 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=15.09.15; 6 Time=12:00:00; 7 Version List=NAVW19.00; 8 } 9 PROPERTIES 10 { 11 OnInsert=VAR 12 GenJnlPostPreview@1000 : Codeunit 19; 13 BEGIN 14 GenJnlPostPreview.SaveItemLedgEntry(Rec); 15 END; 16 17 CaptionML=[DEU=Artikelposten; 18 ENU=Item Ledger Entry]; 19 LookupPageID=Page38; 20 DrillDownPageID=Page38; 21 } 22 FIELDS 23 { 24 { 1 ; ;Entry No. ;Integer ;CaptionML=[DEU=Lfd. Nr.; 25 ENU=Entry No.] } 26 { 2 ; ;Item No. ;Code20 ;TableRelation=Item; 27 CaptionML=[DEU=Artikelnr.; 28 ENU=Item No.] } 29 { 3 ; ;Posting Date ;Date ;CaptionML=[DEU=Buchungsdatum; 30 ENU=Posting Date] } 31 { 4 ; ;Entry Type ;Option ;CaptionML=[DEU=Postenart; 32 ENU=Entry Type]; 33 OptionCaptionML=[DEU=Einkauf,Verkauf,Zugang,Abgang,Umlagerung,Verbrauch,Istmeldung, ,Verbrauch für Montage,Montage-Istmeldung; 34 ENU=Purchase,Sale,Positive Adjmt.,Negative Adjmt.,Transfer,Consumption,Output, ,Assembly Consumption,Assembly Output]; 35 OptionString=Purchase,Sale,Positive Adjmt.,Negative Adjmt.,Transfer,Consumption,Output, ,Assembly Consumption,Assembly Output } 36 { 5 ; ;Source No. ;Code20 ;TableRelation=IF (Source Type=CONST(Customer)) Customer 37 ELSE IF (Source Type=CONST(Vendor)) Vendor 38 ELSE IF (Source Type=CONST(Item)) Item; 39 CaptionML=[DEU=Herkunftsnr.; 40 ENU=Source No.] } 41 { 6 ; ;Document No. ;Code20 ;CaptionML=[DEU=Belegnr.; 42 ENU=Document No.] } 43 { 7 ; ;Description ;Text50 ;CaptionML=[DEU=Beschreibung; 44 ENU=Description] } 45 { 8 ; ;Location Code ;Code10 ;TableRelation=Location; 46 CaptionML=[DEU=Lagerortcode; 47 ENU=Location Code] } 48 { 12 ; ;Quantity ;Decimal ;CaptionML=[DEU=Menge; 49 ENU=Quantity]; 50 DecimalPlaces=0:5 } 51 { 13 ; ;Remaining Quantity ;Decimal ;CaptionML=[DEU=Restmenge; 52 ENU=Remaining Quantity]; 53 DecimalPlaces=0:5 } 54 { 14 ; ;Invoiced Quantity ;Decimal ;CaptionML=[DEU=Fakturierte Menge; 55 ENU=Invoiced Quantity]; 56 DecimalPlaces=0:5 } 57 { 28 ; ;Applies-to Entry ;Integer ;CaptionML=[DEU=Ausgleich mit Lfd. Nr.; 58 ENU=Applies-to Entry] } 59 { 29 ; ;Open ;Boolean ;CaptionML=[DEU=Offen; 60 ENU=Open] } 61 { 33 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 62 CaptionML=[DEU=Globaler Dimensionscode 1; 63 ENU=Global Dimension 1 Code]; 64 CaptionClass='1,1,1' } 65 { 34 ; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 66 CaptionML=[DEU=Globaler Dimensionscode 2; 67 ENU=Global Dimension 2 Code]; 68 CaptionClass='1,1,2' } 69 { 36 ; ;Positive ;Boolean ;CaptionML=[DEU=Positiv; 70 ENU=Positive] } 71 { 41 ; ;Source Type ;Option ;CaptionML=[DEU=Herkunftsart; 72 ENU=Source Type]; 73 OptionCaptionML=[DEU=" ,Debitor,Kreditor,Artikel"; 74 ENU=" ,Customer,Vendor,Item"]; 75 OptionString=[ ,Customer,Vendor,Item] } 76 { 47 ; ;Drop Shipment ;Boolean ;AccessByPermission=TableData 223=R; 77 CaptionML=[DEU=Direktlieferung; 78 ENU=Drop Shipment] } 79 { 50 ; ;Transaction Type ;Code10 ;TableRelation="Transaction Type"; 80 CaptionML=[DEU=Art des Geschäftes; 81 ENU=Transaction Type] } 82 { 51 ; ;Transport Method ;Code10 ;TableRelation="Transport Method"; 83 CaptionML=[DEU=Verkehrszweig; 84 ENU=Transport Method] } 85 { 52 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region; 86 CaptionML=[DEU=Länder-/Regionscode; 87 ENU=Country/Region Code] } 88 { 59 ; ;Entry/Exit Point ;Code10 ;TableRelation="Entry/Exit Point"; 89 CaptionML=[DEU=Hafen; 90 ENU=Entry/Exit Point] } 91 { 60 ; ;Document Date ;Date ;CaptionML=[DEU=Belegdatum; 92 ENU=Document Date] } 93 { 61 ; ;External Document No.;Code35 ;CaptionML=[DEU=Externe Belegnummer; 94 ENU=External Document No.] } 95 { 62 ; ;Area ;Code10 ;TableRelation=Area; 96 CaptionML=[DEU=Bundesland; 97 ENU=Area] } 98 { 63 ; ;Transaction Specification;Code10 ;TableRelation="Transaction Specification"; 99 CaptionML=[DEU=Verfahren; 100 ENU=Transaction Specification] } 101 { 64 ; ;No. Series ;Code10 ;TableRelation="No. Series"; 102 CaptionML=[DEU=Nummernserie; 103 ENU=No. Series] } 104 { 70 ; ;Reserved Quantity ;Decimal ;FieldClass=FlowField; 105 CalcFormula=Sum("Reservation Entry"."Quantity (Base)" WHERE (Source ID=CONST(), 106 Source Ref. No.=FIELD(Entry No.), 107 Source Type=CONST(32), 108 Source Subtype=CONST(0), 109 Source Batch Name=CONST(), 110 Source Prod. Order Line=CONST(0), 111 Reservation Status=CONST(Reservation))); 112 AccessByPermission=TableData 120=R; 113 CaptionML=[DEU=Reservierte Menge; 114 ENU=Reserved Quantity]; 115 DecimalPlaces=0:5; 116 Editable=No } 117 { 79 ; ;Document Type ;Option ;CaptionML=[DEU=Belegart; 118 ENU=Document Type]; 119 OptionCaptionML=[DEU=" ,Verkaufslieferung,Verkaufsrechnung,Verkaufsrücksendung,Verkaufsgutschrift,Einkaufslieferung,Einkaufsrechnung,Rücklieferung,Einkaufsgutschrift,Umlagerungsausgang,Umlagerungseingang,Servicelieferung,Servicerechnung,Servicegutschrift,Gebuchte Montage"; 120 ENU=" ,Sales Shipment,Sales Invoice,Sales Return Receipt,Sales Credit Memo,Purchase Receipt,Purchase Invoice,Purchase Return Shipment,Purchase Credit Memo,Transfer Shipment,Transfer Receipt,Service Shipment,Service Invoice,Service Credit Memo,Posted Assembly"]; 121 OptionString=[ ,Sales Shipment,Sales Invoice,Sales Return Receipt,Sales Credit Memo,Purchase Receipt,Purchase Invoice,Purchase Return Shipment,Purchase Credit Memo,Transfer Shipment,Transfer Receipt,Service Shipment,Service Invoice,Service Credit Memo,Posted Assembly] } 122 { 80 ; ;Document Line No. ;Integer ;CaptionML=[DEU=Belegzeilennr.; 123 ENU=Document Line No.] } 124 { 90 ; ;Order Type ;Option ;CaptionML=[DEU=Auftragsart; 125 ENU=Order Type]; 126 OptionCaptionML=[DEU=" ,Fertigung,Umlagerung,Service,Montage"; 127 ENU=" ,Production,Transfer,Service,Assembly"]; 128 OptionString=[ ,Production,Transfer,Service,Assembly]; 129 Editable=No } 130 { 91 ; ;Order No. ;Code20 ;CaptionML=[DEU=Auftragsnr.; 131 ENU=Order No.]; 132 Editable=No } 133 { 92 ; ;Order Line No. ;Integer ;CaptionML=[DEU=Auftragszeilennr.; 134 ENU=Order Line No.]; 135 Editable=No } 136 { 480 ; ;Dimension Set ID ;Integer ;TableRelation="Dimension Set Entry"; 137 OnLookup=BEGIN 138 ShowDimensions; 139 END; 140 141 CaptionML=[DEU=Dimensionssatz-ID; 142 ENU=Dimension Set ID]; 143 Editable=No } 144 { 904 ; ;Assemble to Order ;Boolean ;AccessByPermission=TableData 90=R; 145 CaptionML=[DEU=Auftragsmontage; 146 ENU=Assemble to Order] } 147 { 1000; ;Job No. ;Code20 ;TableRelation=Job.No.; 148 CaptionML=[DEU=Projektnr.; 149 ENU=Job No.] } 150 { 1001; ;Job Task No. ;Code20 ;TableRelation="Job Task"."Job Task No." WHERE (Job No.=FIELD(Job No.)); 151 CaptionML=[DEU=Projektaufgabennr.; 152 ENU=Job Task No.] } 153 { 1002; ;Job Purchase ;Boolean ;CaptionML=[DEU=Projekteinkauf; 154 ENU=Job Purchase] } 155 { 5402; ;Variant Code ;Code10 ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.)); 156 CaptionML=[DEU=Variantencode; 157 ENU=Variant Code] } 158 { 5404; ;Qty. per Unit of Measure;Decimal ;CaptionML=[DEU=Menge pro Einheit; 159 ENU=Qty. per Unit of Measure]; 160 DecimalPlaces=0:5 } 161 { 5407; ;Unit of Measure Code;Code10 ;TableRelation="Item Unit of Measure".Code WHERE (Item No.=FIELD(Item No.)); 162 CaptionML=[DEU=Einheitencode; 163 ENU=Unit of Measure Code] } 164 { 5408; ;Derived from Blanket Order;Boolean ;CaptionML=[DEU=Übern. von Rahmenauftr./-best.; 165 ENU=Derived from Blanket Order] } 166 { 5700; ;Cross-Reference No. ;Code20 ;CaptionML=[DEU=Referenznr.; 167 ENU=Cross-Reference No.] } 168 { 5701; ;Originally Ordered No.;Code20 ;TableRelation=Item; 169 AccessByPermission=TableData 5715=R; 170 CaptionML=[DEU=Urspr. Nr. (Auftrag); 171 ENU=Originally Ordered No.] } 172 { 5702; ;Originally Ordered Var. Code;Code10;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Originally Ordered No.)); 173 AccessByPermission=TableData 5715=R; 174 CaptionML=[DEU=Urspr. Variantencode (Auftrag); 175 ENU=Originally Ordered Var. Code] } 176 { 5703; ;Out-of-Stock Substitution;Boolean ;CaptionML=[DEU=Ersatz da nicht am Lager; 177 ENU=Out-of-Stock Substitution] } 178 { 5704; ;Item Category Code ;Code10 ;TableRelation="Item Category"; 179 CaptionML=[DEU=Artikelkategoriencode; 180 ENU=Item Category Code] } 181 { 5705; ;Nonstock ;Boolean ;CaptionML=[DEU=Katalogartikel; 182 ENU=Nonstock] } 183 { 5706; ;Purchasing Code ;Code10 ;TableRelation=Purchasing; 184 CaptionML=[DEU=Einkaufscode; 185 ENU=Purchasing Code] } 186 { 5707; ;Product Group Code ;Code10 ;TableRelation="Product Group".Code WHERE (Item Category Code=FIELD(Item Category Code)); 187 CaptionML=[DEU=Produktgruppencode; 188 ENU=Product Group Code] } 189 { 5800; ;Completely Invoiced ;Boolean ;CaptionML=[DEU=Komplett fakturiert; 190 ENU=Completely Invoiced] } 191 { 5801; ;Last Invoice Date ;Date ;CaptionML=[DEU=Letztes Rechnungsdatum; 192 ENU=Last Invoice Date] } 193 { 5802; ;Applied Entry to Adjust;Boolean ;CaptionML=[DEU=Ausgegl. Posten regul.; 194 ENU=Applied Entry to Adjust] } 195 { 5803; ;Cost Amount (Expected);Decimal ;FieldClass=FlowField; 196 CalcFormula=Sum("Value Entry"."Cost Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 197 CaptionML=[DEU=Einstandsbetrag (erwartet); 198 ENU=Cost Amount (Expected)]; 199 Editable=No; 200 AutoFormatType=1 } 201 { 5804; ;Cost Amount (Actual);Decimal ;FieldClass=FlowField; 202 CalcFormula=Sum("Value Entry"."Cost Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 203 CaptionML=[DEU=Einstandsbetrag (tatsächl.); 204 ENU=Cost Amount (Actual)]; 205 Editable=No; 206 AutoFormatType=1 } 207 { 5805; ;Cost Amount (Non-Invtbl.);Decimal ;FieldClass=FlowField; 208 CalcFormula=Sum("Value Entry"."Cost Amount (Non-Invtbl.)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 209 CaptionML=[DEU=Einst.-Betr. (lagerwertunabh.); 210 ENU=Cost Amount (Non-Invtbl.)]; 211 Editable=No; 212 AutoFormatType=1 } 213 { 5806; ;Cost Amount (Expected) (ACY);Decimal; 214 FieldClass=FlowField; 215 CalcFormula=Sum("Value Entry"."Cost Amount (Expected) (ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 216 CaptionML=[DEU=Einstandsbetrag (erw.) (BW); 217 ENU=Cost Amount (Expected) (ACY)]; 218 Editable=No; 219 AutoFormatType=1; 220 AutoFormatExpr=GetCurrencyCode } 221 { 5807; ;Cost Amount (Actual) (ACY);Decimal ;FieldClass=FlowField; 222 CalcFormula=Sum("Value Entry"."Cost Amount (Actual) (ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 223 CaptionML=[DEU=Einst.-Betrag (tatsächl.) (BW); 224 ENU=Cost Amount (Actual) (ACY)]; 225 Editable=No; 226 AutoFormatType=1; 227 AutoFormatExpr=GetCurrencyCode } 228 { 5808; ;Cost Amount (Non-Invtbl.)(ACY);Decimal; 229 FieldClass=FlowField; 230 CalcFormula=Sum("Value Entry"."Cost Amount (Non-Invtbl.)(ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 231 CaptionML=[DEU=Einst.-B. (lagerw.-unabh.)(BW); 232 ENU=Cost Amount (Non-Invtbl.)(ACY)]; 233 Editable=No; 234 AutoFormatType=1; 235 AutoFormatExpr=GetCurrencyCode } 236 { 5813; ;Purchase Amount (Expected);Decimal ;FieldClass=FlowField; 237 CalcFormula=Sum("Value Entry"."Purchase Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 238 CaptionML=[DEU=Einkaufsbetrag (erwartet); 239 ENU=Purchase Amount (Expected)]; 240 Editable=No; 241 AutoFormatType=1 } 242 { 5814; ;Purchase Amount (Actual);Decimal ;FieldClass=FlowField; 243 CalcFormula=Sum("Value Entry"."Purchase Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 244 CaptionML=[DEU=Einkaufsbetrag (tatsächl.); 245 ENU=Purchase Amount (Actual)]; 246 Editable=No; 247 AutoFormatType=1 } 248 { 5815; ;Sales Amount (Expected);Decimal ;FieldClass=FlowField; 249 CalcFormula=Sum("Value Entry"."Sales Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 250 CaptionML=[DEU=Verkaufsbetrag (erwartet); 251 ENU=Sales Amount (Expected)]; 252 Editable=No; 253 AutoFormatType=1 } 254 { 5816; ;Sales Amount (Actual);Decimal ;FieldClass=FlowField; 255 CalcFormula=Sum("Value Entry"."Sales Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 256 CaptionML=[DEU=Verkaufsbetrag (tatsächl.); 257 ENU=Sales Amount (Actual)]; 258 Editable=No; 259 AutoFormatType=1 } 260 { 5817; ;Correction ;Boolean ;CaptionML=[DEU=Storno; 261 ENU=Correction] } 262 { 5818; ;Shipped Qty. Not Returned;Decimal ;AccessByPermission=TableData 36=R; 263 CaptionML=[DEU=Nicht rückgelieferte Liefermenge; 264 ENU=Shipped Qty. Not Returned]; 265 DecimalPlaces=0:5 } 266 { 5833; ;Prod. Order Comp. Line No.;Integer ;AccessByPermission=TableData 5405=R; 267 CaptionML=[DEU=FA-Komponentenzeilennr.; 268 ENU=Prod. Order Comp. Line No.] } 269 { 6500; ;Serial No. ;Code20 ;OnLookup=BEGIN 270 ItemTrackingMgt.LookupLotSerialNoInfo("Item No.","Variant Code",0,"Serial No."); 271 END; 272 273 CaptionML=[DEU=Seriennr.; 274 ENU=Serial No.] } 275 { 6501; ;Lot No. ;Code20 ;OnLookup=BEGIN 276 ItemTrackingMgt.LookupLotSerialNoInfo("Item No.","Variant Code",1,"Lot No."); 277 END; 278 279 CaptionML=[DEU=Chargennr.; 280 ENU=Lot No.] } 281 { 6502; ;Warranty Date ;Date ;CaptionML=[DEU=Garantiedatum; 282 ENU=Warranty Date] } 283 { 6503; ;Expiration Date ;Date ;CaptionML=[DEU=Ablaufdatum; 284 ENU=Expiration Date] } 285 { 6510; ;Item Tracking ;Option ;CaptionML=[DEU=Artikelverfolgung; 286 ENU=Item Tracking]; 287 OptionCaptionML=[DEU=Ohne,Chargennr.,Chargennr. und Seriennr.,Seriennr.; 288 ENU=None,Lot No.,Lot and Serial No.,Serial No.]; 289 OptionString=None,Lot No.,Lot and Serial No.,Serial No.; 290 Editable=No } 291 { 6602; ;Return Reason Code ;Code10 ;TableRelation="Return Reason"; 292 CaptionML=[DEU=Reklamationsgrundcode; 293 ENU=Return Reason Code] } 294 } 295 KEYS 296 { 297 { ;Entry No. ;Clustered=Yes } 298 { ;Item No. ;SumIndexFields=Invoiced Quantity } 299 { ;Item No.,Posting Date } 300 { ;Item No.,Entry Type,Variant Code,Drop Shipment,Location Code,Posting Date; 301 SumIndexFields=Quantity,Invoiced Quantity } 302 { ;Source Type,Source No.,Item No.,Variant Code,Posting Date; 303 SumIndexFields=Quantity } 304 { ;Item No.,Open,Variant Code,Positive,Location Code,Posting Date; 305 SumIndexFields=Quantity,Remaining Quantity } 306 { ;Item No.,Open,Variant Code,Positive,Location Code,Posting Date,Expiration Date,Lot No.,Serial No.; 307 SumIndexFields=Quantity,Remaining Quantity } 308 { ;Country/Region Code,Entry Type,Posting Date } 309 { ;Document No.,Document Type,Document Line No. } 310 { No ;Item No.,Entry Type,Variant Code,Drop Shipment,Global Dimension 1 Code,Global Dimension 2 Code,Location Code,Posting Date; 311 SumIndexFields=Quantity,Invoiced Quantity } 312 { No ;Source Type,Source No.,Global Dimension 1 Code,Global Dimension 2 Code,Item No.,Variant Code,Posting Date; 313 SumIndexFields=Quantity } 314 { ;Order Type,Order No.,Order Line No.,Entry Type,Prod. Order Comp. Line No.; 315 SumIndexFields=Quantity; 316 MaintainSIFTIndex=No } 317 { ;Item No.,Applied Entry to Adjust } 318 { ;Item No.,Positive,Location Code,Variant Code } 319 { No ;Entry Type,Nonstock,Item No.,Posting Date } 320 { No ;Item No.,Location Code,Open,Variant Code,Unit of Measure Code,Lot No.,Serial No.; 321 SumIndexFields=Remaining Quantity } 322 { ;Item No.,Open,Variant Code,Positive,Lot No.,Serial No.; 323 MaintainSQLIndex=No; 324 MaintainSIFTIndex=No } 325 { ;Item No.,Open,Variant Code,Location Code,Item Tracking,Lot No.,Serial No.; 326 SumIndexFields=Remaining Quantity; 327 MaintainSQLIndex=No; 328 MaintainSIFTIndex=No } 329 { No ;Lot No. } 330 { No ;Serial No. } 331 } 332 FIELDGROUPS 333 { 334 { 1 ;DropDown ;Entry No.,Description,Item No.,Posting Date,Entry Type,Document No. } 335 } 336 CODE 337 { 338 VAR 339 GLSetup@1000 : Record 98; 340 ReservEntry@1001 : Record 337; 341 ReservEngineMgt@1002 : Codeunit 99000831; 342 ReserveItemLedgEntry@1003 : Codeunit 99000841; 343 ItemTrackingMgt@1006 : Codeunit 6500; 344 GLSetupRead@1005 : Boolean; 345 IsNotOnInventoryErr@1004 : TextConst 'DEU=Sie haben keine ausreichende Menge des Artikels %1 auf Lager.;ENU=You have insufficient quantity of Item %1 on inventory.'; 346 347 LOCAL PROCEDURE GetCurrencyCode@1() : Code[10]; 348 BEGIN 349 IF NOT GLSetupRead THEN BEGIN 350 GLSetup.GET; 351 GLSetupRead := TRUE; 352 END; 353 EXIT(GLSetup."Additional Reporting Currency"); 354 END; 355 356 PROCEDURE ShowReservationEntries@2(Modal@1000 : Boolean); 357 BEGIN 358 ReservEngineMgt.InitFilterAndSortingLookupFor(ReservEntry,TRUE); 359 ReserveItemLedgEntry.FilterReservFor(ReservEntry,Rec); 360 IF Modal THEN 361 PAGE.RUNMODAL(PAGE::"Reservation Entries",ReservEntry) 362 ELSE 363 PAGE.RUN(PAGE::"Reservation Entries",ReservEntry); 364 END; 365 366 PROCEDURE SetAppliedEntryToAdjust@66(AppliedEntryToAdjust@1001 : Boolean); 367 BEGIN 368 IF "Applied Entry to Adjust" <> AppliedEntryToAdjust THEN BEGIN 369 "Applied Entry to Adjust" := AppliedEntryToAdjust; 370 MODIFY; 371 END; 372 END; 373 374 PROCEDURE SetAvgTransCompletelyInvoiced@80() : Boolean; 375 VAR 376 ItemApplnEntry@1005 : Record 339; 377 InbndItemLedgEntry@1004 : Record 32; 378 CompletelyInvoiced@1002 : Boolean; 379 BEGIN 380 IF "Entry Type" <> "Entry Type"::Transfer THEN 381 EXIT(FALSE); 382 383 ItemApplnEntry.SETCURRENTKEY("Item Ledger Entry No."); 384 ItemApplnEntry.SETRANGE("Item Ledger Entry No.","Entry No."); 385 ItemApplnEntry.FIND('-'); 386 IF NOT "Completely Invoiced" THEN BEGIN 387 CompletelyInvoiced := TRUE; 388 REPEAT 389 InbndItemLedgEntry.GET(ItemApplnEntry."Inbound Item Entry No."); 390 IF NOT InbndItemLedgEntry."Completely Invoiced" THEN 391 CompletelyInvoiced := FALSE; 392 UNTIL ItemApplnEntry.NEXT = 0; 393 394 IF CompletelyInvoiced THEN BEGIN 395 SetCompletelyInvoiced; 396 EXIT(TRUE); 397 END; 398 END; 399 EXIT(FALSE); 400 END; 401 402 PROCEDURE SetCompletelyInvoiced@3(); 403 BEGIN 404 IF NOT "Completely Invoiced" THEN BEGIN 405 "Completely Invoiced" := TRUE; 406 MODIFY; 407 END; 408 END; 409 410 PROCEDURE AppliedEntryToAdjustExists@40(ItemNo@1001 : Code[20]) : Boolean; 411 BEGIN 412 RESET; 413 SETCURRENTKEY("Item No.","Applied Entry to Adjust"); 414 SETRANGE("Item No.",ItemNo); 415 SETRANGE("Applied Entry to Adjust",TRUE); 416 EXIT(FIND('-')); 417 END; 418 419 PROCEDURE IsOutbndConsump@57() : Boolean; 420 BEGIN 421 EXIT(("Entry Type" = "Entry Type"::Consumption) AND NOT Positive); 422 END; 423 424 PROCEDURE IsExactCostReversingPurchase@59() : Boolean; 425 BEGIN 426 EXIT( 427 ("Applies-to Entry" <> 0) AND 428 ("Entry Type" = "Entry Type"::Purchase) AND 429 ("Invoiced Quantity" < 0)); 430 END; 431 432 PROCEDURE IsExactCostReversingOutput@8() : Boolean; 433 BEGIN 434 EXIT( 435 ("Applies-to Entry" <> 0) AND 436 ("Entry Type" IN ["Entry Type"::Output,"Entry Type"::"Assembly Output"]) AND 437 ("Invoiced Quantity" < 0)); 438 END; 439 440 PROCEDURE UpdateItemTracking@5(); 441 VAR 442 ItemTrackingMgt@1000 : Codeunit 6500; 443 BEGIN 444 "Item Tracking" := ItemTrackingMgt.ItemTrackingOption("Lot No.","Serial No."); 445 END; 446 447 PROCEDURE GetUnitCostLCY@4() : Decimal; 448 BEGIN 449 IF Quantity = 0 THEN 450 EXIT("Cost Amount (Actual)"); 451 452 EXIT(ROUND("Cost Amount (Actual)" / Quantity,0.00001)); 453 END; 454 455 PROCEDURE FilterLinesWithItemToPlan@69(VAR Item@1000 : Record 27;NetChange@1001 : Boolean); 456 BEGIN 457 RESET; 458 SETCURRENTKEY("Item No.",Open,"Variant Code",Positive,"Location Code","Posting Date"); 459 SETRANGE("Item No.",Item."No."); 460 SETRANGE(Open,TRUE); 461 SETFILTER("Variant Code",Item.GETFILTER("Variant Filter")); 462 SETFILTER("Location Code",Item.GETFILTER("Location Filter")); 463 SETFILTER("Global Dimension 1 Code",Item.GETFILTER("Global Dimension 1 Filter")); 464 SETFILTER("Global Dimension 2 Code",Item.GETFILTER("Global Dimension 2 Filter")); 465 IF NetChange THEN 466 SETFILTER("Posting Date",Item.GETFILTER("Date Filter")); 467 END; 468 469 PROCEDURE FindLinesWithItemToPlan@7(VAR Item@1000 : Record 27;NetChange@1001 : Boolean) : Boolean; 470 BEGIN 471 FilterLinesWithItemToPlan(Item,NetChange); 472 EXIT(FIND('-')); 473 END; 474 475 PROCEDURE LinesWithItemToPlanExist@67(VAR Item@1000 : Record 27;NetChange@1001 : Boolean) : Boolean; 476 BEGIN 477 FilterLinesWithItemToPlan(Item,NetChange); 478 EXIT(NOT ISEMPTY); 479 END; 480 481 PROCEDURE IsOutbndSale@5888() : Boolean; 482 BEGIN 483 EXIT(("Entry Type" = "Entry Type"::Sale) AND NOT Positive); 484 END; 485 486 PROCEDURE ShowDimensions@6(); 487 VAR 488 DimMgt@1000 : Codeunit 408; 489 BEGIN 490 DimMgt.ShowDimensionSet("Dimension Set ID",STRSUBSTNO('%1 %2',TABLECAPTION,"Entry No.")); 491 END; 492 493 PROCEDURE CalculateRemQuantity@10(ItemLedgEntryNo@1000 : Integer;PostingDate@1001 : Date) : Decimal; 494 VAR 495 ItemApplnEntry@1002 : Record 339; 496 RemQty@1003 : Decimal; 497 BEGIN 498 ItemApplnEntry.SETCURRENTKEY("Inbound Item Entry No."); 499 ItemApplnEntry.SETRANGE("Inbound Item Entry No.",ItemLedgEntryNo); 500 RemQty := 0; 501 IF ItemApplnEntry.FINDSET THEN 502 REPEAT 503 IF ItemApplnEntry."Posting Date" <= PostingDate THEN 504 RemQty += ItemApplnEntry.Quantity; 505 UNTIL ItemApplnEntry.NEXT = 0; 506 EXIT(RemQty); 507 END; 508 509 PROCEDURE VerifyOnInventory@9(); 510 VAR 511 Item@1000 : Record 27; 512 BEGIN 513 IF NOT Open THEN 514 EXIT; 515 IF Quantity >= 0 THEN 516 EXIT; 517 CASE "Entry Type" OF 518 "Entry Type"::Consumption,"Entry Type"::"Assembly Consumption","Entry Type"::Transfer: 519 ERROR(IsNotOnInventoryErr,"Item No."); 520 ELSE BEGIN 521 Item.GET("Item No."); 522 IF Item.PreventNegativeInventory THEN 523 ERROR(IsNotOnInventoryErr,"Item No."); 524 END; 525 END; 526 END; 527 528 PROCEDURE CalculateRemInventoryValue@12(ItemLedgEntryNo@1000 : Integer;ItemLedgEntryQty@1004 : Decimal;RemQty@1005 : Decimal;IncludeExpectedCost@1001 : Boolean;PostingDate@1006 : Date) : Decimal; 529 VAR 530 ValueEntry@1002 : Record 5802; 531 AdjustedCost@1003 : Decimal; 532 TotalQty@1007 : Decimal; 533 BEGIN 534 ValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 535 ValueEntry.SETRANGE("Item Ledger Entry No.",ItemLedgEntryNo); 536 ValueEntry.SETFILTER("Valuation Date",'<=%1',PostingDate); 537 IF NOT IncludeExpectedCost THEN 538 ValueEntry.SETRANGE("Expected Cost",FALSE); 539 IF ValueEntry.FINDSET THEN 540 REPEAT 541 IF ValueEntry."Entry Type" = ValueEntry."Entry Type"::Revaluation THEN 542 TotalQty := ValueEntry."Valued Quantity" 543 ELSE 544 TotalQty := ItemLedgEntryQty; 545 IF ValueEntry."Entry Type" <> ValueEntry."Entry Type"::Rounding THEN 546 IF IncludeExpectedCost THEN 547 AdjustedCost += RemQty / TotalQty * (ValueEntry."Cost Amount (Actual)" + ValueEntry."Cost Amount (Expected)") 548 ELSE 549 AdjustedCost += RemQty / TotalQty * ValueEntry."Cost Amount (Actual)"; 550 UNTIL ValueEntry.NEXT = 0; 551 EXIT(AdjustedCost); 552 END; 553 554 PROCEDURE TrackingExists@11() : Boolean; 555 BEGIN 556 EXIT(("Serial No." <> '') OR ("Lot No." <> '')); 557 END; 558 559 BEGIN 560 END. 561 } 562 } 563
|
Dynamics NAV
Table (Target): Item Ledger Entry 1 OBJECT Table 32 Item Ledger Entry 2 { 3 OBJECT-PROPERTIES 4 { 5 Date=25.10.16; 6 Time=12:00:00; 7 Version List=NAVW110.00; 8 } 9 PROPERTIES 10 { 11 12 13 14 15 16 17 CaptionML=[DEU=Artikelposten; 18 ENU=Item Ledger Entry]; 19 LookupPageID=Page38; 20 DrillDownPageID=Page38; 21 } 22 FIELDS 23 { 24 { 1 ; ;Entry No. ;Integer ;CaptionML=[DEU=Lfd. Nr.; 25 ENU=Entry No.] } 26 { 2 ; ;Item No. ;Code20 ;TableRelation=Item; 27 CaptionML=[DEU=Artikelnr.; 28 ENU=Item No.] } 29 { 3 ; ;Posting Date ;Date ;CaptionML=[DEU=Buchungsdatum; 30 ENU=Posting Date] } 31 { 4 ; ;Entry Type ;Option ;CaptionML=[DEU=Postenart; 32 ENU=Entry Type]; 33 OptionCaptionML=[DEU=Einkauf,Verkauf,Zugang,Abgang,Umlagerung,Verbrauch,Istmeldung, ,Verbrauch für Montage,Montage-Istmeldung; 34 ENU=Purchase,Sale,Positive Adjmt.,Negative Adjmt.,Transfer,Consumption,Output, ,Assembly Consumption,Assembly Output]; 35 OptionString=Purchase,Sale,Positive Adjmt.,Negative Adjmt.,Transfer,Consumption,Output, ,Assembly Consumption,Assembly Output } 36 { 5 ; ;Source No. ;Code20 ;TableRelation=IF (Source Type=CONST(Customer)) Customer 37 ELSE IF (Source Type=CONST(Vendor)) Vendor 38 ELSE IF (Source Type=CONST(Item)) Item; 39 CaptionML=[DEU=Herkunftsnr.; 40 ENU=Source No.] } 41 { 6 ; ;Document No. ;Code20 ;CaptionML=[DEU=Belegnr.; 42 ENU=Document No.] } 43 { 7 ; ;Description ;Text50 ;CaptionML=[DEU=Beschreibung; 44 ENU=Description] } 45 { 8 ; ;Location Code ;Code10 ;TableRelation=Location; 46 CaptionML=[DEU=Lagerortcode; 47 ENU=Location Code] } 48 { 12 ; ;Quantity ;Decimal ;CaptionML=[DEU=Menge; 49 ENU=Quantity]; 50 DecimalPlaces=0:5 } 51 { 13 ; ;Remaining Quantity ;Decimal ;CaptionML=[DEU=Restmenge; 52 ENU=Remaining Quantity]; 53 DecimalPlaces=0:5 } 54 { 14 ; ;Invoiced Quantity ;Decimal ;CaptionML=[DEU=Fakturierte Menge; 55 ENU=Invoiced Quantity]; 56 DecimalPlaces=0:5 } 57 { 28 ; ;Applies-to Entry ;Integer ;CaptionML=[DEU=Ausgleich mit Lfd. Nr.; 58 ENU=Applies-to Entry] } 59 { 29 ; ;Open ;Boolean ;CaptionML=[DEU=Offen; 60 ENU=Open] } 61 { 33 ; ;Global Dimension 1 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(1)); 62 CaptionML=[DEU=Globaler Dimensionscode 1; 63 ENU=Global Dimension 1 Code]; 64 CaptionClass='1,1,1' } 65 { 34 ; ;Global Dimension 2 Code;Code20 ;TableRelation="Dimension Value".Code WHERE (Global Dimension No.=CONST(2)); 66 CaptionML=[DEU=Globaler Dimensionscode 2; 67 ENU=Global Dimension 2 Code]; 68 CaptionClass='1,1,2' } 69 { 36 ; ;Positive ;Boolean ;CaptionML=[DEU=Positiv; 70 ENU=Positive] } 71 { 41 ; ;Source Type ;Option ;CaptionML=[DEU=Herkunftsart; 72 ENU=Source Type]; 73 OptionCaptionML=[DEU=" ,Debitor,Kreditor,Artikel"; 74 ENU=" ,Customer,Vendor,Item"]; 75 OptionString=[ ,Customer,Vendor,Item] } 76 { 47 ; ;Drop Shipment ;Boolean ;AccessByPermission=TableData 223=R; 77 CaptionML=[DEU=Direktlieferung; 78 ENU=Drop Shipment] } 79 { 50 ; ;Transaction Type ;Code10 ;TableRelation="Transaction Type"; 80 CaptionML=[DEU=Art des Geschäftes; 81 ENU=Transaction Type] } 82 { 51 ; ;Transport Method ;Code10 ;TableRelation="Transport Method"; 83 CaptionML=[DEU=Verkehrszweig; 84 ENU=Transport Method] } 85 { 52 ; ;Country/Region Code ;Code10 ;TableRelation=Country/Region; 86 CaptionML=[DEU=Länder-/Regionscode; 87 ENU=Country/Region Code] } 88 { 59 ; ;Entry/Exit Point ;Code10 ;TableRelation="Entry/Exit Point"; 89 CaptionML=[DEU=Hafen; 90 ENU=Entry/Exit Point] } 91 { 60 ; ;Document Date ;Date ;CaptionML=[DEU=Belegdatum; 92 ENU=Document Date] } 93 { 61 ; ;External Document No.;Code35 ;CaptionML=[DEU=Externe Belegnummer; 94 ENU=External Document No.] } 95 { 62 ; ;Area ;Code10 ;TableRelation=Area; 96 CaptionML=[DEU=Bundesland; 97 ENU=Area] } 98 { 63 ; ;Transaction Specification;Code10 ;TableRelation="Transaction Specification"; 99 CaptionML=[DEU=Verfahren; 100 ENU=Transaction Specification] } 101 { 64 ; ;No. Series ;Code10 ;TableRelation="No. Series"; 102 CaptionML=[DEU=Nummernserie; 103 ENU=No. Series] } 104 { 70 ; ;Reserved Quantity ;Decimal ;FieldClass=FlowField; 105 CalcFormula=Sum("Reservation Entry"."Quantity (Base)" WHERE (Source ID=CONST(), 106 Source Ref. No.=FIELD(Entry No.), 107 Source Type=CONST(32), 108 Source Subtype=CONST(0), 109 Source Batch Name=CONST(), 110 Source Prod. Order Line=CONST(0), 111 Reservation Status=CONST(Reservation))); 112 AccessByPermission=TableData 120=R; 113 CaptionML=[DEU=Reservierte Menge; 114 ENU=Reserved Quantity]; 115 DecimalPlaces=0:5; 116 Editable=No } 117 { 79 ; ;Document Type ;Option ;CaptionML=[DEU=Belegart; 118 ENU=Document Type]; 119 OptionCaptionML=[DEU=" ,Verkaufslieferung,Verkaufsrechnung,Verkaufsrücksendung,Verkaufsgutschrift,Einkaufslieferung,Einkaufsrechnung,Rücklieferung,Einkaufsgutschrift,Umlagerungsausgang,Umlagerungseingang,Servicelieferung,Servicerechnung,Servicegutschrift,Gebuchte Montage"; 120 ENU=" ,Sales Shipment,Sales Invoice,Sales Return Receipt,Sales Credit Memo,Purchase Receipt,Purchase Invoice,Purchase Return Shipment,Purchase Credit Memo,Transfer Shipment,Transfer Receipt,Service Shipment,Service Invoice,Service Credit Memo,Posted Assembly"]; 121 OptionString=[ ,Sales Shipment,Sales Invoice,Sales Return Receipt,Sales Credit Memo,Purchase Receipt,Purchase Invoice,Purchase Return Shipment,Purchase Credit Memo,Transfer Shipment,Transfer Receipt,Service Shipment,Service Invoice,Service Credit Memo,Posted Assembly] } 122 { 80 ; ;Document Line No. ;Integer ;CaptionML=[DEU=Belegzeilennr.; 123 ENU=Document Line No.] } 124 { 90 ; ;Order Type ;Option ;CaptionML=[DEU=Auftragsart; 125 ENU=Order Type]; 126 OptionCaptionML=[DEU=" ,Fertigung,Umlagerung,Service,Montage"; 127 ENU=" ,Production,Transfer,Service,Assembly"]; 128 OptionString=[ ,Production,Transfer,Service,Assembly]; 129 Editable=No } 130 { 91 ; ;Order No. ;Code20 ;CaptionML=[DEU=Auftragsnr.; 131 ENU=Order No.]; 132 Editable=No } 133 { 92 ; ;Order Line No. ;Integer ;CaptionML=[DEU=Auftragszeilennr.; 134 ENU=Order Line No.]; 135 Editable=No } 136 { 480 ; ;Dimension Set ID ;Integer ;TableRelation="Dimension Set Entry"; 137 OnLookup=BEGIN 138 ShowDimensions; 139 END; 140 141 CaptionML=[DEU=Dimensionssatz-ID; 142 ENU=Dimension Set ID]; 143 Editable=No } 144 { 904 ; ;Assemble to Order ;Boolean ;AccessByPermission=TableData 90=R; 145 CaptionML=[DEU=Auftragsmontage; 146 ENU=Assemble to Order] } 147 { 1000; ;Job No. ;Code20 ;TableRelation=Job.No.; 148 CaptionML=[DEU=Projektnr.; 149 ENU=Job No.] } 150 { 1001; ;Job Task No. ;Code20 ;TableRelation="Job Task"."Job Task No." WHERE (Job No.=FIELD(Job No.)); 151 CaptionML=[DEU=Projektaufgabennr.; 152 ENU=Job Task No.] } 153 { 1002; ;Job Purchase ;Boolean ;CaptionML=[DEU=Projekteinkauf; 154 ENU=Job Purchase] } 155 { 5402; ;Variant Code ;Code10 ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.)); 156 CaptionML=[DEU=Variantencode; 157 ENU=Variant Code] } 158 { 5404; ;Qty. per Unit of Measure;Decimal ;CaptionML=[DEU=Menge pro Einheit; 159 ENU=Qty. per Unit of Measure]; 160 DecimalPlaces=0:5 } 161 { 5407; ;Unit of Measure Code;Code10 ;TableRelation="Item Unit of Measure".Code WHERE (Item No.=FIELD(Item No.)); 162 CaptionML=[DEU=Einheitencode; 163 ENU=Unit of Measure Code] } 164 { 5408; ;Derived from Blanket Order;Boolean ;CaptionML=[DEU=Übern. von Rahmenauftr./-best.; 165 ENU=Derived from Blanket Order] } 166 { 5700; ;Cross-Reference No. ;Code20 ;CaptionML=[DEU=Referenznr.; 167 ENU=Cross-Reference No.] } 168 { 5701; ;Originally Ordered No.;Code20 ;TableRelation=Item; 169 AccessByPermission=TableData 5715=R; 170 CaptionML=[DEU=Urspr. Nr. (Auftrag); 171 ENU=Originally Ordered No.] } 172 { 5702; ;Originally Ordered Var. Code;Code10;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Originally Ordered No.)); 173 AccessByPermission=TableData 5715=R; 174 CaptionML=[DEU=Urspr. Variantencode (Auftrag); 175 ENU=Originally Ordered Var. Code] } 176 { 5703; ;Out-of-Stock Substitution;Boolean ;CaptionML=[DEU=Ersatz da nicht am Lager; 177 ENU=Out-of-Stock Substitution] } 178 { 5704; ;Item Category Code ;Code20 ;TableRelation="Item Category"; 179 CaptionML=[DEU=Artikelkategoriencode; 180 ENU=Item Category Code] } 181 { 5705; ;Nonstock ;Boolean ;CaptionML=[DEU=Katalogartikel; 182 ENU=Nonstock] } 183 { 5706; ;Purchasing Code ;Code10 ;TableRelation=Purchasing; 184 CaptionML=[DEU=Einkaufscode; 185 ENU=Purchasing Code] } 186 { 5707; ;Product Group Code ;Code10 ;TableRelation="Product Group".Code WHERE (Item Category Code=FIELD(Item Category Code)); 187 CaptionML=[DEU=Produktgruppencode; 188 ENU=Product Group Code] } 189 { 5800; ;Completely Invoiced ;Boolean ;CaptionML=[DEU=Komplett fakturiert; 190 ENU=Completely Invoiced] } 191 { 5801; ;Last Invoice Date ;Date ;CaptionML=[DEU=Letztes Rechnungsdatum; 192 ENU=Last Invoice Date] } 193 { 5802; ;Applied Entry to Adjust;Boolean ;CaptionML=[DEU=Ausgegl. Posten regul.; 194 ENU=Applied Entry to Adjust] } 195 { 5803; ;Cost Amount (Expected);Decimal ;FieldClass=FlowField; 196 CalcFormula=Sum("Value Entry"."Cost Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 197 CaptionML=[DEU=Einstandsbetrag (erwartet); 198 ENU=Cost Amount (Expected)]; 199 Editable=No; 200 AutoFormatType=1 } 201 { 5804; ;Cost Amount (Actual);Decimal ;FieldClass=FlowField; 202 CalcFormula=Sum("Value Entry"."Cost Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 203 CaptionML=[DEU=Einstandsbetrag (tatsächl.); 204 ENU=Cost Amount (Actual)]; 205 Editable=No; 206 AutoFormatType=1 } 207 { 5805; ;Cost Amount (Non-Invtbl.);Decimal ;FieldClass=FlowField; 208 CalcFormula=Sum("Value Entry"."Cost Amount (Non-Invtbl.)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 209 CaptionML=[DEU=Einst.-Betr. (lagerwertunabh.); 210 ENU=Cost Amount (Non-Invtbl.)]; 211 Editable=No; 212 AutoFormatType=1 } 213 { 5806; ;Cost Amount (Expected) (ACY);Decimal; 214 FieldClass=FlowField; 215 CalcFormula=Sum("Value Entry"."Cost Amount (Expected) (ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 216 CaptionML=[DEU=Einstandsbetrag (erw.) (BW); 217 ENU=Cost Amount (Expected) (ACY)]; 218 Editable=No; 219 AutoFormatType=1; 220 AutoFormatExpr=GetCurrencyCode } 221 { 5807; ;Cost Amount (Actual) (ACY);Decimal ;FieldClass=FlowField; 222 CalcFormula=Sum("Value Entry"."Cost Amount (Actual) (ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 223 CaptionML=[DEU=Einst.-Betrag (tatsächl.) (BW); 224 ENU=Cost Amount (Actual) (ACY)]; 225 Editable=No; 226 AutoFormatType=1; 227 AutoFormatExpr=GetCurrencyCode } 228 { 5808; ;Cost Amount (Non-Invtbl.)(ACY);Decimal; 229 FieldClass=FlowField; 230 CalcFormula=Sum("Value Entry"."Cost Amount (Non-Invtbl.)(ACY)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 231 CaptionML=[DEU=Einst.-B. (lagerw.-unabh.)(BW); 232 ENU=Cost Amount (Non-Invtbl.)(ACY)]; 233 Editable=No; 234 AutoFormatType=1; 235 AutoFormatExpr=GetCurrencyCode } 236 { 5813; ;Purchase Amount (Expected);Decimal ;FieldClass=FlowField; 237 CalcFormula=Sum("Value Entry"."Purchase Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 238 CaptionML=[DEU=Einkaufsbetrag (erwartet); 239 ENU=Purchase Amount (Expected)]; 240 Editable=No; 241 AutoFormatType=1 } 242 { 5814; ;Purchase Amount (Actual);Decimal ;FieldClass=FlowField; 243 CalcFormula=Sum("Value Entry"."Purchase Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 244 CaptionML=[DEU=Einkaufsbetrag (tatsächl.); 245 ENU=Purchase Amount (Actual)]; 246 Editable=No; 247 AutoFormatType=1 } 248 { 5815; ;Sales Amount (Expected);Decimal ;FieldClass=FlowField; 249 CalcFormula=Sum("Value Entry"."Sales Amount (Expected)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 250 CaptionML=[DEU=Verkaufsbetrag (erwartet); 251 ENU=Sales Amount (Expected)]; 252 Editable=No; 253 AutoFormatType=1 } 254 { 5816; ;Sales Amount (Actual);Decimal ;FieldClass=FlowField; 255 CalcFormula=Sum("Value Entry"."Sales Amount (Actual)" WHERE (Item Ledger Entry No.=FIELD(Entry No.))); 256 CaptionML=[DEU=Verkaufsbetrag (tatsächl.); 257 ENU=Sales Amount (Actual)]; 258 Editable=No; 259 AutoFormatType=1 } 260 { 5817; ;Correction ;Boolean ;CaptionML=[DEU=Storno; 261 ENU=Correction] } 262 { 5818; ;Shipped Qty. Not Returned;Decimal ;AccessByPermission=TableData 36=R; 263 CaptionML=[DEU=Nicht rückgelieferte Liefermenge; 264 ENU=Shipped Qty. Not Returned]; 265 DecimalPlaces=0:5 } 266 { 5833; ;Prod. Order Comp. Line No.;Integer ;AccessByPermission=TableData 5405=R; 267 CaptionML=[DEU=FA-Komponentenzeilennr.; 268 ENU=Prod. Order Comp. Line No.] } 269 { 6500; ;Serial No. ;Code20 ;OnLookup=BEGIN 270 ItemTrackingMgt.LookupLotSerialNoInfo("Item No.","Variant Code",0,"Serial No."); 271 END; 272 273 CaptionML=[DEU=Seriennr.; 274 ENU=Serial No.] } 275 { 6501; ;Lot No. ;Code20 ;OnLookup=BEGIN 276 ItemTrackingMgt.LookupLotSerialNoInfo("Item No.","Variant Code",1,"Lot No."); 277 END; 278 279 CaptionML=[DEU=Chargennr.; 280 ENU=Lot No.] } 281 { 6502; ;Warranty Date ;Date ;CaptionML=[DEU=Garantiedatum; 282 ENU=Warranty Date] } 283 { 6503; ;Expiration Date ;Date ;CaptionML=[DEU=Ablaufdatum; 284 ENU=Expiration Date] } 285 { 6510; ;Item Tracking ;Option ;CaptionML=[DEU=Artikelverfolgung; 286 ENU=Item Tracking]; 287 OptionCaptionML=[DEU=Ohne,Chargennr.,Chargennr. und Seriennr.,Seriennr.; 288 ENU=None,Lot No.,Lot and Serial No.,Serial No.]; 289 OptionString=None,Lot No.,Lot and Serial No.,Serial No.; 290 Editable=No } 291 { 6602; ;Return Reason Code ;Code10 ;TableRelation="Return Reason"; 292 CaptionML=[DEU=Reklamationsgrundcode; 293 ENU=Return Reason Code] } 294 } 295 KEYS 296 { 297 { ;Entry No. ;Clustered=Yes } 298 { ;Item No. ;SumIndexFields=Invoiced Quantity } 299 { ;Item No.,Posting Date } 300 { ;Item No.,Entry Type,Variant Code,Drop Shipment,Location Code,Posting Date; 301 SumIndexFields=Quantity,Invoiced Quantity } 302 { ;Source Type,Source No.,Item No.,Variant Code,Posting Date; 303 SumIndexFields=Quantity } 304 { ;Item No.,Open,Variant Code,Positive,Location Code,Posting Date; 305 SumIndexFields=Quantity,Remaining Quantity } 306 { No ;Item No.,Open,Variant Code,Positive,Location Code,Posting Date,Expiration Date,Lot No.,Serial No.; 307 SumIndexFields=Quantity,Remaining Quantity } 308 { ;Country/Region Code,Entry Type,Posting Date } 309 { ;Document No.,Document Type,Document Line No. } 310 { No ;Item No.,Entry Type,Variant Code,Drop Shipment,Global Dimension 1 Code,Global Dimension 2 Code,Location Code,Posting Date; 311 SumIndexFields=Quantity,Invoiced Quantity } 312 { No ;Source Type,Source No.,Global Dimension 1 Code,Global Dimension 2 Code,Item No.,Variant Code,Posting Date; 313 SumIndexFields=Quantity } 314 { ;Order Type,Order No.,Order Line No.,Entry Type,Prod. Order Comp. Line No.; 315 SumIndexFields=Quantity; 316 MaintainSIFTIndex=No } 317 { ;Item No.,Applied Entry to Adjust } 318 { ;Item No.,Positive,Location Code,Variant Code } 319 { No ;Entry Type,Nonstock,Item No.,Posting Date } 320 { No ;Item No.,Location Code,Open,Variant Code,Unit of Measure Code,Lot No.,Serial No.; 321 SumIndexFields=Remaining Quantity } 322 { No ;Item No.,Open,Variant Code,Positive,Lot No.,Serial No.; 323 MaintainSQLIndex=No; 324 MaintainSIFTIndex=No } 325 { No ;Item No.,Open,Variant Code,Location Code,Item Tracking,Lot No.,Serial No.; 326 SumIndexFields=Remaining Quantity; 327 MaintainSQLIndex=No; 328 MaintainSIFTIndex=No } 329 { No ;Lot No. } 330 { No ;Serial No. } 331 } 332 FIELDGROUPS 333 { 334 { 1 ;DropDown ;Entry No.,Description,Item No.,Posting Date,Entry Type,Document No. } 335 } 336 CODE 337 { 338 VAR 339 GLSetup@1000 : Record 98; 340 ReservEntry@1001 : Record 337; 341 ReservEngineMgt@1002 : Codeunit 99000831; 342 ReserveItemLedgEntry@1003 : Codeunit 99000841; 343 ItemTrackingMgt@1006 : Codeunit 6500; 344 GLSetupRead@1005 : Boolean; 345 IsNotOnInventoryErr@1004 : TextConst 'DEU=Sie haben keine ausreichende Menge des Artikels %1 auf Lager.;ENU=You have insufficient quantity of Item %1 on inventory.'; 346 347 LOCAL PROCEDURE GetCurrencyCode@1() : Code[10]; 348 BEGIN 349 IF NOT GLSetupRead THEN BEGIN 350 GLSetup.GET; 351 GLSetupRead := TRUE; 352 END; 353 EXIT(GLSetup."Additional Reporting Currency"); 354 END; 355 356 PROCEDURE ShowReservationEntries@2(Modal@1000 : Boolean); 357 BEGIN 358 ReservEngineMgt.InitFilterAndSortingLookupFor(ReservEntry,TRUE); 359 ReserveItemLedgEntry.FilterReservFor(ReservEntry,Rec); 360 IF Modal THEN 361 PAGE.RUNMODAL(PAGE::"Reservation Entries",ReservEntry) 362 ELSE 363 PAGE.RUN(PAGE::"Reservation Entries",ReservEntry); 364 END; 365 366 PROCEDURE SetAppliedEntryToAdjust@66(AppliedEntryToAdjust@1001 : Boolean); 367 BEGIN 368 IF "Applied Entry to Adjust" <> AppliedEntryToAdjust THEN BEGIN 369 "Applied Entry to Adjust" := AppliedEntryToAdjust; 370 MODIFY; 371 END; 372 END; 373 374 PROCEDURE SetAvgTransCompletelyInvoiced@80() : Boolean; 375 VAR 376 ItemApplnEntry@1005 : Record 339; 377 InbndItemLedgEntry@1004 : Record 32; 378 CompletelyInvoiced@1002 : Boolean; 379 BEGIN 380 IF "Entry Type" <> "Entry Type"::Transfer THEN 381 EXIT(FALSE); 382 383 ItemApplnEntry.SETCURRENTKEY("Item Ledger Entry No."); 384 ItemApplnEntry.SETRANGE("Item Ledger Entry No.","Entry No."); 385 ItemApplnEntry.FIND('-'); 386 IF NOT "Completely Invoiced" THEN BEGIN 387 CompletelyInvoiced := TRUE; 388 REPEAT 389 InbndItemLedgEntry.GET(ItemApplnEntry."Inbound Item Entry No."); 390 IF NOT InbndItemLedgEntry."Completely Invoiced" THEN 391 CompletelyInvoiced := FALSE; 392 UNTIL ItemApplnEntry.NEXT = 0; 393 394 IF CompletelyInvoiced THEN BEGIN 395 SetCompletelyInvoiced; 396 EXIT(TRUE); 397 END; 398 END; 399 EXIT(FALSE); 400 END; 401 402 PROCEDURE SetCompletelyInvoiced@3(); 403 BEGIN 404 IF NOT "Completely Invoiced" THEN BEGIN 405 "Completely Invoiced" := TRUE; 406 MODIFY; 407 END; 408 END; 409 410 PROCEDURE AppliedEntryToAdjustExists@40(ItemNo@1001 : Code[20]) : Boolean; 411 BEGIN 412 RESET; 413 SETCURRENTKEY("Item No.","Applied Entry to Adjust"); 414 SETRANGE("Item No.",ItemNo); 415 SETRANGE("Applied Entry to Adjust",TRUE); 416 EXIT(FIND('-')); 417 END; 418 419 PROCEDURE IsOutbndConsump@57() : Boolean; 420 BEGIN 421 EXIT(("Entry Type" = "Entry Type"::Consumption) AND NOT Positive); 422 END; 423 424 PROCEDURE IsExactCostReversingPurchase@59() : Boolean; 425 BEGIN 426 EXIT( 427 ("Applies-to Entry" <> 0) AND 428 ("Entry Type" = "Entry Type"::Purchase) AND 429 ("Invoiced Quantity" < 0)); 430 END; 431 432 PROCEDURE IsExactCostReversingOutput@8() : Boolean; 433 BEGIN 434 EXIT( 435 ("Applies-to Entry" <> 0) AND 436 ("Entry Type" IN ["Entry Type"::Output,"Entry Type"::"Assembly Output"]) AND 437 ("Invoiced Quantity" < 0)); 438 END; 439 440 PROCEDURE UpdateItemTracking@5(); 441 VAR 442 ItemTrackingMgt@1000 : Codeunit 6500; 443 BEGIN 444 "Item Tracking" := ItemTrackingMgt.ItemTrackingOption("Lot No.","Serial No."); 445 END; 446 447 PROCEDURE GetUnitCostLCY@4() : Decimal; 448 BEGIN 449 IF Quantity = 0 THEN 450 EXIT("Cost Amount (Actual)"); 451 452 EXIT(ROUND("Cost Amount (Actual)" / Quantity,0.00001)); 453 END; 454 455 PROCEDURE FilterLinesWithItemToPlan@69(VAR Item@1000 : Record 27;NetChange@1001 : Boolean); 456 BEGIN 457 RESET; 458 SETCURRENTKEY("Item No.",Open,"Variant Code",Positive,"Location Code","Posting Date"); 459 SETRANGE("Item No.",Item."No."); 460 SETRANGE(Open,TRUE); 461 SETFILTER("Variant Code",Item.GETFILTER("Variant Filter")); 462 SETFILTER("Location Code",Item.GETFILTER("Location Filter")); 463 SETFILTER("Global Dimension 1 Code",Item.GETFILTER("Global Dimension 1 Filter")); 464 SETFILTER("Global Dimension 2 Code",Item.GETFILTER("Global Dimension 2 Filter")); 465 IF NetChange THEN 466 SETFILTER("Posting Date",Item.GETFILTER("Date Filter")); 467 END; 468 469 PROCEDURE FindLinesWithItemToPlan@7(VAR Item@1000 : Record 27;NetChange@1001 : Boolean) : Boolean; 470 BEGIN 471 FilterLinesWithItemToPlan(Item,NetChange); 472 EXIT(FIND('-')); 473 END; 474 475 PROCEDURE LinesWithItemToPlanExist@67(VAR Item@1000 : Record 27;NetChange@1001 : Boolean) : Boolean; 476 BEGIN 477 FilterLinesWithItemToPlan(Item,NetChange); 478 EXIT(NOT ISEMPTY); 479 END; 480 481 PROCEDURE IsOutbndSale@5888() : Boolean; 482 BEGIN 483 EXIT(("Entry Type" = "Entry Type"::Sale) AND NOT Positive); 484 END; 485 486 PROCEDURE ShowDimensions@6(); 487 VAR 488 DimMgt@1000 : Codeunit 408; 489 BEGIN 490 DimMgt.ShowDimensionSet("Dimension Set ID",STRSUBSTNO('%1 %2',TABLECAPTION,"Entry No.")); 491 END; 492 493 PROCEDURE CalculateRemQuantity@10(ItemLedgEntryNo@1000 : Integer;PostingDate@1001 : Date) : Decimal; 494 VAR 495 ItemApplnEntry@1002 : Record 339; 496 RemQty@1003 : Decimal; 497 BEGIN 498 ItemApplnEntry.SETCURRENTKEY("Inbound Item Entry No."); 499 ItemApplnEntry.SETRANGE("Inbound Item Entry No.",ItemLedgEntryNo); 500 RemQty := 0; 501 IF ItemApplnEntry.FINDSET THEN 502 REPEAT 503 IF ItemApplnEntry."Posting Date" <= PostingDate THEN 504 RemQty += ItemApplnEntry.Quantity; 505 UNTIL ItemApplnEntry.NEXT = 0; 506 EXIT(RemQty); 507 END; 508 509 PROCEDURE VerifyOnInventory@9(); 510 VAR 511 Item@1000 : Record 27; 512 BEGIN 513 IF NOT Open THEN 514 EXIT; 515 IF Quantity >= 0 THEN 516 EXIT; 517 CASE "Entry Type" OF 518 "Entry Type"::Consumption,"Entry Type"::"Assembly Consumption","Entry Type"::Transfer: 519 ERROR(IsNotOnInventoryErr,"Item No."); 520 ELSE BEGIN 521 Item.GET("Item No."); 522 IF Item.PreventNegativeInventory THEN 523 ERROR(IsNotOnInventoryErr,"Item No."); 524 END; 525 END; 526 END; 527 528 PROCEDURE CalculateRemInventoryValue@12(ItemLedgEntryNo@1000 : Integer;ItemLedgEntryQty@1004 : Decimal;RemQty@1005 : Decimal;IncludeExpectedCost@1001 : Boolean;PostingDate@1006 : Date) : Decimal; 529 VAR 530 ValueEntry@1002 : Record 5802; 531 AdjustedCost@1003 : Decimal; 532 TotalQty@1007 : Decimal; 533 BEGIN 534 ValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 535 ValueEntry.SETRANGE("Item Ledger Entry No.",ItemLedgEntryNo); 536 ValueEntry.SETFILTER("Valuation Date",'<=%1',PostingDate); 537 IF NOT IncludeExpectedCost THEN 538 ValueEntry.SETRANGE("Expected Cost",FALSE); 539 IF ValueEntry.FINDSET THEN 540 REPEAT 541 IF ValueEntry."Entry Type" = ValueEntry."Entry Type"::Revaluation THEN 542 TotalQty := ValueEntry."Valued Quantity" 543 ELSE 544 TotalQty := ItemLedgEntryQty; 545 IF ValueEntry."Entry Type" <> ValueEntry."Entry Type"::Rounding THEN 546 IF IncludeExpectedCost THEN 547 AdjustedCost += RemQty / TotalQty * (ValueEntry."Cost Amount (Actual)" + ValueEntry."Cost Amount (Expected)") 548 ELSE 549 AdjustedCost += RemQty / TotalQty * ValueEntry."Cost Amount (Actual)"; 550 UNTIL ValueEntry.NEXT = 0; 551 EXIT(AdjustedCost); 552 END; 553 554 PROCEDURE TrackingExists@11() : Boolean; 555 BEGIN 556 EXIT(("Serial No." <> '') OR ("Lot No." <> '')); 557 END; 558 559 BEGIN 560 END. 561 } 562 } 563
|
|