Paramétrer prime panier

bonjour,

Ceci devrait répondre à votre besoin :

1/ Créer 3 montant particuliers :

code PANIER1 avec valeur 10

code PANIER2 avec valeur 19

code PANIER3 avec valeur 26.02

2/Créer un profil de prime

code PANIERS (par exemple)

Copier coller le script ci-dessous :

Begin
PA1 = Saisie("Panier_1",0)
PA2 = Saisie("Panier_2",0)
PA3 = Saisie("Panier_3",0)

//Traitement Panier montant 1
If PA1 <> 0 then
	Memo1 = "Variable utilisée pour frais : "
	Memo2 = "Valeur associée              : "
	Memo3 = "Valeur Maximum exonérée      : "
	Lib = "Indemnité de panier "
	Valpanier1 = Mtpart.PANIER1
	ValMax   = MtpartLegal.REPASEXT
	Memo1 = Memo1 + "PANIER1"
	Memo2 = Memo2 + Valpanier1
	Memo3 = Memo3 + ValMax

	If Valpanier1 > ValMax Then 
		Exec( "Lprime_F13" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER1 + "€"
		Bases = PA1
		Tauxs = Valpanier1 - ValMax
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
		Valpanier1 = ValMax
	Endif
		Exec( "Lprime_F12" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER1 + "€"
		Bases = PA1
		Tauxs = Valpanier1
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
EndIf

//Traitement Panier montant 2
If PA2 <> 0 then
	Memo1 = "Variable utilisée pour frais : "
	Memo2 = "Valeur associée              : "
	Memo3 = "Valeur Maximum exonérée      : "
	Lib = "Indemnité de panier "
	Valpanier2 = Mtpart.PANIER2
	ValMax   = MtpartLegal.REPASEXT
	Memo1 = Memo1 + "PANIER2"
	Memo2 = Memo2 + Valpanier2
	Memo3 = Memo3 + ValMax

	If Valpanier2 > ValMax Then 
		Exec( "Lprime_F13" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER2 + "€"
		Bases = PA2
		Tauxs = Valpanier2 - ValMax
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
		Valpanier2 = ValMax
	Endif	
		Exec( "Lprime_F12" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER2 + "€"
		Bases = PA2
		Tauxs = Valpanier2
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
EndIf

//Traitement Panier montant 3
If PA3 <> 0 then
	Memo1 = "Variable utilisée pour frais : "
	Memo2 = "Valeur associée              : "
	Memo3 = "Valeur Maximum exonérée      : "
	Lib = "Indemnité de panier "
	Valpanier3 = Mtpart.PANIER3
	ValMax   = MtpartLegal.REPASEXT
	Memo1 = Memo1 + "PANIER3"
	Memo2 = Memo2 + Valpanier3
	Memo3 = Memo3 + ValMax

	If Valpanier3 > ValMax Then 
		Exec( "Lprime_F13" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER3 + "€"
		Bases = PA3
		Tauxs = Valpanier3 - ValMax
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
		Valpanier3 = ValMax
	Endif	
		Exec( "Lprime_F12" )
		methodeCalcul = 3
		Liblong = Lib + Mtpart.PANIER3 + "€"
		Bases = PA2
		Tauxs = Valpanier3
		Call rem ( Memo1 )
		Call Rem ( Memo2 )
		Call Rem ( Memo3 )
		Exec ("GenereLprime")
EndIf

End

Ensuite vous ajouter ce profil a votre PCCN01 pour que tout le monde en bénéficie ou individuellement aux salariés concernés

Il s’agira d’indiquer le nombre dans chaque colonne de la saisie des variables (Panier_1 , Panier_1 , Panier_3)

Bonne fin de journée.