Linha Microsiga Protheus

Árvore de páginas

LjSimpFat - Permite verificar se o item da venda será considerado no pedido de simples faturamento

Descrição:

P.E. para permitir a verificação do item da venda para continuar o processo de simples faturamento

Eventos:

O ponto de entrada é executado no momento de gerar os pedidos de venda de simples faturamento e simples remessa.

Programa Fonte:

LOJA701H

Parâmetros:

NomeTipoDescrição
ParamIxb[1]Array

Array com as informações da SL2.

Exemplo:

aSL2[1]

aSl2[1][1]

aSl2[1][1][1] == "L2_NUM"

aSl2[1][1][2] == "111111"

Retorno:

NomeTipoDescrição
lRetLógico

.T. Permite incluir o item da venda no pedido de simples faturamento.

.F. Não inclui o item da venda no pedido do simples faturamento.

Exemplo:

#INCLUDE "TOTVS.CH"

//---------------------------------------------------------------------------
/*/{Protheus.doc} LjSimpFat
Ponto de entrada para verificar se o item será considerado no simples faturamento

@type       function
@author     Varejo
@since      14/02/2020
@version    P12

@param ParamIxb, array, array dos itens do orçamento

@return lógico, Retorna se deve incluir o item da venda no pedido de simples faturamento
/*/
//---------------------------------------------------------------------------
User Function LjSimpFat()
Local aArea     := GetArea()
Local aSl2Prod  := aClone(ParamIxb) 
Local nI        := 0
Local nPosProd  := Ascan(aSl2Prod[1], {|x| AllTrim(x[1]) == "L2_PRODUTO"    })
Local lRet      := .T.

// loop em todos os itens da venda
For nI := 1 to Len( aSl2Prod )
    
    If AllTrim(aSl2Prod[nI,nPosProd,2]) == "12"
                
        lRet    := .F.
        Exit
                
    EndIf 
    
Next nI

RestArea(aArea)
Return lRet