Skip to content

KVSEDX Management#

Procedures#

OnRun#

procedure OnRun(Rec: Record "Job Queue Entry")

GetCurrentDatabaseName() : Text#

Summary: Get Current Databasename

procedure GetCurrentDatabaseName(): Text

Returns: Databasename

ShowEDXInbound(Guid)#

Summary: Shows EDX Inbound Entry Used by Customer Projects. EDX Pages s. KT708

procedure ShowEDXInbound(TransmissionIdPar: Guid)

Parameters:

  • TransmissionIdPar: Transmission Id (GUID)

ShowEDXOutbound(Guid)#

Summary: Shows EDX Outbound Entry Used by Customer Projects. EDX Pages s. KT708

procedure ShowEDXOutbound(TransmissionIdPar: Guid)

Parameters:

  • TransmissionIdPar: Transmission Id (GUID)

LookUpRecordID(RecordId)#

Summary: Displays the Card-/List-Page for a RecordId

procedure LookUpRecordID(p_RecID: RecordId)

Parameters:

  • p_RecID: Source Record Id

CheckField(Integer, Integer, Variant, Boolean) : Boolean#

procedure CheckField(TableNoPar: Integer; FieldNoPar: Integer; var VarConvertedVariant: Variant; XMLFormatPar: Boolean): Boolean

CheckFieldLength(Integer, Integer, Variant) : Boolean#

procedure CheckFieldLength(TableNoPar: Integer; FieldNoPar: Integer; var VarConvertedVariant: Variant): Boolean

EqualFieldContent(RecordId, RecordId, Integer) : Boolean#

Summary: Compares field contents of the source and target table Used by Customer Projects.

procedure EqualFieldContent(ParSourceRecordId: RecordId; ParTargetRecordId: RecordId; FieldNoPar: Integer): Boolean

Parameters:

  • ParSourceRecordId: Source RecordId
  • ParTargetRecordId: Target RecordId
  • FieldNoPar: Field number for comparison

TransferDiffValues(Record KVSEDX Error Log)#

procedure TransferDiffValues(var VarKVSEDXErrorLog: Record "KVSEDX Error Log")

CheckStatusChangeDiff(RecordId)#

procedure CheckStatusChangeDiff(ParRecordId: RecordId)

TransferBufferFields(Code[30], Code[30], RecordRef, RecordRef)#

procedure TransferBufferFields(EDXPartnerNo: Code[30]; EDXDocument: Code[30]; SourceRecordRef: RecordRef; DestRecordRef: RecordRef)

InitializeBufferFields(Code[30], Code[30], RecordRef, Integer) : Boolean#

procedure InitializeBufferFields(EDXPartnerNoPar: Code[30]; EDXDocumentPar: Code[30]; ParSourceRecordRef: RecordRef; TableNoDestPar: Integer): Boolean

CompareFieldDifferences(Code[30], Code[30], RecordRef, RecordRef) : Boolean#

procedure CompareFieldDifferences(EDXPartnerNoPar: Code[30]; EDXDocumentPar: Code[30]; ParSourceRecordRef: RecordRef; ParDestRecordRef: RecordRef): Boolean

DataExchangeWizard(Record KVSEDX Setup, Boolean) : Boolean#

procedure DataExchangeWizard(var VarKVSEDXSetup: Record "KVSEDX Setup"; CalledFromWizardPar: Boolean): Boolean

GetConst_INBOUND_TRANSMISSION() : Text#

procedure GetConst_INBOUND_TRANSMISSION(): Text

GetConst_INBOUND_TO_EDX_DOCUMENT() : Text#

procedure GetConst_INBOUND_TO_EDX_DOCUMENT(): Text

GetConst_INBOUND_POST_EDX_DOCUMENT() : Text#

procedure GetConst_INBOUND_POST_EDX_DOCUMENT(): Text

GetConst_OUTBOUND_SEND_NAV_DOCUMENT() : Text#

procedure GetConst_OUTBOUND_SEND_NAV_DOCUMENT(): Text

GetConst_OUTBOUND_TRANSMISSION() : Text#

procedure GetConst_OUTBOUND_TRANSMISSION(): Text

GetConst_SEND_MAIL() : Text#

procedure GetConst_SEND_MAIL(): Text

GetConst_REORGANIZATION() : Text#

procedure GetConst_REORGANIZATION(): Text

CalcNextRuntime(Record KVSEDX Document Setup, DateTime) : DateTime#

procedure CalcNextRuntime(ParKVSEDXDocumentSetup: Record "KVSEDX Document Setup"; StartingDateTimePar: DateTime): DateTime

CalcAvailQuantities(Code[20], Code[20], Date, Date, Record Item, Decimal, Decimal, Decimal, Decimal, Decimal, Decimal, Decimal, Date)#

Summary: Calculates the availability of an item based on the "Availability by period". This method is used in customer projects.

procedure CalcAvailQuantities(ParLocationFilter: Code[20]; ParVariantFilter: Code[20]; ParStartDate: Date; ParEndDate: Date; ParItem: Record "Item"; var VarGrossRequirementVariant: Decimal; var VarPlannedOrderRcpt: Decimal; var VarScheduledRcpt: Decimal; var VarPlannedOrderReleases: Decimal; var VarProjAvailableBalance: Decimal; var VarExpectedInventory: Decimal; var VarQtyAvailable: Decimal; var VarPurchaseAvailabilityDate: Date)

Parameters:

  • ParLocationFilter: Location Filter
  • ParVariantFilter: Variant Filter
  • ParStartDate: Period Startdate
  • ParEndDate: Period Enddate
  • ParItem: Item No.
  • VarGrossRequirementVariant: Returns Gross Requirement
  • VarPlannedOrderRcpt: Returns Planned Order Receipt
  • VarScheduledRcpt: Return Scheduled Receipt
  • VarPlannedOrderReleases: Returns Planned Order Releases
  • VarProjAvailableBalance: Return Available Balance
  • VarExpectedInventory: Return Expected Inventory
  • VarQtyAvailable: Returns Qty. Available
  • VarPurchaseAvailabilityDate: Returns Purchase Availability Date

InitializeBOMforCCMessage(Code[20], Record Production BOM Header, Record Production BOM Line)#

Summary: Determines the production or assembly bill of materials for an item

procedure InitializeBOMforCCMessage(ItemNoPar: Code[20]; var TempVarProductionBOMHeader: Record "Production BOM Header" temporary; var TempVarProductionBOMLine: Record "Production BOM Line" temporary)

Parameters:

  • ItemNoPar: Item No.
  • TempVarProductionBOMHeader: Referenced BOM Header (temp)
  • TempVarProductionBOMLine: Referenced BOM Line (temp)

GetServShptLines(Record Service Shipment Line, Record Service Invoice Line)#

procedure GetServShptLines(var TempVarServiceShipmentLine: Record "Service Shipment Line" temporary; ParServiceInvoiceLine: Record "Service Invoice Line")

MapServiceLineType(Enum Service Line Type) : Integer#

procedure MapServiceLineType(ParServiceLineType: Enum "Service Line Type"): Integer

GetItemReferenceUOM(Enum KVSEDX Item Reference Type, Code[50], Enum KVSEDX Item Reference Field, Code[20], Code[50], Code[50], Code[10], Code[50], Code[10]) : Integer#

procedure GetItemReferenceUOM(ItemReferenceTypePar: Enum "KVSEDX Item Reference Type"; ItemReferenceTypeNoPar: Code[50]; ItemReferenceResultFieldPar: Enum "KVSEDX Item Reference Field"; ItemNoPar: Code[20]; CrossReferenceNoPar: Code[50]; UnitOfMeasureCodePar: Code[50]; VariantCodePar: Code[10]; var FieldValueVar: Code[50]; var UOMCodeVar: Code[10]): Integer

GetItemReference(Enum KVSEDX Item Reference Type, Code[50], Enum KVSEDX Item Reference Field, Code[20], Code[50], Code[50], Code[10], Code[50]) : Integer#

procedure GetItemReference(ItemReferenceTypePar: Enum "KVSEDX Item Reference Type"; ItemReferenceTypeNoPar: Code[50]; ItemReferenceResultFieldPar: Enum "KVSEDX Item Reference Field"; ItemNoPar: Code[20]; CrossReferenceNoPar: Code[50]; UnitOfMeasureCodePar: Code[50]; VariantCodePar: Code[10]; var FieldValueVar: Code[50]): Integer

GetItemReferenceFieldNo() : Integer#

procedure GetItemReferenceFieldNo(): Integer

GetItemReferenceFieldValue(RecordRef) : Code[50]#

procedure GetItemReferenceFieldValue(RecordRefPar: RecordRef): Code[50]

SetItemReferenceFieldValue(RecordRef, Text, Integer)#

procedure SetItemReferenceFieldValue(ParRecordRef: RecordRef; ValuePar: Text; FieldNoPar: Integer)

CreatePDFDocument(RecordRef, OutStream) : Boolean#

Summary: Creates a PDF document based on a BC document

procedure CreatePDFDocument(var RecordRefVar: RecordRef; var VarPDFOutStream: OutStream): Boolean

Parameters:

  • RecordRefVar: Source Record Reference
  • VarPDFOutStream: Stream for PDF Document

Returns:

CreateBase64Document(InStream, BigText)#

Summary: Creates Base64 String

procedure CreateBase64Document(var VarPDFInStream: InStream; var VarPDFBase64BigText: BigText)

Parameters:

  • VarPDFInStream: Stream with the data to be converted
  • VarPDFBase64BigText: Base64 Text

AllowHttpClientRequests()#

Summary: Allow Http Client Requests

procedure AllowHttpClientRequests()

KBABridge_GetFieldValue(RecordId, Integer, Variant, Boolean)#

procedure KBABridge_GetFieldValue(ParRecordId: RecordId; FieldNoPar: Integer; var VarValueVariant: Variant; var VarHandled: Boolean)

KBABridge_SetRangeDPID_SSH_RRL(Record Sales Shipment Header, Record Return Receipt Line, Boolean)#

procedure KBABridge_SetRangeDPID_SSH_RRL(var VarSalesShipmentHeader: Record "Sales Shipment Header"; var VarReturnReceiptLine: Record "Return Receipt Line"; var VarHandled: Boolean)

KBABridge_SetRangePosNrPRL(Record Purch. Rcpt. Line, Code[50], Boolean)#

procedure KBABridge_SetRangePosNrPRL(var VarPurchRcptLine: Record "Purch. Rcpt. Line"; PositionNoPar: Code[50]; var VarHandled: Boolean)

KBABridge_SetRangePosNrPOL(Record Purchase Line, Code[50], Boolean)#

procedure KBABridge_SetRangePosNrPOL(var VarPurchaseLine: Record "Purchase Line"; ParPositionNo: Code[50]; var VarHandled: Boolean)

KBABridge_SetSalesPriceManual(Record Sales Line, Boolean)#

procedure KBABridge_SetSalesPriceManual(var VarSalesLine: Record "Sales Line"; var VarHandled: Boolean)

KBABridge_SetPurchasePriceManual(Record Purchase Line, Boolean)#

procedure KBABridge_SetPurchasePriceManual(var VarPurchaseLine: Record "Purchase Line"; var VarHandled: Boolean)

Invoke_OnKBABridge_MapSalesLineType(Variant, Boolean)#

procedure Invoke_OnKBABridge_MapSalesLineType(var TypeVariant: Variant; var HandledVar: Boolean)

Invoke_OnKBABridge_MapPurchaseLineType(Variant, Boolean)#

procedure Invoke_OnKBABridge_MapPurchaseLineType(var VarTypeVariant: Variant; var VarHandled: Boolean)

TestAzureConnection(Record KVSEDX Setup, Record KVSEDX Document Setup)#

procedure TestAzureConnection(var VarKVSEDXSetup: Record "KVSEDX Setup"; ParKVSEDXDocumentSetup: Record "KVSEDX Document Setup")

IsolatedStorageSet(Guid, Text)#

Summary: Transfers the value to the isolated storage

[NonDebuggable()]
procedure IsolatedStorageSet(var GuidVar: Guid; SharedAccessKey: Text)

Parameters:

  • GuidVar: Isolated Storage GUID
  • SharedAccessKey: new Value

IsolatedStorageGet(Guid) : Text#

Summary: Fetches the value from the Isolated Storage

[NonDebuggable()]
procedure IsolatedStorageGet(GuidPar: Guid): Text

Parameters:

  • GuidPar: Isolated Storage GUID

Returns: Value

IsolatedStorageSetHasValue(Guid) : Boolean#

Summary: Checks whether a value is stored in isolated storage

[NonDebuggable()]
procedure IsolatedStorageSetHasValue(GuidPar: Guid): Boolean

Parameters:

  • GuidPar: Isolated Storage GUID

Returns: true if value is stored

SetTransmissionInterface(Interface KVSEDXiTransmission, Enum KVSEDX Transmission Type) : Boolean#

[TryFunction()]
procedure SetTransmissionInterface(var KVSEDXiTransmissionVar: Interface "KVSEDXiTransmission"; KVSEDXTransmissionTypePar: Enum "KVSEDX Transmission Type"): Boolean

Events#

OnLookUpProjectTable(RecordId, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnLookUpProjectTable(RecordIDPar: RecordId; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnLookUpProjectTable', '', false, false)]
local procedure DoSomethingOnLookUpProjectTable(RecordIDPar: RecordId; var HandledVar: Boolean)
begin
end;

OnGetDefaultValue(RecordRef, Integer, Text, Variant, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnGetDefaultValue(RecordRefPar: RecordRef; FieldNoPar: Integer; DefaultValuePar: Text; var NewValueVar: Variant; var ValueSet: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnGetDefaultValue', '', false, false)]
local procedure DoSomethingOnGetDefaultValue(RecordRefPar: RecordRef; FieldNoPar: Integer; DefaultValuePar: Text; var NewValueVar: Variant; var ValueSet: Boolean)
begin
end;

OnWizardRegisterWebservice()#

[IntegrationEvent(true, false)]
local procedure OnWizardRegisterWebservice()

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnWizardRegisterWebservice', '', false, false)]
local procedure DoSomethingOnWizardRegisterWebservice()
begin
end;

OnWizardRegisterNoSeries()#

[IntegrationEvent(true, false)]
local procedure OnWizardRegisterNoSeries()

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnWizardRegisterNoSeries', '', false, false)]
local procedure DoSomethingOnWizardRegisterNoSeries()
begin
end;

OnBeforeCalcNextRuntime(Record KVSEDX Document Setup, DateTime, DateTime, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnBeforeCalcNextRuntime(ParKVSEDXDocumentSetup: Record "KVSEDX Document Setup"; ParStartingDateTime: DateTime; var VarNewRunDateTime: DateTime; var VarHandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnBeforeCalcNextRuntime', '', false, false)]
local procedure DoSomethingOnBeforeCalcNextRuntime(ParKVSEDXDocumentSetup: Record "KVSEDX Document Setup"; ParStartingDateTime: DateTime; var VarNewRunDateTime: DateTime; var VarHandledVar: Boolean)
begin
end;

OnInitializeBOMforCCMessage(Code[20], Boolean, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnInitializeBOMforCCMessage(ItemNoPar: Code[20]; var FillBOMVar: Boolean; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnInitializeBOMforCCMessage', '', false, false)]
local procedure DoSomethingOnInitializeBOMforCCMessage(ItemNoPar: Code[20]; var FillBOMVar: Boolean; var HandledVar: Boolean)
begin
end;

OnKBABridge_GetFieldValue(RecordId, Integer, Variant, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_GetFieldValue(RecIdPar: RecordId; FieldNoPar: Integer; var ValueVar: Variant; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_GetFieldValue', '', false, false)]
local procedure DoSomethingOnKBABridge_GetFieldValue(RecIdPar: RecordId; FieldNoPar: Integer; var ValueVar: Variant; var HandledVar: Boolean)
begin
end;

OnKBABridge_SetRangeDPID_SSH_RRL(Record Sales Shipment Header, Record Return Receipt Line, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_SetRangeDPID_SSH_RRL(var SalesShipmentHeaderVar: Record "Sales Shipment Header"; var ReturnReceiptLine: Record "Return Receipt Line"; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_SetRangeDPID_SSH_RRL', '', false, false)]
local procedure DoSomethingOnKBABridge_SetRangeDPID_SSH_RRL(var SalesShipmentHeaderVar: Record "Sales Shipment Header"; var ReturnReceiptLine: Record "Return Receipt Line"; var HandledVar: Boolean)
begin
end;

OnKBABridge_SetRangePosNrPRL(Record Purch. Rcpt. Line, Code[50], Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_SetRangePosNrPRL(var PurchRcptLineVar: Record "Purch. Rcpt. Line"; PositionNoPar: Code[50]; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_SetRangePosNrPRL', '', false, false)]
local procedure DoSomethingOnKBABridge_SetRangePosNrPRL(var PurchRcptLineVar: Record "Purch. Rcpt. Line"; PositionNoPar: Code[50]; var HandledVar: Boolean)
begin
end;

OnKBABridge_SetRangePosNrPOL(Record Purchase Line, Code[50], Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_SetRangePosNrPOL(var PurchaseLineVar: Record "Purchase Line"; PositionNoPar: Code[50]; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_SetRangePosNrPOL', '', false, false)]
local procedure DoSomethingOnKBABridge_SetRangePosNrPOL(var PurchaseLineVar: Record "Purchase Line"; PositionNoPar: Code[50]; var HandledVar: Boolean)
begin
end;

OnKBABridge_SetSalesPriceManual(Record Sales Line, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_SetSalesPriceManual(var SalesLineVar: Record "Sales Line"; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_SetSalesPriceManual', '', false, false)]
local procedure DoSomethingOnKBABridge_SetSalesPriceManual(var SalesLineVar: Record "Sales Line"; var HandledVar: Boolean)
begin
end;

OnKBABridge_SetPurchasePriceManual(Record Purchase Line, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_SetPurchasePriceManual(var VarPurchaseLineVar: Record "Purchase Line"; var VarHandled: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_SetPurchasePriceManual', '', false, false)]
local procedure DoSomethingOnKBABridge_SetPurchasePriceManual(var VarPurchaseLineVar: Record "Purchase Line"; var VarHandled: Boolean)
begin
end;

OnKBABridge_MapSalesLineType(Variant, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_MapSalesLineType(var TypeVariant: Variant; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_MapSalesLineType', '', false, false)]
local procedure DoSomethingOnKBABridge_MapSalesLineType(var TypeVariant: Variant; var HandledVar: Boolean)
begin
end;

OnKBABridge_MapPurchaseLineType(Variant, Boolean)#

[IntegrationEvent(true, false)]
local procedure OnKBABridge_MapPurchaseLineType(var TypeVariant: Variant; var HandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnKBABridge_MapPurchaseLineType', '', false, false)]
local procedure DoSomethingOnKBABridge_MapPurchaseLineType(var TypeVariant: Variant; var HandledVar: Boolean)
begin
end;

OnDebug(Boolean)#

[IntegrationEvent(true, false)]
local procedure OnDebug(var IsHandledVar: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnDebug', '', false, false)]
local procedure DoSomethingOnDebug(var IsHandledVar: Boolean)
begin
end;

OnBeforeTransferBufferFields(Code[30], Code[30], RecordRef, FieldRef, RecordRef, FieldRef, Boolean)#

Summary: The event is triggered before a field is transferred from the source table to the destination table

[IntegrationEvent(true, false)]
local procedure OnBeforeTransferBufferFields(EDXPartnerNo: Code[30]; EDXDocument: Code[30]; var SourceRecordRef: RecordRef; var SourceFieldRef: FieldRef; var DestRecordRef: RecordRef; var DestFieldRef: FieldRef; var IsHandled: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnBeforeTransferBufferFields', '', false, false)]
local procedure DoSomethingOnBeforeTransferBufferFields(EDXPartnerNo: Code[30]; EDXDocument: Code[30]; var SourceRecordRef: RecordRef; var SourceFieldRef: FieldRef; var DestRecordRef: RecordRef; var DestFieldRef: FieldRef; var IsHandled: Boolean)
begin
end;

Parameters:

  • EDXPartnerNo: Current EDXPartner No.
  • EDXDocument: Current EDX Document
  • SourceRecordRef: Source RecordRef
  • SourceFieldRef: Source FieldRef
  • DestRecordRef: Destination RecordRef
  • DestFieldRef: Destination FieldRef
  • IsHandled: Handled

OnAfterTransferBufferFields(Code[30], Code[30], RecordRef, FieldRef, RecordRef, FieldRef, Boolean)#

Summary: The event is triggered after a field is transferred from the source table to the destination table

[IntegrationEvent(true, false)]
local procedure OnAfterTransferBufferFields(EDXPartnerNo: Code[30]; EDXDocument: Code[30]; var SourceRecordRef: RecordRef; var SourceFieldRef: FieldRef; var DestRecordRef: RecordRef; var DestFieldRef: FieldRef; var IsHandled: Boolean)

[EventSubscriber(ObjectType::Codeunit, Codeunit::"KVSEDX Management", 'OnAfterTransferBufferFields', '', false, false)]
local procedure DoSomethingOnAfterTransferBufferFields(EDXPartnerNo: Code[30]; EDXDocument: Code[30]; var SourceRecordRef: RecordRef; var SourceFieldRef: FieldRef; var DestRecordRef: RecordRef; var DestFieldRef: FieldRef; var IsHandled: Boolean)
begin
end;

Parameters:

  • EDXPartnerNo: Current EDXPartner No.
  • EDXDocument: Current EDX Document
  • SourceRecordRef: Source RecordRef
  • SourceFieldRef: Source FieldRef
  • DestRecordRef: Destination RecordRef
  • DestFieldRef: Destination FieldRef
  • IsHandled: Handled
Last update: July 21, 2023