OBJECT Table 10 Shipment Method
{
  OBJECT-PROPERTIES
  {
    Date=04/09/07;
    Time=[ 6:45:55 PM];
    Version List=NAVW13.00;
  }
  PROPERTIES
  {
    OnInsert=BEGIN
               RecRef.GETTABLE(Rec);
               RecStatusMgt.Inserted(RecRef);
             END;

    OnModify=BEGIN
               RecRef.GETTABLE(Rec);
               xRecRef.GETTABLE(xRec);
               RecStatusMgt.Modified(RecRef,xRecRef);
             END;

    OnDelete=BEGIN
               RecRef.GETTABLE(Rec);
               RecStatusMgt.Deleted(RecRef);
             END;

    OnRename=BEGIN
               RecRef.GETTABLE(Rec);
               xRecRef.GETTABLE(xRec);
               RecStatusMgt.Renamed(RecRef,xRecRef);
             END;

    CaptionML=[ENU=Shipment Method;
               ENC=Shipment Method];
    LookupFormID=Form11;
  }
  FIELDS
  {
    { 1   ;   ;Code                ;Code10        ;CaptionML=[ENU=Code;
                                                              ENC=Code];
                                                   NotBlank=Yes }
    { 2   ;   ;Description         ;Text50        ;CaptionML=[ENU=Description;
                                                              ENC=Description] }
    { 37033300;;Time In Transit    ;DateFormula   ;InitValue=1D;
                                                   OnValidate=VAR
                                                                TestDate@1000000000 : Date;
                                                              BEGIN
                                                                TestDate := TODAY;
                                                                "Days In Transit" := CALCDATE("Time In Transit", TestDate) - TestDate;
                                                              END;
                                                               }
    { 37033301;;Default Rate Factor;Decimal       ;AutoFormatType=1 }
    { 37033310;;Item Charge        ;Code20        ;TableRelation="Item Charge".No. WHERE (Charge Type=CONST(Shipping)) }
    { 37033311;;Days In Transit    ;Integer       ;OnValidate=BEGIN
                                                                IF "Days In Transit" = 0 THEN
                                                                  EVALUATE("Time In Transit", '')
                                                                ELSE
                                                                  EVALUATE("Time In Transit", STRSUBSTNO('%1D', "Days In Transit"));
                                                              END;

                                                   CaptionML=ENU=Time In Transit }
  }
  KEYS
  {
    {    ;Code                                     }
  }
  CODE
  {
    VAR
      RecRef@1000000002 : RecordRef;
      xRecRef@1000000001 : RecordRef;
      RecStatusMgt@1000000000 : Codeunit 37033302;

    BEGIN
    END.
  }
}

<ROOT>
  <OBJECT_PROPERTIES>
    <PROPERTY text="04/09/07" PROPERTY_NAME="Date" />
    <PROPERTY text="[ 6:45:55 PM]" PROPERTY_NAME="Time" />
    <PROPERTY text="NAVW13.00" PROPERTY_NAME="Version List" />
  </OBJECT_PROPERTIES>
  <PROPERTIES>
    <PROPERTY text="BEGIN
               RecRef.GETTABLE(Rec);
               RecStatusMgt.Inserted(RecRef);
             END" PROPERTY_NAME="OnInsert" />
    <PROPERTY text="BEGIN
               RecRef.GETTABLE(Rec);
               xRecRef.GETTABLE(xRec);
               RecStatusMgt.Modified(RecRef,xRecRef);
             END" PROPERTY_NAME="OnModify" />
    <PROPERTY text="BEGIN
               RecRef.GETTABLE(Rec);
               RecStatusMgt.Deleted(RecRef);
             END" PROPERTY_NAME="OnDelete" />
    <PROPERTY text="BEGIN
               RecRef.GETTABLE(Rec);
               xRecRef.GETTABLE(xRec);
               RecStatusMgt.Renamed(RecRef,xRecRef);
             END" PROPERTY_NAME="OnRename" />
    <PROPERTY text="CaptionML=[ENU=Shipment Method;
               ENC=Shipment Method]" />
    <PROPERTY text="Form11" PROPERTY_NAME="LookupFormID" />
    <PROPERTY />
  </PROPERTIES>
  <FIELDS>
    <FIELD text="1   ;   ;Code                ;Code10        ">
      <PROPERTIES>
        <PROPERTY text="CaptionML=[ENU=Code;
                                                              ENC=Code]" />
        <PROPERTY text="Yes " PROPERTY_NAME="NotBlank" />
      </PROPERTIES>
    </FIELD>
    <FIELD text="2   ;   ;Description         ;Text50        ">
      <PROPERTIES>
        <PROPERTY text="CaptionML=[ENU=Description;
                                                              ENC=Description]" />
      </PROPERTIES>
    </FIELD>
    <FIELD text="37033300;;Time In Transit    ;DateFormula   ">
      <PROPERTIES>
        <PROPERTY text="1D" PROPERTY_NAME="InitValue" />
        <PROPERTY text="VAR
                                                                TestDate@1000000000 : Date;
                                                              BEGIN
                                                                TestDate := TODAY;
                                                                "Days In Transit" := CALCDATE("Time In Transit", TestDate) - TestDate;
                                                              END" PROPERTY_NAME="OnValidate" />
        <PROPERTY />
      </PROPERTIES>
    </FIELD>
    <FIELD text="37033301;;Default Rate Factor;Decimal       ">
      <PROPERTIES>
        <PROPERTY text="1 " PROPERTY_NAME="AutoFormatType" />
      </PROPERTIES>
    </FIELD>
    <FIELD text="37033310;;Item Charge        ;Code20        ">
      <PROPERTIES>
        <PROPERTY text=""Item Charge".No. WHERE (Charge Type=CONST(Shipping)) " PROPERTY_NAME="TableRelation" />
      </PROPERTIES>
    </FIELD>
    <FIELD text="37033311;;Days In Transit    ;Integer       ">
      <PROPERTIES>
        <PROPERTY text="BEGIN
                                                                IF "Days In Transit" = 0 THEN
                                                                  EVALUATE("Time In Transit", '')
                                                                ELSE
                                                                  EVALUATE("Time In Transit", STRSUBSTNO('%1D', "Days In Transit"));
                                                              END" PROPERTY_NAME="OnValidate" />
        <PROPERTY text="CaptionML=ENU=Time In Transit " />
      </PROPERTIES>
    </FIELD>
  </FIELDS>
  <KEYS>
    <KEY text="{    ;Code                                     }" />
  </KEYS>
  <CODE>
    <VAR text="VAR
      RecRef@1000000002 : RecordRef;
      xRecRef@1000000001 : RecordRef;
      RecStatusMgt@1000000000 : Codeunit 37033302;" />
  </CODE>
</ROOT>