R330TRANS - Define se o item da NF é transferência

LOCALIZAÇÃO: Localizado na função de impressão dos dados: ReportPrint() e C330Imp().EM QUE PONTO : É chamado no processamento do relatório antes da separação das vendas e  transferências, na leitura do item da NF de entrada ou saída. O ponto deve ser utilizado para definir se o item da NF é transferência ou não.

MATR330.PRX

R330TRANS - Define se o item da NF é transferência ( < PARAMIXB> ) --> lRet

lRet(logico)
• Ao retornar .F., fará as validações normais para considerar o item da NF como transferência.Ao retornar .T., considera o item da NF como transferência, independente das validações normais do relatório.

Importante:
- O ponto de entrada recebe como parâmetro o CFOP do item da nota de entrada ou saída.
- Utilizando o ponto de entrada e retornando .F. (falso), o relatório fará as validações normais para considerar o movimento como transferência ou não.
- Caso o retorno seja verdadeiro (.T.) considera o item da nota como transferência, independente das validações normais do relatório.

User Function R330TRANS()Local cCFOP  := ParamIXB[1] //-- Código da Op.FiscalLocal lRetorno := .F.                  //-- Não é transferência (default)//-- Considerações realizadas pelo cliente para considerar ou nao como TRANSFERÊNCIA:If SF4->F4_TRANFIL == '1' .And. Substr(AllTrim(cCFOP),1,1) >= '5'  // CFOP de SAíDA   // Tratamento do usuário, exemplo:   lRetorno = .T.  // Ao retornar .T. consideraria o movto. como TransferênciaEndIfReturn lRetorno