Aurino

A Reforma Tributária impacta os sistemas fiscais e muitos desenvolvedores e muitos ainda estão tentando entender como implementar CBS, IBS, reduções, diferimentos, validações e novas regras exigidas pelos ambientes de homologação. Pensando nisso, desenvolvi a Classe Reforma Tributária (RT), compatível com Delphi e Lazarus, criada para auxiliar na adequação de ERPs, PDVs e emissores fiscais. Com base no código cclasstrib, a classe realiza os cálculos automaticamente durante a emissão do documento fiscal, alimentando as tags com seus valores respectivos. Compatível com Delphi e Lazarus Integração simples com projetos que utilizam ACBr Cálculo automático das tags da Reforma Tributária Validações das regras CBS e IBS Estrutura preparada para NF-e e NFC-e Redução do tempo de implementação Código-fonte para download; A proposta da classe é servir como apoio técnico para acelerar a implementação da Reforma Tributária, reduzindo semanas de estudo e testes durante a transição para o novo modelo fiscal brasileiro. Demonstração: Vídeo Demonstrativo // CODIGO EXEMPLO DA IMPLEMENTAÇÃO // USO DA CLASSE DA REFORMA COM DUAS PROCEDURES var Ok: Boolean; NotaF: NotaFiscal; Item: TDetCollectionItem; i: Integer; begin Nota := ACBrNFe1.NotasFiscais.Add; NotaF.NFe.Ide.natOp := 'VENDA NOTA'; NotaF.NFe.Ide.modelo := 55; // 65 para NFC-e NotaF.NFe.Ide.serie := 1; NotaF.NFe.Ide.nNF := 10; // ...demais tags... for i := 0 to 10 do begin Item := NotaF.NFe.Det.New; Item.Prod.cProd := '123456'; Item.Prod.cEAN := '7896523206646'; Item.Prod.xProd := 'PRODUTO TESTE COM REFORMA'; Item.Prod.NCM := '61051000'; Nota_Produto_RT(NotaF, Item); // REFORMA DO ITEM end; NotaF.NFe.Total.ICMSTot.vBC := 0; NotaF.NFe.Total.ICMSTot.vICMS := 0; Nota_Total_RT(NotaF); // REFORMA TOTAL // ...demais tags end; Informações e aquisição: Portal Reforma Tributária RT - https://rt.aurino.com.br/ Informações da implementação: https://rt.aurino.com.br/nfe_nfce/ Indicado para: • Software Houses • Desenvolvedores Delphi • Desenvolvedores Lazarus/FPC • Empresas que utilizam ACBr • ERPs, PDVs e Sistemas Fiscais Interessados podem entrar em contato acessando o site https://rt.aurino.com.br

# Geração de Paths com PowerShell Este script percorre todas as pastas e subpastas de **c:\acbr\fontes** e gera um arquivo `paths.txt` contendo todos os diretórios separados por `;` em uma única linha. O `paths.txt` será criado na **mesma pasta onde o script foi salvo** (C:\acbr). ## Objetivo do arquivo `paths.txt` O arquivo `paths.txt` é utilizado para registrar, em uma única linha, todos os caminhos de pastas e subpastas existentes dentro do diretório **C:\acbr\fontes**. Esses caminhos são separados por ponto e vírgula (`;`), permitindo que softwares ou processos externos utilizem essa lista para localizar bibliotecas, componentes, módulos ou arquivos de código-fonte automaticamente, sem a necessidade de copiar manualmente, cada path , pasta por pasta; Em resumo, o objetivo é **automatizar a geração da lista completa de diretórios**, facilitando integrações, compilações e configurações de ambiente. ## Estrutura esperada ## ▶ Como executar Abra o **PowerShell** e execute: Set-ExecutionPolicy -Scope CurrentUser RemoteSigned cd C:\acbr .\Path_ACBr.ps1 ##Fica a dica de enviar no versioamento, junto com o instalador, o aquivo Path_ACBr.ps1. Path_ACBr.ps1

atualiza novamente. ja corrigido na revisao 41275

nesse exato momento, mesmo apos executar o apagaracbr.bat, ainda persiste ao erro.

PIX Dinâmico var InfoPgto: TpagCollectionItem; if ((InfoPgto.tpag in [fpPagamentoInstantaneo]) ) then begin InfoPgto.cAut := NSUTEFPIX; // codigo de autorizacao do PIX InfoPgto.tpIntegra := tiPagNaoIntegrado; //sem integração com o pagamento PIX InfoPgto.CNPJ := CNPJTransacao; // cnpj da operadora da transacao. a validar InfoPgto.tBand := bcOutros; end;

Compreendo a preocupação, mas a sugestão de modelo de impressão , atende as demandas de clientes , contadores, e fornecedores, que requerem o valor do IPI Devolução, nos casos das empresas emissoras serem do regime fiscal simples nacional, mostrando o valor total de forma mais clara, visto que tal valor já estaria nas informações adicionais da nota fiscal, no rotapé do danfe. Então , em caso de devolução de compra que seja mencionado o IPI Devol, poderá ser usado tal impressão como modelo de visualização da informação em questão. Ressaltando o mesmo para os casos dos campos FCP, FCP ST e FCP Ret.

Exato, cada campo tem seu respectivo lugar .. ou seja , vIPI e vIPIDevol , mostrando no Danfe os dois campos ...

"Segue a contribuição para os modelos de DANFE nos formatos retrato e paisagem, incluindo totalizadores adicionais. No modelo paisagem, foram adicionados os valores de IPI normal e de devolução, além das alíquotas de ICMS, ICMS ST e IPI por produto." Fiz ajustes para melhorar a clareza e fluidez. Abaixo modelo das imagens conforme o modelo de impressão usado no Fast Report; DANFePaisagem_v2.fr3 DANFeRetrato_v2.fr3 DANFePaisagem_v2.fr3 DANFeRetrato_v2.fr3

não sei se foi resolvido mas segue sugestão para funcionar com a balança testada via emulador.. nas primeiras linhas do procedure ACBrBAL1LePeso, adicionei as 3 linhas abaixo.... procedure TForm1.ACBrBAL1LePeso(Peso: Double; Resposta: String); var valid : integer; begin {tratamento para balToledo9091_8530_8540 } if Trunc( StrToInt( trim(ACBrBAL1.UltimaResposta)) ) <> 0 then Peso := StrToInt( trim(ACBrBAL1.UltimaResposta)) ; sttPeso.Caption := formatFloat('##0.000', Peso ); sttResposta.Caption := Converte( Resposta ) ; if Peso > 0 then Memo1.Lines.Text := 'Leitura OK !' else begin valid := Trunc(ACBrBAL1.UltimoPesoLido); case valid of 0 : Memo1.Lines.Text := 'TimeOut !'+sLineBreak+ 'Coloque o produto sobre a Balança!' ; -1 : Memo1.Lines.Text := 'Peso Instavel ! ' +sLineBreak+ 'Tente Nova Leitura' ; -2 : Memo1.Lines.Text := 'Peso Negativo !' ; -10 : Memo1.Lines.Text := 'Sobrepeso !' ; end; end ; end;

é opensource.

ajuste da data da situacao especial, para deixar = 0; ACBrConsultaCNPJ.pas

Bom dia, quero compartilhar uma pequena alteração referente a situação do CNPJ para casos com situação especial. Em anexo o arquivo ACBrConsultaCNPJ.pas com o ajuste testado no lazarus e delphi; exemplo, ao consultar o CNPJ o 45.170.289/0001-25 - DARUMA TELECOMUNICACOES E INFORMATICA S/A SITUAÇÃO CADASTRAL ATIVA SITUAÇÃO ESPECIAL FALIDO exemplo de uso: exemplo 1: if ACBrConsultaCNPJ1.SituacaoEspecial <> '********' then EditSituacao.Text :=ACBrConsultaCNPJ1.SituacaoEspecial else EditSituacao.Text := ACBrConsultaCNPJ1.Situacao ; adicionado a unit: descricao da situacao especial data da situacao especial exemplo 2: EditSituacao.Text := ACBrConsultaCNPJ1.Situacao; EditSituacaoEspecial.Text := ACBrConsultaCNPJ1.SituacaoEspecial ; ACBrConsultaCNPJ.pas

API de consulta pelo EAN Consulta CNPJ: http://www.dataload.com.br:8000/api/cnpj/00000000000000 Obter imagem pelo codigo de barras: http://www.eanpictures.com.br:9000/api/gtin/2170620308508 Obter descricao ncm pelo codigo de barras : http://www.eanpictures.com.br:9000/api/desc200/7894900093049 Link do grupo no whatsapp: https://chat.whatsapp.com/LS8DWYNrjwf8pqU52WPtVf Tem DEMO de uso da API. http://www.eanpictures.com.br/ http://www.dataload.com.br/

fica sugestão que captura automaticamente, pelo tipo de envio; var vsincrono : Boolean; vcsat : integer; vxmotivo : string ; begin vsincrono := StrToBool(IfThen(ACBrNFe1.NotasFiscais.Count > 1, 'True', 'false')); ACBrNFe1.Enviar(1, True, vsincrono); vcsat := IfThen(vsincrono = true, acbrnfe1.WebServices.Enviar.cStat, acbrnfe1.WebServices.retorno.cStat); vxmotivo := IfThen(vsincrono = true, acbrnfe1.WebServices.Enviar.xMotivo, acbrnfe1.WebServices.retorno.xMotivo); //ifthen uses math end;

tente usar timeout de 15000 como padrão, e caso não obtenha o retorno, emita a contingencia com numero sequencial atual + 1, previsto pelo manual da contingencia 2.0. Segue esse manual passo a passo, que conseguirar tratar as questões da emissão e controle das numerações e procedimentos a serem adotados quanto a questão fiscal.

Desculpe pela demora mas resolvido. Obrigado pelo ajuste.

Boa noite, irei atualizar e testar. reportarei o resultado. obrigado.

Esta como citado.. Pagamento Instantâneo (PIX) porém ficar com erro de impressão no danfe.... como mostrado na imagem.

Bom dia NFe com PIX no FortesReport esta cortando/cobrindo o valor pago na forma de pagamento. Para corrigir temporariamente, tive que alterar na unit pcnConversao o texto Pagamento Instantâneo (PIX) para PIX conforme mostrado abaixo. Há algum ajuste no danfe FortesReport para não sair cortado ou fica a minha sugestão de refatoração do texto da descrição da forma de pagamento referente ao PIX.

Boa noite. NFe com PIX no FortesReport esta cortando/Cobrindo o valor pago na forma de pagamento. Para corrigir temporariamente, tive que alterar na unit pcnConversao o texto Pagamento Instantâneo (PIX) para PIX conforme mostrado abaixo. Há algum ajuste no danfe FortesReport para não sair cortado ou fica a minha sugestão de refatoração do texto da descrição da forma de pagamento referente ao PIX.

Pelo que entendi... a rotina cancelartransacaopendentes, mas já foi confirmada nao estando mais pendente correto? nesse caso, chamando a função que passei acima, fará o processo de cancelamento chamando a tela do GP para informar os dados da transação visto que já foi confirmada assim como pode consultar no portal de vendas. ref. o controle ser usado para cancelar pelo GP, apesar de existir o NSU mas pegando o controle (CTR) seja na impressão do comprovante apos a finalização da venda, ou durante a venda, pegando direto do processo apos aprovação do cartao, poderá implementar a leitura desse CTR direto no arquivo antes da chamada do GP ou fazer com que o operador possa informar o CTR manualmente via orientação da sua aplicação... segue a imagem que salvo no banco de dados os dados de cada transação seja durante a venda ou apos finalização da venda.

verifica a função do ACBrTEF pois não temos problemas com o TEF GetCard, que esta operacional normalmente. ACBrTEFD1.CNC(vRede, vNSU, vDataHoraTransacao, vValorTransacao );

Exato.. A partir o primeiro erro de falta de retorno da sefaz por exemplo ou falha de conexão de internet, já procede para alteração automatica para emissão em contingencia, e assim emitindo normalmente em sequencial das numerações e em contingencia offline. O manual trata apenas para caso de envio e sem retorno do status da nota, fazendo assim a necessidade de liberar a venda do cliente com uma numeração seguinte para evitar que gere a mesma numeração desta que deu falha de retorno e ao transmitir a sefaz esta mesma nota, obter o retorno de duplicidade de chave de acesso com diferenca ... assim tendo a nota normal recebida na sefaz, porem o cliente possui uma nota em contingencia que nunca será autorizada na sefaz visto que o tipo de emissão é diferente daquele registrado e recebido na sefaz. Precisa tratar automaticamente a emissão da contingencia, seja manual ou por usuário a partir do primeiro caso de falha de retorno da sefaz ou falta de internet.

no seu exemplo, emitindo 10 notas em contigencias devido ausencia de internet, logo vc nao esta enviando as notas ,e sim apenas gerando em contingencia. nao precisará gerar outras nota substitutiva para esse caso. A regra do manual da contingencia é para aquele caso que vc envia a nota no modo NORMAL, a sefaz recebe esta nota e por qualquer motivo que seja, seu sistema nao obtem o retorno. Nesse momento, vc deve seguir o manual que diz: gerar uma nova nfce com numero sequencial em contingencia .. ao enviar esta contingencia posteriormente, fará a consulta da chave de acesso da primeira nota que nao teve retorno da sefaz, e tratar o retorno e evento posterior para o caso. 1 - Quase todas notas caem em contigencia: Qual motivo para emissão? falha de internet ou retorno da sefaz? Se for este o problema, a primeira nfce que apresentou esse problema será gerada uma nfce seguinte com os mesmos dados desta nota, guardando a nota anterior para posterior consulta e tratamento de consulta para cancelar, inutilizar ou emissao de nfe de devolucao de venda. A partir desta nota que obter essa falha e gerando assim a contingencia, no fim da impressão, já providencia a alteração automatica do modo de envio para contingencia manual. E assim, as proximas notas , serão emitidas em contingencias offline , podendo reativar o modo normal a seu critério, entre tempo no time, ou manualmente pelo usuário; Mas se esta gerando contingencias por diversas falhas, precisa verificar que falhas e resolver cada falha e transmitir essas contingencias, visto que o cliente final, tem posse deste documento em contigencia para posterior consulta.

na NT da contingencia nesses casos, para tratar a numeração e não perder o controle ou liberar nota inexistente ao cliente , segue o exemplo basico que o manual da contingencia orienta: 1 - enviou a nfce 100 , sefaz recebeu mas nao teve retorno(falta de internet ou sefaz); 2- gera a nfce 101 em contingencia ref. a 100 que ficou sem confirmação; 3 - ao transmitir a 101 a sefaz autorizando a mesma, fará a consulta da chave da nfce 100 para obter o retorno da situação e tratar da seguinte forma: a - se estiver autorizada dentro do prazo, realiza o cancelamento; b - se nao estiver autorizada, inutiliza a numeração; c - se estiver autorizada fora do prazo, emissao da nfe de devolucao de venda; *isso sem fazer o controle de serie exclusiva da contingencia, por isso , a numeraçao sequencial da nota continua na sequencia. Manual_de_especificacoes_tecnicas_da_Contingencia_Off-line_versao_2.0.pdf