Fórum Mensagem TISS - XML #340814
24/04/2007
0
Estou começando a adaptar nosso sistema (somos um laboratório de análises clínicas e 3 clínicas de diagnósticos) ao TISS.
Sei que existem várias formas para se gerar o XML e acredito estar utilizando uma muito boa, por isso gostaria de compartilhar com vcs.
No Delphi tem um wizard chamado XML DataBiding. O objetivo dele é gerar classes baseadas num schemma xml.
O arquivo que o Delphi gerou acabou ficando com inúmeras duplicidades ou alguns types com mesmo nome mas estrutura diferente.
A boa notícia é que passei umas horinhas corrigindo o arquivo e acredito que ele está pronto para uso.
O código da unit é o seguinte:
[code:1:08a65eea77]
unit UTISS;
interface
uses xmldom, XMLDoc, XMLIntf;
type
{ Forward Decls }
IXMLMensagemTISS = interface;
IXMLCabecalhoTransacao = interface;
IXMLIdentificacaoTransacao = interface;
IXMLCt_motivoGlosa = interface;
IXMLCt_motivoGlosaList = interface;
IXMLOrigem = interface;
IXMLCt_identificacaoPrestador = interface;
IXMLDestino = interface;
IXMLOperadoraParaPrestador = interface;
IXMLDemonstrativosRetorno = interface;
IXMLCt_demonstrativoAnaliseConta = interface;
IXMLCt_demonstrativoAnaliseContaList = interface;
IXMLCt_identificacaoOperadora = interface;
IXMLCt_cabecalhoDemonstrativo = interface;
IXMLCt_contratado = interface;
IXMLCt_endereco = interface;
IXMLFatura = interface;
IXMLCt_dadosConta = interface;
IXMLLote = interface;
IXMLLote_StatusProtocolo = interface;
IXMLCt_dadosLote = interface;
IXMLGuia = interface;
IXMLCt_dadosGuia = interface;
IXMLCt_beneficiario = interface;
IXMLProcedimentos = interface;
IXMLCt_dadosProcedimento = interface;
IXMLCt_tabela = interface;
IXMLCt_tabelaList = interface;
IXMLRelacaoGlosa = interface;
IXMLFalhaNegocio = interface;
IXMLCt_demonstrativoOdontologia = interface;
IXMLCt_demonstrativoOdontologiaList = interface;
IXMLDentificacaoOperadora = interface;
IXMLCt_periodoProcessamento = interface;
IXMLDadosPrestador = interface;
IXMLCt_identificadorPrestOdontoDemo = interface;
IXMLCt_dadosPagamento = interface;
IXMLCt_loteOdonto = interface;
IXMLCt_detalheGuiaOdonto = interface;
IXMLCt_procedimentoOdontoRealizado = interface;
IXMLCt_denteRegiao = interface;
IXMLDemaisDescontos = interface;
IXMLCt_descontoOdonto = interface;
IXMLCt_totalDemoOdonto = interface;
IXMLCt_demonstrativoPagamento = interface;
IXMLCt_demonstrativoPagamentoList = interface;
IXMLCt_dadoBancario = interface;
IXMLDadosResumo = interface;
IXMLCt_dadosResumo = interface;
IXMLCt_dadosResumoList = interface;
IXMLCt_desconto = interface;
IXMLCt_protocoloRecebimento = interface;
IXMLCt_detalheProtocolo = interface;
IXMLGuias = interface;
IXMLCt_StatusProtocolo = interface;
IXMLCt_statusLote = interface;
IXMLDetalheguia = interface;
IXMLCt_cabecalhoGuia = interface;
IXMLProcedimentosExecutados = interface;
IXMLCt_itemSolicitacao = interface;
IXMLGlosas = interface;
IXMLCt_autorizacaoProcedimento = interface;
IXMLTotalOdonto = interface;
IXMLCt_retornoElegibilidade = interface;
IXMLCt_reciboCancelaGuia = interface;
IXMLGuiasCanceladas = interface;
IXMLDadosGuia = interface;
IXMLPrestadorParaOperadora = interface;
IXMLCt_loteGuias = interface;
IXMLCt_guias = interface;
IXMLCt_solicitacaoDemonstrativoPagamento = interface;
IXMLCt_solicitacaoStatusProtocolo = interface;
IXMLDetalheProtocolo = interface;
IXMLSolicitacaoProcedimento = interface;
IXMLCt_guiaSolicInternacao = interface;
IXMLCt_guiaSolicInternacaoList = interface;
IXMLCt_cabecalhoSolicitacao = interface;
IXMLCt_solicitante = interface;
IXMLCt_identificacaoProfissional = interface;
IXMLCt_conselhoProfissional = interface;
IXMLPrestadorSolicitado = interface;
IXMLCt_hipoteseDiagnostica = interface;
IXMLCt_diagnosticoGuia = interface;
IXMLCt_Diagnostico = interface;
IXMLCt_tempoEvolucaoDoenca = interface;
IXMLCt_diagnosticosSecundarios = interface;
IXMLCt_diagnosticosSecundariosList = interface;
IXMLCt_procedimentosSolicitados = interface;
IXMLProcedimentoSolicitado = interface;
IXMLCt_OPMSolicitadas = interface;
IXMLOPMSolicitada = interface;
IXMLCt_autorizacaoGuia = interface;
IXMLCt_guiaSolicitacaoSP_SADT = interface;
IXMLCt_guiaSolicitacaoSP_SADTList = interface;
IXMLCt_guiaSolicitacaoOdonto = interface;
IXMLCt_guiaSolicitacaoOdontoList = interface;
IXMLCt_cabecalhoGuiaOdonto = interface;
IXMLDadosBeneficiario = interface;
IXMLDadosSolicitante = interface;
IXMLDadosContratado = interface;
IXMLCt_profissionalExecutante = interface;
IXMLCt_situacaoInicial = interface;
IXMLCt_situacaoClinica = interface;
IXMLDentes = interface;
IXMLPlanoTratamento = interface;
IXMLCt_procedimentoOdontologia = interface;
IXMLCt_guiaSolicitacaoProrrogacao = interface;
IXMLCt_guiaSolicitacaoProrrogacaoList = interface;
IXMLCt_autorizacaoGuiaInternacao = interface;
IXMLCt_solicitaElegibilidade = interface;
IXMLCt_cancelaGuia = interface;
IXMLEpilogo = interface;
IXMLDadosExecutante = interface;
IXMLAutorizacaoServico = interface;
IXMLAutorizacaoServicoList = interface;
IXMLCt_procedimentosRealizados = interface;
IXMLCt_OPMUtilizada = interface;
IXMLIdentificacaoOPM = interface;
IXMLIdentificacaoOPMList = interface;
IXMLCt_atendimentoConsulta = interface;
IXMLProcedimento = interface;
IXMLCt_outrasDespesas = interface;
IXMLDespesa = interface;
IXMLDespesaList = interface;
IXMLCt_diagnosticoSaidaInternacao = interface;
IXMLCt_obitoInternacao = interface;
IXMLCt_identificacaoEquipe = interface;
IXMLMembroEquipe = interface;
IXMLCt_valorTotalServicos = interface;
IXMLCt_internacaoObstetrica = interface;
IXMLCt_numeroDN = interface;
IXMLCt_obitoNeonatal = interface;
IXMLCt_situacaoDentes = interface;
IXMLCt_tratamentoOdontoSolicitado = interface;
IXMLCt_tratamenteOdontoRealizado = interface;
IXMLCt_totaisOdonto = interface;
IXMLCt_procedimentoRevisao = interface;
IXMLCt_procedimentoRevisaoList = interface;
IXMLProcedimentosRevisao = interface;
IXMLCt_outrasDespesasRevisao = interface;
IXMLCt_outrasDespesasRevisaoList = interface;
IXMLCt_OPMUtilizadasRevisao = interface;
IXMLCt_OPMUtilizadasRevisaoList = interface;
IXMLOPMUtilizada = interface;
IXMLCt_executanteComplementar = interface;
IXMLCt_atendimentoOdontologia = interface;
IXMLAutorizacao = interface;
IXMLCt_procedimentoOdontoRevisao = interface;
IXMLProcedimentoOdontologia = interface;
IXMLCt_guiaConsulta = interface;
IXMLCt_guiaConsultaList = interface;
IXMLHipoteseDiagnostica = interface;
IXMLDadosAtendimento = interface;
IXMLCt_guiaSP_SADT = interface;
IXMLCt_guiaSP_SADTList = interface;
IXMLPrestadorExecutante = interface;
IXMLProfissionalExecutanteCompl = interface;
IXMLProcedimentosRealizados = interface;
IXMLProcedimentoEquipe = interface;
IXMLProcedimentosExamesRealizados = interface;
IXMLCt_guiaResumoInternacao = interface;
IXMLCt_guiaResumoInternacaoList = interface;
IXMLCt_guiaHonorarioIndividual = interface;
IXMLCt_guiaHonorarioIndividualList = interface;
IXMLContratadoExecutante = interface;
IXMLGuiasList = interface;
IXMLGuiaFaturamento = interface;
IXMLCt_guiaOdontologia = interface;
IXMLCt_guiaOdontologiaList = interface;
IXMLDadosContratadoExecutante = interface;
IXMLProcedimentoExecutado = interface;
IXMLProcedimentoExecutadoList = interface;
IXMLGuiaRevisaoGlosa = interface;
IXMLCt_guiaConsultaReapresentacao = interface;
IXMLCt_guiaConsultaReapresentacaoList = interface;
IXMLCt_guiaSP_SADTReapresentacao = interface;
IXMLCt_guiaSP_SADTReapresentacaoList = interface;
IXMLCt_guiaResumoInternacaoReapresentacao = interface;
IXMLCt_guiaResumoInternacaoReapresentacaoList = interface;
IXMLCt_guiaHonorarioIndividualReapresentacao = interface;
IXMLCt_guiaHonorarioIndividualReapresentacaoList = interface;
IXMLCt_guiaTratamentoOdontologicoReapresentacao = interface;
IXMLCt_guiaTratamentoOdontologicoReapresentacaoList = interface;
IXMLCt_diariasAdicionais = interface;
IXMLSt_tipoGlosaList = interface;
IXMLDescricaoList = interface;
IXMLDoubleList = interface;
IXMLSt_outrasDespesasList = interface;
IXMLSt_dataList = interface;
IXMLReducaoAcrescimoList = interface;
IXMLQuantidadeList = interface;
IXMLJustificativaList = interface;
IXMLIntegerList = interface;
IXMLCodigoBarraList = interface;
IXMLProcedimentoRealizado = interface;
IXMLProcedimentoRealizadoOdonto = interface;
{ IXMLMensagemTISS }
IXMLMensagemTISS = interface(IXMLNode)
[´{7CE1B04C-223C-4008-9926-1A379F2EE33D}´]
{ Property Accessors }
function Get_Cabecalho: IXMLCabecalhoTransacao;
function Get_OperadoraParaPrestador: IXMLOperadoraParaPrestador;
function Get_PrestadorParaOperadora: IXMLPrestadorParaOperadora;
function Get_Epilogo: IXMLEpilogo;
{ Methods & Properties }
property Cabecalho: IXMLCabecalhoTransacao read Get_Cabecalho;
property OperadoraParaPrestador: IXMLOperadoraParaPrestador read Get_OperadoraParaPrestador;
property PrestadorParaOperadora: IXMLPrestadorParaOperadora read Get_PrestadorParaOperadora;
property Epilogo: IXMLEpilogo read Get_Epilogo;
end;
{ IXMLCabecalhoTransacao }
IXMLCabecalhoTransacao = interface(IXMLNode)
[´{7F091B80-9708-4290-8454-9A745427210C}´]
{ Property Accessors }
function Get_IdentificacaoTransacao: IXMLIdentificacaoTransacao;
function Get_FalhaNegocio: IXMLFalhaNegocio;
function Get_Origem: IXMLOrigem;
function Get_Destino: IXMLDestino;
function Get_VersaoPadrao: WideString;
procedure Set_VersaoPadrao(Value: WideString);
{ Methods & Properties }
property IdentificacaoTransacao: IXMLIdentificacaoTransacao read Get_IdentificacaoTransacao;
property FalhaNegocio: IXMLFalhaNegocio read Get_FalhaNegocio;
property Origem: IXMLOrigem read Get_Origem;
property Destino: IXMLDestino read Get_Destino;
property VersaoPadrao: WideString read Get_VersaoPadrao write Set_VersaoPadrao;
end;
{ IXMLIdentificacaoTransacao }
IXMLIdentificacaoTransacao = interface(IXMLNode)
[´{6B761D39-8895-4721-83AA-4C82CAD234EF}´]
{ Property Accessors }
function Get_TipoTransacao: WideString;
function Get_SequencialTransacao: Integer;
function Get_DataRegistroTransacao: WideString;
function Get_HoraRegistroTransacao: WideString;
procedure Set_TipoTransacao(Value: WideString);
procedure Set_SequencialTransacao(Value: Integer);
procedure Set_DataRegistroTransacao(Value: WideString);
procedure Set_HoraRegistroTransacao(Value: WideString);
{ Methods & Properties }
property TipoTransacao: WideString read Get_TipoTransacao write Set_TipoTransacao;
property SequencialTransacao: Integer read Get_SequencialTransacao write Set_SequencialTransacao;
property DataRegistroTransacao: WideString read Get_DataRegistroTransacao write Set_DataRegistroTransacao;
property HoraRegistroTransacao: WideString read Get_HoraRegistroTransacao write Set_HoraRegistroTransacao;
end;
{ IXMLCt_motivoGlosa }
IXMLCt_motivoGlosa = interface(IXMLNode)
[´{FBFAAAAF-BD52-42A0-BCE7-66CC9DDD1FDF}´]
{ Property Accessors }
function Get_CodigoGlosa: WideString;
function Get_DescricaoGlosa: WideString;
procedure Set_CodigoGlosa(Value: WideString);
procedure Set_DescricaoGlosa(Value: WideString);
{ Methods & Properties }
property CodigoGlosa: WideString read Get_CodigoGlosa write Set_CodigoGlosa;
property DescricaoGlosa: WideString read Get_DescricaoGlosa write Set_DescricaoGlosa;
end;
{ IXMLCt_motivoGlosaList }
IXMLCt_motivoGlosaList = interface(IXMLNodeCollection)
[´{874F523A-6168-484F-9BC5-27A869FFDB17}´]
{ Methods & Properties }
function Add: IXMLCt_motivoGlosa;
function Insert(const Index: Integer): IXMLCt_motivoGlosa;
function Get_Item(Index: Integer): IXMLCt_motivoGlosa;
property Items[Index: Integer]: IXMLCt_motivoGlosa read Get_Item; default;
end;
{ IXMLOrigem }
IXMLOrigem = interface(IXMLNode)
[´{464DF9C4-FE6E-458A-BB92-24F4454C7E03}´]
{ Property Accessors }
function Get_CodigoPrestadorNaOperadora: IXMLCt_identificacaoPrestador;
function Get_RegistroANS: WideString;
procedure Set_RegistroANS(Value: WideString);
{ Methods & Properties }
property CodigoPrestadorNaOperadora: IXMLCt_identificacaoPrestador read Get_CodigoPrestadorNaOperadora;
property RegistroANS: WideString read Get_RegistroANS write Set_RegistroANS;
end;
{ IXMLCt_identificacaoPrestador }
IXMLCt_identificacaoPrestador = interface(IXMLNode)
[´{C4E7B896-73B8-4E31-BC86-6C5437598A72}´]
{ Property Accessors }
function Get_CNPJ: WideString;
function Get_Cpf: WideString;
function Get_CodigoPrestadorNaOperadora: WideString;
procedure Set_CNPJ(Value: WideString);
procedure Set_Cpf(Value: WideString);
procedure Set_CodigoPrestadorNaOperadora(Value: WideString);
{ Methods & Properties }
property CNPJ: WideString read Get_CNPJ write Set_CNPJ;
property Cpf: WideString read Get_Cpf write Set_Cpf;
property CodigoPrestadorNaOperadora: WideString read Get_CodigoPrestadorNaOperadora write Set_CodigoPrestadorNaOperadora;
end;
{ IXMLDestino }
IXMLDestino = interface(IXMLNode)
[´{73DFD5BC-4B14-428D-B2A0-1F37EF58352D}´]
{ Property Accessors }
function Get_CodigoPrestadorNaOperadora: WideString;
function Get_RegistroANS: WideString;
procedure Set_CodigoPrestadorNaOperadora(Value: WideString);
procedure Set_RegistroANS(Value: WideString);
{ Methods & Properties }
property CodigoPrestadorNaOperadora: WideString read Get_CodigoPrestadorNaOperadora write Set_CodigoPrestadorNaOperadora;
property RegistroANS: WideString read Get_RegistroANS write Set_RegistroANS;
end;
{ IXMLOperadoraParaPrestador }
IXMLOperadoraParaPrestador = interface(IXMLNode)
[´{90752E56-D94C-4C88-A204-057191313FA7}´]
{ Property Accessors }
function Get_DemonstrativosRetorno: IXMLDemonstrativosRetorno;
function Get_ProtocoloRecebimento: IXMLCt_protocoloRecebimento;
function Get_SituacaoProtocolo: IXMLCt_StatusProtocolo;
function Get_AutorizacaoServico: IXMLAutorizacaoServicoList;
function Get_RespostaElegibilidade: IXMLCt_retornoElegibilidade;
function Get_ReciboCancelaGuia: IXMLCt_reciboCancelaGuia;
{ Methods & Properties }
property DemonstrativosRetorno: IXMLDemonstrativosRetorno read Get_DemonstrativosRetorno;
property ProtocoloRecebimento: IXMLCt_protocoloRecebimento read Get_ProtocoloRecebimento;
property SituacaoProtocolo: IXMLCt_StatusProtocolo read Get_SituacaoProtocolo;
property AutorizacaoServico: IXMLAutorizacaoServicoList read Get_AutorizacaoServico;
property RespostaElegibilidade: IXMLCt_retornoElegibilidade read Get_RespostaElegibilidade;
property ReciboCancelaGuia: IXMLCt_reciboCancelaGuia read Get_ReciboCancelaGuia;
end;
{ IXMLDemonstrativosRetorno }
IXMLDemonstrativosRetorno = interface(IXMLNode)
[´{ED971674-2D71-46BF-A961-0ABCBCCC5621}´]
{ Property Accessors }
function Get_DemonstrativoAnaliseConta: IXMLCt_demonstrativoAnaliseContaList;
function Get_DemonstrativoOdontologia: IXMLCt_demonstrativoOdontologiaList;
function Get_DemonstrativoPagamento: IXMLCt_demonstrativoPagamentoList;
{ Methods & Properties }
property DemonstrativoAnaliseConta: IXMLCt_demonstrativoAnaliseContaList read Get_DemonstrativoAnaliseConta;
property DemonstrativoOdontologia: IXMLCt_demonstrativoOdontologiaList read Get_DemonstrativoOdontologia;
property DemonstrativoPagamento: IXMLCt_demonstrativoPagamentoList read Get_DemonstrativoPagamento;
end;
{ IXMLCt_demonstrativoAnaliseConta }
IXMLCt_demonstrativoAnaliseConta = interface(IXMLNode)
[´{A4479E1D-C3CD-4F3E-8D3E-071040825FA0}´]
{ Property Accessors }
function Get_DentificacaoOperadora: IXMLCt_identificacaoOperadora;
function Get_CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo;
function Get_DadosPrestador: IXMLCt_contratado;
function Get_Fatura: IXMLFatura;
function Get_ValorProcessadoGeral: Double;
function Get_ValorLiberadoGeral: Double;
function Get_ValorGlosaGeral: Double;
procedure Set_ValorProcessadoGeral(Value: Double);
procedure Set_ValorLiberadoGeral(Value: Double);
procedure Set_ValorGlosaGeral(Value: Double);
{ Methods & Properties }
property DentificacaoOperadora: IXMLCt_identificacaoOperadora read Get_DentificacaoOperadora;
property CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo read Get_CabecalhoDemonstrativo;
property DadosPrestador: IXMLCt_contratado read Get_DadosPrestador;
property Fatura: IXMLFatura read Get_Fatura;
property ValorProcessadoGeral: Double read Get_ValorProcessadoGeral write Set_ValorProcessadoGeral;
property ValorLiberadoGeral: Double read Get_ValorLiberadoGeral write Set_ValorLiberadoGeral;
property ValorGlosaGeral: Double read Get_ValorGlosaGeral write Set_ValorGlosaGeral;
end;
{ IXMLCt_demonstrativoAnaliseContaList }
IXMLCt_demonstrativoAnaliseContaList = interface(IXMLNodeCollection)
[´{E79439E7-D54C-45A3-98B3-067756475474}´]
{ Methods & Properties }
function Add: IXMLCt_demonstrativoAnaliseConta;
function Insert(const Index: Integer): IXMLCt_demonstrativoAnaliseConta;
function Get_Item(Index: Integer): IXMLCt_demonstrativoAnaliseConta;
property Items[Index: Integer]: IXMLCt_demonstrativoAnaliseConta read Get_Item; default;
end;
{ IXMLCt_identificacaoOperadora }
IXMLCt_identificacaoOperadora = interface(IXMLNode)
[´{57EB184A-EE0F-464C-9C61-977119222224}´]
{ Property Accessors }
function Get_RegistroANS: WideString;
function Get_NomeOperadora: WideString;
function Get_CNPJ: WideString;
procedure Set_RegistroANS(Value: WideString);
procedure Set_NomeOperadora(Value: WideString);
procedure Set_CNPJ(Value: WideString);
{ Methods & Properties }
property RegistroANS: WideString read Get_RegistroANS write Set_RegistroANS;
property NomeOperadora: WideString read Get_NomeOperadora write Set_NomeOperadora;
property CNPJ: WideString read Get_CNPJ write Set_CNPJ;
end;
{ IXMLCt_cabecalhoDemonstrativo }
IXMLCt_cabecalhoDemonstrativo = interface(IXMLNode)
[´{D758B408-3420-4250-BE3D-3E5CE3A8B8E4}´]
{ Property Accessors }
function Get_NumeroDemonstrativo: WideString;
function Get_DataEmissao: WideString;
procedure Set_NumeroDemonstrativo(Value: WideString);
procedure Set_DataEmissao(Value: WideString);
{ Methods & Properties }
property NumeroDemonstrativo: WideString read Get_NumeroDemonstrativo write Set_NumeroDemonstrativo;
property DataEmissao: WideString read Get_DataEmissao write Set_DataEmissao;
end;
{ IXMLCt_contratado }
IXMLCt_contratado = interface(IXMLNode)
[´{05CCC373-AB83-463F-A4AA-919893AFA11F}´]
{ Property Accessors }
function Get_Identificacao: IXMLCt_identificacaoPrestador;
function Get_NomeContratado: WideString;
function Get_EnderecoContratado: IXMLCt_endereco;
function Get_NumeroCNES: WideString;
procedure Set_NomeContratado(Value: WideString);
procedure Set_NumeroCNES(Value: WideString);
{ Methods & Properties }
property Identificacao: IXMLCt_identificacaoPrestador read Get_Identificacao;
property NomeContratado: WideString read Get_NomeContratado write Set_NomeContratado;
property EnderecoContratado: IXMLCt_endereco read Get_EnderecoContratado;
property NumeroCNES: WideString read Get_NumeroCNES write Set_NumeroCNES;
end;
{ IXMLCt_endereco }
IXMLCt_endereco = interface(IXMLNode)
[´{B693AC84-2283-4DE6-AB33-80CD7CECC9F6}´]
{ Property Accessors }
function Get_TipoLogradouro: WideString;
function Get_Logradouro: WideString;
function Get_Numero: WideString;
function Get_Complemento: WideString;
function Get_CodigoIBGEMunicipio: WideString;
function Get_Municipio: WideString;
function Get_CodigoUF: WideString;
function Get_Cep: Integer;
procedure Set_TipoLogradouro(Value: WideString);
procedure Set_Logradouro(Value: WideString);
procedure Set_Numero(Value: WideString);
procedure Set_Complemento(Value: WideString);
procedure Set_CodigoIBGEMunicipio(Value: WideString);
procedure Set_Municipio(Value: WideString);
procedure Set_CodigoUF(Value: WideString);
procedure Set_Cep(Value: Integer);
{ Methods & Properties }
property TipoLogradouro: WideString read Get_TipoLogradouro write Set_TipoLogradouro;
property Logradouro: WideString read Get_Logradouro write Set_Logradouro;
property Numero: WideString read Get_Numero write Set_Numero;
property Complemento: WideString read Get_Complemento write Set_Complemento;
property CodigoIBGEMunicipio: WideString read Get_CodigoIBGEMunicipio write Set_CodigoIBGEMunicipio;
property Municipio: WideString read Get_Municipio write Set_Municipio;
property CodigoUF: WideString read Get_CodigoUF write Set_CodigoUF;
property Cep: Integer read Get_Cep write Set_Cep;
end;
{ IXMLFatura }
IXMLFatura = interface(IXMLNode)
[´{8CDC34C6-43B0-4351-8609-275D153FE65F}´]
{ Property Accessors }
function Get_DadosFatura: IXMLCt_dadosConta;
{ Methods & Properties }
property DadosFatura: IXMLCt_dadosConta read Get_DadosFatura;
end;
{ IXMLCt_dadosConta }
IXMLCt_dadosConta = interface(IXMLNode)
[´{FB88800C-80C0-494B-AD00-ED8114495327}´]
{ Property Accessors }
function Get_NumeroFatura: WideString;
function Get_Lote: IXMLLote;
function Get_ValorProcessadoFatura: Double;
function Get_ValorLiberadoFatura: Double;
function Get_ValorGlosaFatura: Double;
procedure Set_NumeroFatura(Value: WideString);
procedure Set_ValorProcessadoFatura(Value: Double);
procedure Set_ValorLiberadoFatura(Value: Double);
procedure Set_ValorGlosaFatura(Value: Double);
{ Methods & Properties }
property NumeroFatura: WideString read Get_NumeroFatura write Set_NumeroFatura;
property Lote: IXMLLote read Get_Lote;
property ValorProcessadoFatura: Double read Get_ValorProcessadoFatura write Set_ValorProcessadoFatura;
property ValorLiberadoFatura: Double read Get_ValorLiberadoFatura write Set_ValorLiberadoFatura;
property ValorGlosaFatura: Double read Get_ValorGlosaFatura write Set_ValorGlosaFatura;
end;
{ IXMLLote }
IXMLLote = interface(IXMLNodeCollection)
[´{ADEFD29E-2018-490A-AB8F-86B645B116FE}´]
{ Property Accessors }
function Get_DadosLote(Index: Integer): IXMLCt_dadosLote;
{ Methods & Properties }
function Add: IXMLCt_dadosLote;
function Insert(const Index: Integer): IXMLCt_dadosLote;
property DadosLote[Index: Integer]: IXMLCt_dadosLote read Get_DadosLote; default;
end;
{ IXMLLote_StatusProtocolo }
IXMLLote_StatusProtocolo = interface(IXMLNodeCollection)
[´{D72E3201-9469-455C-A7D8-F9911946A4F9}´]
{ Property Accessors }
function Get_DetalheLote(Index: Integer): IXMLCt_statusLote;
{ Methods & Properties }
function Add: IXMLCt_statusLote;
function Insert(const Index: Integer): IXMLCt_statusLote;
property DetalheLote[Index: Integer]: IXMLCt_statusLote read Get_DetalheLote; default;
end;
{ IXMLCt_dadosLote }
IXMLCt_dadosLote = interface(IXMLNode)
[´{7CE4C518-9586-4155-946C-30513C1DC708}´]
{ Property Accessors }
function Get_NumeroLote: WideString;
function Get_DataEnvioLote: WideString;
function Get_NumeroProtocolo: WideString;
function Get_ValorProtocolo: Double;
function Get_ValorGlosaProtocolo: Double;
function Get_CodigoGlosaProtocolo: IXMLSt_tipoGlosaList;
function Get_Guia: IXMLGuia;
procedure Set_NumeroLote(Value: WideString);
procedure Set_DataEnvioLote(Value: WideString);
procedure Set_NumeroProtocolo(Value: WideString);
procedure Set_ValorProtocolo(Value: Double);
procedure Set_ValorGlosaProtocolo(Value: Double);
{ Methods & Properties }
property NumeroLote: WideString read Get_NumeroLote write Set_NumeroLote;
property DataEnvioLote: WideString read Get_DataEnvioLote write Set_DataEnvioLote;
property NumeroProtocolo: WideString read Get_NumeroProtocolo write Set_NumeroProtocolo;
property ValorProtocolo: Double read Get_ValorProtocolo write Set_ValorProtocolo;
property ValorGlosaProtocolo: Double read Get_ValorGlosaProtocolo write Set_ValorGlosaProtocolo;
property CodigoGlosaProtocolo: IXMLSt_tipoGlosaList read Get_CodigoGlosaProtocolo;
property Guia: IXMLGuia read Get_Guia;
end;
{ IXMLGuia }
IXMLGuia = interface(IXMLNodeCollection)
[´{A046F844-FB61-43CA-A900-072F7F0B9073}´]
{ Property Accessors }
function Get_DadosGuia(Index: Integer): IXMLCt_dadosGuia;
{ Methods & Properties }
function Add: IXMLCt_dadosGuia;
function Insert(const Index: Integer): IXMLCt_dadosGuia;
property DadosGuia[Index: Integer]: IXMLCt_dadosGuia read Get_DadosGuia; default;
end;
{ IXMLCt_dadosGuia }
IXMLCt_dadosGuia = interface(IXMLNode)
[´{AD7E42AD-48B2-430E-8CDA-BB9EA1819F99}´]
{ Property Accessors }
function Get_NumeroGuiaPrestador: WideString;
function Get_NumeroGuiaOperadora: WideString;
function Get_Beneficiario: IXMLCt_beneficiario;
function Get_DataRealizacao: WideString;
function Get_ValorProcessadoGuia: Double;
function Get_ValorLiberadoGuia: Double;
function Get_ValorGlosaGuia: WideString;
function Get_Procedimentos: IXMLProcedimentos;
function Get_CodigoGlosaGuia: IXMLCt_motivoGlosaList;
procedure Set_NumeroGuiaPrestador(Value: WideString);
procedure Set_NumeroGuiaOperadora(Value: WideString);
procedure Set_DataRealizacao(Value: WideString);
procedure Set_ValorProcessadoGuia(Value: Double);
procedure Set_ValorLiberadoGuia(Value: Double);
procedure Set_ValorGlosaGuia(Value: WideString);
{ Methods & Properties }
property NumeroGuiaPrestador: WideString read Get_NumeroGuiaPrestador write Set_NumeroGuiaPrestador;
property NumeroGuiaOperadora: WideString read Get_NumeroGuiaOperadora write Set_NumeroGuiaOperadora;
property Beneficiario: IXMLCt_beneficiario read Get_Beneficiario;
property DataRealizacao: WideString read Get_DataRealizacao write Set_DataRealizacao;
property ValorProcessadoGuia: Double read Get_ValorProcessadoGuia write Set_ValorProcessadoGuia;
property ValorLiberadoGuia: Double read Get_ValorLiberadoGuia write Set_ValorLiberadoGuia;
property ValorGlosaGuia: WideString read Get_ValorGlosaGuia write Set_ValorGlosaGuia;
property Procedimentos: IXMLProcedimentos read Get_Procedimentos;
property CodigoGlosaGuia: IXMLCt_motivoGlosaList read Get_CodigoGlosaGuia;
end;
{ IXMLCt_beneficiario }
IXMLCt_beneficiario = interface(IXMLNode)
[´{36495A6A-B865-48FE-AC29-1BE9C2E96E82}´]
{ Property Accessors }
function Get_NumeroCarteira: WideString;
function Get_NomeBeneficiario: WideString;
function Get_NomePlano: WideString;
function Get_ValidadeCarteira: WideString;
function Get_NumeroCNS: WideString;
function Get_IdentificadorBeneficiario: WideString;
procedure Set_NumeroCarteira(Value: WideString);
procedure Set_NomeBeneficiario(Value: WideString);
procedure Set_NomePlano(Value: WideString);
procedure Set_ValidadeCarteira(Value: WideString);
procedure Set_NumeroCNS(Value: WideString);
procedure Set_IdentificadorBeneficiario(Value: WideString);
{ Methods & Properties }
property NumeroCarteira: WideString read Get_NumeroCarteira write Set_NumeroCarteira;
property NomeBeneficiario: WideString read Get_NomeBeneficiario write Set_NomeBeneficiario;
property NomePlano: WideString read Get_NomePlano write Set_NomePlano;
property ValidadeCarteira: WideString read Get_ValidadeCarteira write Set_ValidadeCarteira;
property NumeroCNS: WideString read Get_NumeroCNS write Set_NumeroCNS;
property IdentificadorBeneficiario: WideString read Get_IdentificadorBeneficiario write Set_IdentificadorBeneficiario;
end;
{ IXMLProcedimentos }
IXMLProcedimentos = interface(IXMLNodeCollection)
[´{C81FA133-3651-430A-B61A-118D9A2E9663}´]
{ Property Accessors }
function Get_DadosProcedimento(Index: Integer): IXMLCt_dadosProcedimento;
{ Methods & Properties }
function Add: IXMLCt_dadosProcedimento;
function Insert(const Index: Integer): IXMLCt_dadosProcedimento;
property DadosProcedimento[Index: Integer]: IXMLCt_dadosProcedimento read Get_DadosProcedimento; default;
end;
{ IXMLCt_dadosProcedimento }
IXMLCt_dadosProcedimento = interface(IXMLNode)
[´{BBE3E19D-EF4A-405D-B876-3ED633FDC009}´]
{ Property Accessors }
function Get_Procedimento: IXMLCt_tabela;
function Get_QuantidadeExecutada: Integer;
function Get_ValorProcessado: Double;
function Get_ValorLiberado: Double;
function Get_GrauParticipacao: Integer;
function Get_RelacaoGlosa: IXMLRelacaoGlosa;
procedure Set_QuantidadeExecutada(Value: Integer);
procedure Set_ValorProcessado(Value: Double);
procedure Set_ValorLiberado(Value: Double);
procedure Set_GrauParticipacao(Value: Integer);
{ Methods & Properties }
property Procedimento: IXMLCt_tabela read Get_Procedimento;
property QuantidadeExecutada: Integer read Get_QuantidadeExecutada write Set_QuantidadeExecutada;
property ValorProcessado: Double read Get_ValorProcessado write Set_ValorProcessado;
property ValorLiberado: Double read Get_ValorLiberado write Set_ValorLiberado;
property GrauParticipacao: Integer read Get_GrauParticipacao write Set_GrauParticipacao;
property RelacaoGlosa: IXMLRelacaoGlosa read Get_RelacaoGlosa;
end;
{ IXMLCt_tabela }
IXMLCt_tabela = interface(IXMLNode)
[´{0FEFA72B-2A35-4061-9081-ECAB5A5F897C}´]
{ Property Accessors }
function Get_TipoTabela: WideString;
function Get_Codigo: WideString;
function Get_Descricao: WideString;
procedure Set_TipoTabela(Value: WideString);
procedure Set_Codigo(Value: WideString);
procedure Set_Descricao(Value: WideString);
{ Methods & Properties }
property TipoTabela: WideString read Get_TipoTabela write Set_TipoTabela;
property Codigo: WideString read Get_Codigo write Set_Codigo;
property Descricao: WideString read Get_Descricao write Set_Descricao;
end;
{ IXMLCt_tabelaList }
IXMLCt_tabelaList = interface(IXMLNodeCollection)
[´{F799FCA2-D052-4E32-8DFD-C6AE9B05337E}´]
{ Methods & Properties }
function Add: IXMLCt_tabela;
function Insert(const Index: Integer): IXMLCt_tabela;
function Get_Item(Index: Integer): IXMLCt_tabela;
property Items[Index: Integer]: IXMLCt_tabela read Get_Item; default;
end;
{ IXMLRelacaoGlosa }
IXMLRelacaoGlosa = interface(IXMLNode)
[´{E0AE5438-BACC-44D1-B45F-98B3DF3BE3D4}´]
{ Property Accessors }
function Get_TipoGlosa: IXMLCt_motivoGlosaList;
function Get_ValorGlosa: Double;
procedure Set_ValorGlosa(Value: Double);
{ Methods & Properties }
property TipoGlosa: IXMLCt_motivoGlosaList read Get_TipoGlosa;
property ValorGlosa: Double read Get_ValorGlosa write Set_ValorGlosa;
end;
{ IXMLFalhaNegocio }
IXMLFalhaNegocio = interface(IXMLCt_motivoGlosa)
[´{0A8D751B-F4A7-4633-BE9C-18711492D2CD}´]
{ Property Accessors }
function Get_Observacao: WideString;
procedure Set_Observacao(Value: WideString);
{ Methods & Properties }
property Observacao: WideString read Get_Observacao write Set_Observacao;
end;
{ IXMLCt_demonstrativoOdontologia }
IXMLCt_demonstrativoOdontologia = interface(IXMLNode)
[´{53E85F0D-6B3E-4103-B6C2-9181661FE285}´]
{ Property Accessors }
function Get_CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo;
function Get_DentificacaoOperadora: IXMLDentificacaoOperadora;
function Get_DadosPrestador: IXMLDadosPrestador;
function Get_DadosPagamento: IXMLCt_dadosPagamento;
function Get_TotalGeral: IXMLCt_totalDemoOdonto;
{ Methods & Properties }
property CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo read Get_CabecalhoDemonstrativo;
property DentificacaoOperadora: IXMLDentificacaoOperadora read Get_DentificacaoOperadora;
property DadosPrestador: IXMLDadosPrestador read Get_DadosPrestador;
property DadosPagamento: IXMLCt_dadosPagamento read Get_DadosPagamento;
property TotalGeral: IXMLCt_totalDemoOdonto read Get_TotalGeral;
end;
{ IXMLCt_demonstrativoOdontologiaList }
IXMLCt_demonstrativoOdontologiaList = interface(IXMLNodeCollection)
[´{7FC5F0CC-2BD2-41A6-8D98-6EDB7F53042A}´]
{ Methods & Properties }
function Add: IXMLCt_demonstrativoOdontologia;
function Insert(const Index: Integer): IXMLCt_demonstrativoOdontologia;
function Get_Item(Index: Integer): IXMLCt_demonstrativoOdontologia;
property Items[Index: Integer]: IXMLCt_demonstrativoOdontologia read Get_Item; default;
end;
{ IXMLDentificacaoOperadora }
IXMLDentificacaoOperadora = interface(IXMLCt_identificacaoOperadora)
[´{E3020C63-B5F8-4DB1-B3A0-D6D002356E73}´]
{ Property Accessors }
function Get_PeriodoProcessamento: IXMLCt_periodoProcessamento;
{ Methods & Properties }
property PeriodoProcessamento: IXMLCt_periodoProcessamento read Get_PeriodoProcessamento;
end;
{ IXMLCt_periodoProcessamento }
IXMLCt_periodoProcessamento = interface(IXMLNode)
[´{80E2DB72-528E-48ED-BD35-66E1B961E921}´]
{ Property Accessors }
function Get_DataInicial: WideString;
function Get_DataFinal: WideString;
procedure Set_DataInicial(Value: WideString);
procedure Set_DataFinal(Value: WideString);
{ Methods & Properties }
property DataInicial: WideString read Get_DataInicial write Set_DataInicial;
property DataFinal: WideString read Get_DataFinal write Set_DataFinal;
end;
{ IXMLDadosPrestador }
IXMLDadosPrestador = interface(IXMLNode)
[´{DFE66C93-C44F-4610-8C40-D7D4CCEB7F91}´]
{ Property Accessors }
function Get_CodigoPrestadorNaOperadora: WideString;
function Get_IdentificadorPrestador: IXMLCt_identificadorPrestOdontoDemo;
function Get_NomeContratado: WideString;
function Get_NumeroCNES: WideString;
procedure Set_CodigoPrestadorNaOperadora(Value: WideString);
procedure Set_NomeContratado(Value: WideString);
procedure Set_NumeroCNES(Value: WideString);
{ Methods & Properties }
property CodigoPrestadorNaOperadora: WideString read Get_CodigoPrestadorNaOperadora write Set_CodigoPrestadorNaOperadora;
property IdentificadorPrestador: IXMLCt_identificadorPrestOdontoDemo read Get_IdentificadorPrestador;
property NomeContratado: WideString read Get_NomeContratado write Set_NomeContratado;
property NumeroCNES: WideString read Get_NumeroCNES write Set_NumeroCNES;
end;
{ IXMLCt_identificadorPrestOdontoDemo }
IXMLCt_identificadorPrestOdontoDemo = interface(IXMLNode)
[´{20FCAB42-7165-4EA8-AB0F-A4E5AC38C051}´]
{ Property Accessors }
function Get_CNPJ: WideString;
function Get_Cpf: WideString;
procedure Set_CNPJ(Value: WideString);
procedure Set_Cpf(Value: WideString);
{ Methods & Properties }
property CNPJ: WideString read Get_CNPJ write Set_CNPJ;
property Cpf: WideString read Get_Cpf write Set_Cpf;
end;
{ IXMLCt_dadosPagamento }
IXMLCt_dadosPagamento = interface(IXMLNode)
[´{8A2B09B6-25FC-46B0-B5E9-FEF9861840AD}´]
{ Property Accessors }
function Get_DataPagamento: WideString;
function Get_LoteOdonto: IXMLCt_loteOdonto;
function Get_DemaisDescontos: IXMLDemaisDescontos;
procedure Set_DataPagamento(Value: WideString);
{ Methods & Properties }
property DataPagamento: WideString read Get_DataPagamento write Set_DataPagamento;
property LoteOdonto: IXMLCt_loteOdonto read Get_LoteOdonto;
property DemaisDescontos: IXMLDemaisDescontos read Get_DemaisDescontos;
end;
{ IXMLCt_loteOdonto }
IXMLCt_loteOdonto = interface(IXMLNode)
[´{0541AB00-E89B-4B16-9C98-79158B5729B8}´]
{ Property Accessors }
function Get_NumeroLote: WideString;
function Get_DetalheGuia: IXMLCt_detalheGuiaOdonto;
function Get_ValorTotalLiberadoLote: WideString;
function Get_ValorTotalProcessadoLote: WideString;
function Get_ValorTotalGlosaLote: WideString;
procedure Set_NumeroLote(Value: WideString);
procedure Set_ValorTotalLiberadoLote(Value: WideString);
procedure Set_ValorTotalProcessadoLote(Value: WideString);
procedure Set_ValorTotalGlosaLote(Value: WideString);
{ Methods & Properties }
property NumeroLote: WideString read Get_NumeroLote write Set_NumeroLote;
property DetalheGuia: IXMLCt_detalheGuiaOdonto read Get_DetalheGuia;
property ValorTotalLiberadoLote: WideString read Get_ValorTotalLiberadoLote write Set_ValorTotalLiberadoLote;
property ValorTotalProcessadoLote: WideString read Get_ValorTotalProcessadoLote write Set_ValorTotalProcessadoLote;
property ValorTotalGlosaLote: WideString read Get_ValorTotalGlosaLote write Set_ValorTotalGlosaLote;
end;
{ IXMLCt_detalheGuiaOdonto }
IXMLCt_detalheGuiaOdonto = interface(IXMLNode)
[´{BB6D999A-CF60-4DFC-9659-6EFB84797C59}´]
{ Property Accessors }
function Get_NumeroGuiaPrestador: WideString;
function Get_NumeroGuiaOperadora: WideString;
function Get_CodigoBeneficiario: WideString;
function Get_NomeBeneficiario: WideString;
function Get_ProcedimentoRealizado: IXMLProcedimentoRealizadoOdonto;
function Get_ValorTotalGlosaGuia: WideString;
function Get_ValorTotalLiberadoGuia: WideString;
function Get_ValorTotalProcessadoGuia: WideString;
procedure Set_NumeroGuiaPrestador(Value: WideString);
procedure Set_NumeroGuiaOperadora(Value: WideString);
procedure Set_CodigoBeneficiario(Value: WideString);
procedure Set_NomeBeneficiario(Value: WideString);
procedure Set_ValorTotalGlosaGuia(Value: WideString);
procedure Set_ValorTotalLiberadoGuia(Value: WideString);
procedure Set_ValorTotalProcessadoGuia(Value: WideString);
{ Methods & Properties }
property NumeroGuiaPrestador: WideString read Get_NumeroGuiaPrestador write Set_NumeroGuiaPrestador;
property NumeroGuiaOperadora: WideString read Get_NumeroGuiaOperadora write Set_NumeroGuiaOperadora;
property CodigoBeneficiario: WideString read Get_CodigoBeneficiario write Set_CodigoBeneficiario;
property NomeBeneficiario: WideString read Get_NomeBeneficiario write Set_NomeBeneficiario;
property ProcedimentoRealizado: IXMLProcedimentoRealizadoOdonto read Get_ProcedimentoRealizado;
property ValorTotalGlosaGuia: WideString read Get_ValorTotalGlosaGuia write Set_ValorTotalGlosaGuia;
property ValorTotalLiberadoGuia: WideString read Get_ValorTotalLiberadoGuia write Set_ValorTotalLiberadoGuia;
property ValorTotalProcessadoGuia: WideString read Get_ValorTotalProcessadoGuia write Set_ValorTotalProcessadoGuia;
end;
{ IXMLProcedimentoRealizadoOdonto }
IXMLProcedimentoRealizadoOdonto = interface(IXMLNodeCollection)
[´{BDA08942-5B5C-4980-8AA5-86DC4301FC00}´]
{ Property Accessors }
function Get_ProcedimentosOdonto(Index: Integer): IXMLCt_procedimentoOdontoRealizado;
{ Methods & Properties }
function Add: IXMLCt_procedimentoOdontoRealizado;
function Insert(const Index: Integer): IXMLCt_procedimentoOdontoRealizado;
property ProcedimentosOdonto[Index: Integer]: IXMLCt_procedimentoOdontoRealizado read Get_ProcedimentosOdonto; default;
end;
{ IXMLCt_procedimentoOdontoRealizado }
IXMLCt_procedimentoOdontoRealizado = interface(IXMLNode)
[´{593B3A87-A351-474D-805C-1F87E7204299}´]
{ Property Accessors }
function Get_ProcedimentoOdonto: IXMLCt_tabela;
function Get_DenteRegiao: IXMLCt_denteRegiao;
function Get_Face: WideString;
function Get_DataRealizacao: WideString;
function Get_Quantidade: Integer;
function Get_ValorProcessado: WideString;
function Get_ValorGlosaEstorno: WideString;
function Get_MotivoGlosa: IXMLSt_tipoGlosaList;
function Get_ValorLiberado: WideString;
procedure Set_Face(Value: WideString);
procedure Set_DataRealizacao(Value: WideString);
procedure Set_Quantidade(Value: Integer);
procedure Set_ValorProcessado(Value: WideString);
procedure Set_ValorGlosaEstorno(Value: WideString);
procedure Set_ValorLiberado(Value: WideString);
{ Methods & Properties }
property ProcedimentoOdonto: IXMLCt_tabela read Get_ProcedimentoOdonto;
property DenteRegiao: IXMLCt_denteRegiao read Get_DenteRegiao;
property Face: WideString read Get_Face write Set_Face;
property DataRealizacao: WideString read Get_DataRealizacao write Set_DataRealizacao;
property Quantidade: Integer read Get_Quantidade write Set_Quantidade;
property ValorProcessado: WideString read Get_ValorProcessado write Set_ValorProcessado;
property ValorGlosaEstorno: WideString read Get_ValorGlosaEstorno write Set_ValorGlosaEstorno;
property MotivoGlosa: IXMLSt_tipoGlosaList read Get_MotivoGlosa;
property ValorLiberado: WideString read Get_ValorLiberado write Set_ValorLiberado;
end;
{ IXMLCt_denteRegiao }
IXMLCt_denteRegiao = interface(IXMLNode)
[´{AE1FB595-F197-4A1D-A002-4C72AB64610F}´]
{ Property Accessors }
function Get_Dente: Integer;
function Get_Regiao: WideString;
procedure Set_Dente(Value: Integer);
procedure Set_Regiao(Value: WideString);
{ Methods & Properties }
property Dente: Integer read Get_Dente write Set_Dente;
property Regiao: WideString read Get_Regiao write Set_Regiao;
end;
{ IXMLDemaisDescontos }
IXMLDemaisDescontos = interface(IXMLNodeCollection)
[´{961F8016-37BD-4EA5-9A89-162627816EF5}´]
{ Property Accessors }
function Get_Descontos(Index: Integer): IXMLCt_descontoOdonto;
{ Methods & Properties }
function Add: IXMLCt_descontoOdonto;
function Insert(const Index: Integer): IXMLCt_descontoOdonto;
property Descontos[Index: Integer]: IXMLCt_descontoOdonto read Get_Descontos; default;
end;
{ IXMLCt_descontoOdonto }
IXMLCt_descontoOdonto = interface(IXMLNode)
[´{15A43C6C-2928-4667-B1D8-749E16947467}´]
{ Property Accessors }
function Get_Descricao: WideString;
function Get_ValorDesconto: WideString;
procedure Set_Descricao(Value: WideString);
procedure Set_ValorDesconto(Value: WideString);
{ Methods & Properties }
property Descricao: WideString read Get_Descricao write Set_Descricao;
property ValorDesconto: WideString read Get_ValorDesconto write Set_ValorDesconto;
end;
{ IXMLCt_totalDemoOdonto }
IXMLCt_totalDemoOdonto = interface(IXMLNode)
[´{101019CE-0A33-41A1-9613-CD4E43404E27}´]
{ Property Accessors }
function Get_ValorTotalGeralGlosa: WideString;
function Get_ValorTotalGeralLiberado: WideString;
function Get_ValorTotalProcessadoGuia: WideString;
procedure Set_ValorTotalGeralGlosa(Value: WideString);
procedure Set_ValorTotalGeralLiberado(Value: WideString);
procedure Set_ValorTotalProcessadoGuia(Value: WideString);
{ Methods & Properties }
property ValorTotalGeralGlosa: WideString read Get_ValorTotalGeralGlosa write Set_ValorTotalGeralGlosa;
property ValorTotalGeralLiberado: WideString read Get_ValorTotalGeralLiberado write Set_ValorTotalGeralLiberado;
property ValorTotalProcessadoGuia: WideString read Get_ValorTotalProcessadoGuia write Set_ValorTotalProcessadoGuia;
end;
{ IXMLCt_demonstrativoPagamento }
IXMLCt_demonstrativoPagamento = interface(IXMLNode)
[´{0403E5A9-94D9-4F15-88C6-D044278AE8F1}´]
{ Property Accessors }
function Get_CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo;
function Get_DentificacaoOperadora: IXMLCt_identificacaoOperadora;
function Get_DadosPrestador: IXMLCt_contratado;
function Get_DadosPagamento: IXMLCt_dadoBancario;
function Get_DadosResumo: IXMLDadosResumo;
function Get_TotalGeralInformado: Double;
function Get_TotalGeralProcessado: Double;
function Get_TotalGeralLiberado: Double;
function Get_TotalGeralGlosa: Double;
function Get_DemaisDescontos: IXMLCt_desconto;
function Get_ValorFinalLiberado: Double;
procedure Set_TotalGeralInformado(Value: Double);
procedure Set_TotalGeralProcessado(Value: Double);
procedure Set_TotalGeralLiberado(Value: Double);
procedure Set_TotalGeralGlosa(Value: Double);
procedure Set_ValorFinalLiberado(Value: Double);
{ Methods & Properties }
property CabecalhoDemonstrativo: IXMLCt_cabecalhoDemonstrativo read Get_CabecalhoDemonstrativo;
property DentificacaoOperadora: IXMLCt_identificacaoOperadora read Get_DentificacaoOperadora;
property DadosPrestador: IXMLCt_contratado read Get_DadosPrestador;
property DadosPagamento: IXMLCt_dadoBancario read Get_DadosPagamento;
property DadosResumo: IXMLDadosResumo read Get_DadosResumo;
property TotalGeralInformado: Double read Get_TotalGeralInformado write Set_TotalGeralInformado;
property TotalGeralProcessado: Double read Get_TotalGeralProcessado write Set_TotalGeralProcessado;
property TotalGeralLiberado: Double read Get_TotalGeralLiberado write Set_TotalGeralLiberado;
property TotalGeralGlosa: Double read Get_TotalGeralGlosa write Set_TotalGeralGlosa;
property DemaisDescontos: IXMLCt_desconto read Get_DemaisDescontos;
property ValorFinalLiberado: Double read Get_ValorFinalLiberado write Set_ValorFinalLiberado;
end;
{ IXMLCt_demonstrativoPagamentoList }
IXMLCt_demonstrativoPagamentoList = interface(IXMLNodeCollection)
[´{78E481E1-6F48-4758-A092-395AA1BC166C}´]
{ Methods & Properties }
function Add: IXMLCt_demonstrativoPagamento;
function Insert(const Index: Integer): IXMLCt_demonstrativoPagamento;
function Get_Item(Index: Integer): IXMLCt_demonstrativoPagamento;
property Items[Index: Integer]: IXMLCt_demonstrativoPagamento read Get_Item; default;
end;
{ IXMLCt_dadoBancario }
IXMLCt_dadoBancario = interface(IXMLNode)
[´{BF87A9CB-563D-4DC6-8707-60E1B0F992D5}´]
{ Property Accessors }
function Get_DataPagamento: WideString;
function Get_FormaPagamento: WideString;
function Get_Banco: Integer;
function Get_Agencia: WideString;
function Get_ContaCorrente: WideString;
procedure Set_DataPagamento(Value: WideString);
procedure Set_FormaPagamento(Value: WideString);
procedure Set_Banco(Value: Integer);
procedure Set_Agencia(Value: WideString);
procedure Set_ContaCorrente(Value: WideString);
{ Methods & Properties }
property DataPagamento: WideString read Get_DataPagamento write Set_DataPagamento;
property FormaPagamento: WideString read Get_FormaPagamento write Set_FormaPagamento;
property Banco: Integer read Get_Banco write Set_Banco;
property Agencia: WideString read Get_Agencia write Set_Agencia;
property ContaCorrente: WideString read Get_ContaCorrente write Set_ContaCorrente;
end;
{ IXMLDadosResumo }
IXMLDadosResumo = interface(IXMLNode)
[´{2F25D8D9-03A0-4024-A2D9-7B4E874B8723}´]
{ Property Accessors }
function Get_DetalheResumo: IXMLCt_dadosResumoList;
function Get_ValorTotal: WideString;
procedure Set_ValorTotal(Value: WideString);
{ Methods & Properties }
property DetalheResumo: IXMLCt_dadosResumoList read Get_DetalheResumo;
property ValorTotal: WideString read Get_ValorTotal write Set_ValorTotal;
end;
{ IXMLCt_dadosResumo }
IXMLCt_dadosResumo = interface(IXMLNode)
[´{AD96D69B-15EE-4068-AB71-5F71F3D80C5F}´]
{ Property Accessors }
function Get_NumeroFatura: WideString;
function Get_NumeroLote: WideString;
function Get_DataEnvioLote: WideString;
function Get_NumeroProtocolo: WideString;
function Get_ValorInformado: Double;
function Get_ValorProcessado: Double;
function Get_ValorLiberado: Double;
function Get_ValorGlosa: Double;
procedure Set_NumeroFatura(Value: WideString);
procedure Set_NumeroLote(Value: WideString);
procedure Set_DataEnvioLote(Value: WideString);
procedure Set_NumeroProtocolo(Value: WideString);
procedure Set_ValorInformado(Value: Double);
procedure Set_ValorProcessado(Value: Double);
procedure Set_ValorLiberado(Value: Double);
procedure Set_ValorGlosa(Value: Double);
{ Methods & Properties }
property NumeroFatura: WideString read Get_NumeroFatura write Set_NumeroFatura;
property NumeroLote: WideString read Get_NumeroLote write Set_NumeroLote;
property DataEnvioLote: WideString read Get_DataEnvioLote write Set_DataEnvioLote;
property NumeroProtocolo: WideString read Get_NumeroProtocolo write Set_NumeroProtocolo;
property ValorInformado: Double read Get_ValorInformado write Set_ValorInformado;
property ValorProcessado: Double read Get_ValorProcessado write Set_ValorProcessado;
property ValorLiberado: Double read Get_ValorLiberado write Set_ValorLiberado;
property ValorGlosa: Double read Get_ValorGlosa write Set_ValorGlosa;
end;
{ IXMLCt_dadosResumoList }
IXMLCt_dadosResumoList = interface(IXMLNodeCollection)
[´{3E63B523-EB3A-4DFB-95D2-01C3D05D2D76}´]
{ Methods & Properties }
function Add: IXMLCt_dadosResumo;
function Insert(const Index: Integer): IXMLCt_dadosResumo;
function Get_Item(Index: Integer): IXMLCt_dadosResumo;
property Items[Index: Integer]: IXMLCt_dadosResumo read Get_Item; default;
end;
{ IXMLCt_desconto }
IXMLCt_desconto = interface(IXMLNode)
[´{320C7A7E-31BA-4338-B0C4-F8BB04EB37F1}´]
{ Property Accessors }
function Get_Descricao: IXMLDescricaoList;
function Get_ValorDesconto: IXMLDoubleList;
{ Methods & Properties }
property Descricao: IXMLDescricaoList read Get_Descricao;
property ValorDesconto: IXMLDoubleList read Get_ValorDesconto;
end;
{ IXMLCt_protocoloRecebimento }
IXMLCt_protocoloRecebimento = interface(IXMLNode)
[´{BFF46BBA-DE61-4849-937B-C1B54DEF7A94}´]
{ Property Accessors }
function Get_DadosOperadora: IXMLCt_identificacaoOperadora;
function Get_DadosPrestador: IXMLCt_contratado;
function Get_DataEnvioLote: WideString;
function Get_NumeroLote: Integer;
function Get_MensagemDetalheProtocolo: IXMLCt_detalheProtocolo;
function Get_NumeroProtocoloRecebimento: Integer;
function Get_MensagemErro: WideString;
procedure Set_DataEnvioLote(Value: WideString);
procedure Set_NumeroLote(Value: Integer);
procedure Set_NumeroProtocoloRecebimento(Value: Integer);
procedure Set_MensagemErro(Value: WideString);
{ Methods & Properties }
property DadosOperadora: IXMLCt_identificacaoOperadora read Get_DadosOperadora;
property DadosPrestador: IXMLCt_contratado read Get_DadosPrestador;
property DataEnvioLote: WideString read Get_DataEnvioLote write Set_DataEnvioLote;
property NumeroLote: Integer read Get_NumeroLote write Set_NumeroLote;
property MensagemDetalheProtocolo: IXMLCt_detalheProtocolo read Get_MensagemDetalheProtocolo;
property NumeroProtocoloRecebimento: Integer read Get_NumeroProtocoloRecebimento write Set_NumeroProtocoloRecebimento;
property MensagemErro: WideString read Get_MensagemErro write Set_MensagemErro;
end;
{ IXMLCt_detalheProtocolo }
IXMLCt_detalheProtocolo = interface(IXMLNode)
[´{06BE1F8E-709E-4DF9-BBDD-A84899D91C28}´]
{ Property Accessors }
function Get_NumeroProtocolo: WideString;
function Get_ValorProtocolo: Double;
function Get_CodigoGlosaProtocolo: IXMLSt_tipoGlosaList;
function Get_ValorGlosaProtocolo: Double;
function Get_Guias: IXMLGuias;
procedure Set_NumeroProtocolo(Value: WideString);
procedure Set_ValorProtocolo(Value: Double);
procedure Set_ValorGlosaProtocolo(Value: Double);
{ Methods & Properties }
property NumeroProtocolo: WideString read Get_NumeroProtocolo write Set_NumeroProtocolo;
property ValorProtocolo: Double read Get_ValorProtocolo write Set_ValorProtocolo;
property CodigoGlosaProtocolo: IXMLSt_tipoGlosaList read Get_CodigoGlosaProtocolo;
property ValorGlosaProtocolo: Double read Get_ValorGlosaProtocolo write Set_ValorGlosaProtocolo;
property Guias: IXMLGuias read Get_Guias;
end;
{ IXMLGuias }
IXMLGuias = interface(IXMLNodeCollection)
[´{7CFB171A-42CB-49EF-84FA-5D42EB762E16}´]
{ Property Accessors }
function Get_DadosGuia(Index: Integer): IXMLCt_dadosGuia;
{ Methods & Properties }
function Add: IXMLCt_dadosGuia;
function Insert(const Index: Integer): IXMLCt_dadosGuia;
property DadosGuia[Index: Integer]: IXMLCt_dadosGuia read Get_DadosGuia; default;
end;
{ IXMLCt_StatusProtocolo }
IXMLCt_StatusProtocolo = interface(IXMLNode)
[´{423B4AA2-9728-4F74-B40F-B3601D02BCBD}´]
{ Property Accessors }
function Get_RegistroANS: WideString;
function Get_NomeOperadora: WideString;
function Get_CNPJ: WideString;
function Get_DadosPrestador: IXMLCt_contratado;
function Get_CNESPrestador: WideString;
function Get_Lote: IXMLLote_StatusProtocolo;
procedure Set_RegistroANS(Value: WideString);
procedure Set_NomeOperadora(Value: WideString);
procedure Set_CNPJ(Value: WideString);
procedure Set_CNESPrestador(Value: WideString);
{ Methods & Properties }
property RegistroANS: WideString read Get_RegistroANS write Set_RegistroANS;
property NomeOperadora: WideString read Get_NomeOperadora write Set_NomeOperadora;
property CNPJ: WideString read Get_CNPJ write Set_CNPJ;
property DadosPrestador: IXMLCt_contratado read Get_DadosPrestador;
property CNESPrestador: WideString read Get_CNESPrestador write Set_CNESPrestador;
property Lote: IXMLLote_StatusProtocolo read Get_Lote;
end;
{ IXMLCt_statusLote }
IXMLCt_statusLote = interface(IXMLNode)
[´{AE34D526-0EAB-4642-AC3D-52F730C776A0}´]
{ Property Accessors }
function Get_NumeroProtocolo: Integer;
function Get_NumeroLote: Integer;
function Get_DataEnvioLote: WideString;
function Get_NumeroFatura: Integer;
function Get_ValorProcessado: Double;
function Get_ValorLiberado: Double;
function Get_ValorGlosa: Double;
function Get_Status: Integer;
function Get_Guias: IXMLGuias;
procedure Set_NumeroProtocolo(Value: Integer);
procedure Set_NumeroLote(Value: Integer);
procedure Set_DataEnvioLote(Value: WideString);
procedure Set_NumeroFatura(Value: Integer);
procedure Set_ValorProcessado(Value: Double);
procedure Set_ValorLiberado(Value: Double);
procedure Set_ValorGlosa(Value: Double);
procedure Set_Status(Value: Integer);
{ Methods & Properties }
property NumeroProtocolo: Integer read Get_NumeroProtocolo write Set_NumeroProtocolo;
property NumeroLote: Integer read Get_NumeroLote write Set_NumeroLote;
property DataEnvioLote: WideString read Get_DataEnvioLote write Set_DataEnvioLote;
property NumeroFatura: Integer read Get_NumeroFatura write Set_NumeroFatura;
property ValorProcessado: Double read Get_ValorProcessado write Set_ValorProcessado;
property ValorLiberado: Double read Get_ValorLiberado write Set_ValorLiberado;
property ValorGlosa: Double read Get_ValorGlosa write Set_ValorGlosa;
property Status: Integer read Get_Status write Set_Status;
property Guias: IXMLGuias read Get_Guias;
end;
{ IXMLDetalheguia }
IXMLDetalheguia = interface(IXMLNode)
[´{27CF3382-ED9A-4DB0-846F-02BB7BBBB658}´]
{ Property Accessors }
function Get_IdentificacaoGuia: IXMLCt_cabecalhoGuia;
function Get_ProcedimentosExecutados: IXMLProcedimentosExecutados;
{ Methods & Properties }
property IdentificacaoGuia: IXMLCt_cabecalhoGuia read Get_IdentificacaoGuia;
property ProcedimentosExecutados: IXMLProcedimentosExecutados read Get_ProcedimentosExecutados;
end;
{ IXMLCt_cabecalhoGuia }
IXMLCt_cabecalhoGuia = interface(IXMLNode)
[´{4EA54C0A-1D57-4BD4-B0FE-516431A9AC51}´]
{ Property Accessors }
function Get_RegistroANS: WideString;
function Get_DataEmissaoGuia: WideString;
function Get_NumeroGuiaPrestador: WideString;
function Get_NumeroGuiaOperadora: WideString;
procedure Set_RegistroANS(Value: WideString);
procedure Set_DataEmissaoGuia(Value: WideString);
procedure Set_NumeroGuiaPrestador(Value: WideString);
procedure Set_NumeroGuiaOperadora(Value: WideString);
{ Methods & Properties }
property RegistroANS: WideString read Get_RegistroANS write Set_RegistroANS;
property DataEmissaoGuia: WideString read Get_DataEmissaoGuia write Set_DataEmissaoGuia;
property NumeroGuiaPrestador: WideString read Get_NumeroGuiaPrestador write Set_NumeroGuiaPrestador;
property NumeroGuiaOperadora: WideString read Get_NumeroGuiaOperadora w
Dudubaiao
Curtir tópico
+ 0Posts
24/04/2007
Dudubaiao
Mas depois só gravou metade da mensagem... :(
Gostei + 0
24/04/2007
Dudubaiao
Gostei + 0
24/04/2007
Zeduardo2000
Gostei + 0
24/04/2007
Massuda
Gostei + 0
24/04/2007
Dudubaiao
Gostei + 0
24/04/2007
Dudubaiao
Vou ver com o resto do pessoal pra tentar descolar um espaço na internet.
Gostei + 0
24/04/2007
Sremulador
Gostei + 0
24/04/2007
Dudubaiao
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)