MFRAISSALARIE est une Classe <MAPPING=FRAISSALARIE>
PRIVÉE
// Le code se trouvant entre <MAPPING> et <FIN> est généré automatiquement.
// Il sera effacé et recréé entièrement à chaque génération depuis le menu contextuel
// du fichier dans l'explorateur de projet "..Regénérer la classe modèle".
<MAPPING>
m_nIDFRAISSALARIE est un entier sur 8 octets <MAPPING=IDFRAISSALARIE>
m_sFRSSANUM est une chaîne ANSI <MAPPING=FRSSANUM>
m_dFRSDATE est une Date <MAPPING=FRSDATE>
m_sFRSTYPE est une chaîne ANSI <MAPPING=FRSTYPE>
m_moFRSMONTANT est un monétaire <MAPPING=FRSMONTANT>
m_sFRSCOMMENTAITRE est une chaîne <MAPPING=FRSCOMMENTAITRE>
m_sFRSTYPEPAIEMENT est une chaîne ANSI <MAPPING=FRSTYPEPAIEMENT>
m_moFRSQUANTITE est un monétaire <MAPPING=FRSQUANTITE>
m_dhFRSCREATION est une DateHeure <MAPPING=FRSCREATION>
m_dhFRSMODIFICATION est une DateHeure <MAPPING=FRSMODIFICATION>
m_sFRSETAT est une chaîne ANSI <MAPPING=FRSETAT>
m_nIDFRAISSALARIE_LOCAL est un entier sur 8 octets <MAPPING=IDFRAISSALARIE_LOCAL, clé unique>
<FIN>

m_tabDocScan est un tableau de MDOCSCAN dynamique
FIN

Procedure PUBLIQUE GLOBALE Save(pclFraisSalarie est un MFRAISSALARIE dynamique, bFlag est un booléen = Vrai): (booléen,chaîne)

bModeAjout est un booléen = (pclFraisSalarie.p_nIDFRAISSALARIE_LOCAL <= 0)
bRéussi est un booléen = bModeAjout ? HRAZ(FRAISSALARIE) SINON HLitRecherchePremier(FRAISSALARIE,IDFRAISSALARIE_LOCAL,pclFraisSalarie.p_nIDFRAISSALARIE_LOCAL)
sMessage est une chaîne = ""
SI bRéussi ALORS

MémoireVersFichier(pclFraisSalarie,FRAISSALARIE)

SI pclFraisSalarie.p_nIDFRAISSALARIE_LOCAL <= 0 _ET_ pclFraisSalarie.m_nIDFRAISSALARIE <= 0 ALORS
pclFraisSalarie.p_dhFRSCREATION = DateHeureSys()
SINON
pclFraisSalarie.p_dhFRSMODIFICATION = DateHeureSys()
FIN

bRéussi = bModeAjout ? HAjoute(FRAISSALARIE) SINON HModifie(FRAISSALARIE)

SI bRéussi ALORS
Trace("FRAISSALARIE Save ID local : " + FRAISSALARIE.IDFRAISSALARIE_LOCAL)

FichierVersMémoire(pclFraisSalarie,FRAISSALARIE)


Trace("FRAISSALARIE Save objet ID local : "+ pclFraisSalarie.m_nIDFRAISSALARIE_LOCAL)
Trace("FRAISSALARIE Save objet ID Propriété local : "+ pclFraisSalarie.p_nIDFRAISSALARIE_LOCAL)


SI bFlag ALORS
bRetourSave est un booléen
sMessageSave est une chaîne
eMode est un MFLAG.EFLAGAction
eMode = bModeAjout ? MFLAG.EFLAGAction._Ajouter SINON MFLAG.EFLAGAction._Modifier
(bRetourSave,sMessageSave) = MFLAG.Envoi_FraisSalarie(pclFraisSalarie,eMode)
FIN
SINON
sMessage += [RC] + HErreurInfo(hErrComplet)
FIN
FIN

RENVOYER (bRéussi,sMessage)

Procedure PUBLIQUE p_nIDFRAISSALARIE_LOCAL() : entier sur 8 octets

RENVOYER m_nIDFRAISSALARIE_LOCAL

Procedure PUBLIQUE p_nIDFRAISSALARIE_LOCAL( LOCAL nValeur est un entier sur 8 octets)

m_nIDFRAISSALARIE_LOCAL=nValeur