LOCCUSREM - Controle de gravação do custo de entrada

Ponto de Entrada utilizado para o controle de gravação do custo de entrada do remito original, com base no custo de entrada dos itens da fatura.Esse Ponto de Entrada é chamado na rotina de atualização do custo de entrada dos itens do remito e está localizado na função AtuDifCusRem(), que é chamada na gravação da classificação do remito (gravação da fatura) e na rotina de Refaz Custo de Entrada (MATA190). 

Chamado na função AtuDifCusRem (Atualização do custo de entrada dos itens do remito com base no custo de entrada dos itens da fatura).

A função AtuDifCusRem é chamada pela função NFAtuSCM (gravações na inclusão e estorno) e pela rotina MATA190 (Refaz Custo de Entrada).

LOCXNF.PRW

LOCCUSREM - Controle de gravação do custo de entrada ( [ ParamIxb[1] ], [ ParamIxb[2] ], [ ParamIxb[3] ], [ ParamIxb[4] ], [ ParamIxb[5] ], [ ParamIxb[6] ] ) --> lRet

lRet(logico)
• Retornando .F., o custo do remito original não será atualizado pela rotina padrão.Caso retorne .T. (ou dif.de .F.), o custo do remito original será atualizado.

Esse Ponto de Entrada pode ser utilizado para todos os países, exceto Brasil.

Para identificar se é classificação ou estorno, verifique o 3º parâmetro do Ponto de Entrada (ParamIxb[3]).
Se = 1: significa classificação/inclusão. Se = -1: signifca estorno/reversão.

User Function LOCCUSREM()Local aCusto   := ParamIxb[1]  // Array do custo do item da fatura:			       //       aCusto[1] = custo do item na moeda 1			       //       aCusto[2] = custo do item na moeda 2			       //       e assim por diante até a moeda 5.Local nQuant   := ParamIxb[2]  // Quantidade classificada do itemLocal nSinal   := ParamIxb[3]  // 1=indica gravacao/classificacao    ou -1= estornoLocal cAliasTmp:= ParamIxb[4]  // Alias da tabela de cabeçalho da fatura de entradaLocal aCunitREM:= ParamIxb[5]  // Array do custo do item no remito original:			       //       aCunitRem[1] = custo do item do remito original na moeda 1			       //       aCunitRem[2] = custo do item do remito original na moeda 2			       //       e assim por diante até a moeda 5.Local aValDif  := ParamIxb[6]  // Array das diferenças do custo total do item:			       //       aValDif[1] = dif.do custo total do item na moeda 1			       //       aValDif[2] = dif.do custo total do item na moeda 2			       //       e assim por diante até a moeda 5.Local lRet     := .T.// Customização do usuário para gravação (ou não) do custo do remito original.lRet := .T.  // Caso o retorno seja  .F.,  o custo do remito original não será atualizado, no padrão.Return (lRet)