Ir para conteúdo
  • Cadastre-se

Aurino

Membros
  • Total de ítens

    163
  • Registro em

  • Última visita

  • Days Won

    1

Aurino last won the day on 13 Fevereiro 2022

Aurino had the most liked content!

1 Seguidor

Últimos Visitantes

2.559 visualizações

Aurino's Achievements

Collaborator

Collaborator (7/14)

  • Reacting Well Rare
  • Dedicated Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter

Recent Badges

34

Reputação

8

Community Answers

  1. 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;
  2. ajuste da data da situacao especial, para deixar = 0; ACBrConsultaCNPJ.pas
  3. 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
  4. 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/
  5. 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;
  6. 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.
  7. Desculpe pela demora mas resolvido. Obrigado pelo ajuste.
  8. Boa noite, irei atualizar e testar. reportarei o resultado. obrigado.
  9. Esta como citado.. Pagamento Instantâneo (PIX) porém ficar com erro de impressão no danfe.... como mostrado na imagem.
  10. 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.
  11. 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.
  12. 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.
  13. 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 );
  14. 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.
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.