MATA685-MT685TOK - VALIDACAO APONTAMENTO DE PERDA

Salve salve....

Ponto de entrada MT685TOK - ( PCP - Apontamento de Perda)

#INCLUDE "TOTVS.CH" 

/*/{Protheus.doc} MT685TOK
VALIDACAO APONTAMENTO DE PERDA

@type        function
@author      Eurai Rapelli
@since       2023.01.01
/*/
User Function MT685TOK()
Local lRet              := .T. as logical



Private cCRLF           := CRLF as character
Private cFilialSD4      := xFilial('SD4') as character

Private lInc            := PARAMIXB[01] as logical

Private fBCPRODUTO      := GdFieldPos('BC_PRODUTO') as numeric
Private nTamHeader      := Len( aHeader ) as numeric
Private nTamAcols       := Len( aCols ) as numeric





Begin Sequence



If !(lRet := fValid())
    Break
Endif




End Sequence




Return( lRet )



/*/{Protheus.doc} fValid
Validação

@type          function
@author        Eurai Rapelli
@since         2023.01.01
/*/
Static Function fValid()
Local lRet      := .T. as logical

Local nI        := 00 as numeric




Begin Sequence


For nI := 01 to nTamAcols

    If aCols[nI,nTamHeader+1]
        Loop
    Endif

    //Validação
   


Next nI




End Sequence




Return( lRet )

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

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