Skip to content

KVSKBAVLOGManagement#

Procedures#

Send(Record KVSKBAVLOGInterfaceLine) :#

procedure Send(var VLOGInterfaceLine: Record "KVSKBAVLOGInterfaceLine"):

GetVlogStatus(Record KVSKBAVLOGInterfaceLine) :#

procedure GetVlogStatus(var VLOGInterfaceLine: Record "KVSKBAVLOGInterfaceLine"):

WritePackageData(Code[20]) :#

procedure WritePackageData(PostedDispatchHandlingNo: Code[20]):

Print(Record KVSKBAPostedDispatchHandlLine) :#

procedure Print(var PostedDispatchHandlLine: Record "KVSKBAPostedDispatchHandlLine"):

GetISOCountryCode(Code[20]) : Code[2]#

procedure GetISOCountryCode(CountryCode: Code[20]): Code[2]

IsVlogInterfaceActive() : Boolean#

procedure IsVlogInterfaceActive(): Boolean

AddXMLArticle(Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlDocument) :#

procedure AddXMLArticle(var PostedDispatchHandlLine: Record "KVSKBAPostedDispatchHandlLine"; var XMLParent: XmlElement; var XMLDoc: XmlDocument):

AddXMLText(XmlElement, Text, Text) :#

procedure AddXMLText(var XMLParent: XmlElement; Name: Text; Value: Text):

AddXMLAttribute(XmlElement, Text, Text) :#

Summary: Adds an Attribute to the xml Element.

procedure AddXMLAttribute(var XMLParent: XmlElement; Name: Text; ValueText: Text):

Parameters:

  • XMLParent:
  • Name:
  • ValueText:

ReplaceInnerValue(XmlElement, Text, Text) :#

procedure ReplaceInnerValue(var XMLParent: XmlElement; Name: Text; ValueText: Text):

FormatAsXML(Date) : Text#

procedure FormatAsXML(ValueDate: Date): Text

FormatAsXML(Time) : Text#

procedure FormatAsXML(ValueTime: Time): Text

FormatAsXML(Decimal) : Text#

procedure FormatAsXML(ValueDecimal: Decimal): Text

FormatAsXML(Boolean) : Text#

procedure FormatAsXML(ValueBoolean: Boolean): Text

Events#

OnBeforeAppendVlogWorkitemXml(Record KVSKBAVLOGInterfaceLine, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogWorkitemXml(var VlogInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogWorkitemXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogWorkitemXml(var VlogInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnAfterAppendVlogWorkitemXml(Record KVSKBAVLOGInterfaceLine, XmlDocument) :#

[IntegrationEvent(false, false)]
local procedure OnAfterAppendVlogWorkitemXml(var VlogInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var XmlDoc: XmlDocument): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnAfterAppendVlogWorkitemXml', '', false, false)]
local procedure DoSomethingOnAfterAppendVlogWorkitemXml(var VlogInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var XmlDoc: XmlDocument)
begin
end;

OnBeforeAppendVlogShipmentXml(Record KVSKBAPostedDispatchHandHeader, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogShipmentXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogShipmentXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogShipmentXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnAfterAppendVlogShipmentXml(Record KVSKBAPostedDispatchHandHeader, XmlElement, XmlDocument) :#

[IntegrationEvent(false, false)]
local procedure OnAfterAppendVlogShipmentXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnAfterAppendVlogShipmentXml', '', false, false)]
local procedure DoSomethingOnAfterAppendVlogShipmentXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument)
begin
end;

OnBeforeAppendVlogPrinterXml(XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogPrinterXml(var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogPrinterXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogPrinterXml(var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogPackages(Record KVSKBAPostedDispatchHandHeader, XmlElement, XmlDocument, Integer, Text, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogPackages(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var PacketNo: Integer; var Send2nProdcode: Text; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogPackages', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogPackages(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var PacketNo: Integer; var Send2nProdcode: Text; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogPackageXml(Record KVSKBAPostedDispatchHandHeader, Record KVSKBAPostedDispatchHandlLine, Integer, Text, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogPackageXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var SendNr: Integer; var Send2nProdcode: Text; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogPackageXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogPackageXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var SendNr: Integer; var Send2nProdcode: Text; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnAfterAppendVlogXmlPackage(Record KVSKBAPostedDispatchHandHeader, Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlElement, XmlDocument) :#

[IntegrationEvent(false, false)]
local procedure OnAfterAppendVlogXmlPackage(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnAfterAppendVlogXmlPackage', '', false, false)]
local procedure DoSomethingOnAfterAppendVlogXmlPackage(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument)
begin
end;

OnBeforeAppendVlogArticles(Record KVSKBAPostedDispatchHandHeader, Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlElement, XmlDocument, Boolean, Record KVSKBAPostedDispatchHandlLine) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogArticles(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean; var ItemPostedDispatchHandlLine: Record "KVSKBAPostedDispatchHandlLine"): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogArticles', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogArticles(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var ParentShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean; var ItemPostedDispatchHandlLine: Record "KVSKBAPostedDispatchHandlLine")
begin
end;

OnBeforeAppendVlogArticleXml(Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogArticleXml(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogArticleXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogArticleXml(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnAfterAppendVlogArticleXml(Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlDocument) :#

[IntegrationEvent(false, false)]
local procedure OnAfterAppendVlogArticleXml(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnAfterAppendVlogArticleXml', '', false, false)]
local procedure DoSomethingOnAfterAppendVlogArticleXml(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument)
begin
end;

OnBeforeAppendVlogFrankaturXml(Record KVSKBAPostedDispatchHandHeader, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogFrankaturXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogFrankaturXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogFrankaturXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogTariffCurrencyXml(Record KVSKBAPostedDispatchHandHeader, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogTariffCurrencyXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogTariffCurrencyXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogTariffCurrencyXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogValueOfGoodsCurrencyXml(Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogValueOfGoodsCurrencyXml(var PostedChildDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogValueOfGoodsCurrencyXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogValueOfGoodsCurrencyXml(var PostedChildDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var PackageXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogReceiverTelephoneXml(Record KVSKBAPostedDispatchHandHeader, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogReceiverTelephoneXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogReceiverTelephoneXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogReceiverTelephoneXml(var PostedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogShippingAgentXml(Record KVSKBAPostedDispatchHandHeader, XmlElement, Text, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogShippingAgentXml(var PostedDispatchHandlingHead: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var Send2nProdcode: Text; var XmlDoc: XmlDocument; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogShippingAgentXml', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogShippingAgentXml(var PostedDispatchHandlingHead: Record "KVSKBAPostedDispatchHandHeader"; var ShipmentXml: XmlElement; var Send2nProdcode: Text; var XmlDoc: XmlDocument; var IsHandled: Boolean)
begin
end;

OnBeforeAppendVlogField(Text, Record KVSKBAPostedDispatchHandHeader, Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlElement, XmlDocument, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeAppendVlogField(fieldName: Text; var postedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var postedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var packageXmlNode: XmlElement; var parentShipmentXmlNode: XmlElement; var xmldDocument: XmlDocument; var isHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAppendVlogField', '', false, false)]
local procedure DoSomethingOnBeforeAppendVlogField(fieldName: Text; var postedDispatchHandlingHeader: Record "KVSKBAPostedDispatchHandHeader"; var postedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var packageXmlNode: XmlElement; var parentShipmentXmlNode: XmlElement; var xmldDocument: XmlDocument; var isHandled: Boolean)
begin
end;

OnBeforeProcessPackageResponseGetPostedDispatchHandlingLine(XmlNode, Record KVSKBAPostedDispatchHandlLine, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnBeforeProcessPackageResponseGetPostedDispatchHandlingLine(packageXmlNode: XmlNode; var postedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var isHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeProcessPackageResponseGetPostedDispatchHandlingLine', '', false, false)]
local procedure DoSomethingOnBeforeProcessPackageResponseGetPostedDispatchHandlingLine(packageXmlNode: XmlNode; var postedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var isHandled: Boolean)
begin
end;

OnBeforeAddMailAddress(Record KVSKBAPostedDispatchHandHeader, XmlElement, Boolean) :#

Summary: OnBeforeAddMailAddress can be used to overwrite or skip the adding of the mailaddress.

[IntegrationEvent(false, false)]
local procedure OnBeforeAddMailAddress(var PostedDispatchHandHeader: Record "KVSKBAPostedDispatchHandHeader"; var XMLShipment: XmlElement; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAddMailAddress', '', false, false)]
local procedure DoSomethingOnBeforeAddMailAddress(var PostedDispatchHandHeader: Record "KVSKBAPostedDispatchHandHeader"; var XMLShipment: XmlElement; var IsHandled: Boolean)
begin
end;

Parameters:

  • PostedDispatchHandHeader:
  • XMLShipment:
  • IsHandled:

OnBeforeAddSendHelpFields(Record KVSKBAPostedDispatchHandHeader, XmlElement, Boolean) :#

Summary: OnBeforeAddSendFields can be used to overwrite or skip the adding of the mailaddress.

[IntegrationEvent(false, false)]
local procedure OnBeforeAddSendHelpFields(var PostedDispatchHandHeader: Record "KVSKBAPostedDispatchHandHeader"; var XMLShipment: XmlElement; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeAddSendHelpFields', '', false, false)]
local procedure DoSomethingOnBeforeAddSendHelpFields(var PostedDispatchHandHeader: Record "KVSKBAPostedDispatchHandHeader"; var XMLShipment: XmlElement; var IsHandled: Boolean)
begin
end;

Parameters:

  • PostedDispatchHandHeader:
  • XMLShipment:
  • IsHandled:

OnAfterCreatedArticleElement(Record KVSKBAPostedDispatchHandlLine, XmlElement, XmlElement, XmlDocument) :#

Summary: OnAfterCreatedArticleElement: allows adding subelements to the item, before it will be added to the parent document.

[IntegrationEvent(false, false)]
local procedure OnAfterCreatedArticleElement(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ArticleXML: XmlElement; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnAfterCreatedArticleElement', '', false, false)]
local procedure DoSomethingOnAfterCreatedArticleElement(var PostedDispatchHandlingLine: Record "KVSKBAPostedDispatchHandlLine"; var ArticleXML: XmlElement; var ParentPackageXml: XmlElement; var XmlDoc: XmlDocument)
begin
end;

Parameters:

  • PostedDispatchHandlingLine:
  • ArticleXML:
  • ParentPackageXml:
  • XmlDoc:
  • IsHandled:

OnBeforeCreateCommandXML(Record KVSKBAVLOGInterfaceLine, Text) :#

Summary: OnBeforeCreateCommandXML: allows replace Command value KVS:Print with KVS:Store. So if it should be stored in VLOG "only"

[IntegrationEvent(false, false)]
local procedure OnBeforeCreateCommandXML(var KVSKBAVLOGInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var Command: Text): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnBeforeCreateCommandXML', '', false, false)]
local procedure DoSomethingOnBeforeCreateCommandXML(var KVSKBAVLOGInterfaceLine: Record "KVSKBAVLOGInterfaceLine"; var Command: Text)
begin
end;

Parameters:

  • KVSKBAVLOGInterfaceLine:
  • Command:

OnElseGetHttpAuthentication(Enum KVSKBAVLOGAuthenticationType, Interface Http Authentication, Boolean) :#

[IntegrationEvent(false, false)]
local procedure OnElseGetHttpAuthentication(VLogAuthenticationType: Enum "KVSKBAVLOGAuthenticationType"; var IHttpAuthentication: Interface "Http Authentication"; var IsHandled: Boolean): 

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSKBAVLOGManagement", 'OnElseGetHttpAuthentication', '', false, false)]
local procedure DoSomethingOnElseGetHttpAuthentication(VLogAuthenticationType: Enum "KVSKBAVLOGAuthenticationType"; var IHttpAuthentication: Interface "Http Authentication"; var IsHandled: Boolean)
begin
end;