*******************************************
* 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----------------------------------