23. September 2025 10:45
23. September 2025 11:13
23. September 2025 11:20
23. September 2025 11:51
23. September 2025 11:59
23. September 2025 12:13
23. September 2025 12:25
23. September 2025 12:58
24. September 2025 11:47
report 50000 "XML Export with Language"
{
ProcessingOnly = true;
UseRequestPage = true;
requestpage
{
layout
{
area(Content)
{
group(Options)
{
field(Language; LanguageCode)
{
ApplicationArea = All;
Caption = 'Language';
TableRelation = Language;
}
field(ExportPath; UNCPath)
{
ApplicationArea = All;
Caption = 'Export Path';
}
}
}
}
}
trigger OnInitReport()
begin
LanguageCode := GlobalLanguage;
UNCPath := '\\FileServer\Share\Export\';
end;
trigger OnPostReport()
var
MyXMLPort: XMLport "My XMLPort";
TempBlob: Codeunit "Temp Blob";
InStr: InStream;
OutStr: OutStream;
UNCFile: File;
FinalPath: Text;
begin
// Setze Sprache
GlobalLanguage := LanguageCode;
FinalPath := UNCPath + 'Export_' + LanguageCode + '_' + Format(Today, 0, 9) + '.xml';
// Export über TempBlob
TempBlob.CreateOutStream(OutStr);
MyXMLPort.SetDestination(OutStr);
MyXMLPort.Export();
// Schreibe in UNC-Datei
TempBlob.CreateInStream(InStr);
UNCFile.Create(FinalPath);
UNCFile.CreateOutStream(OutStr);
CopyStream(OutStr, InStr);
UNCFile.Close();
Message('Export erfolgreich: %1', FinalPath);
end;
var
LanguageCode: Code[10];
UNCPath: Text;
}
24. September 2025 13:47
local procedure MyProcedure(destpath:Text,LanguageCode:Text)
var
outstr:OutStream;
UNCFile:File;
xml:XmlPort "Export Contact";
begin
UNCFile.Create(dechr(destpath,'>','\')+'\'+ 'Export_' + LanguageCode + '_' + Format(Today, 0, 9) + '.xml');
UNCFile.CreateOutStream(outstr);
xml.SetDestination(outstr);
xml.Export();
UNCFile.Close();
end;
24. September 2025 14:48
24. September 2025 16:25