LDPaye Version 9.60 Niveau 265
[SRCDATA]
SOC_RSSO=Nom société;PESOCI.RSSO
ETAB_RSSO=Nom établissement;PEETAB.RSSO
ETAB_ADCA=Adresse établissement Ligne 1;PEETAB.ADCA
ETAB_ADVO=Adresse établissement Ligne 2;PEETAB.ADVO
ETAB_ADCO=Adresse établissement Ligne 3;PEETAB.ADCO
ETAB_COPO=Code postal établissement;PEETAB.COPO
ETAB_BRDI=Ville établissement;PEETAB.BRDI
ETAB_SIRE=SIRET établissement;PEETAB.SIRE
ETAB_SIGN=Nom signataire;PEETAB.SIGN
ETAB_SIGQ=Qualité signataire;PEETAB.QSAE:PAYTAB.LDAU
NPPE=Matricule;PEPERS.NPPE
TITR=Titre;PEPERS.TITR
LIB_TITR=TitreEnClair;PEPERS.TITR_L
NMAG=Nom;PEPERS.NMAG
PREN=Prénom;PEPERS.PREN
AUNA=Nom de jeune fille;PEPERS.AUNA
NSS=Numéro S.S.;PEPERS.NSS
ADCA=Adresse ligne 1;PEPERS.ADCA
ADVO=Adresse ligne 2;PEPERS.ADVO
ADCO=Adresse Ligne 3;PEPERS.ADCO
COPO=Code postal;PEPERS.COPO
BRDI=Bureau distributeur;PEPERS.BRDI
LPAY=Pays de résidence;PEPERS.CPAY:*PAY.LPAY
LPNT=Nationalité;PEPERS.CPNT:*PAYS.LPNT
DAEN=Date entrée;PEPACT.DAEN
DASO=Date sortie;PEPACT.DASO
CMIF=Code départ;PEPACT.CMIF
LMIF=Motif départ;PEPACT.CMIF:PEMOTI.LMIN
QUAL=Qualification;PEPACT.QUAL
CLAS=Classification;PECLAS.CLAS
BASMEN=Base mensuelle;CS.BASMEN
HORBAS=Horaire base;CS.HORBAS
MOISPAYE=Période paye;DERMOIS
NETPAY=Net à payer;DERNET
BRUFIA=Total Brut annuel;CU2.BRUFIA
NETIMA=Net imposable annuel;CU2.NETIMA
NETIMMA=Net imposable arrondi
MTHSEXO=Heures sup Exo
[NETIMMA]
// CODE COMPILE DYNAMIQUEMENT
Valeur est un réel
MoisArrete est une chaine = Gauche(BURELST1.DTSI, 6)
HLitRechercheDernier(CACUMU,"KCUMU",[jCodeSociétéInt,PEPERS.NPPE,"NETIMA",MoisArrêté], hGénérique)
SI HTrouve(CACUMU) ALORS
	Valeur=CACUMU.VACU
SINON SI PAS HEnDehors(CACUMU) _ET_ CACUMU.COSO=jCodeSociétéInt ET CACUMU.NPPE~= PEPERS.NPPE ET CACUMU.NMCU~= "NETIMA"  ALORS
	Valeur=CACUMU.VACC
FIN
// On renvoie la valeur sous forme d'une chaine de caractère, avec arrondi à l'euro inférieur
RENVOYER NumériqueVersChaine(ArrondiInférieur(Valeur,0), "9dS")
[MTHSEXO]
// CODE COMPILE DYNAMIQUEMENT
Valeur est un réel
MoisArrete est une chaine = Gauche(BURELST1.DTSI, 6)
HLitRechercheDernier(CACUMU,"KCUMU",[jCodeSociétéInt,PEPERS.NPPE,"BRNFIA",MoisArrêté], hGénérique)
SI HTrouve(CACUMU) ALORS
	Valeur=CACUMU.VACU
SINON SI PAS HEnDehors(CACUMU) _ET_ CACUMU.COSO=jCodeSociétéInt ET CACUMU.NPPE~= PEPERS.NPPE ET CACUMU.NMCU~= "BRNFIA"  ALORS
	Valeur=CACUMU.VACC
FIN
// On renvoie la valeur sous forme d'une chaine de caractère, avec arrondi à l'euro inférieur
RENVOYER NumériqueVersChaine(ArrondiInférieur(Valeur,0), "9dS")