Pesquisar na Comunidade
Showing results for tags 'rastro'.
Encontrado 2 registros
-
Bom dia, gostaria de propor uma alteração na impressão dos detalhamentos dos produtos e ver com os colegas se procede. - Não há instrução específica de como fazer esta impressão na DANFe; - Os contadores na dúvida sempre mandam imprimir; Então hoje, com a propriedade "ImprimirDetalhamentoEspecifico = True" a impressão fica desta forma para tags Rastro e Med : Gostaria de ver com os colegas se ocorre um consenso em imprimir desta forma : Alterando para o FAST o arquivo ACBrNFeDANFEFRDM.pas removendo as quebras de linha em cada campo. A mesma alteração pode ser replicada para as tags Veículos e Combustíveis. A principal justificativa é a economia de papel, já que para notas de medicamentos, como o exemplo, 4 itens necessitam de 2 folhas para a impressão; Se os responsáveis pela manutenção do fonte permitirem, posso fazer a alteração, testar e enviar o arquivo .PAS com a alteração.
-
Dados do Medicamento nas Informações Adicionais do Produto
um tópico no fórum postou José Manoel ACBrNFe
Boa tarde amigos. Percebi que a danfe em Fast está carregando os dados do medicamento para as informações adicionais do produto. Como esses dados foram movidos para a tag <rastro> os campos estão ficando vazios na danfe. Segue trecho de código do arquivo ACBrNFeDANFEFRDM. Minha interpretação está correta? Obrigado. Function TACBrNFeFRClass.ManterMedicamentos( inItem: integer ) : String; Var i : Integer; begin Result := ''; { detalhamento específico de medicamentos } with FNFe.Det.Items[inItem].Prod do begin if med.Count > 0 then begin Result := sQuebraLinha; for i := 0 to med.Count - 1 do begin Result := Result + 'LOTE: ' + med.Items[i].nLote+ sQuebraLinha; Result := Result + 'QTD: ' + FormatFloatBr(med.Items[i].qLote)+ sQuebraLinha; Result := Result + 'FAB: ' + FormatDateBr(med.Items[i].dFab)+ sQuebraLinha; Result := Result + 'VAL: ' + FormatDateBr(med.Items[i].dVal)+ sQuebraLinha; Result := Result + IfThen( med.Items[i].vPMC > 0, 'PMC: ' + FormatFloatBr(med.Items[i].vPMC) + ';' , ''); end; end; end; end;