Erro com Carta de Correção Eletronica

[Socho]

Boa tarde estou testando o evento do CCe.

e na linha Schema.add( 'http://www.portalfiscal.inf.br/nfe', schema_filename ); do AcbrUtils esta dando o seguinte erro.

Error.

raised exception class EOleException with message 'envCCe_v1.00.xsd#/schema/element[1][@name = 'envEvento']

Undeclared XSD type: '{http://www.portalfiscal.inf.br/nfe}TEnvEvento'

Alguem pode me ajudar?

email/msn: [email protected]

[Socho]

Estou usando Delphi 7

[Régys Silveira]

os schemas estão atualizados, baixou os schemas dos eventos?

[ALA]

Senhores estou tentando enviar uma Carta de Correção, utilizando o código abaixo

lcin_SeqEvento := 0;

ACBrNFe.CartaCorrecao.CCe.Evento.Clear;

ACBrNFe.CartaCorrecao.CCe.idLote := CCe.FieldByName( 'CAC_PK_CARTACORRECAO' ).AsInteger;

ItemCCe.First;

//while not ItemCCe.Eof do

//begin

Inc( lcin_SeqEvento );

with ACBrNFe.CartaCorrecao.CCe.Evento.Add do

begin

// AMBIENTE PRODUTO/HOMOLOGACAO //

if utst_IDAmbiente = utco_Ambiente_Producao then

infEvento.tpAmb := taProducao

else if utst_IDAmbiente = utco_Ambiente_Homologacao then

infEvento.tpAmb := taHomologacao;

// CHAVE //

infEvento.chNFe := CCe.FieldByName( 'NFS_NUMERO_DANFE' ).AsString;

infEvento.cOrgao := Empresa.FieldByName( 'CII_CODIGO_UF' ).AsInteger;//StrToInt(codOrgao); 90 para hambiente nacional

infEvento.CNPJ := Trim( Retorna_Numeros( Empresa.FieldByName('EMP_CNPJ' ).AsString ));

infEvento.dhEvento := CCe.FieldByName( 'CAC_DT_INCLUSAO' ).AsDateTime;

infEvento.tpEvento := 110110; // DETERMINADO PELO MANUAL DA SEFAZ 1.01 MAIO 2011

infEvento.nSeqEvento := lcin_SeqEvento; //

infEvento.versaoEvento := '1.00';

infEvento.detEvento.descEvento := 'Carta de Correcao'; // DETERMINADO PELO MANUAL DA SEFAZ 1.01 MAIO 2011

infEvento.detEvento.xCorrecao := ItemCCe.FieldByName( 'ICC_DESCR_ITEM_RETIFICADO' ).AsString;

infEvento.detEvento.xCondUso := lcco_UsoCCe; //Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/ex ... iloeZ6vBw=

end;

//ItemCCe.Next;

//end;

ACBrNFe.CartaCorrecao.CCe.GerarXML;

ACBrNFe.EnviarCartaCorrecao(CCe.FieldByName( 'CAC_PK_CARTACORRECAO' ).AsInteger);

lcin_Status := ACBrNFe.WebServices.CartaCorrecao.cStat;

lcst_ArqEnvio := ACBrNFe.WebServices.CartaCorrecao.PathArqEnv;

lcst_ArqEnvio := ACBrNFe.WebServices.CartaCorrecao.PathArqResp;

utme_RetornoWS := UTF8Encode(ACBrNFe.WebServices.CartaCorrecao.RetWS);

Mas estou recebendo a msg:

** Outra duvida:

1º Como inclui varios correções para mesma nota ?

2º Como imprimir a CCe ?

***

[Italo Giurizzato Junior]

Boa noite ALA,

Não é por nada não, mas essas duas duvidas no final do seu post, já foram respondidas varias vezes no fórum.

Por favor pesquise antes de perguntar.