66 lines
2.2 KiB
Plaintext
66 lines
2.2 KiB
Plaintext
*******************************************
|
|
* 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----------------------------------
|
|
|
|
|