MATA103-MT103FIN - Ultima validação do folder financeiro na nota de Entrada

Salve salve....

Ponto de entrada MT103FIN- ( Compras - Documento de Entrada )

MATA103-MT103FIN - Ultima validação do folder financeiro na nota de Entrada. 

#INCLUDE "TOTVS.CH"


/*/{Protheus.doc} MT103FIN
Ultima validação do folder financeiro na nota de Entrada.&nbsp

@type 		function
@author    	Eurai Rapelli
@since     	2023.01.01
/*/
User Function MT103FIN()
Local aHeadSE2      := PARAMIXB[01] as array
Local aColsSE2      := PARAMIXB[02] as array
Local lRetorno      := PARAMIXB[03] as logical

Local nI            := 00 as numeric
Local nTamArray     := Len(aColsSE2) as numeric

Local fE2VENCTO     := GdFieldPos('E2_VENCTO',aHeadSE2) as numeric




Begin Sequence


For nI := 01 to nTamArray
    If aColsSE2[nI,fE2VENCTO] < Date()
        Help(NIL, NIL, 'MT103FIN', NIL, 'Data de vencimento menor que data atual.' + Dtoc( aColsSE2[nI,fE2VENCTO] ), 1, 0, NIL, NIL, NIL, NIL, NIL, {'Linha{'+cValtoChar(ProcLine(0))+'}'})
        lRetorno := .F.; Break
    Endif
Next nI


End Sequence




Return( lRetorno )

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima