Perguntas Sequencial baseado em outro campo

Bom dia,

quase isso Orakulo.

Local cCodSubFam :=""

cSQL := "select max(Z2_COD) as SEQ " //Z2_COD - é o campo da subfamilia ou da familia? Tem que ser o MAX no campo da subfamilia
cSQL := "from SZ2010"
cSQL += " WHERE"
cSQL += " SZ2010.Z2_COD = '"+M->Z2_COD+"' and SZ2010.D_E_L_E_T_ <> '*'" //Use assim, mas aqui vc tem que usar o campo do codfamilia, ficando... SZ2010.campo do codfamilia = '"+M->campo do codfamilia+"'

If Select("QR1") <> 0
DBSelectArea("QR1")
DBCloseArea()
Endif

cSQL := ChangeQuery(cSQL ) // otimiza a query de acordo c/ o banco
dbUseArea(.T.,"TOPCONN",TcGenQry(,,cSQL ),"QR1",.T.,.T.)

If empty(QR1->SEQ) //primeira subfamila
cCodSubFam := "001"
Else
cCodSubFam := Soma1(QR1->SEQ) //Soma 1 a ultima subfamilia encontrada
EndIf

Return cCodSubFam