LjSimpFat - Permite verificar se o item será considerado no pedido de simples faturamento.
Descrição: | Disponibilizar P.E. para permitir a verificação do item 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: | | Nome | Tipo | Descriçã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: | | Nome | Tipo | Descrição |
|---|
| lRet | Lógico | .T. Permite incluir o pedido de simples faturamento. .F. Não inclui o 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 Fábio S. dos Santos
@since 14/02/2020
@version P12
@param ParamIxb, array, array dos itens do orçamento
@return lógico, Retorna se deve continuar no processo de simples faturamento
/*/
//---------------------------------------------------------------------------
User Function LjSimpFat()
Local aArea := GetArea()
Local aSl2Prod := aClone(ParamIxb) //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 |
