Skip to content

KVSEDX GS1 BMS DESADV IMP#

Events#

OnAfterAssignVariableHeaderData(Record KVSEDX Purch. Receipt Header, XmlAttributeCollection, XmlNode, Boolean) :#

Summary: The OnAfterAssignVariableHeaderData event is fired when an avpList is processed in the order header. The "KVSEDX Sales Header" is already inserted at this time. The GS1XmlAttributeCollection can be used to query the attribute of the avpList element. GS1AttributeValuePairXmlNode contains the corresponding value.

[IntegrationEvent(true, false)]
local procedure OnAfterAssignVariableHeaderData(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; GS1XmlAttributeCollection: XmlAttributeCollection; GS1AttributeValuePairXmlNode: XmlNode; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnAfterAssignVariableHeaderData', '', false, false)]
local procedure DoSomethingOnAfterAssignVariableHeaderData(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; GS1XmlAttributeCollection: XmlAttributeCollection; GS1AttributeValuePairXmlNode: XmlNode; var IsHandled: Boolean)
begin
end;

Parameters:

  • KVSEDXSalesHeader: Current KVSEDX Sales Header
  • GS1XmlAttributeCollection: Attribute Collection for this AttributeValuePair
  • GS1AttributeValuePairXmlNode: Node with Value
  • IsHandled:

Example: 

foreach GS1XmlAttribute in GS1XmlAttributeCollection do
    if (GS1XmlAttribute.Name = 'attributeName') then
        case GS1XmlAttribute.Value of
            'PROJ_DATA_1':
                KVSEDXSalesHeader."Project Field 1" := CopyStr(GS1XmlNode.AsXmlElement().InnerText, 1, MaxStrLen(KVSEDXSalesHeader."Project Field 1"));
            'PROJ_DATA_2':
                KVSEDXSalesHeader."Project Field 2" := CopyStr(GS1XmlNode.AsXmlElement().InnerText, 1, MaxStrLen(KVSEDXSalesHeader."Project Field 2"));
        end;
KVSEDXSalesHeader.Modify(true);

OnBeforeProcessHeader(Record KVSEDX Purch. Receipt Header, XmlNamespaceManager, XmlElement, XmlNode, Boolean) :#

[IntegrationEvent(true, false)]
local procedure OnBeforeProcessHeader(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1XmlRootElement: XmlElement; var GS1OrderXmlNode: XmlNode; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnBeforeProcessHeader', '', false, false)]
local procedure DoSomethingOnBeforeProcessHeader(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1XmlRootElement: XmlElement; var GS1OrderXmlNode: XmlNode; var IsHandled: Boolean)
begin
end;

OnAfterProcessHeader(Record KVSEDX Purch. Receipt Header, XmlNamespaceManager, XmlElement, XmlNode, Boolean) :#

[IntegrationEvent(true, false)]
local procedure OnAfterProcessHeader(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1XmlRootElement: XmlElement; var GS1OrderXmlNode: XmlNode; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnAfterProcessHeader', '', false, false)]
local procedure DoSomethingOnAfterProcessHeader(var KVSEDXPurchReceiptHeader: Record "KVSEDX Purch. Receipt Header"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1XmlRootElement: XmlElement; var GS1OrderXmlNode: XmlNode; var IsHandled: Boolean)
begin
end;

OnAfterAssignVariableLineData(Record KVSEDX Purch. Receipt Line, XmlNodeList, Boolean) :#

Summary: The OnAfterAssignVariableLineData event is fired when an avpList is processed in the order line. The "KVSEDX Sales Line" is already inserted at this time. The GS1XmlAttributeCollection can be used to query the attribute of the avpList element. GS1AttributeValuePairXmlNode contains the corresponding value.

[IntegrationEvent(true, false)]
local procedure OnAfterAssignVariableLineData(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; GS1AttributeValuePairXmlNodeList: XmlNodeList; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnAfterAssignVariableLineData', '', false, false)]
local procedure DoSomethingOnAfterAssignVariableLineData(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; GS1AttributeValuePairXmlNodeList: XmlNodeList; var IsHandled: Boolean)
begin
end;

Parameters:

  • KVSEDXSalesHeader: Current KVSEDX Sales Header
  • GS1XmlAttributeCollection: Attribute Collection for this AttributeValuePair
  • GS1AttributeValuePairXmlNode: Node with Value
  • IsHandled:

Example: 

foreach GS1AttributeValuePairXmlNode in GS1AttributeValuePairXmlNodeList do begin
  GS1XmlAttributeCollection := GS1AttributeValuePairXmlNode.AsXmlElement().Attributes();
  if (GS1XmlAttributeCollection.Count > 0) then begin
      foreach GS1XmlAttribute in GS1XmlAttributeCollection do
        if (GS1XmlAttribute.Name = 'attributeName') then
          case GS1XmlAttribute.Value of
              'PROJ_DATA_1':
                  KVSEDXSalesLine."Project Field 1" := CopyStr(GS1XmlNode.AsXmlElement().InnerText, 1, MaxStrLen(KVSEDXSalesLine."Project Field 1"));
              'PROJ_DATA_2':
                  KVSEDXSalesLine."Project Field 2" := CopyStr(GS1XmlNode.AsXmlElement().InnerText, 1, MaxStrLen(KVSEDXSalesLine."Project Field 2"));
  end;
KVSEDXSalesLine.Modify(true);

OnBeforeProcessLine(Record KVSEDX Purch. Receipt Line, XmlNamespaceManager, XmlNode, Boolean) :#

[IntegrationEvent(true, false)]
local procedure OnBeforeProcessLine(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1LineXmlNode: XmlNode; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnBeforeProcessLine', '', false, false)]
local procedure DoSomethingOnBeforeProcessLine(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1LineXmlNode: XmlNode; var IsHandled: Boolean)
begin
end;

OnAfterProcessLine(Record KVSEDX Purch. Receipt Line, XmlNamespaceManager, XmlNode, Boolean) :#

[IntegrationEvent(true, false)]
local procedure OnAfterProcessLine(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1LineXmlNode: XmlNode; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX GS1 BMS DESADV IMP", 'OnAfterProcessLine', '', false, false)]
local procedure DoSomethingOnAfterProcessLine(var KVSEDXPurchReceiptLine: Record "KVSEDX Purch. Receipt Line"; var GS1XmlNamespaceManager: XmlNamespaceManager; var GS1LineXmlNode: XmlNode; var IsHandled: Boolean)
begin
end;