1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| for aLignePiece in aLigne.GetListeLignePieceJournee() do
aLignePieceTransfert = GCPT_PieceTransfertLigne(aWks.getObjectByOID(aLignePiece.getDetailPieceOID(),pClassName = GCPT_PieceTransfertLigneBase.CLID_GCPT_PIECETRANSFERTLIGNE, pMode= 3));
If unHT_ListeLignesParDetailPieceOID.Find(key = aLignePieceTransfert.getDetailPieceOID().TextValue.value) = NIL Then
unPieceALire = new();
unVSDK_OID = new();
unVSDK_OID . setOID(pOID = aLignePieceTransfert.getDetailPieceOID());
unPieceALire . setPieceOID(pPieceOID = unVSDK_OID);
unTabPieceALirePieceOID . appendrow(unPieceALire);
If unHT_PieceEmargementDetailHorsEmargement.Find(key = aLignePieceTransfert.getDetailPieceOID().TextValue.value ) = NIL Then
unHT_PieceEmargementDetailHorsEmargement.Enter(element = unPieceALire , key = aLignePieceTransfert.getDetailPieceOID().TextValue.value);
End if;
unHT_ListeLignesParDetailPieceOID.Enter(element=aLigne,key=aLignePieceTransfert.getDetailPieceOID().TextValue.value);
End If;
unHT_ListeLignesParDetailPieceOIDNonUnique.Enter(element=aLigne,key=aLignePieceTransfert.getDetailPieceOID().TextValue.value);
end for; |
Partager