Skip to main content
aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAdolfoSBH2016-12-28 15:02:11 -0500
committerAdolfoSBH2016-12-28 15:45:53 -0500
commit9193db5089443a16e6bb506b5dd02188f0233411 (patch)
tree0b6a6e0e79116cc2a80fc045be3027ec535230ba
parentf724040aa5e2ce8c3482a0f59b31c498317ca36d (diff)
downloadorg.eclipse.qvtd-asanchez/509750.tar.gz
org.eclipse.qvtd-asanchez/509750.tar.xz
org.eclipse.qvtd-asanchez/509750.zip
[509750] - Adding delphi examples to the test casesasanchez/509750
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/OCL2QVTiTestCases.java34
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/.gitignore3
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/.gitignore1
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.delphi263
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.output_ref.xmi1242
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.delphi81
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.output_ref.xmi272
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.delphi59
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.output_ref.xmi275
-rw-r--r--tests/org.eclipse.qvtd.cs2as.compiler.tests/tests-gen/cg/.gitignore1
10 files changed, 2228 insertions, 3 deletions
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/OCL2QVTiTestCases.java b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/OCL2QVTiTestCases.java
index b8cf9e15d..40efe16e6 100644
--- a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/OCL2QVTiTestCases.java
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/OCL2QVTiTestCases.java
@@ -46,6 +46,7 @@ import org.eclipse.qvtd.cs2as.compiler.internal.CS2ASJavaCompilerParametersImpl;
import org.eclipse.qvtd.cs2as.compiler.internal.OCL2QVTiCompilerChain;
import org.eclipse.qvtd.cs2as.compiler.internal.OCL2QVTp;
import org.eclipse.qvtd.cs2as.compiler.tests.models.companies.CompaniesStandaloneSetup;
+import org.eclipse.qvtd.cs2as.compiler.tests.models.delphi.DelphiStandaloneSetup;
import org.eclipse.qvtd.pivot.qvtbase.Transformation;
import org.eclipse.qvtd.pivot.qvtbase.utilities.QVTbase;
import org.eclipse.qvtd.pivot.qvtcore.QVTcorePivotStandaloneSetup;
@@ -69,7 +70,9 @@ import org.junit.FixMethodOrder;
import org.junit.Test;
import org.junit.runners.MethodSorters;
+import astm.AstmPackage;
import cs2as.company.lookup.LookupPackage;
+import delphi.DelphiPackage;
import example1.source.SourcePackage;
import example1.target.TargetPackage;
import example2.classes.ClassesPackage;
@@ -734,8 +737,6 @@ public class OCL2QVTiTestCases extends LoadTestCase {
TESTS_GEN_PATH, TESTS_PACKAGE_NAME);
@NonNull Class<? extends Transformer> txClass = new CS2ASJavaCompilerImpl()
.compileTransformation(myQVT, qvtiTransf, cgParams);
-
-
// Execute CGed transformation
myQVT.executeModelsTX_CG(txClass, createCompaniesModelNames_CG("model1"));
myQVT.executeModelsTX_CG(txClass, createCompaniesModelNames_CG("model2"));
@@ -749,6 +750,31 @@ public class OCL2QVTiTestCases extends LoadTestCase {
myQVT.dispose();
}
+ @Test
+ public void testDelphi_CG() throws Exception {
+ DelphiStandaloneSetup.doSetup();
+ MyQVT myQVT = new MyQVT("delphi");
+ //myQVT.loadEcoreFile("Lookup.ecore", astm.lookup.LookupPackage.eINSTANCE);
+ myQVT.loadGenModels("Delphi.genmodel", "astm.genmodel", "Lookup.genmodel");
+ Transformation qvtiTransf = myQVT.executeNewOCL2QVTi_CompilerChain("Delphi.ocl");
+ CS2ASJavaCompilerParameters cgParams = new CS2ASJavaCompilerParametersImpl(
+ "",
+ "",
+ TESTS_GEN_PATH, TESTS_PACKAGE_NAME);
+ @NonNull Class<? extends Transformer> txClass = new CS2ASJavaCompilerImpl()
+ .compileTransformation(myQVT, qvtiTransf, cgParams);
+
+ myQVT.dispose();
+ myQVT = new MyQVT("delphi");
+ myQVT.loadEcoreFile("Delphi.ecore", DelphiPackage.eINSTANCE);
+ myQVT.loadEcoreFile("astm.ecore", AstmPackage.eINSTANCE);
+ // Execute CGed transformation
+ myQVT.executeModelsTX_CG(txClass, createDelphiModelNames_CG("untClAux"));
+ myQVT.executeModelsTX_CG(txClass, createDelphiModelNames_CG("untClFormatos"));
+ myQVT.executeModelsTX_CG(txClass, createDelphiModelNames_CG("untClArchivo"));
+ myQVT.dispose();
+ }
+
/*
protected static void assertValidModel(@NonNull URI asURI) {
EnvironmentFactory factory = OCL.createEnvironmentFactory(new StandaloneProjectMap());
@@ -859,5 +885,7 @@ public class OCL2QVTiTestCases extends LoadTestCase {
protected static @NonNull TestModels createCompaniesModelNames_CG(String modelName) {
return new TestModels(modelName, ".101", ".output_CG.xmi", ".output_ref.xmi");
}
-
+ protected static @NonNull TestModels createDelphiModelNames_CG(String modelName) {
+ return new TestModels(modelName, ".delphi", ".output_CG.xmi", ".output_ref.xmi");
+ }
}
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/.gitignore b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/.gitignore
new file mode 100644
index 000000000..119f2cfea
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/.gitignore
@@ -0,0 +1,3 @@
+/graphs/
+/temp/
+/Delphi.qvtp.qvtcas
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/.gitignore b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/.gitignore
new file mode 100644
index 000000000..e782bc693
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/.gitignore
@@ -0,0 +1 @@
+/*.output_CG.xmi
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.delphi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.delphi
new file mode 100644
index 000000000..feed44965
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.delphi
@@ -0,0 +1,263 @@
+unit untClArchivo;
+
+interface
+
+uses
+ shellapi, windows, forms, controls, dbclient;
+const
+ FILWORD = 1;
+ FILEXCEL = 2;
+
+type
+ TArchivo = class
+ ruta : string;
+ nombre : string;
+ Descri : string;
+ Proyecto : string;
+ modulo : string;
+ tarea : string;
+ usuario : string;
+ f_creacion : string;
+ class procedure nuevoWord;
+ class procedure EjercutarProg(Ejecutable, Argumentos:string; Visibilidad:integer);
+ class function RutaReal(const idruta:integer):string;
+ class procedure SelecFicheroRutaRelativa (var idruta,nombre:string);
+ class function PathRutaRelativa (const idruta:string):string;
+ class function RutaProyecto (const proyecto: string):string;
+ class function RutaModulo (const Proyecto,Modulo : string) : string;
+ class function RutaSubMod (const Proyecto,Modulo,Submod:string):string;
+ class function BorraArchivo (const Ruta:string):integer;overload;
+ class function BorraArchivo (const Ruta:string; Cds:TclientDataset):integer;overload;
+ class function BorraArchivoDefecto(const ruta: string; Cds: TClientDataset): integer;
+// class function RutaPorDefectoTarea(const Proyecto,Modulo,Submod:string):string;
+
+ private
+ end;
+
+implementation
+
+{ TArchivo }
+uses
+ untDmDatos, untDmCds, untFrmSelFil, SysUtils, DB, untConst,untClMensa;
+
+class procedure TArchivo.nuevoWord;
+begin
+
+end;
+
+
+//EjecutarProg('c:\kk\registro.html','',Sw_ShowNormal);
+
+class procedure TArchivo.EjercutarProg(Ejecutable, Argumentos: string;
+ Visibilidad: integer);
+ var
+ Info:TShellExecuteInfo;
+ pInfo:PShellExecuteInfo;
+//// exitCode:DWord;
+ begin
+ {Puntero a Info}
+ {Pointer to Info}
+ pInfo:=@Info;
+ {Rellenamos Info}
+ {Fill info}
+ with Info do
+ begin
+ cbSize:=SizeOf(Info);
+ fMask:=SEE_MASK_NOCLOSEPROCESS;
+ wnd := Application.Handle;//a�adido application.
+ lpVerb:=nil;
+ lpFile:=PChar(Ejecutable);
+ {Parametros al ejecutable}
+ {Executable parameters}
+ lpParameters:=Pchar(Argumentos+#0);
+ lpDirectory:=nil;
+ nShow:=Visibilidad;
+ hInstApp:=0;
+ end;
+ {Ejecutamos}
+ {Execute}
+ ShellExecuteEx(pInfo);
+
+ {Esperamos que termine}
+ {Wait to finish}
+{ repeat
+ exitCode := WaitForSingleObject(Info.hProcess,500);
+ Application.ProcessMessages;
+ until (exitCode <> WAIT_TIMEOUT);
+}
+ end;
+class function TArchivo.RutaReal(const idruta: integer): string;
+begin
+ result := dmDatos.RutaDoc(idruta);
+end;
+
+class procedure TArchivo.SelecFicheroRutaRelativa(var idruta,
+ nombre: string);
+var
+ f : TFrmSelFil;
+begin
+ f := TFrmSelFil.Create(nil);
+ try
+ if f.ShowModal = mrOk then
+ begin
+ idruta := f.ruta;
+ nombre := f.fichero;
+ end;
+ finally
+ f.Free;
+ end;
+end;
+
+class function TArchivo.PathRutaRelativa(const idruta: string): string;
+begin
+ with dmcds.cdstarea do
+ begin
+ close;
+ commandtext := 'SELECT SRUTA FROM FSRUTAS ' +
+ ' WHERE IDRUTA = ' + idruta;
+ open;
+ if not IsEmpty then
+ result := Fields[0].AsString;
+// else
+// result := PathDefectoProyecto(proyecto);
+ close;
+ end;
+end;
+
+class function TArchivo.RutaModulo(const Proyecto, Modulo: string): string;
+begin
+ with dmcds.cdsRuta do
+ begin
+ close;
+ CommandText := 'SELECT IDRUTA FROM FSMODULO ' +
+ ' WHERE IDPROJEC = ' + QuotedStr(proyecto) +
+ ' AND IDMODULO = ' + QuotedStr(modulo);
+ open;
+ if not IsEmpty then
+ result := Fields[0].AsString;
+ close;
+ end;
+end;
+
+class function TArchivo.RutaProyecto(const proyecto: string): string;
+begin
+ with dmcds.cdsRuta do
+ begin
+ close;
+ CommandText := 'SELECT IDRUTA FROM FSPROJEC ' +
+ ' WHERE IDPROJEC = ' + QuotedStr(proyecto);
+ open;
+ if not IsEmpty then
+ result := Fields[0].AsString;
+ close;
+ end;
+end;
+
+class function TArchivo.RutaSubMod(const Proyecto, Modulo,
+ Submod: string): string;
+begin
+ with dmcds.cdsRuta do
+ begin
+ close;
+ CommandText := 'SELECT IDRUTA FROM FSSUBMOD ' +
+ ' WHERE IDPROJEC = ' + QuotedStr(proyecto) +
+ ' AND IDMODULO = ' + QuotedStr(modulo) +
+ ' AND IDSUBMOD = ' + QuotedStr(Submod);
+ open;
+ if not IsEmpty then
+ result := Fields[0].AsString;
+ close;
+ end;
+end;
+
+
+
+class function TArchivo.BorraArchivo(const Ruta: string): integer;
+begin
+ if not FileExists(Ruta) then
+ result := 1
+ else if RenameFile(ruta,ruta + 'borrado') then
+ begin
+ if deleteFile(ruta + 'borrado') then
+ result := 0
+ else
+ result := 3 // error al borrar;
+ end
+ else
+ result := 2; //bloqueado
+ if result = 3 then
+ if not RenameFile(ruta + 'borrado',ruta) then
+ result := 4; // se ha cambiado el nombre;
+end;
+
+class function TArchivo.BorraArchivo(const Ruta: string;
+ Cds: TclientDataset): integer;
+var
+ res : integer;
+begin
+ if cds <> nil then
+ begin
+ if not cds.IsEmpty then
+ begin
+ if cds.State = dsBrowse then
+ begin
+ try
+ cds.Delete;
+ res := BorraArchivo(ruta);
+ if ( res = 0 ) or ( res = 1 ) then
+ begin
+ if cds.ApplyUpdates(0) = 0 then
+ result := 0
+ else
+ result := 5; //cuidado, se ha borrado el fichero y no el registro;
+ end
+ else
+ result := res;
+
+ except
+ result := 6; // error controlado
+ end;
+ end
+ else
+ result := 9
+ end
+ else
+ result := 8
+
+ end
+ else
+ result := 7;
+end;
+
+class function TArchivo.BorraArchivoDefecto(const ruta: string;
+ Cds: TClientDataset): integer;
+begin
+
+ result := BorraArchivo(ruta,cds);
+ if result = 0 then
+ exit
+ else
+ begin
+ if result = 5 then
+ TMensa.Info ('Se ha borrado el archivo en disco duro pero no el registro en base de datos')
+ else if result = 6 then
+ TMensa.Info('Ha ocurrido un error inesperado')
+ else if result = 2 then
+ TMensa.Info('El archivo est� bloqueado, no puede borrarse')
+ else if result = 3 then
+ TMensa.Info('Ha ocurrido un error inesperado borrando el archivo del disco duro')
+ else if result = 4 then
+ TMensa.Info('Ha ocurrido un error borrando el archivo este ha sido renombrado con sufijo "borrado"')
+ else if result = 7 then
+ TMensa.Info('Recibido Dataset nulo')
+ else if result = 8 then
+ TMensa.Info('Dataset Vacio')
+ else if result = 9 then
+ TMensa.Info('Dataset en estado no valido')
+ else
+ TMensa.Info('Error no controlado');
+ end;
+
+end;
+
+end.
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.output_ref.xmi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.output_ref.xmi
new file mode 100644
index 000000000..80b0d03c9
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClArchivo.output_ref.xmi
@@ -0,0 +1,1242 @@
+<?xml version="1.0" encoding="ASCII"?>
+<xmi:XMI xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:astm="http://cs2as/tests/delphi/AS/1.0" xsi:schemaLocation="http://cs2as/tests/delphi/AS/1.0 ../astm.ecore">
+ <astm:IntegerLiteral value="0"/>
+ <astm:IntegerLiteral value="0"/>
+ <astm:IntegerLiteral value="0"/>
+ <astm:IntegerLiteral value="0"/>
+ <astm:Project>
+ <files xsi:type="astm:DelphiUnit" language="Delphi">
+ <locationInfo>
+ <inSourceFile/>
+ </locationInfo>
+ <name nameString="untClArchivo"/>
+ <interface>
+ <fragments xsi:type="astm:VariableDefinition">
+ <identifierName nameString="FILWORD"/>
+ <initialValue xsi:type="astm:IntegerLiteral" value="1"/>
+ </fragments>
+ <fragments xsi:type="astm:VariableDefinition">
+ <identifierName nameString="FILEXCEL"/>
+ <initialValue xsi:type="astm:IntegerLiteral" value="2"/>
+ </fragments>
+ <fragments xsi:type="astm:TypeDefinition">
+ <name nameString="TArchivo"/>
+ </fragments>
+ </interface>
+ <implementation>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.nuevoWord"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement"/>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.EjercutarProg"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.1/@body.0/@declarations.1">
+ <name nameString="pInfo"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.1/@body.0/@declarations.0">
+ <name nameString="Info"/>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:DelphiWithStatement" withs="/4/@files.0/@implementation/@fragments.1/@body.0/@declarations.0">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="cbSize"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="SizeOf"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.1/@body.0/@declarations.0">
+ <name nameString="Info"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="fMask"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="SEE_MASK_NOCLOSEPROCESS"/>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="wnd"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="Application"/>
+ <member>
+ <name nameString="Handle"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="lpVerb"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:NewExpression"/>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="lpFile"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="PChar"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Ejecutable"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="lpParameters"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="Pchar"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="Argumentos"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="#0"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="lpDirectory"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:NewExpression"/>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="nShow"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="Visibilidad"/>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="hInstApp"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="ShellExecuteEx"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.1/@body.0/@declarations.1">
+ <name nameString="pInfo"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ </subStatements>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="Info"/>
+ </declarations>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="pInfo"/>
+ </declarations>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.RutaReal"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="dmDatos"/>
+ <member>
+ <name nameString="RutaDoc"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="idruta"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.SelecFicheroRutaRelativa"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.3/@body.0/@declarations.0">
+ <name nameString="f"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TFrmSelFil"/>
+ <member>
+ <name nameString="Create"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:NewExpression"/>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:TryStatement">
+ <guardedStatement xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:QualifiedOverData" refersTo="/4/@files.0/@implementation/@fragments.3/@body.0/@declarations.0">
+ <name nameString="f"/>
+ <member>
+ <name nameString="ShowModal"/>
+ </member>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="mrOk"/>
+ </rightOperand>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="idruta"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData" refersTo="/4/@files.0/@implementation/@fragments.3/@body.0/@declarations.0">
+ <name nameString="f"/>
+ <member>
+ <name nameString="ruta"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="nombre"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData" refersTo="/4/@files.0/@implementation/@fragments.3/@body.0/@declarations.0">
+ <name nameString="f"/>
+ <member>
+ <name nameString="fichero"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </thenBody>
+ </subStatements>
+ </guardedStatement>
+ <finalStatement xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData" refersTo="/4/@files.0/@implementation/@fragments.3/@body.0/@declarations.0">
+ <name nameString="f"/>
+ <member>
+ <name nameString="Free"/>
+ </member>
+ </calledFunction>
+ </expression>
+ </finalStatement>
+ </subStatements>
+ </subStatements>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="f"/>
+ </declarations>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.PathRutaRelativa"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:DelphiWithStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="commandtext"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:StringLiteral" value="'SELECT SRUTA FROM FSRUTAS '"/>
+ <rightOperand xsi:type="astm:StringLiteral" value="' WHERE IDRUTA = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="idruta"/>
+ </rightOperand>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="open"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:IdentifierReference">
+ <name nameString="IsEmpty"/>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="Fields"/>
+ <member>
+ <name nameString="AsString"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </thenBody>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.RutaModulo"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:DelphiWithStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="CommandText"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:StringLiteral" value="'SELECT IDRUTA FROM FSMODULO '"/>
+ <rightOperand xsi:type="astm:StringLiteral" value="' WHERE IDPROJEC = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="proyecto"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="' AND IDMODULO = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="modulo"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="open"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:IdentifierReference">
+ <name nameString="IsEmpty"/>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="Fields"/>
+ <member>
+ <name nameString="AsString"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </thenBody>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.RutaProyecto"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:DelphiWithStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="CommandText"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:StringLiteral" value="'SELECT IDRUTA FROM FSPROJEC '"/>
+ <rightOperand xsi:type="astm:StringLiteral" value="' WHERE IDPROJEC = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="proyecto"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="open"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:IdentifierReference">
+ <name nameString="IsEmpty"/>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="Fields"/>
+ <member>
+ <name nameString="AsString"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </thenBody>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.RutaSubMod"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:DelphiWithStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="CommandText"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:StringLiteral" value="'SELECT IDRUTA FROM FSSUBMOD '"/>
+ <rightOperand xsi:type="astm:StringLiteral" value="' WHERE IDPROJEC = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="proyecto"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="' AND IDMODULO = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="modulo"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="' AND IDSUBMOD = '"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Submod"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="open"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:IdentifierReference">
+ <name nameString="IsEmpty"/>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="Fields"/>
+ <member>
+ <name nameString="AsString"/>
+ </member>
+ </rightOperand>
+ </expression>
+ </thenBody>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="close"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.BorraArchivo"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="FileExists"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Ruta"/>
+ </value>
+ </actualParams>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="1"/>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="RenameFile"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="'borrado'"/>
+ </value>
+ </actualParams>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="deleteFile"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="'borrado'"/>
+ </value>
+ </actualParams>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="3"/>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="2"/>
+ </expression>
+ </elseBody>
+ </elseBody>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="3"/>
+ </condition>
+ <thenBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="RenameFile"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="'borrado'"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </value>
+ </actualParams>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="4"/>
+ </expression>
+ </thenBody>
+ </thenBody>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.BorraArchivo"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="cds"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:NewExpression"/>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:UnaryExpression">
+ <operator xsi:type="astm:Not"/>
+ <operand xsi:type="astm:QualifiedOverData">
+ <name nameString="cds"/>
+ <member>
+ <name nameString="IsEmpty"/>
+ </member>
+ </operand>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:QualifiedOverData">
+ <name nameString="cds"/>
+ <member>
+ <name nameString="State"/>
+ </member>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="dsBrowse"/>
+ </rightOperand>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:TryStatement">
+ <guardedStatement xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="cds"/>
+ <member>
+ <name nameString="Delete"/>
+ </member>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.9/@body.0/@declarations.0">
+ <name nameString="res"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="BorraArchivo"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:NewExpression"/>
+ <rightOperand xsi:type="astm:NewExpression"/>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="cds"/>
+ <member>
+ <name nameString="ApplyUpdates"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IntegerLiteral" value="0"/>
+ </actualParams>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="5"/>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference" refersTo="/4/@files.0/@implementation/@fragments.9/@body.0/@declarations.0">
+ <name nameString="res"/>
+ </rightOperand>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </guardedStatement>
+ <catchBlocks>
+ <body xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="6"/>
+ </expression>
+ </subStatements>
+ </body>
+ </catchBlocks>
+ </subStatements>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="9"/>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="8"/>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="7"/>
+ </expression>
+ </elseBody>
+ </subStatements>
+ </subStatements>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="res"/>
+ </declarations>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TArchivo.BorraArchivoDefecto"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="BorraArchivo"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="ruta"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="cds"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="exit"/>
+ </calledFunction>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="5"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Se ha borrado el archivo en disco duro pero no el registro en base de datos'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="6"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Ha ocurrido un error inesperado'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="2"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'El archivo est&#xfffd; bloqueado, no puede borrarse'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="3"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Ha ocurrido un error inesperado borrando el archivo del disco duro'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="4"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Ha ocurrido un error borrando el archivo este ha sido renombrado con sufijo &quot;borrado&quot;'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="7"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Recibido Dataset nulo'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="8"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Dataset Vacio'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="9"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Dataset en estado no valido'"/>
+ </actualParams>
+ </expression>
+ </thenBody>
+ <elseBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Info"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Error no controlado'"/>
+ </actualParams>
+ </expression>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </elseBody>
+ </subStatements>
+ </elseBody>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ </implementation>
+ </files>
+ </astm:Project>
+ <astm:BinaryExpression>
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="res"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </astm:BinaryExpression>
+ <astm:BinaryExpression>
+ <operator xsi:type="astm:Equal"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="res"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="1"/>
+ </astm:BinaryExpression>
+</xmi:XMI>
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.delphi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.delphi
new file mode 100644
index 000000000..4587584ed
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.delphi
@@ -0,0 +1,81 @@
+unit untClAux;
+
+interface
+
+uses
+ Menus, Windows, SysUtils, Variants, Graphics, Forms, StdCtrls, ExtCtrls, Controls,
+ StrUtils, ShlObj, UpdaterClass, untClMensa;
+
+type
+ TEstado = class
+ codigo,
+ descripcion,
+ tipoestado : string;
+ item : TMenuItem;
+ end;
+
+ versTipo = array [0..3] of Integer;
+
+ function ObtenerAppVersion(Rut: String): versTipo;
+ procedure ActualizaApli(Formu: TForm; Modo,Escenario: Integer);
+var
+ frmPost:array of TForm;
+ ActualizacionesPendientes: Boolean;
+
+implementation
+
+function ObtenerAppVersion(Rut: String): versTipo;
+var
+ Size, Size2: DWord;
+ Pt, Pt2: Pointer;
+ vers: versTipo;
+
+begin
+ Size := GetFileVersionInfoSize(PChar(Rut), Size2);
+ if Size > 0 then
+ begin
+ GetMem (Pt, Size);
+ try
+ GetFileVersionInfo (PChar (Rut), 0, Size, Pt);
+ VerQueryValue (Pt, '\', Pt2, Size2);
+ with TVSFixedFileInfo (Pt2^) do
+ begin
+ vers[0] := HiWord (dwFileVersionMS);
+ vers[1] := LoWord (dwFileVersionMS);
+ vers[2] := HiWord (dwFileVersionLS);
+ vers[3] := LoWord (dwFileVersionLS);
+ end;
+ finally
+ FreeMem (Pt);
+ result := vers;
+ end;
+ end;
+end;
+
+procedure ActualizaApli(Formu: TForm; Modo,Escenario: Integer);
+var
+ Act: TUpdater;
+ i:Integer;
+begin
+
+ if modo >0 then
+ begin
+ if not TMensa.Pregunta(pChar('¿Desea buscar actualizaciones para el programa?'),pChar('Actualizador')) then
+ Exit;
+ end;
+
+ if length(frmPost)>0 then
+ for i:=0 to High(frmPost) do
+ if frmPost[i].Tag=0 then
+ begin
+ frmPost[i].Close;
+ Break;
+ end;
+ Act := TUpdater.Create(Formu, Modo, Escenario);
+ Act.Free;
+
+end;
+
+
+
+end. \ No newline at end of file
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.output_ref.xmi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.output_ref.xmi
new file mode 100644
index 000000000..679957806
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClAux.output_ref.xmi
@@ -0,0 +1,272 @@
+<?xml version="1.0" encoding="ASCII"?>
+<xmi:XMI xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:astm="http://cs2as/tests/delphi/AS/1.0" xsi:schemaLocation="http://cs2as/tests/delphi/AS/1.0 java://astm.AstmPackage">
+ <astm:IntegerLiteral value="0"/>
+ <astm:IntegerLiteral value="3"/>
+ <astm:IntegerLiteral value="0"/>
+ <astm:IntegerLiteral value="1"/>
+ <astm:IntegerLiteral value="2"/>
+ <astm:IntegerLiteral value="3"/>
+ <astm:Project>
+ <files xsi:type="astm:DelphiUnit" language="Delphi">
+ <locationInfo>
+ <inSourceFile/>
+ </locationInfo>
+ <name nameString="untClAux"/>
+ <interface>
+ <fragments xsi:type="astm:TypeDefinition">
+ <name nameString="TEstado"/>
+ </fragments>
+ <fragments xsi:type="astm:TypeDefinition">
+ <name nameString="versTipo"/>
+ </fragments>
+ <fragments xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="frmPost"/>
+ </fragments>
+ <fragments xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="ActualizacionesPendientes"/>
+ </fragments>
+ </interface>
+ <implementation>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="ObtenerAppVersion"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0">
+ <name nameString="Size"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="GetFileVersionInfoSize"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="PChar"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Rut"/>
+ </value>
+ </actualParams>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Size2"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0">
+ <name nameString="Size"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IntegerLiteral" value="0"/>
+ </condition>
+ <thenBody xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="GetMem"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1">
+ <name nameString="Pt"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0">
+ <name nameString="Size"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:TryStatement">
+ <guardedStatement xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="GetFileVersionInfo"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="PChar"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Rut"/>
+ </value>
+ </actualParams>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IntegerLiteral" value="0"/>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.0">
+ <name nameString="Size"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1">
+ <name nameString="Pt"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="VerQueryValue"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1">
+ <name nameString="Pt"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'\'"/>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Pt2"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="Size2"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:DelphiWithStatement"/>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="Pt2"/>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ </guardedStatement>
+ </subStatements>
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2">
+ <name nameString="vers"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="HiWord"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="dwFileVersionMS"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2">
+ <name nameString="vers"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="LoWord"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="dwFileVersionMS"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2">
+ <name nameString="vers"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="HiWord"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="dwFileVersionLS"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2">
+ <name nameString="vers"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="LoWord"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="dwFileVersionLS"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </thenBody>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="FreeMem"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.1">
+ <name nameString="Pt"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference" refersTo="/6/@files.0/@implementation/@fragments.0/@body.0/@declarations.2">
+ <name nameString="vers"/>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="Size"/>
+ </declarations>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="Pt"/>
+ </declarations>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="vers"/>
+ </declarations>
+ </body>
+ </fragments>
+ </implementation>
+ </files>
+ </astm:Project>
+</xmi:XMI>
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.delphi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.delphi
new file mode 100644
index 000000000..a66e10e23
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.delphi
@@ -0,0 +1,59 @@
+unit untClFormatos;
+
+interface
+
+uses
+ SysUtils, stdCtrls, untClMensa, StrUtils;
+type
+ TFecha = class
+ class function FechaSql(const fecha: string):string;overload;
+ class function FechaSql(const fecha: TDatetime):string;overload;
+ class procedure FechaEdtExit(ob: TObject);
+ end;
+
+ TNumber = class
+ class function FloatSql(const f: String): string;overload;
+ class function FloatSql(f:double):string;overload;
+ end;
+implementation
+
+{ TFecha }
+
+class function TFecha.FechaSql(const fecha: string): string;
+begin
+ result := ' DateValue(' + QuotedStr(fecha) + ')';
+end;
+
+class function TFecha.FechaSql(const fecha: TDatetime): string;
+begin
+ result := FechaSql(DateToStr(fecha));
+end;
+
+class procedure TFecha.FechaEdtExit(ob: TObject);
+var
+ ed: TEdit;
+begin
+ Assert(ob is TEdit, 'Clase de objeto no vlida en el campo fecha');
+ ed := TEdit(ob);
+
+ try
+ if ed.Text <> '' then
+ StrToDate(Trim(ed.Text));
+ except
+ ed.SetFocus;
+ TMensa.Error(QuotedStr(ed.Text) + ' no es una fecha vlida')
+ end;
+end;
+
+class function TNumber.FloatSql(const f: String):string;
+begin
+ Result := AnsiReplaceText(f, ',', '.');
+end;
+
+class function TNumber.FloatSql(f: double):string;
+begin
+ Result := FloatSql(FloatToStr(f));
+end;
+
+end.
+ \ No newline at end of file
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.output_ref.xmi b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.output_ref.xmi
new file mode 100644
index 000000000..a7e40ba6a
--- /dev/null
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/src/org/eclipse/qvtd/cs2as/compiler/tests/models/delphi/samples/untClFormatos.output_ref.xmi
@@ -0,0 +1,275 @@
+<?xml version="1.0" encoding="ASCII"?>
+<astm:Project xmi:version="2.0" xmlns:xmi="http://www.omg.org/XMI" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:astm="http://cs2as/tests/delphi/AS/1.0" xsi:schemaLocation="http://cs2as/tests/delphi/AS/1.0 ../astm.ecore">
+ <files xsi:type="astm:DelphiUnit" language="Delphi">
+ <locationInfo>
+ <inSourceFile/>
+ </locationInfo>
+ <name nameString="untClFormatos"/>
+ <interface>
+ <fragments xsi:type="astm:TypeDefinition">
+ <name nameString="TFecha"/>
+ </fragments>
+ <fragments xsi:type="astm:TypeDefinition">
+ <name nameString="TNumber"/>
+ </fragments>
+ </interface>
+ <implementation>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TFecha.FechaSql"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:StringLiteral" value="' DateValue('"/>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="fecha"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="')'"/>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TFecha.FechaSql"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="FechaSql"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="DateToStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="fecha"/>
+ </value>
+ </actualParams>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TFecha.FechaEdtExit"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="Assert"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="ob"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:IdentifierReference">
+ <name nameString="TEdit"/>
+ </rightOperand>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'Clase de objeto no v&#xfffd;lida en el campo fecha'"/>
+ </actualParams>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference" refersTo="//@files.0/@implementation/@fragments.2/@body.0/@declarations.0">
+ <name nameString="ed"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="TEdit"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="ob"/>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:TryStatement">
+ <guardedStatement xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:IfStatement">
+ <condition xsi:type="astm:BinaryExpression">
+ <leftOperand xsi:type="astm:QualifiedOverData" refersTo="//@files.0/@implementation/@fragments.2/@body.0/@declarations.0">
+ <name nameString="ed"/>
+ <member>
+ <name nameString="Text"/>
+ </member>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="''"/>
+ </condition>
+ <thenBody xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="StrToDate"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="Trim"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:QualifiedOverData" refersTo="//@files.0/@implementation/@fragments.2/@body.0/@declarations.0">
+ <name nameString="ed"/>
+ <member>
+ <name nameString="Text"/>
+ </member>
+ </value>
+ </actualParams>
+ </value>
+ </actualParams>
+ </expression>
+ </thenBody>
+ </subStatements>
+ </guardedStatement>
+ <catchBlocks>
+ <body xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData" refersTo="//@files.0/@implementation/@fragments.2/@body.0/@declarations.0">
+ <name nameString="ed"/>
+ <member>
+ <name nameString="SetFocus"/>
+ </member>
+ </calledFunction>
+ </expression>
+ </subStatements>
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:FunctionCallExpression">
+ <calledFunction xsi:type="astm:QualifiedOverData">
+ <name nameString="TMensa"/>
+ <member>
+ <name nameString="Error"/>
+ </member>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Add"/>
+ <leftOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="QuotedStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:QualifiedOverData" refersTo="//@files.0/@implementation/@fragments.2/@body.0/@declarations.0">
+ <name nameString="ed"/>
+ <member>
+ <name nameString="Text"/>
+ </member>
+ </value>
+ </actualParams>
+ </leftOperand>
+ <rightOperand xsi:type="astm:StringLiteral" value="' no es una fecha v&#xfffd;lida'"/>
+ </value>
+ </actualParams>
+ </expression>
+ </subStatements>
+ </body>
+ </catchBlocks>
+ </subStatements>
+ </subStatements>
+ <declarations xsi:type="astm:VariableDefinition" isMutable="true">
+ <identifierName nameString="ed"/>
+ </declarations>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TNumber.FloatSql"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="Result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="AnsiReplaceText"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="f"/>
+ </value>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="','"/>
+ </actualParams>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:StringLiteral" value="'.'"/>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ <fragments xsi:type="astm:FunctionDefinition">
+ <identifierName nameString="TNumber.FloatSql"/>
+ <body xsi:type="astm:DelphiBlockStatement">
+ <subStatements xsi:type="astm:BlockStatement">
+ <subStatements xsi:type="astm:ExpressionStatement">
+ <expression xsi:type="astm:BinaryExpression">
+ <operator xsi:type="astm:Assign"/>
+ <leftOperand xsi:type="astm:IdentifierReference">
+ <name nameString="Result"/>
+ </leftOperand>
+ <rightOperand xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="FloatSql"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:DelphiFunctionCallExpression">
+ <calledFunction xsi:type="astm:IdentifierReference">
+ <name nameString="FloatToStr"/>
+ </calledFunction>
+ <actualParams xsi:type="astm:ActualParameterExpression">
+ <value xsi:type="astm:IdentifierReference">
+ <name nameString="f"/>
+ </value>
+ </actualParams>
+ </value>
+ </actualParams>
+ </rightOperand>
+ </expression>
+ </subStatements>
+ </subStatements>
+ </body>
+ </fragments>
+ </implementation>
+ </files>
+</astm:Project>
diff --git a/tests/org.eclipse.qvtd.cs2as.compiler.tests/tests-gen/cg/.gitignore b/tests/org.eclipse.qvtd.cs2as.compiler.tests/tests-gen/cg/.gitignore
index e917c2b11..db56cc590 100644
--- a/tests/org.eclipse.qvtd.cs2as.compiler.tests/tests-gen/cg/.gitignore
+++ b/tests/org.eclipse.qvtd.cs2as.compiler.tests/tests-gen/cg/.gitignore
@@ -10,3 +10,4 @@
/_KiamaRewrite_qvtp_qvtcas/
/_classescs2as_qvtp_qvtcas/
/_companies_qvtp_qvtcas/
+/_Delphi_qvtp_qvtcas/

Back to the top