1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Set ILignes = TBL_MinRow
Set i = 8
While SalTblFindNextRow(tblDelaiID,ILignes, 0, 0 )
Call SalTblSetContext(tblDelaiID,ILignes)
Set nDelaiID = tblDelaiID.colDelaiID
Set strDescriptionDelai = tblDelaiID.colDescDelai
Call SalTblCreateColumn( tblDetailsRqtsSLA, i ,2,200, strDescriptionDelai )
Set hCol = SalTblGetColumnWindow(tblDetailsRqtsSLA,i ,COL_GetID)
Set nColID = SalTblQueryColumnID(hCol)
! MKL Remplissage des colonnes Delais dynamiquement
Set nRow = TBL_MinRow
While SalTblFindNextRow(tblDetailsRqtsSLA,nRow, 0, 0 )
Call SalTblSetContext(tblDetailsRqtsSLA,nRow)
Set Message = " SELECT DELAIREEL
FROM NS_REQ_DELAI
WHERE
DELAI_ID = :nDelaiID
AND wf_client_id = :nwWfClientID
AND REQUETE_ID = :tblDetailsRqtsSLA.colRequeteID
INTO :nValue
"
Call SqlPrepareAndExecute(hSqlUtil,Message)
Call SqlFetchNext(hSqlUtil,Result)
Call SalTblSetColumnText(tblDetailsRqtsSLA,SalTblQueryColumnID(hCol),
SalNumberToStrX(nValue, 2))
Set i = i + 1 |
Partager