romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

65
COMUN/programe/proc_calcule_salarii.prg Normal file
View File

@@ -0,0 +1,65 @@
*******************************************
* PROCEDURE calcul_brutcm( tnbazaCalcul, tnIdConc, tnziang, tnZicas, tnbrutAng, tnBrutCas )
* Date : 07/18/05, 10:36:57
* author : liana.macinic
* description: calcul brut concedii medicale
****** PARAMETER BLOCK **************
* Parameters : 6
* Parameter 1: baza de calcul
* Parameter 2: id-ul concediului din nomenclator, pentru a gasi formula de calcul
* Parameter 3: zile platite de angajator
* Parameter 4: zile platite din bass
* Parameter 5:
* Parameter 6:
*
*******************************************
PROCEDURE calcul_brutcm( tnbazaCalcul, tnIdConc, tnziang, tnZicas,tnC_vechime, tnbrutAng, tnBrutCas )
*!* IF !USED('v_nomcm')
*!* DO update_nomcm IN update_salarii.prg
*!* ENDIF
SELECT v_nomcm
LOCATE FOR id_cm = tnIdConc
SCATTER NAME ocm
*!* IF ocm.ingrijire = 0
tnbrutAng = ROUND(ocm.coef * tnbazaCalcul * (IIF(ocm.cuvechime = 1,1 + tnC_vechime,1))*tnziang,gnPs)
tnBrutCas = ROUND(ocm.coef * tnbazaCalcul * (IIF(ocm.cuvechime = 1,1 + tnC_vechime,1))*tnZicas,gnPs)
*!* ENDIF
ENDPROC
*----------------------------------sfarsit procedura calcul_brutcm----------------------------------
*******************************************
* PROCEDURE calcul_brutco( tnbazaCO, tnZile, tnCvechime, )
* Date : 07/19/05, 11:47:27
* author : liana.macinic
* description: tnbazaco
****** PARAMETER BLOCK **************
* Parameters :
* Parameter 1:
* Parameter 2:
* Parameter 3:
* Parameter 4:
*
*******************************************
PROCEDURE calcul_brutco( tnbazaCO, tnZile,tnZileTot, tnC_vechime,tnBrutCo,tnBrutCoTot )
IF INLIST(gnSAL_TIPINDCO,1 ,3)
tnBrutCo = ROUND(tnbazaCO *tnZile,gnPs)
tnBrutCoTot = ROUND(tnbazaCO * tnZileTot,gnPs)
ELSE
IF gnSAL_TIPINDCO = 2
tnBrutCo = ROUND(1 * tnbazaCO *tnZile,gnPs)
tnBrutCoTot = ROUND(1 * tnbazaCO *tnZileTot,gnPs)
ELSE
*!* (porec.bazaco,porec.ZILECOLUNA,porec.ZILECOTOT,porec.C_vechime,@pnBrutCO,@pnBrutCOtot
tnBrutCo = ROUND(1 * tnbazaCO * (1 + tnC_vechime)*tnZile,gnPs)
tnBrutCoTot = ROUND(1 * tnbazaCO * (1 + tnC_vechime)*tnZileTot,gnPs)
ENDIF
ENDIF
ENDPROC
*----------------------------------sfarsit procedura calcul_brutco----------------------------------