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: