Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
ASP.NET 1.0/1.1
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 %>
<!--#include file="./../../CFLibrary/CFHead.asp"-->
<%
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"))
%>
<!--#include file="CznEmpCompQuery.Asp"-->
<!--#include file="./../../CFLibrary/CFStdTransaction.asp"-->
<%
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
%>
<!--#include file="./../../CFLibrary/CFClientVar.asp"-->
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
<%
If CFPageContainer.CFDeleteButtonUrl <> "" then
%>
var cfuserresult ;
document.frmDetail.PROMOTEFLG.value = "1";
cfuserresult = confirm("<% = CFObjTranslate.GetMsg(49011) %>") ;
if (cfuserresult) {
cfuserresult = false ;
cfuserresult = CFUserBeforeSave("DELETE");
if (cfuserresult) {
document.frmDetail.action = '<% = CFPageContainer.CFDeleteButtonUrl %>' ;
document.frmDetail.method = 'POST';
CFClientFormOnSubmit();
document.frmDetail.submit();
}
}
<% end if %>
}
function CFUserInitPage(pParm) {
//
// StartUp code to initialize current page,
// useful to initilize fields or insert custom code
//
// pParm may be: INSERT or RETRIEVE
//
//alert(pParm) ;
if (pParm == 'INSERT') {
document.frmDetail.PERSONOID.value = CFUrlKeyValues['PERSONOID'];
document.frmDetail.PersonOid.value = CFUrlKeyValues['PERSONOID'];
}
}
function CFUserTerminatePage() {
//
// End code to terminate current page
//
}
function CFUserBeforeSave (pParm) {
//
// pParm may be: INSERT or MODIFY or DELETE
//
// If return false, the action is disabled
//
//alert(pParm) ;
return true ;
}
function CFUserGetLinkParm() {
//
// The developer can override or insert new value
// before active a link
//
// The syntax of return parameter is: Field1=Value1|Field2=Value2
//
var UserLinkParm ;
UserLinkParm = "" ;
return UserLinkParm ;
}
//------------------------------------------------------------------------
// LookUp definitions
//------------------------------------------------------------------------
function ContractType_LookUp() {
var strUserFields = "&closeonget=yes";
CFLookUP("ContractType", //LookUPId
"ContractType_CallBack", //Callback function
40302,
null,
null,
strUserFields, //values always written in calling field
"status=yes,scrollbars=yes,location=no,toolbar=no,resizable=yes"); //LookUP window features
return;
}
function ContractType_CallBack(RetString)
{
var ReturnArray ;
ReturnArray = RetString.split("|");
document.frmDetail.CONTRACTTYPE.value = "";
document.frmDetail.CONTRACTTYPE.value = ReturnArray[1];
document.frmDetail.CONTRACTTYPEDES.value = "";
document.frmDetail.CONTRACTTYPEDES.value = ReturnArray[2];
return;
}
/* ------------------- */
function Provvedimenti_LookUp() {
var strUserFields = "&closeonget=yes";
CFLookUP("ContractType", //LookUPId
"Provvedimenti_CallBack", //Callback function
6000147,
null,
null,
strUserFields, //values always written in calling field
"status=yes,scrollbars=yes,location=no,toolbar=no,resizable=yes"); //LookUP window features
return;
}
function Provvedimenti_CallBack(RetString)
{
var ReturnArray ;
ReturnArray = RetString.split("|");
document.frmDetail.CODPROVVEDIMENTI.value = "";
document.frmDetail.CODPROVVEDIMENTI.value = ReturnArray[1];
document.frmDetail.DESPROVVEDIMENTI.value = "";
document.frmDetail.DESPROVVEDIMENTI.value = ReturnArray[2];
return;
}
/* ------------------- */
//------- Unità Organizzativa ------------------------------------------/
function OrgUnit_Tree()
{
var strUserFields ;
var clientDate ;
var clientStr ;
var WhereCondition ;
var strUserFields ;
var l_rs;
strUserFields = "";
clientStr = '01/01/1980';
clientDate = CFClientStringToDate(clientStr, "<% = CFPageContainer.CFDateFormat %>", "<% = CFPageContainer.CFDateSeparator %>" ) ;
if(clientDate) {
clientStr = "'" + CFClientDateToString (clientDate, "mm-dd-yyyy", "-") + "'" ;
// WhereCondition = " (" + clientStr + " BETWEEN OrgUnitStartDate AND OrgUnitEndDate )";
// WhereCondition = " (" + clientStr + " BETWEEN B.DTA_INIZIO AND B.DTA_FINE)";
WhereCondition = " (" + clientStr + " BETWEEN B.DTA_INIZIO AND B.DTA_FINE) and (" + clientStr + " BETWEEN UNITA_DTA_INIZIO AND UNITA_DTA_FINE)";
}
strUserFields = "&FixedWhere=" + WhereCondition
CFTree("", //LookUPId
"window.opener.OrgUnit_CallBack", //Callback function
44007,
"<% = CFObjTranslate.GetMsgEx (6011044, CfPageContainer.CFLcId, CFPageContainer.CfRepConnection, "Organizational Unit")%>",
"yes",
strUserFields, //values always written in calling field
"status=yes,scrollbars=yes,location=no,toolbar=no,resizable=yes"); //LookUP window features
return;
}
function OrgUnit_CallBack(RetString)
{
var TableNodes ;
var i,n,t;
var Temp;
if (RetString != "") {
TableNodes = RetString.split("||");
n = TableNodes.length;
for( t=0; t < n; t++ ) {
ANode = TableNodes[t].split("|");
// the cols are: Child|Desc|Key|Hidden
document.frmDetail.CODUNITAORG.value = ""
document.frmDetail.DESUNITAORG.value = ""
document.frmDetail.CODUNITAORG.value = ANode[0]
document.frmDetail.DESUNITAORG.value = ANode[1]
}
}
}
/* ------------------- */
//------------------------------------------------------------------------
// LookUp definitions
//------------------------------------------------------------------------
function CFRsToForm() {
//CFFormToRs
// Marshall array data to form
//
document.frmDetail.PERSONOID.value = EMPLOYMENT['PERSONOID'];
document.frmDetail.PersonOid.value = IncarichiDirigenziali['PersonOid'];
document.frmDetail.CONTRACTTYPEID.value = IncarichiDirigenziali['CONTRACTTYPEID'];
document.frmDetail.STARTDATE.value = IncarichiDirigenziali['STARTDATE'];
<% If CFPageContainer.CFFieldIsVisible("CONTRACTTYPE") Then %>
document.frmDetail.CONTRACTTYPE.value = IncarichiDirigenziali['CONTRACTTYPE'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("CODPROVVEDIMENTI") Then %>
document.frmDetail.CODPROVVEDIMENTI.value = IncarichiDirigenziali['CODPROVVEDIMENTI'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("DESPROVVEDIMENTI") Then %>
document.frmDetail.DESPROVVEDIMENTI.value = IncarichiDirigenziali['DESPROVVEDIMENTI'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("CODUNITAORG") Then %>
document.frmDetail.CODUNITAORG.value = IncarichiDirigenziali['CODUNITAORG'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("DESUNITAORG") Then %>
document.frmDetail.DESUNITAORG.value = IncarichiDirigenziali['DESUNITAORG'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("ENDDATE") Then %>
if(IncarichiDirigenziali['ENDDATE']!='31/12/2999') {
document.frmDetail.ENDDATE.value = IncarichiDirigenziali['ENDDATE'];
}
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("CONTRACTTYPEDES") Then %>
document.frmDetail.CONTRACTTYPEDES.value = IncarichiDirigenziali['CONTRACTTYPEDES'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("PROTOCOLLO") Then %>
document.frmDetail.PROTOCOLLO.value = IncarichiDirigenziali['PROTOCOLLO'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("DATA_PROTOCOLLO") Then %>
document.frmDetail.DATA_PROTOCOLLO.value = IncarichiDirigenziali['DATA_PROTOCOLLO'];
<% End If %>
<% If CFPageContainer.CFFieldIsVisible("NOTA") Then %>
document.frmDetail.NOTA.value = IncarichiDirigenziali['NOTA'];
<% End If %>
document.frmDetail.TMS_TIMESTAMP.value = IncarichiDirigenziali['TMS_TIMESTAMP'];
}
-->
</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> <!--CONTRACTTYPEDES -->
</HEAD>
<BODY onLoad="CFInitializePage();" onUnload="CFTerminatePage();" >
<SPAN ID="menuContainer" name="menuContainer"></SPAN>
<!--#include file="../../CFLibrary/CFTitle.Asp"-->
<!--#include file="../../CFLibrary/CFStdDclButtons.Asp"-->
<!--#include file="../../CFLibrary/CFButtons.Asp"-->
<!--#include file="../../CFLibrary/CFStdButtons.Asp"-->
<!--#include file="../../CFLibrary/CFEndTitle.Asp"-->
<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>
<!--#include file="./../../CFLibrary/CFTail.Asp"-->
</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 !