Rodrigo Alves

Pessoal, Quando tentamos emitir um danfe referente a uma nf-e complementar recebemos uma mensagem de erro. Erro esse causado quando a propriedade do Danfe.ImprimirDescPorc está setada como True. Para resolver fiz uma alteração testando se o valor total dos produtos é maior que zero e setando o valor Danfe.ImprimirDescPorc := False quando não. Caso seja do interesse do pessoal corrigir, localizei a linha do codigo ACBr: if FImprimirDescPorc = True then begin dPercDesc := (vDesc * 100) / vProd; cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', dPercDesc); end else cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', vDesc); Deveria ter um teste do tipo: if FImprimirDescPorc = True then begin if vProd > 0 then dPercDesc := (vDesc * 100) / vProd else dPercDesc := 0; cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', dPercDesc); end else cdsItens.FieldByName('VALORDESC').AsString := FormatFloat('###,###,###,##0.00', vDesc);

Pessoal, Utilizo o ACBR para emissão de NF-e, e agora surgiu a necessidade de integrar também a NFS-e, porém ao compilar e executar o exemplo do próprio ACBR configurei todas os parâmetros e tentei "Gerar RPS" e Logo Após "Gerar e Enviar Lote", porém sempre recebo a mensagem de retorno: "Assinatura : rps1UNICA" Já testei em outra máquina, tentei em modo de produção, homologação, ou seja já tentei 1001 coisas e nada. Imagino que seja alguma coisa referente a assinatura do certificado digital, porém não encontrei nada errado. Estou utilizando o provedor da cidade de "Recife" e em anexo envio o arquivos que o proprio exemplo criou e tentou transmitir e os resultados obtidos. Agradeço desde já quem puder ajudar. NFSE.rar

Já fiz de tudo um pouco, mas também não consegui instalar essa versão disponível no github no delphi xe4, se alguém tiver uma nova dica, por favor colabore.