Perguntas Ponto Entrada MA330FIL

Marcelo boa tarde, ponto de entrada eu não encontrei, mas segue parte do fonte aonde o mesmo é executado, acho que isso já ajuda bastante.

Abraços:



While (cAliasQry)->(!Eof()) .And. cFilDoc == (cAliasQry)->DT6_FILDOC .And. cSerTms == (cAliasQry)->DT6_SERTMS .And. cTipTra == (cAliasQry)->DT6_TIPTRA

//-- Zera o array aValSeg qdo o cliente / regiao for diferente do anterior.
If (cAliasQry)->DT6_CLIDEV <> cCliDev .Or. (cAliasQry)->DT6_LOJDEV <> cLojDev .Or. ;
(cAliasQry)->DT6_CDRORI <> cCdrOri .Or. (cAliasQry)->DT6_CDRCAL <> cCdrCal .Or. ;
cTabSeg + cTpTSeg <> (cAliasQry)->(DC5_TABSEG+DC5_TPTSEG)
cCliDev := (cAliasQry)->DT6_CLIDEV
cLojDev := (cAliasQry)->DT6_LOJDEV
cCdrOri := (cAliasQry)->DT6_CDRORI
cCdrCal := (cAliasQry)->DT6_CDRCAL
cServic := (cAliasQry)->DT6_SERVIC
cTabSeg := (cAliasQry)->DC5_TABSEG
cTpTSeg := (cAliasQry)->DC5_TPTSEG
aValSeg := {}
EndIf

If lTMA330Fil
lRet := ExecBlock('TMA330FIL',.F.,.F.,{ (cAliasQry)->DT6_FILDOC, (cAliasQry)->DT6_DOC, (cAliasQry)->DT6_SERIE })
If ValType(lRet) <> 'L'
lRet := .T.
EndIf
dbSelectArea(cAliasQry)
If !lRet
dbSkip()
Loop
EndIf
EndIf