pcnConversao - Sugestão para resolver problema de criar arquivo

[Ricardo Longo]

 

No trunk2 estava tendo problema durante a consulta pela Distribuição ocorria erro de não poder criar o arquivo xxxx, um colega do fórum respondeu que ocorria quando o caminho ficava muito grande. Verifiquei que realmente algumas das pastas do grupo evento estavam ficando com nomes muito grande, como por exemplo ..\201805\Evento\Registro de Passagem Automatico MDF-e com CT-e

Resolvi o problema mudando esta função  em pcnConversao. Simplesmente troque os nomes completos pelo evento.

Uma sugestão para atualizar os fontes.

.....

function TpEventoToDescStr(const t: TpcnTpEvento): string;
begin
  result := EnumeradoToStr(t,
             ['NaoMapeado', 'CCe', 'Cancelamento', 'ManifDestConfirmacao', 'ManifDestCiencia',
              'ManifDestDesconhecimento', 'ManifDestOperNaoRealizada',
              'Encerramento', 'EPEC', 'InclusaoCondutor', 'MultiModal',
              'RegistroPassagem', 'RegistroPassagemBRId', 'EPECNFe',
              'RegistroCTe', 'RegistroPassagemNFeCancelado',
              'RegistroPassagemNFeRFID', 'CTeCancelado', 'MDFeCancelado',
              'VistoriaSuframa', 'PedProrrog1', 'PedProrrog2',
              'CanPedProrrog1', 'CanPedProrrog2', 'EventoFiscoPP1',
              'EventoFiscoPP2', 'EventoFiscoCPP1', 'EventoFiscoCPP2',
              'RegistroPassagemNFe', 'ConfInternalizacao', 'CTeAutorizado',
              'MDFeAutorizado', 'PrestDesacordo', 'GTV', 'MDFeAutorizado2',
              'NaoEmbarque', 'MDFeCancelado2', 'MDFeAutorizadoComCTe',
              'RegPasNfeProMDFe', 'RegPasNfeProMDFeCte', 'RegPasAutMDFeComCte',
              'CancelamentoMDFeAutComCTe', 'AverbacaoExportacao', 'AutCteComplementar',
              'CancCteComplementar', 'CTeSubstituicao',
              'CTeAnulacao', 'LiberacaoEPEC', 'LiberacaoPrazoCanc',
              'AutorizadoRedespacho', 'AutorizadoRedespIntermed', 'AutorizadoSubcontratacao',
              'AutorizadoServMultimodal' ],
             [teNaoMapeado, teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,
              teManifDestDesconhecimento, teManifDestOperNaoRealizada,
              teEncerramento, teEPEC, teInclusaoCondutor, teMultiModal,
              teRegistroPassagem, teRegistroPassagemBRId, teEPECNFe,
              teRegistroCTe, teRegistroPassagemNFeCancelado,
              teRegistroPassagemNFeRFID, teCTeCancelado, teMDFeCancelado,
              teVistoriaSuframa, tePedProrrog1, tePedProrrog2,
              teCanPedProrrog1, teCanPedProrrog2, teEventoFiscoPP1,
              teEventoFiscoPP2, teEventoFiscoCPP1, teEventoFiscoCPP2,
              teRegistroPassagemNFe, teConfInternalizacao, teCTeAutorizado,
              teMDFeAutorizado, tePrestDesacordo, teGTV, teMDFeAutorizado2,
              teNaoEmbarque, teMDFeCancelado2, teMDFeAutorizadoComCTe,
              teRegPasNfeProMDFe, teRegPasNfeProMDFeCte, teRegPasAutMDFeComCte,
              teCancelamentoMDFeAutComCTe, teAverbacaoExportacao, teAutCteComplementar,
              teCancCteComplementar, teCTeSubstituicao,
              teCTeAnulacao, teLiberacaoEPEC, teLiberacaoPrazoCanc,
              teAutorizadoRedespacho, teautorizadoRedespIntermed, teAutorizadoSubcontratacao,
              teautorizadoServMultimodal]);

{             ['Evento não Mapeado', 'CCe', 'Cancelamento', 'Confirmacao', 'Ciencia',
              'Desconhecimento', 'NaoRealizada',
              'Encerramento', 'EPEC', 'IncCondutor', 'Multimodal',
              'RegPassagem', 'RegPassagemBRId', 'EPEC',
              'RegCTe', 'RegPassagemNFeCancelado',
              'RegPassagemNFeRFID', 'CTeCancelado', 'MDFeCancelado',
              'VistoriaSuframa', 'PedProrrog1', 'PedProrrog2',
              'CanPedProrrog1', 'CanPedProrrog2', 'EventoFiscoPP1',
              'EventoFiscoPP2', 'EventoFiscoCPP1', 'EventoFiscoCPP2',
              'RegPassagemNFe', 'ConfInternalizacao', 'CTeAutorizado',
              'MDFeAutorizado', 'PrestDesacordo', 'GTV', 'MDFeAutorizado2',
              'NaoEmbarque', 'MDFeCancelado2','MDFeAutorizadoComCTe',
              'Registro de Passagem de NFe propagado pelo MDFe',
              'Registro de Passagem de NFe propagado pelo MDFe/Cte',
              'Registro de Passagem Automatico MDF-e com CT-e',
              'Cancelamento de MDF-e Autorizado com CT-e',
              'Averbação de Exportação','Autorizado CTe Complementar',
              'Cancelado CTe Complementar','CTe de Substituicao','CTe de Anulacao',
              'Liberacao de EPEC','Liberacao Prazo Cancelamento','Autorizado Redespacho',
              'Autorizado Redespacho Intermediario', 'Autorizado Subcontratacao',
              'Autorizado Servico Vinculado Multimodal'],
             [teNaoMapeado, teCCe, teCancelamento, teManifDestConfirmacao, teManifDestCiencia,
              teManifDestDesconhecimento, teManifDestOperNaoRealizada,
              teEncerramento, teEPEC, teInclusaoCondutor, teMultiModal,
              teRegistroPassagem, teRegistroPassagemBRId, teEPECNFe,
              teRegistroCTe, teRegistroPassagemNFeCancelado,
              teRegistroPassagemNFeRFID, teCTeCancelado, teMDFeCancelado,
              teVistoriaSuframa, tePedProrrog1, tePedProrrog2,
              teCanPedProrrog1, teCanPedProrrog2, teEventoFiscoPP1,
              teEventoFiscoPP2, teEventoFiscoCPP1, teEventoFiscoCPP2,
              teRegistroPassagemNFe, teConfInternalizacao, teCTeAutorizado,
              teMDFeAutorizado, tePrestDesacordo, teGTV, teMDFeAutorizado2,
              teNaoEmbarque, teMDFeCancelado2, teMDFeAutorizadoComCTe,
              teRegPasNfeProMDFe, teRegPasNfeProMDFeCte, teRegPasAutMDFeComCte,
              teCancelamentoMDFeAutComCTe, teAverbacaoExportacao, teAutCteComplementar,
              teCancCteComplementar,teCTeSubstituicao,
              teCTeAnulacao,teLiberacaoEPEC,teLiberacaoPrazoCanc,
              teAutorizadoRedespacho,teautorizadoRedespIntermed,teAutorizadoSubcontratacao,
              teautorizadoServMultimodal]);
}
end;

 

.......

[Italo Giurizzato Junior]

Bom dia Ricardo,

Favor anexar a unit alterada para que possamos analisar.

[Ricardo Longo]

Boa tarde Italo,

Segue no anexo.

 

pcnConversao.pas

[Italo Giurizzato Junior]

Bom dia Ricardo,

Muito obrigado pela contribuição, já foi enviando para o repositório.

[Ricardo Longo]

Obrigado ao grupo por tudo. Sempre que puder vou cooperar.