asterix

Verdade.

Ola Amigo EMBarbosa depois de bater muito a cabeça e muitos testes percebi que o erro e provocado juntamente com o registro "Registro I020: Campos Adicionais" se este registro for informado deve seguir orientação do mesmo: Quando, para manter a integridade e a correção da informação, for necessária a apresentação de dados não previstos nos arquivos padronizados, eles deverão ser incluídos no arquivo correspondente, mediante acréscimo de campos ao final de cada registro. Esta regra se aplica aos registros de I050 a I355. No meu caso este registro estava sendo informado sem necessidade, para resolver meu problema, foi so remover a geração do registro I020 e o registro I050 já não apresentou mais erros. Bom até agora e o que eu consegui analisar.

Dangelo2010 conseguiu alguma forma de sanar o problema do registro I050? estou com o mesmo erro!

Ola pessoal Bom dia Primeiramente agradecer ao tópico que estava com estes mesmos erros no inicio e seguindo as orientações principalmente a respeito do da versão no registro I010 consegui resolver o problema de erro no layout do Registro "0000" porem não consigo achar o problema para solucionar o erro do registro I050 conforme podem ver na imagem em anexo, se alguém tiver alguma sugestão estarei grato

Boa tarde, foi implementado o EPEC e na hora de transmitir o correu o mesmo erro: "Emissor não habilitado para emissão do CT-e". Vou realizar mais teste e se tiver novidades posto os detalhes.

Sim estão atualizados.

Ola Amigos Brasileiro e criativo então vamos as duas Gambiarras que testei e funciona legal aqui. function TACBrTXTClass.LFill(Value: Extended; Size: Integer; Decimal: Integer = 2; Nulo: Boolean = false; Caracter: Char = '0'; Mascara: String = ''): String; var intFor, intP, intValor: Integer; strCurMascara, strValor: string; begin strCurMascara := FCurMascara; // Se recebeu uma mascara como parametro substitue a principal if Mascara <> '' then strCurMascara := Mascara; /// Se o parametro Nulo = true e Value = 0, será retornado '|' if (Nulo) and (Value = 0) then begin Result := FDelimitador; Exit; end; intP := 1; for intFor := 1 to Decimal do begin intP := intP * 10; end; if (strCurMascara <> '#') and (strCurMascara <> '') then Result := FDelimitador + FormatCurr(strCurMascara, Value) else begin (* Este método também funciona - GAMBIARRA NUMERO 1 // Recebe o valor truncado. intValor := Integer(Trunc(Value * intP)); // devido ao bug do método Trunc, alguns valores retornam abaixo do esperado. f := Frac(Value * intP); // Outro bug de comparação do delphi, "1" não é igual a "1" usando o operador "=" if SameValue(f, 1) then Inc(intValor); // *) //ou GAMBIARRA NUMERO 2 strValor := FloatToStr(Value * intP); intValor := Pos(',', strValor); if intValor > 0 then intValor := StrToInt( Copy(strValor, 1, intValor -1) ) else intValor := StrToInt(strValor); Result := LFill(intValor, Size, Nulo, Caracter); end; end; ACBrTXTClass.pas

Tenho 2 sugestões que irei posta-las no tópico Afim de evitar redundância de informação.

Primeiramente obrigado pela anteção Wislei, estou configurando a propriedade como você: Ide.tpEmis := teSVCSP, segue ai o xml. 31140518569680000124570010000002338000002333-cte.xml

Beleza Obrigado...

Em anexo.. ACBrPAF_C_Class.pas

Sim. O emissor está transmitindo CT-e normalmente, consigo transmitir no modo normal para ambiente em homologação, utilizando o mesmo emissor. Quando consulto o retorno em modo SVC-SP ele retorna: Cód: 107, ambiente 2(homologação), versão aplicativo: SP-CTe-14-01-2014, tempo médio 1 e data de recebimento.

Ola Pessoal Bom dia Vi um erro na função "OrdenarC2" que esta na classe "ACBrPAF_C_Class.pas" originalmente ela esta desta forma: function OrdenarC2(ACampo1, ACampo2: Pointer): Integer; var Campo1, Campo2: String; begin Campo1 := TRegistroC2(ACampo1).BOMBA + TRegistroC2(ACampo1).BICO + Format('%.15d', [Trunc(TRegistroC2(ACampo1).ENCERRANTE_INICIAL * 100)]); Campo2 := TRegistroC2(ACampo1).BOMBA + TRegistroC2(ACampo1).BICO + Format('%.15d', [Trunc(TRegistroC2(ACampo1).ENCERRANTE_INICIAL * 100)]); Result := AnsiCompareText(Campo1, Campo2); end; porem pode se notar que esta esta comparando o objeto "ACampo1" com ele mesmo, para funcionar o correto seria: function OrdenarC2(ACampo1, ACampo2: Pointer): Integer; var Campo1, Campo2: String; begin Campo1 := TRegistroC2(ACampo1).BOMBA + TRegistroC2(ACampo1).BICO + Format('%.15d', [Trunc(TRegistroC2(ACampo1).ENCERRANTE_INICIAL * 100)]); Campo2 := TRegistroC2(ACampo2).BOMBA + TRegistroC2(ACampo2).BICO + Format('%.15d', [Trunc(TRegistroC2(ACampo2).ENCERRANTE_INICIAL * 100)]); Result := AnsiCompareText(Campo1, Campo2); end;

Ola Pessoal Bom dia Hoje em testes na parte de postos de combustível para atender o atoCotepe 2.01, vi que o arquivo gerado para o PAF-ECF estava retornando um valor diferente da base de dados, fui ver o erro e vi que a função "PAF_C.LFill" esta com problemas no truncamento de valores. A simulação do erro e simples, abre um projeto novo, adiciona o componente "TAcbrPAF", e um "Button" no button adiciona o seguinte codigo: ShowMessage(AcbrPaf1.PAF_C.LFill(2222.88, 15, 2)); veja que foi passado o valor "2222.88" porem na execução do Showmessage me retorna "2222.87", podemos ver que em qualquer lugar que se utilizar a função "PAF_C.LFill" pode gerar o problema.

Bom dia pessoal, estou com um problema ao transmitir o CT-e para SVC-SP, fiz alteração para tpEmis = 8. Estou utilizando um certificado de uma empresa de MG, e tentando transmitir no ambiente de homologação. Quando consulto status do serviço ele retorna status operando normalmente. Em modo normal consigo autorizar o CT-e normalmente(homologação), mas ao tentar em SVC-SP, ele retorna: "Rejeição: Emissor não habilitado para emissão do CT-e". Alguém poderia me ajudar?

É em testes também consegui emitir minha primeira NFe no servidor 3.10 de MG, porem somente para produtos, combustíveis mesmo não sendo GLP e informando <cProdANP>320101001</cProdANP> o servidor esta louquinho, e me retorna: cstat: 461 Erro: Rejeição: Informado percentual de Gas Natural na mistura para produto diferente de GLP so que nem estou informando a TAG "pMixGN" , fato que comprova erro na validação por parte do servidor.

Processinho complexo né mesmo?, era mais fácil o próprio banco abrir alguma coisa neste sentido.

Ainda nada

Ola Pessoal alguém que trabalhe com softwares para postos de combustíveis já homologou no ato 2.01? Estou sem entender a respeito dos alertas de comunicação “ALERTA: SEM COMUNICAÇÃO” e “ALERTA: RETORNO DE COMUNICAÇÃO” se alguém puder me passar algum exemplo da impressão e me ajudar em como o homologador esta cobrando eu agradeceria.

Ola Italo Bom dia, depois de alguns detalhes passados na atualização do componente, consegui testa-lo e vi que agora deu certo. Obrigado.

Beleza garoto! Agora atualizado e por a mão na massa.. abraços.

O erro do QuickReport resolveu, o do RAVE ainda persiste, para resolver o do RAVE somente adicionando manualmente na library path C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\RaveReports\Lib ai funciona também.

E justamente a versão que tenho disponível aqui, por isso creio que o erro deve estar em algum ponto do instalador, pelo que vi ele não esta reconhecendo o caminho da library path existente $(BDS)\RaveReports\Lib pois adicionei o caminho manualmente C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\RaveReports\Lib e compilou, e como o amigo "laffsj" já havia dito, fora do instalador estava funcionando. Desta forma so fica o erro do QuickReport em Error: E2466 Never-build package '.ACBrMDFeDAMDFEQRpkg' requires always-build package 'QR5RunD2010'

Ola Juliomar Bom dia vamos as considerações: Eu só possuo o Delphi 2010, nenhum outro Delphi instalado na maquina Tirando a Nfe que utilizo em RaveCodeBase que também não esta instalando devido a mensagem: ACBrNFeDanfeRVCodeBase.dpk(83) Fatal: E2202 Required package 'Rave77VCL' not found ACBrNFeDanfeRV.dpk(83) Fatal: E2202 Required package 'Rave77VCL' not found possuo o Quick report instalado versão 5.05 e todos os outros são quickreport ACBrCTeDacteQRpkg.dpk - ok ACBrNFSeDanfseQRpkg.dpk - ok ACBr_BoletoFC_Quick.dpk - ok Anexo imagem do Instalador e Log log_Delphi_2010.txt log_Delphi_2010.txt

Erro do rave ainda Persiste ACBrNFeDanfeRVCodeBase.dpk(83) Fatal: E2202 Required package 'Rave77VCL' not found ACBrNFeDanfeRV.dpk(83) Fatal: E2202 Required package 'Rave77VCL' not found E o Erro do QuickReport agora mudou, creio que esta relacionado ao mesmo do RAVE ou seja não esta localizado o patch dos arquivos necessarios Error: E2466 Never-build package '.ACBrMDFeDAMDFEQRpkg' requires always-build package 'QR5RunD2010'