Pesquisar na Comunidade

Olá pessoal, Por uma necessidade de leitura de XML e para manter o padrão do tipo TpcnDeterminacaoBaseIcms, acrescentei o enumerador dbisNenhum e mdiNenhum para os tipos TpcnDeterminacaoBaseIcmsST e TpcnMotivoDesoneracaoICMS. Ajustei também os métodos: modBCSTToStrTagPosText modBCSTToStr StrTomodBCST motDesICMSToStr StrTomotDesICMS motDesICMSToStrTagPosText Não encontrei a necessidade de ajustar também a unit pcnNFeW. Atendeu minha necessidade. Por favor vejam se está correto e se autorizam os ajustes. pcnConversao.pas

Boa Tarde Pessoal, Estou migrando para o trunk 2 (última versão) e esta apresentando estes erros na unit pcnValidador.pas, na function ValidarXML: [Error] pcnValidador.pas(90): E2003 Undeclared identifier: 'TpcnSchema' [Error] pcnValidador.pas(91): E2003 Undeclared identifier: 'TpcnTipoLayout' [Error] pcnValidador.pas(129): E2003 Undeclared identifier: 'SchemaToStr' [Error] pcnValidador.pas(131): E2003 Undeclared identifier: 'TipoLayoutToStr' Peguei o primeiro (TpcnSchema) e fui comparar na versão do trunk Ele está dentro da pcnConversao.pas TpcnSchema = (TsPL005c, TsPL006, TsPL_CTe_103, TsPL_CTe_104, TsPL_MDFe_100); Então fui verificar no trunk 2, (pcnConversao.pas) e ele não existe mais, Procurei por TpcnSchema nos fontes e achei somente dentro do pcnValidador.pas a utilização dele. Alguém sabe onde esta a classe TpcnSchema ?

Boa Tarde! Estou implementando o cancelamento por substituição, estou tendo o retorno 135 (evento vinculado e registrado) tudo conforme o esperado, porem ao verificar status retorna com status 100, então fui verificar os eventos retornados nesta consulta e encontrei um erro ao converter. TpcnTpEventoString : array[0..54] of String =('-99999', '110110', '110111', '210200', '210210', '210220', '210240', '110112', '110113', '110114', '110160', '310620', '510620', '110140', '610600', '610501', '610550', '610601', '610611', '990900', '111500', '111501', '111502', '111503', '411500', '411501', '411502', '411503', '610500', '990910', '000000', '610610', '610110', '110170', '310610', '110115', '310611', '610614', '610510', '610514', '610554', '610615', '790700', '240130', '240131', '240140', '240150', '240160', '240170', '440130', '440140', '440150', '440160', '110112', '110116'); Vejam que na terceira linha, segunda coluna (posição 7 no array), temos o '110112' e na penúltima linha, terceira coluna (posição 53 do array), também temos o '110112' Agora vejam o TpcnTpEvento: TpcnTpEvento = (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, teCancSubst, teAlteracaoPoltrona); A posição 7 é teEncerramento, e é assim que o ACBr identifica o retorno da verificação de status, fica como Encerramento ao invés de teCancSubst. É identificado pela linha 193 (infEvento.tpEvento := StrToTpEvento(ok,Leitor.rCampo(tcStr, 'tpEvento'));) do arquivo pcnRetEnvEventoNFe no método TRetEventoNFe.LerXml O objetivo é setar a NFC-e como cancelada (cStat 101) mas pelo geito não vou conseguir fazer isso, já que no evento retorna 135 e no status 100. Estou testando no Sefaz/PR. Alguem de outra UF tem o mesmo problema (retornar 100 ao invés do 101 depois de autorizado o cancelamento por substituição). ?? P.S. Procurei na NT mas não encontrei nenhuma alteração na verificação de status.

Boa tarde a todos Seguindo alguns tópicos que encontrei no fórum, fiz um resumo da conversão que fiz para quem estiver migrando para o trunk 2, espero que possa ajudar alguém: CTe ** CTe * Valida De: ACBrCTe1.Conhecimentos.Valida; Para: ACBrCTe1.Conhecimentos.Validar; * Configuracoes.Geral.PathSalvar De: ACBrCTe1.Configuracoes.Geral.PathSalvar Para: ACBrCTe1.Configuracoes.Arquivos.PathSalvar * EnviarEventoCTe De: ACBrCTe1.EnviarEventoCTe(idLote); Para: ACBrCTe1.EnviarEvento(idLote); * De: if ACBrCTe1.Conhecimentos.Items[i].Confirmada then Para: if ACBrCTe1.Conhecimentos.Items[i].Confirmado then * De: ACBrCTe1.Conhecimentos.Items[i].SaveToFile(cFileName); Para: ACBrCTe1.Conhecimentos.Items[i].GravarXML(cFileName); * De: DFEUtil.LimpaNumero(cDocumento) Para: OnlyNumber(cDocumento) * De: ACBrCTe1.Configuracoes.Certificados.DataVenc Para: ACBrCTe1.SSL.CertDataVenc NFe ** NFe * De: cNroSerieCertificado := ACBrNFe1.Configuracoes.Certificados.SelecionarCertificado; Para: cNroSerieCertificado := ACBrNFe1.SSL.SelecionarCertificado; * De: ACBrNFe1.NotasFiscais.Valida; Para: ACBrNFe1.NotasFiscais.Validar; * De: ACBrNFe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFe1.EnviarEventoNFe(idLote); Para: ACBrNFe1.EnviarEvento(idLote); * De: cSituacao := SituacaoNFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); Para: cSituacao := SituacaoDFeToStr(AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items[idx].resNFe.cSitNFe); * De: ACBrNFe1.NotasFiscais.Items[i].SaveToFile(cFileName); Para: ACBrNFe1.NotasFiscais.Items[i].GravarXML(cFileName); * Removidos: ( não existe mais DPEC) ACBrNFe1.WebServices.EnviarDPEC.Executar ACBrNFe1.WebServices.ConsultaDPEC.NFeChave ACBrNFe1.WebServices.ConsultaDPEC.Executar; * De: NFe.Det[idx].Prod.nItemPed := 0; Para: NFe.Det[idx].Prod.nItemPed := ''; * Disponível NFe.Det[idx].Prod.CEST ( trunk 2 ) * Remover Componentes ACBrNFeDANFERave1 e ACBrNFeDANFERaveCB1 * De: ACBrNFe1.NotasFiscais.Items[idx].SaveToFile(cFileName ); Para: ACBrNFe1.NotasFiscais.Items[idx].GravarXML(cFileName); * De: ACBrNFe1.Configuracoes.Certificados.DataVenc Para: ACBrNFe1.SSL.CertDataVenc NFSe ** NFSe * De: ACBrNFSe1.Configuracoes.Arquivos.PastaMensal := True Para: ACBrNFSe1.Configuracoes.Arquivos.SepararPorMes := True * De: ACBrNFSe1.Configuracoes.WebServices.CodigoMunicipio := 9999 Para: ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 9999 * De: ACBrNFSe1.Configuracoes.WebServices.SetConfigMunicipio(ACBrNFSe1.Configuracoes.Geral.PathSchemas); Para: ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; * De: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb := cSenhaWeb; Para: ACBrNFSe1.Configuracoes.Geral.SenhaWeb := cSenhaWeb; * De: ACBrNFSe1.Configuracoes.WebServices.UserWeb := cUserWeb; Para: ACBrNFSe1.Configuracoes.Geral.UserWeb := cUserWeb; * De: cProvedor := ACBrNFSe1.Configuracoes.WebServices.xProvedor; Para: cProvedor := ACBrNFSe1.Configuracoes.Geral.xProvedor; * De: ACBrNFSe1.Configuracoes.Geral.PathSalvar; Para: ACBrNFSe1.Configuracoes.Arquivos.PathSalvar; * De: ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := noTributacaoNoMunicipio; ACBrNFSe1.NotasFiscais.Items[0].NFSe.NaturezaOperacao := StrToNaturezaOperacao(ok, cNaturezaOperacao); Geral * pcnConversao ( ainda existe ) - especializado para pcnConversaoNFe e pcteConversaoCTe adicionem no uses pcnConversaoNFe e pcteConversaoCTe junto com pcnConversao * ACBrDFeUtil // Unificado: ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil ( não existem mais ) remover ACBrNFeUtil-ACBrNFEsUtil-ACBrCTeUtil e deixem ACBrDFeUtil * Added novo uses ACBrUtil * EstaVazio De: if DFeUtil.EstaVazio(cPathSalvar) then Para: if EstaVazio(cPathSalvar) then

Prezados, boa tarde. Identifiquei uma inconsistência na NFe 4.0 em relação à Danfe; Na impressão, ao selecionar as modalidades 3 e 4, o campo Frete Por Conta fica em branco. Está assim: function modFreteToDesStr(const t: TpcnModalidadeFrete): string; begin case t of mfContaEmitente : result := '0 - EMITENTE'; mfContaDestinatario : result := '1 - DEST/REM'; mfContaTerceiros : result := '2 - TERCEIROS'; mfSemFrete : result := '9 - SEM FRETE'; end; end; Poderia ser assim: function modFreteToDesStr(const t: TpcnModalidadeFrete): string; begin case t of mfContaEmitente : result := '0 - EMITENTE'; mfContaDestinatario : result := '1 - DEST/REM'; mfContaTerceiros : result := '2 - TERCEIROS'; mfProprioRemetente : result := '3 - PROP/REMT'; mfProprioDestinatario : result := '4 - PROP/DEST'; mfSemFrete : result := '9 - SEM FRETE'; end; end; Obrigado. Att,

Boa tarde, Fiz a atualização para o Trunk2 e ao compilar o projeto, apresenta alguns erros: No antigo, tinha no pcnConversao.pas a função GETVERSAONFE() e nos fontes do Trunk2 não possui essa função. Tem alguma outra para substituir ou outra opção? Também não está informado dois Layouts: LayNfeEnvDPEC e LayNFeConsultaDPEC no pcnConversaoNfe.pas. Ele foi retirado? E no ACBrNFeUtil.pas tenho declarado NFeUF e NFeUFCodigo que era informado no pcnConversao.pas. Não encotrei no Trunk2. Poderiam me ajudar com esses erros?

Bom dia a todos, No trunk eu usava na Nf-e o pcnconversao e no trunk2 agora ele mudou para pcnConversaoNFe Ao remover o pcnconversao do uses e colocar o pcnConversaoNFe ele nao encontrou CSTICMSToStr(CST),CSTIPIToStr(CST) e em mais algumas outras declaraçoes. Eu teria que manter o pcnconversao também. ?