Ademir P. Voigt
-
Total de ítens
178 -
Registro em
-
Última visita
Community Answers
-
Ademir P. Voigt's post in Problemas de arredondamento was marked as the answer
Gato pela ajuda. Na verdade com alguns ajustes inetrnos no fonte conseguimos contornar. Mas não estou arredondando, devia ser coisa do delphi.
-
Ademir P. Voigt's post in Alteração de provedor para Crissiumal-RS was marked as the answer
Olá, vc tem que usar provedor PronimV2 para Crissiumal.
Estou emitindo normalmente em Crissiumal
-
Ademir P. Voigt's post in Impressão NFSe was marked as the answer
Pessoal,
Achei! Estava enviado a nota sem o parâmetro (False) - ACBrNFSe1.Enviar(vNumLote, False);
-
Ademir P. Voigt's post in Erro Nf Produtor Referenciada was marked as the answer
O problema está nesse cara aqui:
RefNFP.modelo.
O ACBR espera uma string, mas o campo na verdade é integer.
4=NF de Produtor; 1=NF (v2.0)
E no teste coloquei escrito uma string.
Para resolver, criei um radiogroup e tudo certo.
-
Ademir P. Voigt's post in Erro Acbr Install was marked as the answer
Existe sim, porem, o QR que eu tenho instalado não possui esse QR5RunXE.BPL E .DCP, e sim QR5RunNBDEDXE2.
O que eu fiz:
abri o pacote, C:\ACBr\Pacotes\Delphi\ACBrNFe2\ACBrNFeDanfeQRpkg.dpk
e substituí a linha QR5RunXE por QR5RunNBDEDXE2.
-
Ademir P. Voigt's post in Cancelamento Nfce was marked as the answer
Resolvido:
Para receber um retorno de versão de ACBrNFe1.Configuracoes.Geral.VersaoDF
eu coloquei na procedure de consulta v300 e não v310.
Ajustado e agora está OK.
-
Ademir P. Voigt's post in Erro Na Impressão Cpf was marked as the answer
Eu envio para o acbr CPF: 999.999.999-99 E CNPJ: 99.999.999/9999-99.
Pelo fato do PDf estar correto, pode ter algo na geração do preview.
Mas enfim, resolvi da seguinte forma:
Implementei uma função que remove os caracteres texto do documento e por hora está resolvido.
function SomenteNumeros(Texto: String): String; var I: Integer; s: string; begin s := ''; for I := 1 To Length(Texto) Do begin if (Texto in ['0' .. '9']) then begin s := s + Copy(Texto, I, 1); end; end; result := s; end;
Dest.CNPJCPF := SomenteNumeros(MyQrNFedest_cnpj.AsString);