| <?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� 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 "borrado"'"/> |
| </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> |