Skip to content

C
curio-biblio
Commit 871e43cc authored by Thiago Anders's avatar Thiago Anders
Browse files
Options

XSD do select exemplar

parent c7c61256
Hide whitespace changes
Inline Side-by-side
Showing with 70 additions and 0 deletions
srv/src/lib/acuRegisterModelMappings.pas
View file @ 871e43cc
...@@ -1590,6 +1590,69 @@ begin ...@@ -1590,6 +1590,69 @@ begin
''; '';
end; end;
function GetXSDIn_3219_smucEmprestarLivro_EscolhendoExemplar_RM_SELECIONAR_EXEMPLAR: String;
begin
Result := '<?xml version="1.0"?>' + #13#10 +
'<!--Created with Liquid XML Studio 6.1.18.0 - FREE Community Edition (http://www.liquid-technologies.com)-->' + #13#10 +
'<xs:schema elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">' + #13#10 +
' <xs:element name="SYSMSG">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:sequence>' + #13#10 +
' <xs:element name="Exemplar">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:attribute name="OID" type="xs:int" use="required"/>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
' </xs:sequence>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
'</xs:schema>' + #13#10 +
'';
end;
function GetXSDOut_3219_smucEmprestarLivro_EscolhendoExemplar_RM_SELECIONAR_EXEMPLAR: String;
begin
Result := '<?xml version="1.0"?>' + #13#10 +
'<!--Created with Liquid XML Studio 6.1.18.0 - FREE Community Edition (http://www.liquid-technologies.com)-->' + #13#10 +
'<xs:schema elementFormDefault="qualified" xmlns:xs="http://www.w3.org/2001/XMLSchema">' + #13#10 +
' <xs:element name="SYSMSG">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:sequence minOccurs="1" maxOccurs="1">' + #13#10 +
' <xs:element name="Exemplares">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:sequence minOccurs="0" maxOccurs="unbounded">' + #13#10 +
' <xs:element name="Exemplar">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:sequence minOccurs="1" maxOccurs="1">' + #13#10 +
' <xs:element name="Livro">' + #13#10 +
' <xs:complexType>' + #13#10 +
' <xs:attribute name="Titulo" type="xs:string"/>' + #13#10 +
' <xs:attribute name="Autor" type="xs:string"/>' + #13#10 +
' <xs:attribute name="OID" type="xs:int"/>' + #13#10 +
' <xs:attribute name="Edicao" type="xs:string"/>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
' </xs:sequence>' + #13#10 +
' <xs:attribute name="OID" type="xs:int"/>' + #13#10 +
' <xs:attribute name="Codigo" type="xs:string"/>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
' </xs:sequence>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
' </xs:sequence>' + #13#10 +
' <xs:anyAttribute processContents="skip"/>' + #13#10 +
' </xs:complexType>' + #13#10 +
' </xs:element>' + #13#10 +
'</xs:schema>' + #13#10 +
'';
end;
procedure RegisterUseCases1(piMetaModel: acMetaModel); procedure RegisterUseCases1(piMetaModel: acMetaModel);
var var
lUseCaseTicket: acUseCaseTicket; lUseCaseTicket: acUseCaseTicket;
...@@ -2443,6 +2506,13 @@ begin ...@@ -2443,6 +2506,13 @@ begin
lTransition.AddEffect('Effect_PesquisarExemplar'); lTransition.AddEffect('Effect_PesquisarExemplar');
lTransition.XsdIn.XML := GetXSDIn_3219_smucEmprestarLivro_EscolhendoExemplar_RM_PESQUISAR_EXEMPLAR; lTransition.XsdIn.XML := GetXSDIn_3219_smucEmprestarLivro_EscolhendoExemplar_RM_PESQUISAR_EXEMPLAR;
lTransition.XsdOut.XML := GetXSDOut_3219_smucEmprestarLivro_EscolhendoExemplar_RM_PESQUISAR_EXEMPLAR; lTransition.XsdOut.XML := GetXSDOut_3219_smucEmprestarLivro_EscolhendoExemplar_RM_PESQUISAR_EXEMPLAR;
lTransition := lState.NewOutgoingTransition('RM_SELECIONAR_EXEMPLAR');
lTransition.SourceState := lState;
lTransition.TargetState := lStateMachine.FindState('EditandoEmprestimos');
lTransition.AddTrigger('RM_SELECIONAR_EXEMPLAR');
lTransition.AddEffect('Effect_SelecionarExemplar');
lTransition.XsdIn.XML := GetXSDIn_3219_smucEmprestarLivro_EscolhendoExemplar_RM_SELECIONAR_EXEMPLAR;
lTransition.XsdOut.XML := GetXSDOut_3219_smucEmprestarLivro_EscolhendoExemplar_RM_SELECIONAR_EXEMPLAR;
lState := lStateMachine.FindState('Confirmando'); lState := lStateMachine.FindState('Confirmando');
lTransition := lState.NewOutgoingTransition('RM_CONFIRMAR_EMPRESTIMO'); lTransition := lState.NewOutgoingTransition('RM_CONFIRMAR_EMPRESTIMO');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment