Sales Invoice Subform - Item Information Panel
emulsified
Member Posts: 139
I would like to add another field that I have on my Item table named "Discontinued".
It is a boolean field that my users check on the item card when an item has been discontinued.
How do I add that to the Item Information Panel on my Sales Invoice Subform like how the quantity shows up for availability. I'm not sure what code to use or where to put it to make this field show up.
Here is the form:
Any help?
It is a boolean field that my users check on the item card when an item has been discontinued.
How do I add that to the Item Information Panel on my Sales Invoice Subform like how the quantity shows up for availability. I'm not sure what code to use or where to put it to make this field show up.
Here is the form:
OBJECT Form 47 Sales Invoice Subform
{
OBJECT-PROPERTIES
{
Date=07/09/07;
Time=[ 5:35:23 PM];
Modified=Yes;
Version List=NAVW14.00.03,NAVNA4.00,DS,PLL;
}
PROPERTIES
{
Width=20130;
Height=7040;
CaptionML=[ENU=Sales Invoice Subform;
ESM=Subform. factura venta;
FRC=Sous-formulaire facture de vente;
ENC=Sales Invoice Subform];
MultipleNewLines=Yes;
TableBoxID=1;
SourceTable=Table37;
AutoSplitKey=Yes;
DelayedInsert=Yes;
SourceTableView=WHERE(Document Type=FILTER(Invoice));
OnAfterGetRecord=BEGIN
ShowShortcutDimCode(ShortcutDimCode);
END;
OnAfterGetCurrRecord=BEGIN
CurrForm.ItemPanel.VISIBLE := Type = Type::Item;
CurrForm.UPDATECONTROLS;
END;
OnNewRecord=BEGIN
Type := xRec.Type;
CLEAR(ShortcutDimCode);
END;
}
CONTROLS
{
{ 1 ;TableBox ;0 ;0 ;16060;5830 ;HorzGlue=Both;
VertGlue=Both;
HeadingHeight=880 }
{ 2 ;TextBox ;0 ;0 ;1923 ;0 ;ParentControl=1;
InColumn=Yes;
SourceExpr=Type;
OnAfterValidate=BEGIN
CurrForm.ItemPanel.VISIBLE := Type = Type::Item;
END;
}
{ 3 ;Label ;0 ;0 ;0 ;0 ;ParentControl=2;
InColumnHeading=Yes }
{ 4 ;TextBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
InColumn=Yes;
SourceExpr="No.";
OnValidate=BEGIN
ShowShortcutDimCode(ShortcutDimCode);
END;
OnAfterValidate=BEGIN
InsertExtendedText(FALSE);
IF (Type = Type::"Charge (Item)") AND ("No." <> xRec."No.") AND
(xRec."No." <> '')
THEN
CurrForm.SAVERECORD;
END;
}
{ 5 ;Label ;0 ;0 ;0 ;0 ;ParentControl=4;
InColumnHeading=Yes }
{ 58 ;TextBox ;609 ;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Cross-Reference No.";
OnLookup=BEGIN
CrossReferenceNoLookUp;
InsertExtendedText(FALSE);
END;
OnAfterValidate=BEGIN
InsertExtendedText(FALSE);
END;
}
{ 59 ;Label ;0 ;0 ;0 ;0 ;ParentControl=58;
InColumnHeading=Yes }
{ 46 ;TextBox ;3519 ;1320 ;1890 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="IC Partner Ref. Type" }
{ 47 ;Label ;0 ;0 ;0 ;0 ;ParentControl=46;
InColumnHeading=Yes }
{ 70 ;TextBox ;4069 ;1320 ;1700 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="IC Partner Reference" }
{ 71 ;Label ;0 ;0 ;0 ;0 ;ParentControl=70;
InColumnHeading=Yes }
{ 30 ;TextBox ;1694 ;110 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Variant Code" }
{ 31 ;Label ;0 ;0 ;0 ;0 ;ParentControl=30;
InColumnHeading=Yes }
{ 62 ;CheckBox ;8758 ;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr=Nonstock }
{ 63 ;Label ;0 ;0 ;0 ;0 ;ParentControl=62;
InColumnHeading=Yes }
{ 14 ;TextBox ;5504 ;880 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="VAT Prod. Posting Group" }
{ 15 ;Label ;0 ;0 ;0 ;0 ;ParentControl=14;
InColumnHeading=Yes }
{ 6 ;TextBox ;0 ;0 ;4400 ;0 ;HorzGlue=Both;
ParentControl=1;
InColumn=Yes;
SourceExpr=Description }
{ 7 ;Label ;0 ;0 ;0 ;0 ;ParentControl=6;
InColumnHeading=Yes }
{ 50 ;TextBox ;12251;110 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Return Reason Code" }
{ 51 ;Label ;0 ;0 ;0 ;0 ;ParentControl=50;
InColumnHeading=Yes }
{ 32 ;TextBox ;14023;660 ;1650 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Location Code" }
{ 33 ;Label ;0 ;0 ;0 ;0 ;ParentControl=32;
InColumnHeading=Yes }
{ 76 ;TextBox ;16008;110 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Bin Code" }
{ 77 ;Label ;0 ;0 ;0 ;0 ;ParentControl=76;
InColumnHeading=Yes }
{ 8 ;TextBox ;0 ;0 ;1675 ;0 ;ParentControl=1;
InColumn=Yes;
FontBold=Yes;
BlankZero=Yes;
SourceExpr=Quantity;
OnAfterValidate=BEGIN
IF Reserve = Reserve::Always THEN BEGIN
CurrForm.SAVERECORD;
AutoReserve(TRUE);
END;
END;
}
{ 9 ;Label ;0 ;0 ;0 ;0 ;ParentControl=8;
InColumnHeading=Yes;
FontBold=Yes }
{ 34 ;TextBox ;15902;110 ;1650 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Unit of Measure Code";
OnAfterValidate=BEGIN
IF Reserve = Reserve::Always THEN BEGIN
CurrForm.SAVERECORD;
AutoReserve(TRUE);
END;
END;
}
{ 35 ;Label ;0 ;0 ;0 ;0 ;ParentControl=34;
InColumnHeading=Yes }
{ 10 ;TextBox ;0 ;0 ;2200 ;0 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Unit of Measure" }
{ 11 ;Label ;0 ;0 ;0 ;0 ;ParentControl=10;
InColumnHeading=Yes }
{ 26 ;TextBox ;20929;550 ;2200 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Unit Cost (LCY)" }
{ 27 ;Label ;0 ;0 ;0 ;0 ;ParentControl=26;
InColumnHeading=Yes }
{ 88 ;CheckBox ;23892;1540 ;1558 ;440 ;Visible=No;
Editable=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
CaptionML=[ENU=Sales Price Exists;
ESM=Existe precio venta;
FRC=Prix de vente existant;
ENC=Sales Price Exists];
SourceExpr=PriceExists }
{ 89 ;Label ;0 ;0 ;0 ;0 ;ParentControl=88;
InColumnHeading=Yes }
{ 12 ;TextBox ;0 ;0 ;1650 ;0 ;ParentControl=1;
InColumn=Yes;
FontBold=Yes;
BlankZero=Yes;
SourceExpr="Unit Price" }
{ 13 ;Label ;0 ;0 ;0 ;0 ;ParentControl=12;
InColumnHeading=Yes;
FontBold=Yes }
{ 1020002;CheckBox ;3493 ;440 ;1660 ;440 ;Visible=No;
Editable=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Tax Liable" }
{ 1020003;Label ;0 ;0 ;0 ;0 ;ParentControl=1020002;
InColumnHeading=Yes }
{ 1020006;TextBox ;3048 ;330 ;1700 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Tax Area Code" }
{ 1020007;Label ;0 ;0 ;0 ;0 ;ParentControl=1020006;
InColumnHeading=Yes }
{ 1020004;TextBox ;4572 ;220 ;1700 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Tax Group Code" }
{ 1020005;Label ;0 ;0 ;0 ;0 ;ParentControl=1020004;
InColumnHeading=Yes }
{ 64 ;TextBox ;27464;880 ;2200 ;440 ;ParentControl=1;
InColumn=Yes;
FontBold=Yes;
BlankZero=Yes;
SourceExpr="Line Amount" }
{ 65 ;Label ;0 ;0 ;0 ;0 ;ParentControl=64;
InColumnHeading=Yes;
FontBold=Yes }
{ 1020000;TextBox ;10901;330 ;2200 ;440 ;ParentControl=1;
InColumn=Yes;
SourceExpr="Amount Including VAT" }
{ 1020001;Label ;0 ;0 ;0 ;0 ;ParentControl=1020000;
InColumnHeading=Yes }
{ 90 ;CheckBox ;28046;1100 ;550 ;440 ;Visible=No;
Editable=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
CaptionML=[ENU=Sales Line Disc. Exists;
ESM=Existe dto. l¡nea venta;
FRC=Rem. ligne vente existante;
ENC=Sales Line Disc. Exists];
SourceExpr=LineDiscExists }
{ 91 ;Label ;0 ;0 ;0 ;0 ;ParentControl=90;
InColumnHeading=Yes }
{ 16 ;TextBox ;0 ;0 ;1100 ;0 ;ParentControl=1;
InColumn=Yes;
BlankZero=Yes;
SourceExpr="Line Discount %" }
{ 17 ;Label ;0 ;0 ;0 ;0 ;ParentControl=16;
InColumnHeading=Yes }
{ 40 ;TextBox ;37968;550 ;2200 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Line Discount Amount" }
{ 41 ;Label ;0 ;0 ;0 ;0 ;ParentControl=40;
InColumnHeading=Yes }
{ 42 ;CheckBox ;39370;330 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Allow Invoice Disc." }
{ 43 ;Label ;0 ;0 ;0 ;0 ;ParentControl=42;
InColumnHeading=Yes }
{ 80 ;TextBox ;13309;1100 ;2200 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Inv. Discount Amount" }
{ 81 ;Label ;0 ;0 ;0 ;0 ;ParentControl=80;
InColumnHeading=Yes }
{ 84 ;CheckBox ;34714;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Allow Item Charge Assignment" }
{ 85 ;Label ;0 ;0 ;0 ;0 ;ParentControl=84;
InColumnHeading=Yes }
{ 36 ;TextBox ;33470;1100 ;1650 ;440 ;ParentControl=1;
InColumn=Yes;
BlankZero=Yes;
SourceExpr="Qty. to Assign";
OnDrillDown=BEGIN
CurrForm.SAVERECORD;
ShowItemChargeAssgnt;
UpdateForm(FALSE);
END;
}
{ 37 ;Label ;0 ;0 ;0 ;0 ;ParentControl=36;
InColumnHeading=Yes }
{ 82 ;TextBox ;40138;220 ;1650 ;440 ;ParentControl=1;
InColumn=Yes;
BlankZero=Yes;
SourceExpr="Qty. Assigned";
OnDrillDown=BEGIN
CurrForm.SAVERECORD;
ShowItemChargeAssgnt;
UpdateForm(FALSE);
END;
}
{ 83 ;Label ;0 ;0 ;0 ;0 ;ParentControl=82;
InColumnHeading=Yes }
{ 52 ;TextBox ;48974;550 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Job No.";
OnValidate=BEGIN
ShowShortcutDimCode(ShortcutDimCode);
END;
}
{ 53 ;Label ;0 ;0 ;0 ;0 ;ParentControl=52;
InColumnHeading=Yes }
{ 72 ;TextBox ;7806 ;330 ;1700 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Work Type Code" }
{ 73 ;Label ;0 ;0 ;0 ;0 ;ParentControl=72;
InColumnHeading=Yes }
{ 60 ;TextBox ;55324;330 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Appl.-to Job Entry" }
{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
InColumnHeading=Yes }
{ 18 ;CheckBox ;36936;550 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Apply and Close (Job)" }
{ 19 ;Label ;0 ;0 ;0 ;0 ;ParentControl=18;
InColumnHeading=Yes }
{ 54 ;TextBox ;14156;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Blanket Order No." }
{ 55 ;Label ;0 ;0 ;0 ;0 ;ParentControl=54;
InColumnHeading=Yes }
{ 56 ;TextBox ;15806;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Blanket Order Line No." }
{ 57 ;Label ;0 ;0 ;0 ;0 ;ParentControl=56;
InColumnHeading=Yes }
{ 24 ;TextBox ;58897;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="FA Posting Date" }
{ 25 ;Label ;0 ;0 ;0 ;0 ;ParentControl=24;
InColumnHeading=Yes }
{ 44 ;CheckBox ;62197;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Depr. until FA Posting Date" }
{ 45 ;Label ;0 ;0 ;0 ;0 ;ParentControl=44;
InColumnHeading=Yes }
{ 28 ;TextBox ;60547;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Depreciation Book Code" }
{ 29 ;Label ;0 ;0 ;0 ;0 ;ParentControl=28;
InColumnHeading=Yes }
{ 68 ;CheckBox ;65497;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
ShowCaption=No;
SourceExpr="Use Duplication List" }
{ 69 ;Label ;0 ;0 ;0 ;0 ;ParentControl=68;
InColumnHeading=Yes }
{ 66 ;TextBox ;63847;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Duplicate in Depreciation Book" }
{ 67 ;Label ;0 ;0 ;0 ;0 ;ParentControl=66;
InColumnHeading=Yes }
{ 38 ;TextBox ;62548;770 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Appl.-from Item Entry" }
{ 39 ;Label ;0 ;0 ;0 ;0 ;ParentControl=38;
InColumnHeading=Yes }
{ 48 ;TextBox ;45482;550 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Appl.-to Item Entry" }
{ 49 ;Label ;0 ;0 ;0 ;0 ;ParentControl=48;
InColumnHeading=Yes }
{ 20 ;TextBox ;9578 ;220 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Shortcut Dimension 1 Code" }
{ 21 ;Label ;0 ;0 ;0 ;0 ;ParentControl=20;
InColumnHeading=Yes }
{ 22 ;TextBox ;11589;440 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr="Shortcut Dimension 2 Code" }
{ 23 ;Label ;0 ;0 ;0 ;0 ;ParentControl=22;
InColumnHeading=Yes }
{ 300 ;TextBox ;41936;1100 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[3];
CaptionClass='1,2,3';
OnValidate=BEGIN
ValidateShortcutDimCode(3,ShortcutDimCode[3]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(3,ShortcutDimCode[3]);
END;
}
{ 301 ;Label ;0 ;0 ;0 ;0 ;ParentControl=300;
InColumnHeading=Yes }
{ 302 ;TextBox ;43498;1100 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[4];
CaptionClass='1,2,4';
OnValidate=BEGIN
ValidateShortcutDimCode(4,ShortcutDimCode[4]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(4,ShortcutDimCode[4]);
END;
}
{ 303 ;Label ;0 ;0 ;0 ;0 ;ParentControl=302;
InColumnHeading=Yes }
{ 304 ;TextBox ;45191;990 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[5];
CaptionClass='1,2,5';
OnValidate=BEGIN
ValidateShortcutDimCode(5,ShortcutDimCode[5]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(5,ShortcutDimCode[5]);
END;
}
{ 305 ;Label ;0 ;0 ;0 ;0 ;ParentControl=304;
InColumnHeading=Yes }
{ 306 ;TextBox ;46779;1100 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[6];
CaptionClass='1,2,6';
OnValidate=BEGIN
ValidateShortcutDimCode(6,ShortcutDimCode[6]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(6,ShortcutDimCode[6]);
END;
}
{ 307 ;Label ;0 ;0 ;0 ;0 ;ParentControl=306;
InColumnHeading=Yes }
{ 308 ;TextBox ;48578;1100 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[7];
CaptionClass='1,2,7';
OnValidate=BEGIN
ValidateShortcutDimCode(7,ShortcutDimCode[7]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(7,ShortcutDimCode[7]);
END;
}
{ 309 ;Label ;0 ;0 ;0 ;0 ;ParentControl=308;
InColumnHeading=Yes }
{ 310 ;TextBox ;50165;1100 ;1650 ;440 ;Visible=No;
ParentControl=1;
InColumn=Yes;
SourceExpr=ShortcutDimCode[8];
CaptionClass='1,2,8';
OnValidate=BEGIN
ValidateShortcutDimCode(8,ShortcutDimCode[8]);
END;
OnLookup=BEGIN
LookupShortcutDimCode(8,ShortcutDimCode[8]);
END;
}
{ 311 ;Label ;0 ;0 ;0 ;0 ;ParentControl=310;
InColumnHeading=Yes }
{ 86 ;Frame ;16280;0 ;3850 ;5060 ;Name=ItemPanel;
HorzGlue=Right;
VertGlue=Both;
CaptionML=[ENU=Item Information;
ESM=Informaci¢n del producto;
FRC=Renseignements sur l'article;
ENC=Item Information] }
{ 87 ;CommandButton;16500;990 ;2200 ;550 ;FocusOnClick=Yes;
ParentControl=86;
InFrame=Yes;
HorzAlign=Left;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=Availa&bility;
ESM=Disponi&bilidad;
FRC=Disponi&bilit‚;
ENC=Availa&bility];
OnPush=BEGIN
ItemAvailability(0);
END;
}
{ 92 ;TextBox ;18700;990 ;1210 ;550 ;Editable=No;
Focusable=No;
ParentControl=86;
InFrame=Yes;
HorzAlign=Right;
Border=No;
SourceExpr=STRSUBSTNO('(%1)',SalesInfoPaneMgt.CalcAvailability(Rec)) }
{ 93 ;CommandButton;16500;1540 ;2200 ;550 ;FocusOnClick=Yes;
ParentControl=86;
InFrame=Yes;
HorzAlign=Left;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=Substitutio&ns;
ESM=Sustitucio&nes;
FRC=Substitutio&ns;
ENC=Substitutio&ns];
OnPush=BEGIN
ShowItemSub;
CurrForm.UPDATE;
END;
}
{ 94 ;TextBox ;18700;1540 ;1210 ;550 ;Editable=No;
Focusable=No;
ParentControl=86;
InFrame=Yes;
HorzAlign=Right;
Border=No;
SourceExpr=STRSUBSTNO('(%1)',SalesInfoPaneMgt.CalcNoOfSubstitutions(Rec)) }
{ 95 ;CommandButton;16500;2090 ;2200 ;550 ;FocusOnClick=Yes;
ParentControl=86;
InFrame=Yes;
HorzAlign=Left;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=&Sales Prices;
ESM=&Precios de venta;
FRC=Prix de &vente;
ENC=&Sales Prices];
OnPush=BEGIN
ShowPrices;
CurrForm.UPDATE;
END;
}
{ 96 ;TextBox ;18700;2090 ;1210 ;550 ;Editable=No;
Focusable=No;
ParentControl=86;
InFrame=Yes;
HorzAlign=Right;
Border=No;
SourceExpr=STRSUBSTNO('(%1)',SalesInfoPaneMgt.CalcNoOfSalesPrices(Rec)) }
{ 97 ;CommandButton;16500;2640 ;2200 ;550 ;FocusOnClick=Yes;
ParentControl=86;
InFrame=Yes;
HorzAlign=Left;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=Sales Line &Discounts;
ESM=&Descuentos l¡nea de ventas;
FRC=Esco&mptes de ligne de vente;
ENC=Sales Line &Discounts];
OnPush=BEGIN
ShowLineDisc;
CurrForm.UPDATE;
END;
}
{ 98 ;TextBox ;18700;2640 ;1210 ;550 ;Editable=No;
Focusable=No;
ParentControl=86;
InFrame=Yes;
HorzAlign=Right;
Border=No;
SourceExpr=STRSUBSTNO('(%1)',SalesInfoPaneMgt.CalcNoOfSalesLineDisc(Rec)) }
{ 99 ;CommandButton;16500;440 ;2200 ;550 ;FocusOnClick=Yes;
ParentControl=86;
InFrame=Yes;
HorzAlign=Left;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=Ite&m Card;
ESM=&Ficha producto;
FRC=Fic&he d'article;
ENC=Ite&m Card];
OnPush=BEGIN
SalesInfoPaneMgt.LookupItem(Rec);
END;
}
{ 100 ;PictureBox ;19470;440 ;440 ;440 ;Focusable=No;
ParentControl=86;
InFrame=Yes;
ShowCaption=No;
Border=No;
BitmapPos=Center;
BitmapList=7,6;
SourceExpr=SalesInfoPaneMgt.ItemCommentExists(Rec) }
{ 101 ;CommandButton;19470;440 ;440 ;440 ;ParentControl=86;
InFrame=Yes;
ShowCaption=No;
BackTransparent=Yes;
OnPush=BEGIN
SalesInfoPaneMgt.LookupItemComment(Rec);
END;
}
{ 1000000000;CommandButton;12980;6050;2200;550;
HorzGlue=Right;
VertGlue=Bottom;
FocusOnClick=Yes;
HorzAlign=Left;
ForeColor=0;
BackColor=16777215;
BackTransparent=Yes;
Border=No;
Bitmap=36;
CaptionML=[ENU=Sales &History;
ENC=Ite&m Card];
OnPush=BEGIN
//PLL Add menu choice to Line button
GetItemHistory;
END;
}
{ 1000000001;TextBox;4400 ;6160 ;4730 ;440 ;HorzGlue=Left;
VertGlue=Bottom;
Editable=No;
SourceExpr=Description }
{ 1000000002;TextBox;2090 ;6160 ;2200 ;440 ;VertGlue=Bottom;
Editable=No;
SourceExpr="No." }
{ 1000000003;TextBox;440 ;6160 ;1540 ;440 ;VertGlue=Bottom;
Editable=No;
SourceExpr=Type }
}
CODE
{
VAR
SalesHeader@1000 : Record 36;
GetJobUsage@1002 : Report 294;
TransferExtendedText@1003 : Codeunit 378;
SalesPriceCalcMgt@1005 : Codeunit 7000;
SalesInfoPaneMgt@1001 : Codeunit 7171;
ShortcutDimCode@1004 : ARRAY [8] OF Code[20];
LineLookupC@1000000000 : Codeunit 14005058;
PROCEDURE ApproveCalcInvDisc@1();
BEGIN
CODEUNIT.RUN(CODEUNIT::"Sales-Disc. (Yes/No)",Rec);
END;
PROCEDURE CalcInvDisc@8();
BEGIN
CODEUNIT.RUN(CODEUNIT::"Sales-Calc. Discount",Rec);
END;
PROCEDURE ExplodeBOM@3();
BEGIN
CODEUNIT.RUN(CODEUNIT::"Sales-Explode BOM",Rec);
END;
PROCEDURE GetShipment@4();
BEGIN
CODEUNIT.RUN(CODEUNIT::"Sales-Get Shipment",Rec);
END;
PROCEDURE GetPhaseTaskStep@5();
BEGIN
CODEUNIT.RUN(CODEUNIT::"Sales-Get Phase/...",Rec);
END;
PROCEDURE GetJobLedger@6();
BEGIN
GetJobUsage.SetCurrentSalesLine(Rec);
GetJobUsage.RUNMODAL;
CLEAR(GetJobUsage);
END;
PROCEDURE InsertExtendedText@7(Unconditionally@1000 : Boolean);
BEGIN
IF TransferExtendedText.SalesCheckIfAnyExtText(Rec,Unconditionally) THEN BEGIN
CurrForm.SAVERECORD;
TransferExtendedText.InsertSalesExtText(Rec);
END;
IF TransferExtendedText.MakeUpdate THEN
UpdateForm(TRUE);
END;
PROCEDURE ItemAvailability@9(AvailabilityType@1000 : 'Date,Variant,Location,Bin');
BEGIN
Rec.ItemAvailability(AvailabilityType);
END;
PROCEDURE ShowDimensions@11();
BEGIN
Rec.ShowDimensions;
END;
PROCEDURE OpenItemTrackingLines@6500();
BEGIN
Rec.OpenItemTrackingLines;
END;
PROCEDURE ItemChargeAssgnt@5800();
BEGIN
Rec.ShowItemChargeAssgnt;
END;
PROCEDURE UpdateForm@12(SetSaveRecord@1000 : Boolean);
BEGIN
CurrForm.UPDATE(SetSaveRecord);
END;
PROCEDURE ShowPrices@15();
BEGIN
SalesHeader.GET("Document Type","Document No.");
CLEAR(SalesPriceCalcMgt);
SalesPriceCalcMgt.GetSalesLinePrice(SalesHeader,Rec);
END;
PROCEDURE ShowLineDisc@16();
BEGIN
SalesHeader.GET("Document Type","Document No.");
CLEAR(SalesPriceCalcMgt);
SalesPriceCalcMgt.GetSalesLineLineDisc(SalesHeader,Rec);
END;
PROCEDURE GetItemHistory@1240070000();
BEGIN
//PLL
LineLookupC.GetSalesLineHistory(Rec);
END;
BEGIN
{
//Starter LockLeft
//PLL Add one global
Add one local function
Add Item Sales History to Infopane
}
END.
}
}
Any help?
Half-empy or half-full how do you view your database?
Thanks.
Thanks.
0
Answers
-
The return values of the functions in Codeunit 7171 Sales Info-Pane Management are the SourceExpr for these fields. You can add a new function here (similar to CalcNoOfSubstitutions) for your field.Kai Kowalewski0
-
I got it now. I created a new function in Code Unit 7171 for what I needed and then called it from the sub form Item Info Panel.
Thanks a bunch.Half-empy or half-full how do you view your database?
Thanks.0
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.7K Microsoft Dynamics NAV
- 18.8K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 329 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions