Antonio Carlos L

Caras muito boa essa função eu estava apanhando meio devido ao Delphi por ter usado Currency meio devido as funções nativas que não arredondam como as normas da ABNT. Antonio Carlos

Obrigado Sérgio, mas o Fortes CE vai imprimir esses 120 caracteres ou será cortado ? Vou testar.

Caros ACBR 10672 impressão por FortesReport CE Questão : quando acrescento a tag informações complementares é criado uma linha abaixo do item e a separação do subsequente. O campo descrição do produto permite imprimir quantos caracteres ? pensei em acrescer a essa informação. Os colegas poderiam informar um tutorial do FortesReport ? Penso em ver se mexendo nos fontes, havendo informação adicional ele imprima abaixo da descrição sem criar uma segunda linha. Obrigado. Antonio Carlos.

Boa tarde Italo, mas essa regra do cliente não é so no modelo 55 ? No modelo 65 isso não vale apenas para o primeiro item ?

Caros ao emitir em Homologação NFCe ( 65 ) esta saindo no XML quando o destinatário é identificado : <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome, e no DanfeNFCe esta aparecendo de forma correta o nome do cliente.

Muito obrigado Italo

Após pesquisar em outros posts, fica claro que no caso da Capicom é necessário fazer as distribuições da DLL para a pasta system do windows, mas em decorrência disso mais umas dúvidas surgiram : Li no pai Google que existe diferença na Capicom dependendo do SO. Essa Dll que segue com o pacote ela funciona desde o windows 7 ao 10 inclusive as versões server ? Mesmo havendo outra Dll no system ela deve ser substituída por essa ? O aplicativo fazendo uso do envio de email pelo Acbr deve também distribuir as Dlls OpenSSL , e seria a 0.9.8.14 ? Porque vem a versão 0.9.8.1 ? As Dlls em XMLSec também são necessárias sua distribuição ?

Ola a todos, eu enviei as seguintes algumas perguntas sobre DeSTDA a - Mercadorias compradas por empresas do Simples nacional, onde já tenha sido retido pela empresa vendedora a ST , precisam informar ? b - Empresa do Simples Nacional onde os produtos sejam vendidos DENTRO DO ESTADO com CFOP 5405, ST já foi recolhida, precisa informar ? a pelo menos 6 contadores e ate o momento nenhum deles soube responder. Sei que o pessoal não é contador, mas alguma luz ? Obrigado Antonio Carlos

Caros, em relação a NFe e NFCe configurado para usar o certificado via capicon : 1 - Quais arquivos devem seguir junto com o software ? 2 - Basta esses arquivos estarem na pasta do software ou é necessário estarem em c:\windows\system32 ? 3 - A dll capicon ja deverá estar previamente instalada e registrada ? Existe diferenças desta DLL em relação aos diferentes SO ? Obrigado.

Post Original : Estou precisando Validar a Chave de Acesso DIGITADA pelo usuario. No exemplo Delphi NFe não encontrei, eu já valido se esta vazio, se é somente numero, se tem 44 posições , mas preciso validar se esta correta. Sei que o digito verificador é baseado no Modulo 11, posso ate fazer uma função, mas se já tiver no ACBr não vejo porque perder tempo. Obrigado O REGYS SILVEIRA RESPONDEU : Utilize o método ValidarChave que está na unit pcnAuxiliar. Por favor, não aproveite tópicos, abra um novo Mas antes de obter a resposta já havia resolvido da seguinte forma : Encontrei em https://drgarcia1986.wordpress.com/2012/01/31/funcao-para-validar-a-chave-da-nfe/ uma função que estou usando e funcionou, coloco aqui function ValidarChaveNFe(const ChaveNFe: string):boolean; const PESO : Array[0..43] of Integer = (4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 9, 8, 7, 6, 5, 4, 3, 2, 0); var Retorno : boolean; aChave : Array[0..43] of Char; Soma : Integer; Verif : Integer; I : Integer; begin Retorno := false; try try if not Length(ChaveNFe) = 44 then raise Exception.Create(''); StrPCopy(aChave,StringReplace(ChaveNFe,' ', '',[rfReplaceAll])); Soma := 0; for I := Low(aChave) to High(aChave) do Soma := Soma + (StrToInt(aChave) * PESO); if Soma = 0 then raise Exception.Create(''); Soma := Soma - (11 * (Trunc(Soma / 11))); if (Soma = 0) or (Soma = 1) then Verif := 0 else Verif := 11 - Soma; Retorno := Verif = StrToInt(aChave[43]); except Retorno := false; end; finally Result := Retorno; end; end;

OK, feito

movido para : http://www.projetoacbr.com.br/forum/topic/24797-função-para-validar-chave-acesso/

movido

Posso estar equivocado, mas acredito que impressoras NÃO FISCAIS em comunicação direta, sem a DLL do fabricante, não de retorno.

Postado 9 Dez 2014 - Sergioguedes Disse : "Ainda devendo o modelo da minha implementação vou tentar fazer isso em breve, vou compartilhar o meu modelo porque acho que vocês podem me ajudar eu posso muita pessoas também." Caro Sergio, a sua implementação esta em algum local diferente do ACBr, ou não existe ?

Pessoal coloquei a imagem em anexo para ficar mais fácil o entendimento. Querem que eu exiba em um DBGrid da forma abaixo, pelo que vejo ele permite uma dupla linha e a concatenação de Fields e texto. Na paleta JvDatControls encontrei o UltimateGrid, mas ele não permite isso. Alguma luz ?

Oi Juliomar, obrigado pela atenção, são os relatórios do Fast Report Funciona 100% no trunk mas no trunk 2 não instala, no log não informa erro dentro dos pacotes dos relatórios referentes a esse pacote, a mensagem é que falta um arquivo do Fast Report ( fs.bpl ) Funciona o Trunk 2 no Fast report no Xe , entretanto no Xe o Fast é versão 5

Ok, Italo obrigado. Não estou familiarizado com o ACBr, e meu chefes querem uma solução NFe e NFCe pra ontem. Por isso estou assinando o SAC, isso vai me ajudar muito. Um grande Abraço.

Caros, máquina W7 32bits, onde está o D7 com FR 4 rodando o ACBr via trunk 100%. Removido o ACBr, excluído todos os arquivos, pastas e path library. O ACBr via trunk2 não instala se deixar selecionado os relatórios de DANFE e BOLETO marcados. O mesmo erro em ambos os pacotes flata o pacote fs do FR. Se abro as pastas de exemplo do FR todos compilam sem erro. Não é possível esta faltando pois ele também existe na pasta system do windows. Creio que deva ser algo ainda pendente no instalador.

Mensagem de erro ao compilar o ABRrNFeDANFeRLPaisagem.pas Error: Illegal character in input file: 'ï' ($EF) Dica : http://delphitipsandtricks2.blogspot.com.br/2012/04/fix-illegal-character-in-input-file.html Abrir no Notepad++ e em Codificação ( encoding ) mudar de UTF8 para ANSI, salvar e compilar.

Após ser baixado do GitHub e descompactado ao compilar vai dar um erro na unit RLUtils.pas ... and CharInSet(AText[AIndex], SPC) As diretivas de compilação ou o compilador do Delphi 7 não reconhecem, é necessário mudar para : {$IFDEF DELPHI7}function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload;function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload;{$ENDIF} Encontrei a solução no site da devmedia, mas deixo aqui

RESOLVIDO ! SUGESTÃO AO MODERADOR : Creio que o Moderador deveria colocar certas coisas em uma FAQ o resultado do processamento é acrescentado de forma automática ao XML assinado desde que todas as propriedades salvar estejam em TRUE -<nfeProc xmlns="http://www.portalfiscal.inf.br/nfe" versao="3.10">

Verifiquei que junto ao executável da aplicação é gerado o temp.xml <?xml version="1.0"?> -<retConsSitNFe versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"> <tpAmb>2</tpAmb> Seguinte, esse arquivo é apenas para alimentar o TWeb e memo para visualizar, deveria ser comentado no demo.

Italo, muito obrigado por sua atenção, alterei o fonte do exemplo conforme abaixo // ACBrNFe1.NotasFiscais.Items[0].GravarXML(NomeArq); ACBrNFe1.NotasFiscais.Items[0].GravarXML(ExtractFileName(NomeArq)); Esse erro foi solucionado, vejam no post abaixo

Caros, acabei descobrindo que isso é feito de forma manual, ao ver a aba NFe e ver o botão Adicionar nFEProc ao XML Entretanto creio que exista um erro pois conforme a imagem em anexo , acompanhei a execução e ate if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]); esse ponto a variavel NomeArq esta com o valor correto, quando passa a gravação é que ocorre o erro. ACBrNFe1.NotasFiscais.Items[0].GravarXML(NomeArq);