Identificador de Regra

VEN-140LTRAS01

Módulo: VEN - Vendas

Finalidade: gerar lista com informações de lotes para fins de rastreabilidade de produtos que não usam o controle de lotes do sistema.

Característica: o identificador é executado para cada item que se enquadra como produto sujeito a rastreabilidade: o campo Enquadramento de Produto Específico da tela Cadastro de Produtos (F075PRO) ou Cadastro de Produto Agrupado (F075GFP) deve ser "1 - Medicamento", "5 - Medicamento Controlado", "9 - Outros" ou o NCM configurado na classificação fiscal do produto deve iniciar com "3001","3002","3003","3005" ou "3006".

Assim, o identificador retorna os lotes dos produtos definidos na regra no momento da geração do item na estrutura do .XML da nota fiscal. Por meio da variável VenNListaLote, é possível obter as informações de cada lote criado para um item.

Importante

Para medicamentos (produtos de Enquadramento de Produto Específico igual a "1 - Medicamento" ou "5 - Medicamento Controlado" ou NCM configurado na classificação fiscal iniciado com "3001, 3002, 3003, 3005 ou 3006"), ao gerar as informações de lotes via regra, também será gerado o grupo K do .XML (tag <med> referente a detalhes de medicamentos);
As informações de rastreabilidade customizadas na regra para os medicamentos também devem constar no SPED Fiscal. Portanto, é necessário verificar os impactos no registro C173 do SPED Fiscal e fazer a customização na exportação, pois deve refletir as mesmas informações geradas na nota.

Regra:

definir Numero VenNNumNfv;
definir alfa aAux;

aAux = "";

se (VenNNumNfv = 84)
inicio
ListaRegraNovaLinha(VenNListaLote);
ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodLot", "LOT001C", aAux);
ListaRegraAddValorLinhaNumero(VenNListaLote, "QtdLot", 100, aAux);
ListaRegraAddValorLinhaData(VenNListaLote, "DatFab", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaData(VenNListaLote, "DatVal", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaData(VenNListaLote, "DatEnt", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodAgr", "11111", aAux);
ListaRegraSalvarLinha(VenNListaLote);


ListaRegraNovaLinha(VenNListaLote);
ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodLot", "LOT002C", aAux);
ListaRegraAddValorLinhaNumero(VenNListaLote, "QtdLot", 200, aAux);
ListaRegraAddValorLinhaData(VenNListaLote, "DatFab", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaData(VenNListaLote, "DatVal", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaData(VenNListaLote, "DatEnt", 45352, aAux); /Adiciona um valor data, necessário converter data para número na regra/
ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodAgr", "11111", aAux);
ListaRegraSalvarLinha(VenNListaLote);

fim;

Observação

O código de agregação pode ser definido na regra ou depois via identificador de regra VEN-140NERAS01. Esta regra já existia no sistema e a adequamos para que não haja quebra de compatibilidade;
O registro da lista deve retornar ao sistema com todos os campos. Se um dos campos da lista não tiver o valor definido na regra, adicione-o à lista com um valor nulo ou zerado. Exemplo: ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodAgr", "", aAux); --> CodAgr não é obrigatório. O registro da lista deve sempre conter todos os campos;
Ao definir os lotes do produto na regra, fique atento para que a soma da quantidade dos lotes seja igual a quantidade do item da nota fiscal em que os lotes estão sendo gerados.

Variáveis disponibilizadas:

Nome	Tipo	Observações	Retorna Valor
VenNCodEmp	NUMERO	Código da empresa da nota fiscal de saída.	N
VenNCodFil	NUMERO	Código da filial da nota fiscal de saída.	N
VenACodSnf	ALFA	Código da série da nota fiscal de saída	N
VenNNumNfv	NUMERO	Número da nota fiscal de saída	N
VenNSeqIpv	NUMERO	Sequência do item da nota fiscal de saída	N
VenACodPro	ALFA	Código do produto do item da nota fiscal de saída	N
VenACodDer	ALFA	Código da derivação do produto do item da nota fiscal de saída	N
VenNListaLote	NUMERO	Lista de lotes do produto	S
VenNListaLote.CodLot	ALFA	Código do lote do produto do item da nota fiscal de saída	S
VenNListaLote.QtdLot	NUMERO	(Numérico 8,3) Quantidade do lote do produto do item da nota fiscal de saída	S
VenNListaLote.DatFab	DATA	Data de fabricação do lote do produto do item da nota fiscal de saída	S
VenNListaLote.DatVal	DATA	Data de validade do lote do produto do item da nota fiscal de saída	S
VenNListaLote.DatEnt	DATA	Data de entrada do lote do produto do item da nota fiscal de saída	S
VenNListaLote.CodAgr	ALFA	Código de agregação do lote do produto do item da nota fiscal de saída (Esta informação não é obrigatória no XML. Caso não haja necessidade de envio, informar valor vazio. Exemplo: ListaRegraAddValorLinhaAlfa(VenNListaLote, "CodAgr", "", aAux); )	S

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)