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.