Aurino

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

Inverti aqui ao passar pra ka. rsrs TEF: begin tpIntegra := tiPagIntegrado; end; POS: begin tpIntegra := tiPagNaoIntegrado; end;

era problemas da sefaz, ref, o sincronismo entre as sefaz estaduais e nacional.

Boa Tarde Pessoal e Graca, desculpe pela demora... Acabei esquecendo de repassar aqui. Verifiquei e relataram que para venda POS, deverá ser informado tiPagNaoIntegrado, e para TEF, tiPagIntegrado. Atualmente estou tratando conforme o tipo de transação e não tivemos problemas ref. as validações e emissões da notas fiscais, e tbm, sem problemas fiscais com relação aos cupons emitidos com venda POS ou TEF; Estou tratando assim, basicamente: Case TipoMeioPagamento of TEF: begin tpIntegra := tiPagNaoIntegrado; end; POS: begin tpIntegra := tiPagIntegrado; end; end; //Passandos os dados mesmo para transação POS, para controle dos comprovantes vinculados ao documento emitido; tPag := TipoTransacao; // ex: fpCartaoCredito; Tipo da Transação do cartao, se credito ou débito; vPag := ValorCredito; // ex 10.00; Valor pago na transação; tBand := BandeiraCartao; // ex: bcVisa; Bandeira selecionada pelo usuario; cAut := NSU; // ex: 102030; codigo do comprovante informado pelo usuario; CNPJ := CnpjOperadora; // ex: 11111111111111; CNPJ vinculado a tabela ref. a bandeira selecionada;

fiz um conversor entre as bases, ai não fico preso a programa de terceiros para migrar.

Gera a nfe de devolução com a tag = Outros.