Private Function getNID20(lNid_proc As Long) As Long
Dim lRet As Long
'Dim flt As New MainIF.General_Filter
'Dim r As ADODB.Recordset
Const def_sProcID = "getNID20"
 
 '   flt.AddField "NID_Proc", CStr(lNid_proc)
 
'    Set r = Obj_Reg_Ftch.GetData(flt)
'    If RecordCount(r) > 0 Then
'        lRet = gs_cNum(r!NID_20_REG) + 1
'    End If
 
    'ultima spiaggia
    If lRet = 0 Then
        lRet = Obj_GEN_Indici_Mdfr.GetNewIndex(DBLink & "_NID_20_Reg")
    End If
    getNID20 = lRet
 
End Function