"Arquivo ..\schemas\CTe\Erro_v3.00.xsd Não encontrado!"

beduardo · 23 Julho, 2019

Estou tentando fazer o envio do evento teComprEntrega, ao executar ACBrCTe.EnviarEvento(1);

Recebo o Erro à cima ao passar pela Função TCTeEnvEvento.DefinirDadosMsg na Unit ACBrCTeWebServices.pas

pois a mesma não possui tratativa para o Evento : na rotina :

case SchemaEventoCTe of
      schevCCeCTe:
        begin
         AXMLEvento := '<evCCeCTe xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evCCeCTe>', '</evCCeCTe>')) +
                        '</evCCeCTe>';
        end;

      schevCancCTe:
        begin
          AXMLEvento := '<evCancCTe xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evCancCTe>', '</evCancCTe>')) +
                        '</evCancCTe>';
        end;

      schevRegMultimodal:
        begin
          AXMLEvento := '<evRegMultimodal xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evRegMultimodal>', '</evRegMultimodal>')) +
                        '</evRegMultimodal>';
        end;

      schevEPECCTe:
        begin
          AXMLEvento := '<evEPECCTe xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evEPECCTe>', '</evEPECCTe>')) +
                        '</evEPECCTe>';
        end;

      schevPrestDesacordo:
        begin
          AXMLEvento := '<evPrestDesacordo xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evPrestDesacordo>', '</evPrestDesacordo>')) +
                        '</evPrestDesacordo>';
        end;

      schevGTV:
        begin
          AXMLEvento := '<evGTV xmlns="' + ACBRCTE_NAMESPACE + '">' +
                          Trim(RetornarConteudoEntre(AXMLEvento, '<evGTV>', '</evGTV>')) +
                        '</evGTV>';
        end;
    end;