Avatar
igutierrezm
Participante
igutierrezm

Que tal, tomé el ejemplo que se indica y lo pusé en un botón. Dentro de VS Code se resaltan algunos errores, este es el código completo:

pageextension 50101 ReadText extends «Posted Sales Invoice»
{
actions
{
addbefore(«&Electronic Document»)
{
group(«Addenda»)
{
CaptionML = ENU = ‘Addenda’, ESP = ‘Addenda’;
action(«Agregar addenda al XML»)
{
CaptionML = ENU = ‘Add addenda to XML’, ESP = ‘Agregar addenda al XML’;
image = CreateXMLFile;
Promoted = true;
PromotedCategory = Category5;
PromotedIsBig = true;
PromotedOnly = false;
}
}
}
}
var
FileDialogTitleText:Label ‘Import Presto .bc3 file’, Comment = ‘ESP=Importar archivo Presto .bc3′;
PrestoFileExtensionTok:Label’Presto Files(*.bc3)|*.bc3’, Comment = ‘ESP=ArchivosPresto (*.bc3)|*.bc3’;
FilePath:Text;
FileUploadErrorText:Label ‘The file could not be uploaded’, Comment = ‘ESP=No se ha podido cargar el archivo’;
UploadResult:Boolean;
PrestoInStream:InStream;
begin
UploadResult:=UploadIntoStream(FileDialogTitleText,>?, PrestoFileExtensionTok, FilePath, PrestoInStream);

if not UploadResult then
Error(FileUploadErrorText);

BC3Buffer.LoadDataFromStream(PrestoInStream);

procedure LoadDataFromStream(BC3InStream:InStream);
var
EncodingConverter:Codeunit ?;
LineContent:Text;
CurrentLineNo:Integer;
begin
DeleteAll();
while not BC3InStream.EOS() do begin
BC3InStream.ReadText(LineContent);
LineContent:=EncodingConverter.ChangeInImport(LineContent);

CurrentLineNo += 1;
Init();
«Line No.» := CurrentLineNo;
etLineContent(LineContent);
Insert();
end;
end;
}

Distinguí los errores con cursiva y en negritas, las líneas donde presento dudas

 

 

 

#14516