91 - Object variable or With block variable not set

lunedì 07 aprile 2008 - 15.52

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Da80 Profilo | Newbie

2 messaggi | Data Invio: lun 7 apr 2008 - 15:52

Ciao a tutti !!!
ho un grande problema non riesco a capire perche mi va in errore la pagina quando vado a salvarla!!

vi posto la pagina

<%@ Language=VBScript ENABLESESSIONSTATE=False%>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% Response.Buffer = true %>



<%

Dim lRSName 'RS 25.09.2000
Dim lOldAction

CFPageContainer.CFAddNewKey "PERSONOID", CFPageContainer.cfUrlClsRetrieve, CFPageContainer.cfTypeNumber, Empty, Empty
CFPageContainer.CFAddNewKey "CONTRACTTYPEID", CFPageContainer.cfUrlClsParameter, CFPageContainer.cfTypeNumber, Empty, Empty

CFPageContainer.CFAddNewRecordset "EMPLOYMENT"
CFPageContainer.CFAddNewRecordset "IncarichiDirigenziali"

CFPageContainer.CFAddNewField "PERSONOID", "EMPLOYMENT",,false,CFPageContainer.cfStyleHidden,67753
CFPageContainer.CFAddNewField "CONTRACTTYPEID", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleHidden,67753
CFPageContainer.CFAddNewField "PersonOid", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleHidden,67753
CFPageContainer.CFAddNewField "ContractType", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleLookUp,67753
CFPageContainer.CFAddNewField "ContractTypeDes", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleLookupDescription,67753
CFPageContainer.CFAddNewField "CODPROVVEDIMENTI", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleHidden,67753
CFPageContainer.CFAddNewField "DESPROVVEDIMENTI", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleLookupDescription,67753
CFPageContainer.CFAddNewField "StartDate", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,66057
CFPageContainer.CFAddNewField "EndDate", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,66171
CFPageContainer.CFAddNewField "PROTOCOLLO", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,8000248
CFPageContainer.CFAddNewField "DATA_PROTOCOLLO", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,8000249
CFPageContainer.CFAddNewField "TMS_TIMESTAMP", "IncarichiDirigenziali", "Timestamp",True,CFPageContainer.cfStyleHidden,0000
CFPageContainer.CFAddNewField "NOTA", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,51204
CFPageContainer.CFAddNewField "CODUNITAORG", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,6011044
CFPageContainer.CFAddNewField "DESUNITAORG", "IncarichiDirigenziali",,false,CFPageContainer.cfStyleText,6011044

'Current entity requires data set to validate
CFPageContainer.CFEntityRequiresSet = True

'Define folder to framework
CFPageContainer.CFFolderExists = False

'Initialize variables and read repository
CFPageContainer.CFInitializeAll

IF Not CFPageContainer.CFVerifyUrl() Then
CFPageContainer.CFAddErrorMsg CFObjTranslate.GetMsgEx (315, _
CFPageContainer.CFLcId, _
CFPageContainer.CFRepConnection, _
"Bad Action or No parameters were specified.")
CFPageContainer.CFOk = True 'MOD130308
End if

'Initialize object to translate caption and user message
CFObjTranslate.ReadPageMsgFromDb CFPageContainer.CFFunTextOid, CFPageContainer.CFLcId, CFPageContainer.CFRepConnection

'Verify CF Right on current function
CFPageContainer.CFCheckRight

'if CFPageContainer.CFFunOid = 40310 AND CFPageContainer.CFGetKeyValue("HRPROF")= "YES" THEN
' 'Add button
' CFPageContainer.CFAddNewButton 49010, "Promote", "CFApproval.gif"
'
'end if

CFPageContainer.CFExitPage = "/PeopleWeb/Cards/UniIncarichiDirigCard.asp?PERSONOID=" & CFPageContainer.CFGetKeyValue("PERSONOID") & "&FUNID=6000526"
' -----------------------------------------------------------
' End initialize code
' -----------------------------------------------------------

dim lPersonOid
lPersonOid = Clng(CFPageContainer.CFGetKeyValue("PERSONOID"))
%>




<%
CFPageContainer.CFComputeButtonUrls
%>

<HTML>
<HEAD>
<LINK REL="stylesheet" HREF="<% = Application("CFRootPath") %>CFLibrary/CFstyles.css">
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFLookUP.js" LANGUAGE="JavaScript"></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFClientDate.js" LANGUAGE="JavaScript"></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFLink.js" LANGUAGE="JavaScript" ></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFResize.js" LANGUAGE="JavaScript" ></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFFolders.js" LANGUAGE="JavaScript" ></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFGrid.js" LANGUAGE="JavaScript" ></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFLayout.js" LANGUAGE="JavaScript" ></SCRIPT>
<SCRIPT SRC="<% = Application("CFRootPath") %>CFLibrary/CFClientAmount.js" LANGUAGE="JavaScript"></SCRIPT>

<STYLE>
.rowover {
behavior:url(<% = Application("CFRootPath") %>CFLibrary\cfrowover_js.htc);
}
</STYLE>

<%

CFPageContainer.CFGenClientTitle
CFPageContainer.CFGenClientParam
CFPageContainer.CFGenClientData
CFPageContainer.CFGenClientLink
CFPageContainer.CFGenClientOnLoad
CFPageContainer.CFGenClientOnEnd

%>



<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>


</SCRIPT>

<SCRIPT language=VbScript RUNAT=Server>

Function CFFormToRs()

Dim lValue
Dim lCurrRes
Dim lMsg
Dim lWrongFieldMsg
Dim lOldTms
Dim lNewTms
Dim lStartDate
Dim lEndDate

CFPageContainer.CFResult = True
CFPageContainer.CFInsert = False
CFPageContainer.CFModify = False
CFPageContainer.CFDelete = False

If CFPageContainer.CFAction = "DELETE" Then
CFPageContainer.CFDelete = True
ELSEIf CFPageContainer.CFAction = "SAVE" Then
If CFPageContainer.CFPreviousAction = "RETRIEVE" Then
CFPageContainer.CFModify = True
Else
CFPageContainer.CFInsert = True
End if
End if

CFPageContainer.CFRsAbsolutePosition("IncarichiDirigenziali") = CFPageContainer.CFGetStartRecord("IncarichiDirigenziali")

'lPromoteFlg = Request.Form("PROMOTEFLG")

'IF <> "1" Then
If CFPageContainer.CFDelete Then
CFPageContainer.CFRsDelete("IncarichiDirigenziali")
End if
'End IF

lWrongFieldMsg = CFObjTranslate.GetMsg(10007) & ": "

'If CFPageContainer.CFInsert Or CFPageContainer.CFModify Or lPromoteFlg = "1" Then
If CFPageContainer.CFInsert Or CFPageContainer.CFModify Then
lStartDate = CFPageContainer.CFServerStringToDate(CFPageContainer.CFGetFormValue("STARTDATE"),CFPageContainer.CFDateFormat,CFPageContainer.CFDateSeparator)
lEndDate = CFPageContainer.CFServerStringToDate(CFPageContainer.CFGetFormValue("ENDDATE"),CFPageContainer.CFDateFormat,CFPageContainer.CFDateSeparator)

if CFPageContainer.CFGetFormValue("ENDDATE") <> "" then
if lStartDate > lEndDate then
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & CFObjTranslate.GetMsg(72946)
CFPageContainer.CFResult = False
End if
end if

lValue = CFPageContainer.CFGetFormValue("PERSONOID")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "PERSONOID", lValue, CFPageContainer.CFInsert, True, "PersonOid")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "PERSONOID", lValue
lMsg = "PERSONOID" 'CFObjTranslate.GetMsg(67753)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("CONTRACTTYPE")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "ContractType", lValue, CFPageContainer.CFInsert, false, "CONTRACTTYPE")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "CONTRACTTYPE", lValue
lMsg = CFObjTranslate.GetMsg(67753)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("CODPROVVEDIMENTI")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "CODPROVVEDIMENTI", lValue, CFPageContainer.CFInsert, false, "CODPROVVEDIMENTI")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "CODPROVVEDIMENTI", lValue
lMsg = CFObjTranslate.GetMsg(66816)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("DESPROVVEDIMENTI")
CFPageContainer.CFSetClientValue "DESPROVVEDIMENTI",CFPageContainer.CFGetFormValue("DESPROVVEDIMENTI")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "DESPROVVEDIMENTI", lValue, CFPageContainer.CFInsert, False)
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "DESPROVVEDIMENTI", lValue
lMsg = CFObjTranslate.GetMsg(66816)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("CODUNITAORG")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "CODUNITAORG", lValue, CFPageContainer.CFInsert, False, "CODUNITAORG")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "CODUNITAORG", lValue
lMsg = CFObjTranslate.GetMsg(6011044)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("DESUNITAORG")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "DESUNITAORG", lValue, CFPageContainer.CFInsert, False, "DESUNITAORG")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "DESUNITAORG", lValue
lMsg = CFObjTranslate.GetMsg(6011044)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("STARTDATE")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "StartDate", lValue, CFPageContainer.CFInsert, True, "STARTDATE")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "STARTDATE", lValue
lMsg = CFObjTranslate.GetMsg(40002)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("ENDDATE")
if lValue = "" then
lValue = CFPageContainer.CFServerDateToString(#12/31/2999#,CFPageContainer.CFDateFormat, CFPageContainer.CFDateSeparator)
' lMsg = CFObjTranslate.GetMsg(40014)
' CFPageContainer.CFAddErrorMsg "Campo obbligatorio: " & lMsg
' CFPageContainer.CFResult = False
end if
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "EndDate", lValue, CFPageContainer.CFInsert, False, "ENDDATE")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "ENDDATE", lValue
lMsg = CFObjTranslate.GetMsg(40014)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("PROTOCOLLO")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "PROTOCOLLO", lValue, CFPageContainer.CFInsert, False, "PROTOCOLLO")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "PROTOCOLLO", lValue
lMsg = CFObjTranslate.GetMsg(8000248)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("DATA_PROTOCOLLO")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "DATA_PROTOCOLLO", lValue, CFPageContainer.CFInsert, False, "DATA_PROTOCOLLO")
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "DATA_PROTOCOLLO", lValue
lMsg = CFObjTranslate.GetMsg(8000249)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

If CFPageContainer.CFModify Then
lOldTms = CFPageContainer.CFGetFormValue("TMS_TIMESTAMP")
lNewTms = CFPageContainer.CFTmsToString(CFPageContainer.CFRsFields("IncarichiDirigenziali" , "Timestamp"))
If lOldTms <> lNewTms and Application("CFIsReleaseVersion") Then 'RS 26.02.2001 modified
CFPageContainer.CFAddErrorMsg CFObjTranslate.GetMsg(301)
CFPageContainer.CFSetClientValue "TMS_TIMESTAMP", lOldTms
CFPageContainer.CFResult = False
End If
End If

lValue = CFPageContainer.CFGetFormValue("CONTRACTTYPEDES")
CFPageContainer.CFSetClientValue "CONTRACTTYPEDES",CFPageContainer.CFGetFormValue("CONTRACTTYPEDES")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "CONTRACTTYPEDES", lValue, CFPageContainer.CFInsert, TRUE)
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "CONTRACTTYPEDES", lValue
lMsg = CFObjTranslate.GetMsg(67753)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

lValue = CFPageContainer.CFGetFormValue("NOTA")
lCurrRes = CFPageContainer.CFSetRsValueEx("IncarichiDirigenziali", "NOTA", lValue, CFPageContainer.CFInsert, False)
If Not lCurrRes Then
CFPageContainer.CFSetClientValue "NOTA", lValue
lMsg = CFObjTranslate.GetMsg(51204)
CFPageContainer.CFAddErrorMsg lWrongFieldMsg & lMsg
CFPageContainer.CFResult = False
End If

End If

CFFormToRs = CFPageContainer.CFResult

End Function

Function CFChooseDataForNextPage ()

IF lOldAction <> "" then
CFPageContainer.CFAction = lOldAction
end if

CFPageContainer.CFResult = True

IF CFPageContainer.CFAction = "SAVE" Then

If CFPageContainer.CFRsRecordCount("IncarichiDirigenziali") > 0 Then
CFPageContainer.CFRsAbsolutePosition("IncarichiDirigenziali") = CFPageContainer.CFGetStartRecord("IncarichiDirigenziali")
CFPageContainer.CFSetKeyValue "PERSONOID", Cstr(CFPageContainer.CFRsFields("EMPLOYMENT", "PERSONOID"))
CFPageContainer.CFSetKeyValue "CONTRACTTYPEID", Cstr(CFPageContainer.CFRsFields("IncarichiDirigenziali", "CONTRACTTYPEID"))
Else
CFPageContainer.CFAddErrorMsg CFObjTranslate.GetMsg(320)
CFPageContainer.CFResult = False
End If

End if

IF CFPageContainer.CFAction = "DELETE" Then
CFPageContainer.CFSetStartRecord "IncarichiDirigenziali", Empty
End if

CFChooseDataForNextPage = CFPageContainer.CFResult

End Function

Function CFSelectRs ()
Dim lkeyCurriculumID
Dim j
Dim lkeyRowCurriculumID
Dim isFoundHeader
Dim isFoundRow
Dim lRecordCount

CFPageContainer.CFResult = True 'MO130308

If (CFPageContainer.CFAction = "INSERT") OR _
(CFPageContainer.CFAction = "SAVE" And CFPageContainer.CFPreviousAction = "INSERT") Then

CFPageContainer.CFRsAddNew("IncarichiDirigenziali")
CFPageContainer.CFSetStartRecord "IncarichiDirigenziali", CFPageContainer.CFRsAbsolutePosition("IncarichiDirigenziali")
CFPageContainer.CFRsFields("IncarichiDirigenziali", "Timestamp") = Now()
If CFPageContainer.CFRsRecordCount("IncarichiDirigenziali") > 1 then
CFPageContainer.CFRsFields("IncarichiDirigenziali", "StartDate") = Date()
CFPageContainer.CFRsFields("IncarichiDirigenziali", "EndDate") = #12/31/2999#
Else
End if
CFPageContainer.CFRsFields("IncarichiDirigenziali", "EndDate") = #12/31/2999#
CFPageContainer.CFRsFields("IncarichiDirigenziali", "StartDate") = Date()
'E006 add begin
if CFPageContainer.CFRsRecordCount("IncarichiDirigenziali") = 1 then
if isdate(l_CompRelStartDate) then
CFPageContainer.CFRsFields("IncarichiDirigenziali", "StartDate") = l_CompRelStartDate
end if
end if
'E006 add end

Else
If CFPageContainer.CFRsRecordCount("IncarichiDirigenziali") > 0 Then
lkeyCurriculumID = CFPageContainer.CFGetKeyValue("CONTRACTTYPEID")
If Not IsEmpty(lkeyCurriculumID) then
lRecordCount = CFPageContainer.CFRsRecordCount("IncarichiDirigenziali")
For j=1 To lRecordCount
CFPageContainer.CFRsAbsolutePosition("IncarichiDirigenziali") = j
lKeyRowCurriculumID = cstr(CFPageContainer.CFRsFields("IncarichiDirigenziali","CONTRACTTYPEID"))
If lKeyRowCurriculumID = lkeyCurriculumID Then
CFPageContainer.CFSetStartRecord "IncarichiDirigenziali", j
Exit For
End If
Next
End If

Else
CFPageContainer.CFAddErrorMsg CFObjTranslate.GetMsg(320)
CFPageContainer.CFResult = False
End If

'CFPageContainer.CFSetFieldExtAttrib "CONTRACTTYPEDES", CFPageContainer.cfExtAttrProtected

End If

'CFPageContainer.CFSetFieldExtAttrib "CONTRACTTYPEDES", CFPageContainer.cfExtAttrProtected

CFSelectRs = CFPageContainer.CFResult

End Function

Function GetPersonInfo(ByVal pOid, pRs)

Dim lObj
Dim lWhere
Dim lErrCode
Dim lErrDescription
Dim lResult
Dim lTicket

lResult = -1
lTicket = CFPageContainer.CFTicket

lWhere = "PersonOid = " & pOid

Set lObj = Server.CreateObject("CznPeSynthesis.BLOSyntheses")

lResult = lObj.Retrieve( pRs, _
lWhere, _
lErrCode, _
lErrDescription, _
lTicket )
Set lObj = Nothing

If (lErrDescription <> "") Or (lResult < 0) Then
CFPageContainer.CFAddErrorMsg lErrDescription
Else
If pRs(0).RecordCount = 1 Then
pRs(0).AbsolutePosition = 1
lResult = 1
End if
End if

GetPersonInfo = lResult

End Function

Function CFModifyTitle ()
Dim lRs()
Dim lResult
Dim lIdPers
Dim lLastName
Dim lSecondLastName
Dim lFirstName

lIdPers = Clng(CFPageContainer.CFGetKeyValue("PERSONOID"))

If lIdPers > 0 Then
lResult = GetPersonInfo (lIdPers, lRs)
If lResult > 0 Then
lLastName = lRs(0).Fields("LASTNAME")
lSecondLastName = lRs(0).Fields("SECONDLASTNAME")
lFirstName = lRs(0).Fields("FIRSTNAME")
'Begin RS 25.09.2000
lRSName = lFirstName &" "& lLastName 'full name
'End RS 25.09.2000
If CFPageContainer.CFFunOid = "6000526" then
CFPageContainer.CFPageTitle = CFObjTranslate.GetMsg(9000082) 'RS 04.10.2001
End If
If CFPageContainer.CFFunOid = "6000525" then
CFPageContainer.CFPageTitle = CFObjTranslate.GetMsg(100138) 'RS 04.10.2001
End If
if not IsNull(lSecondLastName) then
lLastName = lLastName & " " & lSecondLastName
end if
CFObjTranslate.SetParamArray lFirstName, lLastName
CFPageContainer.CFPageTitle = CFObjTranslate.ConvertExtMsg(CFPageContainer.CFPageTitle)
End if
End if

End Function

Function CFResetClientValue()

If CFPageContainer.CFAction = "SAVE" Then
If CFPageContainer.CFPreviousAction = "RETRIEVE" Then
CFPageContainer.CFSetClientValue "TIMESTAMP", _
CFPageContainer.CFGetFormValue("TIMESTAMP")
End if
End if

End Function

</SCRIPT> 

</HEAD>

<BODY onLoad="CFInitializePage();" onUnload="CFTerminatePage();" >

<SPAN ID="menuContainer" name="menuContainer"></SPAN>







<FORM name=frmDetail id=frmDetail>
<TABLE ID="Table1">
<% If CFPageContainer.CFFieldIsVisible("PERSONOID") Then %>
<TR>
<INPUT TYPE="HIDDEN" ID="PERSONOID" NAME="PERSONOID">
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("CONTRACTTYPEID") Then %>
<TR>
<TD><INPUT TYPE="HIDDEN" ID="CONTRACTTYPEID" NAME="CONTRACTTYPEID"></TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("CODPROVVEDIMENTI") Then %>
<TR>
<INPUT TYPE="HIDDEN" ID="CODPROVVEDIMENTI" NAME="CODPROVVEDIMENTI">
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("PersonOid") Then %>
<TR>
<INPUT TYPE="HIDDEN" ID="PersonOid" NAME="PersonOid">
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("CONTRACTTYPE") Then %>
<TR>
<TD><INPUT ID="CONTRACTTYPE" NAME="CONTRACTTYPE" TYPE="HIDDEN"></TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("CODUNITAORG") Then %>
<TR>
<INPUT TYPE="HIDDEN" ID="CODUNITAORG" NAME="CODUNITAORG">
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("STARTDATE") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(40002)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFRequired.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD><INPUT CLASS="CznDateInputBox" id="STARTDATE" name="STARTDATE" MAXLENGTH="10" ></TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("ENDDATE") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(40014)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<td><input class="CznDateInputBox" id="ENDDATE" name="ENDDATE" MAXLENGTH="10" ></TD>
</TR>
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("CONTRACTTYPEDES") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(9000082)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFRequired.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD colspan=3><INPUT CLASS="CznDisabledInputBox" READONLY style="width:250" ID="CONTRACTTYPEDES" NAME="CONTRACTTYPEDES">
<A HREF="javascript:ContractType_LookUp()" STYLE="text-decoration:none"><IMG ALT=LookUP ALIGN="absBottom" BORDER="0" HEIGHT="16" SRC="<% = Application("CFRootPath") %>images/CFLookup.gif" WIDTH="16"></A></TD>
</TR>
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("DESPROVVEDIMENTI") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(66816)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD colspan=3><INPUT CLASS="CznDisabledInputBox" READONLY style="width:250;" ID="DESPROVVEDIMENTI" NAME="DESPROVVEDIMENTI">
<A HREF="javascript:Provvedimenti_LookUp()" STYLE="text-decoration:none"><IMG ALT=LookUP ALIGN="absBottom" BORDER="0" HEIGHT="16" SRC="<% = Application("CFRootPath") %>images/CFLookup.gif" WIDTH="16"></A>
</TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("DESUNITAORG") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right;"><% = CFObjTranslate.GetMsg(6011044)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD colspan=3><INPUT CLASS="CznDisabledInputBox" READONLY style="width:250;text-align:right;" ID="DESUNITAORG" NAME="DESUNITAORG">
<A HREF="javascript:OrgUnit_Tree()" STYLE="text-decoration:none;"><IMG ALT=LookUP ALIGN="absBottom" BORDER="0" HEIGHT="16" SRC="<% = Application("CFRootPath") %>images/CFLookup.gif" WIDTH="16"></A>
</TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("PROTOCOLLO") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(8000248)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD><INPUT CLASS="CznTextInputBox" id="PROTOCOLLO" name="PROTOCOLLO" MAXLENGTH="13" SIZE="16"></TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("DATA_PROTOCOLLO") Then %>
<TR>
<TD nowrap CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(8000249)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<td><input class="CznDateInputBox" id="DATA_PROTOCOLLO" name="DATA_PROTOCOLLO" MAXLENGTH="10" SIZE="16"></TD>
</TR>
<% End If %>

<% If CFPageContainer.CFFieldIsVisible("NOTA") Then %>
<TR>
<TD valign="top" CLASS="CznInputLabel" style="text-align:right"><% = CFObjTranslate.GetMsg(51204)%>
<IMG SRC="<% = Application("CFRootPath") %>images/CFEmpty.gif" WIDTH="5" HEIGHT="5" ALIGN="texttop">
</TD>
<TD><TEXTAREA CLASS = CznTextInputBox style="width:250;" ID="NOTA" NAME="NOTA" MAXLENGTH="255" COLS="55" ROWS="5"></TEXTAREA>
</TD>
</TR>
<% End If %>

<TR>
<INPUT TYPE="HIDDEN" ID="TMS_TIMESTAMP" NAME="TMS_TIMESTAMP">
<INPUT TYPE="HIDDEN" ID="PROMOTEFLG" NAME="PROMOTEFLG">
</TR>
</TABLE>

</FORM>



</BODY>
</HTML>

e questo è l'errore ke mi da quando vado a salvare

Error in CFWeb.CFSetRsValue Field:PERSONOID (91 - Object variable or With block variable not set)
Campo errato: PERSONOID
Error in CFWeb.CFSetRsValue Field:ContractType (91 - Object variable or With block variable not set)
Campo errato: Incarico di responsabilità
Error in CFWeb.CFSetRsValue Field:CODPROVVEDIMENTI (91 - Object variable or With block variable not set)
Campo errato: Provvedimento
Error in CFWeb.CFSetRsValue Field:DESPROVVEDIMENTI (91 - Object variable or With block variable not set)
Campo errato: Provvedimento
Error in CFWeb.CFSetRsValue Field:CODUNITAORG (91 - Object variable or With block variable not set)
Campo errato: Unità Organizzativa
Error in CFWeb.CFSetRsValue Field:DESUNITAORG (91 - Object variable or With block variable not set)
Campo errato: Unità Organizzativa
Error in CFWeb.CFSetRsValue Field:StartDate (91 - Object variable or With block variable not set)
Campo errato: Data di inizio
Error in CFWeb.CFSetRsValue Field:EndDate (91 - Object variable or With block variable not set)
Campo errato: Data di fine
Error in CFWeb.CFSetRsValue Field:PROTOCOLLO (91 - Object variable or With block variable not set)
Campo errato: Numero Protocollo
Error in CFWeb.CFSetRsValue Field:DATA_PROTOCOLLO (91 - Object variable or With block variable not set)
Campo errato: Data Protocollo
Error in CFWeb.CFSetRsValue Field:CONTRACTTYPEDES (91 - Object variable or With block variable not set)
Campo errato: Incarico di responsabilità
Error in CFWeb.CFSetRsValue Field:NOTA (91 - Object variable or With block variable not set)
Campo errato: Nota breve

questa qui è la dll

Set i_AppMgr = Nothing
Set i_DBO = Nothing

End Sub

Private Sub DBO_Init(ByVal p_AppMgr As CFAppMgr, Optional ByRef p_SelectList As Variant, Optional ByVal p_AddWhere As String, Optional ByVal p_OrderBy As String, Optional ByRef p_FromList As Variant, Optional ByRef p_Parm As Variant, Optional ByRef p_Custom As Variant)

'******************************************************************
' Script : Init
' Description : Hooks the Application manager and set RS Info
'
' Arguments : ByVal CFAppMgr p_Ticket Application manager
' Optional ByRef Variant p_SelectList Select List array for Query
' Optional ByVal String p_AddWhere AddWhere Clause for Query
' Optional ByVal String p_OrderBy OrderBy clause for Query
' Optional ByRef Variant p_FromList From List array for Query
' Optional ByRef Variant p_Parm p_Parm for Query
' Optional ByRef Variant p_Custom p_Custom for Query
'
' Return : -
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************
On Error GoTo StdHandler
Const c_SourceName As String = "DBOEmploymentIncaDirig::Init"
Dim l_ErrNumber As Long
Dim l_ErrDescription As String

' hooks the Application manager
Set i_AppMgr = p_AppMgr

' Here you can initialize the logical Recordset to physical DB
' mapping according to the given Query parameters
If IsMissing(p_SelectList) Then
' Init for Retrieve
pf_InitForRetrieve
Else
' Init for Query.
' The default is the same as Retrieve:
pf_InitForRetrieve
End If

StdHandler:
If Err.Number <> 0 Then
l_ErrNumber = Err.Number
l_ErrDescription = Err.Description
'add custom reporting if needed
Err.Raise l_ErrNumber, c_SourceName & ">" & Err.Source, l_ErrDescription
End If

End Sub

Private Function DBO_GetBaseInfo(ByRef p_SQLSelect As String, ByRef p_ErrCode As Long, ByRef p_ErrDescription As String, ByRef p_Parm As Variant, ByRef p_Custom As Variant) As cfReturnCode

'******************************************************************
' Script : DBO_GetBaseInfo
' Description : Returns initialization info for DBO's client
'
' Arguments : ByRef String p_SQLSelect Base SELECT for retrieve
' ByRef Long p_ErrCode Error Code
' ByRef String p_ErrDescription Error Description
' ByRef Variant p_Parm Reserved for framework use
' ByRef Variant p_Custom Reserved for application use
'
' Return : cfReturnCode Completion code:
' cfSuccess success
' cfError failure
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

On Error GoTo StdHandler

' perform standard Init
DBO_GetBaseInfo = i_DBO.GetBaseInfo(p_SQLSelect, p_Custom, p_ErrCode, p_ErrDescription, p_Parm)

StdHandler:
If Err.Number <> 0 Then
p_ErrCode = Err.Number
p_ErrDescription = Err.Description & " in " & Err.Source
i_AppMgr.LogMgr.ReportMessage p_ErrCode & " - " & p_ErrDescription
DBO_GetBaseInfo = cfError
End If

End Function

Private Function DBO_Retrieve(ByRef p_RS As Recordset, ByVal p_AddWhere As String, ByRef p_ErrCode As Long, ByRef p_ErrDescription As String, ByVal p_OrderBy As String, ByRef p_Parm As Variant, ByRef p_Custom As Variant) As Long

'******************************************************************
' Script : DBO_Retrieve
' Description : Retrieves an updatable DBO's recordset for a given SELECT
'
' Arguments : ByRef Recordset p_RS Retrieved recordset
' ByVal String p_AddWhere Additional where clause for retrieve
' ByRef Long p_ErrCode Error Code
' ByRef String p_ErrDescription Error Description
' ByVal String p_OrderBy Order by clause
' ByRef Variant p_Parm Reserved for framework use
' ByRef Variant p_Custom Reserved for application use
'
' Return : Long Completion code:
' >=0 record count
' cfError failure
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

On Error GoTo StdHandler

' set instance recordset reference
Set i_RS = p_RS

' map standard names
p_AddWhere = i_DBO.MapNames(p_AddWhere)

' perform standard Retrieve
DBO_Retrieve = i_DBO.Retrieve(p_AddWhere, p_OrderBy, p_RS, p_Custom, p_ErrCode, p_ErrDescription, p_Parm)

StdHandler:
' reset instance recordset reference
Set i_RS = Nothing

If Err.Number <> 0 Then
Set p_RS = Nothing
p_ErrCode = Err.Number
p_ErrDescription = Err.Description & " in " & Err.Source
i_AppMgr.LogMgr.ReportMessage p_ErrCode & " - " & p_ErrDescription
DBO_Retrieve = cfError
End If

End Function

Private Function DBO_CreateEmpty(ByRef p_RS As Recordset, ByRef p_ErrCode As Long, ByRef p_ErrDescription As String, ByRef p_Parm As Variant, ByRef p_Custom As Variant) As cfReturnCode

'******************************************************************
' Script : DBO_CreateEmpty
' Description : Returns an updatable empty DBO's recordset for a given SELECT
'
' Arguments : ByRef Recordset p_RS Empty recordset
' ByRef Long p_ErrCode Error Code
' ByRef String p_ErrDescription Error Description
' ByRef Variant p_Parm Reserved for framework use
' ByRef Variant p_Custom Reserved for application use
'
' Return : cfReturnCode Completion code:
' cfSuccess success
' cfError failure
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

On Error GoTo StdHandler

' set instance recordset reference
Set i_RS = p_RS

' perform standard CreateEmpty
DBO_CreateEmpty = i_DBO.CreateEmpty(p_RS, p_Custom, p_ErrCode, p_ErrDescription, p_Parm)

StdHandler:
' reset instance recordset reference
Set i_RS = Nothing

If Err.Number <> 0 Then
Set p_RS = Nothing
p_ErrCode = Err.Number
p_ErrDescription = Err.Description & " in " & Err.Source
i_AppMgr.LogMgr.ReportMessage p_ErrCode & " - " & p_ErrDescription
DBO_CreateEmpty = cfError
End If

End Function

Private Function DBO_Query(ByRef p_RS As Recordset, ByVal p_AddWhere As String, ByRef p_SelectList() As String, ByRef p_ErrCode As Long, ByRef p_ErrDescription As String, ByVal p_OrderBy As String, ByRef p_FromList As Variant, ByRef p_Parm As Variant, ByRef p_Custom As Variant) As Long

'******************************************************************
' Script : DBO_Query
' Description : Opens a readonly DBO's recordset for a given SELECT
' and returns its first chunk
'
' Arguments : ByRef Recordset p_RS First chunk of recordset,
' limited by p_MarshalLimit
' ByVal String p_AddWhere Additional where clause for query
' ByRef String p_SelectList() Column list to be used in query
' ByRef Long p_MarshalLimit In: Max number of records to
' be returned to the client
' (0 = no limit)
' Out: total record count for
' recordset, possibly larger
' than p_MarshalLimit
' ByRef Long p_ErrCode Error Code
' ByRef String p_ErrDescription Error Description
' ByVal String p_OrderBy Order by clause
' ByRef Variant p_FromList From list to be used in query
' ByRef Variant p_Parm Reserved for framework use
' ByRef Variant p_Custom Reserved for application use
'
' Return : Integer Completion code:
' >=0 record count for chunk
' cfError failure
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

On Error GoTo StdHandler

' set instance recordset reference
Set i_RS = p_RS

' ----------------------------------------------------
' PUT HERE CODE TO BE EXECUTED BEFORE STANDARD SERVICE
' E.g.: (1) Check p_FromList() and map it to physical names
' (2) Add JOIN condition to other tables if p_FromList
' contains more than one table
' ----------------------------------------------------

' map standard names
p_AddWhere = i_DBO.MapNames(p_AddWhere)
p_OrderBy = i_DBO.MapNames(p_OrderBy)

DBO_Query = i_DBO.Query(p_SelectList, p_FromList, p_AddWhere, p_OrderBy, p_RS, p_Custom, p_ErrCode, p_ErrDescription, p_Parm)

StdHandler:
' reset instance recordset reference
Set i_RS = Nothing

If Err.Number <> 0 Then
Set p_RS = Nothing
p_ErrCode = Err.Number
p_ErrDescription = Err.Description & " in " & Err.Source
i_AppMgr.LogMgr.ReportMessage p_ErrCode & " - " & p_ErrDescription
DBO_Query = cfError
End If

End Function

Private Function DBO_Save(ByRef p_RS As Recordset, ByRef p_ErrList As CFErrList, ByRef p_ErrCode As Long, ByRef p_ErrDescription As String, ByRef p_Parm As Variant, ByRef p_Custom As Variant) As cfReturnCode

'******************************************************************
' Script : Save
' Description : Saves a DBO's recordset
'
' Arguments : ByRef Recordset p_RS Recordset to be saved
' ByRef RowList p_RowList Set rows list
' ByRef CFErrList p_ErrList Set data errors list
' ByRef Long p_ErrCode Error Code
' ByRef String p_ErrDescription Error Description
' ByRef Variant p_Parm Reserved for framework use
' ByRef Variant p_Custom Reserved for application use
'
' Return : cfReturnCode Completion code:
' cfSuccess success
' cfError failure
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

On Error GoTo StdHandler

' set instance recordset reference
Set i_RS = p_RS

DBO_Save = i_DBO.Save(p_RS, p_ErrList, p_Custom, p_ErrCode, p_ErrDescription, p_Parm)

' ' customize error messages when rised by DBMS
' Dim l_Action As String, l_ParentTable As String, l_ChildTable As String
' Dim l_Column() As String, l_Value() As String, l_MsgParm() As String
'
' Select Case p_ErrCode
' Case cfPrimaryKey
' If i_DBO.ExplainDBError(p_ErrCode, p_ErrDescription, l_Action, l_ParentTable, l_ChildTable, l_Column(), l_Value()) Then
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..Error, App.hInstance)
' End If
' End If
'
' Case cfDataDomain
' If i_DBO.ExplainDBError(p_ErrCode, p_ErrDescription, l_Action, l_ParentTable, l_ChildTable, l_Column(), l_Value()) Then
' l_ParentTable = "t" & Right$(LCase(l_ParentTable), Len(l_ParentTable) - 1)
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "cod_tpcntr") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "des_tpcntr") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "qta_ordine") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If

' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "cod_termid") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "tms_timestamp") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
'
' End If
'
' Case cfNotNullableValue
' If i_DBO.ExplainDBError(p_ErrCode, p_ErrDescription, l_Action, l_ParentTable, l_ChildTable, l_Column(), l_Value()) Then
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "cod_tpcntr") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "des_tpcntr") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "qta_ordine") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
'
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "cod_termid") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
' If i_DBO.IsSameTable(l_ParentTable, "tb_tpcntr") And i_DBO.IsSameColumn(l_Column(0), "tms_timestamp") Then
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId..., App.hInstance)
' End If
'
' End If
'
' Case cfOtherError
'' p_ErrDescription = i_AppMgr.ResourceMgr.GetString(csResId.., App.hInstance)
' End Select

StdHandler:
' reset instance recordset reference
Set i_RS = Nothing

If Err.Number <> 0 Then
p_ErrCode = Err.Number
p_ErrDescription = Err.Description & " in " & Err.Source
i_AppMgr.LogMgr.ReportMessage p_ErrCode & " - " & p_ErrDescription
DBO_Save = cfError
End If

End Function

Private Sub pf_InitForRetrieve()

'******************************************************************
' Script : pf_InitForRetrieve
' Description : Set RS Info
'
' Arguments : -
'
' Return : -
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

Dim l_SelectList(0 To 13) As String, l_FromClause As String, l_OrderByClause As String

'Add the SelectList
l_SelectList(0) = "ContractTypeId"
l_SelectList(1) = "PersonOid"
l_SelectList(2) = "StartDate"
l_SelectList(3) = "EndDate"
l_SelectList(4) = "ContractType"
l_SelectList(5) = "ContractTypeDes"
' l_SelectList(6) = "ContractTypeChangeEvent"
' l_SelectList(7) = "ContractTypeChangeReasonDes"
l_SelectList(6) = "CODPROVVEDIMENTI"
l_SelectList(7) = "DESPROVVEDIMENTI"
l_SelectList(8) = "CodeUser"
l_SelectList(9) = "Station"
l_SelectList(10) = "Timestamp"
l_SelectList(11) = "PROTOCOLLO"
l_SelectList(12) = "DATA_PROTOCOLLO"
l_SelectList(13) = "NOTA"
'l_SelectList(14) = "CODUNITAORG"
'l_SelectList(15) = "DESUNITAORG"

' From clause
l_FromClause = "FROM IncarichiDirigenziali"

i_DBO.SetNoCount = True

'Which DBMS : cfOracle, cfSQLServer, ..
Dim l_ConnectionString As String
Dim l_DBMSType As cfDBMSId
l_ConnectionString = i_AppMgr.GetConnectionString(c_DBIdentifier)
l_DBMSType = i_AppMgr.DBMSType(l_ConnectionString)

With i_DBO
' .SetRSInfo i_AppMgr, c_DBIdentifier, l_SelectList, l_FromClause [, l_OrderByClause]
'l_OrderByClause = "ORDER BY " & l_SelectList(1) '& "," & l_SelectList(17) & "," & l_SelectList(3)
l_OrderByClause = "ORDER BY DTA_INIZIO"

.SetRSInfo i_AppMgr, c_DBIdentifier, l_SelectList, l_FromClause, l_OrderByClause
' .DummyValue = False

' Physical columns different from logical ones
.ColDBName(0) = "ASSTPCONTR.ID_ASSTPCONTR"
.ColDBName(1) = "ASSTPCONTR.ID_PERSONA"
.ColDBName(2) = "ASSTPCONTR.DTA_INIZIO"
.ColDBName(3) = "ASSTPCONTR.DTA_FINE"
.ColDBName(4) = "ASSTPCONTR.COD_TPCNTR"
.ColDBName(5) = "TB_TPCNTR.DES_TPCNTR"
' .ColDBName(6) = "ASSTPCONTR.COD_EVCNTR"
' .ColDBName(7) = "TB_EVTCNTR.DES_EVCNTR"
.ColDBName(6) = "ASSTPCONTR.COD_PROVVINCARICHI"
.ColDBName(7) = "TB_PROVVEDIMENTI.DES_PROVVINCARICHI"
.ColDBName(8) = "ASSTPCONTR.COD_USER"
.ColDBName(9) = "ASSTPCONTR.COD_TERMID"
.ColDBName(10) = "ASSTPCONTR.TMS_TIMESTAMP"
.ColDBName(11) = "ASSTPCONTR.NUM_PROTOCOLLO"
.ColDBName(12) = "ASSTPCONTR.DTA_PROTOCOLLO"
.ColDBName(13) = "ASSTPCONTR.NOT_NOTA"
'.ColDBName(14) = ""
'.ColDBName(15) = ""

' Physical WHERE and remainder clause

Select Case l_DBMSType
Case cfOracle
.DBFromClause = " FROM ASSTPCONTR, TB_TPCNTR, TB_PROVVEDIMENTI"
.EndingWhereClause = "(ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR) " & _
" AND (ASSTPCONTR.COD_PROVVINCARICHI = TB_PROVVEDIMENTI.COD_PROVVINCARICHI(+)) "
Case Else
.DBFromClause = "FROM ASSTPCONTR Join TB_TPCNTR on (ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR)" & _
" LEFT OUTER Join TB_EVTCNTR on (ASSTPCONTR.COD_EVCNTR = TB_EVTCNTR.COD_EVCNTR)"
End Select

' Column properties when different from False
' Sets column not updateable
.ColNoUpdateable(7) = True
.ColNoUpdateable(5) = True

.ColKey(0) = True
.ColOId(0) = True
.ColUserId(8) = True
.ColStationId(9) = True
.ColTimeStamp(10) = True
.SetNoCount = True
' Extended Attributes DBO Info
' This line of code must be uncommented in order to enable extended attributes
.ExtendDBOInfo c_EmploymentIncaDirigClassNameDBO1
End With

End Sub

Private Sub pf_InitForQuery()

'******************************************************************
' Script : pf_InitForRetrieve
' Description : Set RS Info
'
' Arguments : -
'
' Return : -
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

Dim l_SelectList(0 To 11) As String, l_FromClause As String, l_OrderByClause As String
Dim l_ConnectionString As String
Dim l_DBMSType As cfDBMSId

'Add the SelectList
l_SelectList(0) = "ContractTypeId"
l_SelectList(1) = "PersonOid"
l_SelectList(2) = "StartDate"
l_SelectList(3) = "EndDate"
l_SelectList(4) = "ContractType"
l_SelectList(5) = "ContractTypeDes"
' l_SelectList(6) = "ContractTypeChangeEvent"
' l_SelectList(7) = "ContractTypeChangeReasonDes"
l_SelectList(6) = "CODPROVVEDIMENTI"
l_SelectList(7) = "DESPROVVEDIMENTI"
l_SelectList(8) = "FirstName"
l_SelectList(9) = "LastName"
l_SelectList(10) = "SecondLastName"
l_SelectList(11) = "NOTA"

' From clause
l_FromClause = "FROM IncarichiDirigenziali"

l_ConnectionString = i_AppMgr.GetConnectionString(c_DBIdentifier)
l_DBMSType = i_AppMgr.DBMSType(l_ConnectionString)

With i_DBO
l_OrderByClause = "ORDER BY DTA_INIZIO"

.SetRSInfo i_AppMgr, c_DBIdentifier, l_SelectList, l_FromClause, l_OrderByClause

' Physical columns different from logical ones
.ColDBName(0) = "ASSTPCONTR.ID_ASSTPCONTR"
.ColDBName(1) = "ASSTPCONTR.ID_PERSONA"
.ColDBName(2) = "ASSTPCONTR.DTA_INIZIO"
.ColDBName(3) = "ASSTPCONTR.DTA_FINE"
.ColDBName(4) = "ASSTPCONTR.COD_TPCNTR"
.ColDBName(5) = "TB_TPCNTR.DES_TPCNTR"
' .ColDBName(6) = "ASSTPCONTR.COD_EVCNTR"
' .ColDBName(7) = "TB_EVTCNTR.DES_EVCNTR"
.ColDBName(6) = "ASSTPCONTR.COD_PROVVINCARICHI"
.ColDBName(7) = "TB_PROVVEDIMENTI.DES_PROVVINCARICHI"
.ColDBName(8) = "ANAGPERS.DES_NOMEPERS"
.ColDBName(9) = "ANAGPERS.DES_COGNOMEPERS"
.ColDBName(10) = "ANAGPERS.DES_SECCOGNOME"
.ColDBName(11) = "ASSTPCONTR.NOT_NOTA"

' Physical WHERE and remainder clause

Select Case l_DBMSType
Case cfOracle
.DBFromClause = " FROM ANAGPERS, ASSTPCONTR, TB_TPCNTR, TB_PROVVEDIMENTI"
.EndingWhereClause = " (ANAGPERS.ID_PERSONA = ASSTPCONTR.ID_PERSONA) AND " & _
" (ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR) " & _
" AND (ASSTPCONTR.COD_PROVVINCARICHI = TB_PROVVEDIMENTI.COD_PROVVINCARICHI(+)) "
Case Else
.DBFromClause = "FROM ANAGPERS " & _
" join ASSTPCONTR ON ANAGPERS.ID_PERSONA = ASSTPCONTR.ID_PERSONA " & _
" Join TB_TPCNTR on (ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR)" & _
" LEFT OUTER Join TB_EVTCNTR on (ASSTPCONTR.COD_EVCNTR = TB_EVTCNTR.COD_EVCNTR)"
End Select

' Extended Attributes DBO Info
' This line of code must be uncommented in order to enable extended attributes
.ExtendDBOInfo c_EmploymentIncaDirigClassNameDBO1
End With

End Sub

Private Sub pf_InitForBatch()

'******************************************************************
' Script : pf_InitForBatch
' Description : Set RS Info
'
' Arguments : -
'
' Return : -
'
' Modified : <Name> Date : <date>
' <Change description>
'******************************************************************

Dim l_SelectList(0 To 11) As String, l_FromClause As String, l_OrderByClause As String

'Add the SelectList
l_SelectList(0) = "ContractTypeId"
l_SelectList(1) = "PersonOid"
l_SelectList(2) = "StartDate"
l_SelectList(3) = "EndDate"
l_SelectList(4) = "ContractType"
'l_SelectList(5) = "ContractTypeDes"
'' l_SelectList(5) = "ContractTypeChangeEvent"
l_SelectList(5) = "CODPROVVEDIMENTI"
'l_SelectList(7) = "ContractTypeChangeReasonDes"
l_SelectList(6) = "CodeUser"
l_SelectList(7) = "Station"
l_SelectList(8) = "Timestamp"
l_SelectList(9) = "PROTOCOLLO"
l_SelectList(10) = "DATA_PROTOCOLLO"
l_SelectList(11) = "NOTA"

' From clause
l_FromClause = "FROM IncarichiDirigenziali"

i_DBO.SetNoCount = True

'Which DBMS : cfOracle, cfSQLServer, ..
Dim l_ConnectionString As String
Dim l_DBMSType As cfDBMSId
l_ConnectionString = i_AppMgr.GetConnectionString(c_DBIdentifier)
l_DBMSType = i_AppMgr.DBMSType(l_ConnectionString)

With i_DBO
' .SetRSInfo i_AppMgr, c_DBIdentifier, l_SelectList, l_FromClause [, l_OrderByClause]
'l_OrderByClause = "ORDER BY " & l_SelectList(1) '& "," & l_SelectList(17) & "," & l_SelectList(3)
l_OrderByClause = "ORDER BY DTA_INIZIO"

.SetRSInfo i_AppMgr, c_DBIdentifier, l_SelectList, l_FromClause, l_OrderByClause
' .DummyValue = False

' Physical columns different from logical ones
.ColDBName(0) = "ASSTPCONTR.ID_ASSTPCONTR"
.ColDBName(1) = "ASSTPCONTR.ID_PERSONA"
.ColDBName(2) = "ASSTPCONTR.DTA_INIZIO"
.ColDBName(3) = "ASSTPCONTR.DTA_FINE"
.ColDBName(4) = "ASSTPCONTR.COD_TPCNTR"
'.ColDBName(5) = "TB_TPCNTR.DES_TPCNTR"
'' .ColDBName(5) = "ASSTPCONTR.COD_EVCNTR"
'.ColDBName(7) = "TB_EVTCNTR.DES_EVCNTR"
.ColDBName(5) = "ASSTPCONTR.COD_PROVVINCARICHI"
.ColDBName(6) = "ASSTPCONTR.COD_USER"
.ColDBName(7) = "ASSTPCONTR.COD_TERMID"
.ColDBName(8) = "ASSTPCONTR.TMS_TIMESTAMP"
.ColDBName(9) = "ASSTPCONTR.NUM_PROTOCOLLO"
.ColDBName(10) = "ASSTPCONTR.DTA_PROTOCOLLO"
.ColDBName(11) = "ASSTPCONTR.NOT_NOTA"

' Physical WHERE and remainder clause

Select Case l_DBMSType
Case cfOracle
.DBFromClause = " FROM ASSTPCONTR " ', TB_TPCNTR, TB_EVTCNTR"
'.EndingWhereClause = " (ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR) " & _
' " AND (ASSTPCONTR.COD_EVCNTR = TB_EVTCNTR.COD_EVCNTR(+)) "
Case Else
.DBFromClause = "FROM ASSTPCONTR " ' Join TB_TPCNTR on (ASSTPCONTR.COD_TPCNTR = TB_TPCNTR.COD_TPCNTR)" & _
" LEFT OUTER Join TB_EVTCNTR on (ASSTPCONTR.COD_EVCNTR = TB_EVTCNTR.COD_EVCNTR)"
End Select

' Column properties when different from False
' Sets column not updateable
'.ColNoUpdateable(7) = True
'.ColNoUpdateable(5) = True

.ColKey(0) = True
.ColOId(0) = True
.ColUserId(6) = True
.ColStationId(7) = True
.ColTimeStamp(8) = True
.SetNoCount = True
' Extended Attributes DBO Info
' This line of code must be uncommented in order to enable extended attributes
.ExtendDBOInfo c_EmploymentIncaDirigClassNameDBO1
End With

End Sub

Grazie

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !