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