Aurino

"manter o código por segurança", só apenas detalhe. não sei como é feito o processo do arquivo. criação do XML e sim gerando como esperado, mas emissão ainda devido alguns erros apenas exemplo do retorno: cClassTrib incompatível com o tipo de Nota de Crédito [nItem: 1] XML validado no site da sefaz , ainda não autorizado, mas schemas validado.

Ao gerar XML com nota de crédito e debito está gerando as tags do imposto ICMS PIS COFINS. verificado e agora passou a gerar normalmente pelo credito ou debito. segue como sugestão o arquivo para leitura; Revisão ACBr: 47270 ACBrNFe.XmlWriter.pas

desconsiderar.

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 );