wendelswl

Boa tarde a equipe do ACBR. Na unit ACBRNFeWebServices há um problema na inutilização quando utiliza-se estado Bahia (29) nos seguintes procedimentos: Procedure TNFeConsulta.DefinirServicoEAction; Procedure TNFeInutilizacao.DefinirServicoEAction; Na condição contida na função deve-se adicionar um filtro de forma de emissão, pois para SVC-RS ocorrem erros: Alterar de: if (FConfiguracoes.Geral.ModeloDF = moNFe) and (FConfiguracoes.Geral.VersaoDF = ve310) and (FConfiguracoes.WebServices.UFCodigo in [29]) then // 29 = BA Para: if (FConfiguracoes.Geral.ModeloDF = moNFe) and (FConfiguracoes.Geral.VersaoDF = ve310) and (FConfiguracoes.Geral.FormaEmissao = teNormal) and (FConfiguracoes.WebServices.UFCodigo in [29]) then // 29 = BA Segue unit alterada para vossa apreciação caso seja necessário. Não analisei os layouts anteriores ao 3.10 para efetuar a modificação, Para o ambiente 3.10 funciona perfeitamente. ACBrNFeWebServices.pas

Bom dia. Pessoal, vi que o post é antigo, porém estou iniciando os trabalhos com boletos da caixa e utilizo o Fortes Report (Carnê). Enviei alguns boletos para homologação e recebi as seguintes mensagens do banco: FICHA DE COMPENSAÇÃO - LOCAL DE PAGAMENTO PREENCHIDO INCORRETAMENTE (PREENCHER CONFORME ITEM 4.2.2.1 DO MO 67119, OU SEJA, “PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE”) - RETIFICAR TODOS OS CAMPOS ONDE CONSTA A EXPRESSÃO “CEDENTE” PARA “BENEFICIÁRIO” E ONDE CONSTA A EXPRESSÃO “SACADO” PARA “PAGADOR” - RETIFICAR OS CAMPOS PARA (=) VALOR DO DOCUMENTO, (-) DESCONTO, (-) OUTRAS DEDUÇÕES/ABATIMENTO, (+) MORA/MULTA/JUROS, (+) OUTROS ACRÉSCIMOS e (=) VALOR COBRADO NESTA SEQÜÊNCIA. - RETIFICAR O CAMPO “PAGADOR/AVALISTA” PARA CAMPO “SACADOR/AVALISTA” RECIBO DO PAGADOR - NÃO CONSTA A EXPRESSÃO “RECIBO DO PAGADOR” - RETIFICAR TODOS OS CAMPOS ONDE CONSTA A EXPRESSÃO “CEDENTE” PARA “BENEFICIÁRIO” E ONDE CONSTA A EXPRESSÃO “SACADO” PARA “PAGADOR” - NÃO CONSTA O CAMPO “NÚMERO DO DOCUMENTO” - RETIFICAR OS CAMPOS PARA (=) VALOR DO DOCUMENTO, (-) DESCONTO, (-) OUTRAS DEDUÇÕES/ABATIMENTO, (+) MORA/MULTA/JUROS, (+) OUTROS ACRÉSCIMOS e (=) VALOR COBRADO NESTA SEQÜÊNCIA Em anexo vai a imagem de um dos boletos que enviei. Atualizei meu componente hoje. Tem algo de errado na minha atualização ou realmente os erros a seguir existem?? Agradeço antecipadamente. Wendel Oliveira SWL SOFTWARE

Prezado, vc pode entrar no site da SEFAZ de origem com o certiificado digital e obter o XML original da NF-e novamente. A partir daí existem "n" formas de gerar o PDF da mesma.

Prezado, vc está utilizando o CSOSN incorreto. Consulta o manual da NF-e e veja que nesse CSOSN não deve ir valor de ICMS.

Prezado, o código constante na unit q tenho está conforme abaixo, não possuía o try. Por este motivo reportei o problema do leak. Irei atualizar pelo repositório e posto o resultado. Gde abraço e obrigado pela resposta for J:=1 to Cert.Extensions.Count do begin Extension := IInterface(Cert.Extensions.Item[J]) as IExtension; Propriedades := Extension.EncodedData.Format(True); if (Pos('2.16.76.1.3.3',Propriedades) > 0) then begin Lista := TStringList.Create; Lista.Text := Propriedades; for K:=0 to Lista.Count-1 do begin if (Pos('2.16.76.1.3.3',Lista.Strings[K]) > 0) then begin FCNPJ := StringReplace(Lista.Strings[K],'2.16.76.1.3.3=','',[rfIgnoreCase]); FCNPJ := OnlyNumber(HexToAscii(RemoveString(' ',FCNPJ))); break; end; end; break; end; Extension := nil; end; break; end; end; if not(Assigned(Result)) then raise EACBrNFeException.Create('Certificado Digital não encontrado!');

Prezados, aproveitando o tópico há um memory leak unit AcbrNFeConfiguracoes.pas na função TCertificadosConf.GetCertificado: ICertificate2 A variável Lista do tipo TStringList não está sendo destruída. Grande abraço