Pesquisar na Comunidade
Showing results for tags 'med'.
Encontrado 3 registros
-
Boa Noite! Tenho a seguinte situação : Tenho um software para petshops em todo o brasil O Mesmo emite a NFC-e. Por vezes as pet shops vendem medicamentos para animais que são de humanos, a Hidrocortisona por exemplo. Meu software não tem esta destinção de medicamentos no código e não preencho a collection med, ou seja, os medicamentos seguem o padrão de uma coleira por exemplo. Nunca tive rejeição da receita, embora os NCM dos produtos seja de Medicamentos, é claro. Pergunto: É OBRIGATÓRIO na NFC-e cadastrar os medicamentos humanos vendidos na pet shop ou OPCIONAL ? E, se for obrigatório, por que não tenho rejeição da receita na venda destes ?
-
med NF-e 4.0 - Alteração na ocorrência do grupo de medicamentos
um tópico no fórum postou Filipe Sortica ACBrNFe
Olá! Estou enviando como sugestão uma pequena alteração em relação à ocorrência do grupo "med" (medicamentos e matérias-primas farmacêuticas) na NF-e 4.0. Até então, o número máximo de ocorrências para o grupo era de 500. Porém, agora o número máximo é 1. Alterei para que se verifique o número máximo de ocorrências de acordo com a versão do layout. pcnNFeW.pas -
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;
