**********************************************************
PROCEDURE update_nomenclator

	*!*	DO update_coresp_tip_part
	*!*	DO update_coresp_tip_cont
	DO update_lunilean

	*** tabele meniu deschise din proiect
	LOCAL lcCaleDateMenu

	lcCaleDateMenu=gcAppPath+[DATEMENU\]

	IF !USED('XREQUEST')
		USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST
	ENDIF
	IF !USED('xitems')
		USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems
	ENDIF
	IF !USED('YACT')
		USE &lcCaleDateMenu.YACT IN 0 ALIAS YACT
	ENDIF
	IF !USED('XSETS')
		USE &lcCaleDateMenu.XSETS IN 0 ALIAS XSETS ORDER TAG ID_SET
	ENDIF
	IF !USED('xACT')
		USE &lcCaleDateMenu.xACT IN 0 ALIAS xACT
	ENDIF
	IF !USED('xnote')
		USE &lcCaleDateMenu.xnote IN 0 ALIAS xnote
	ENDIF

	IF !USED('menu1')
		USE &lcCaleDateMenu.menu1 IN 0 ALIAS menu1 EXCL
	ENDIF

	IF !USED('INFISIERE')
		USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
	ENDIF

	IF !USED('nom_meniu')
		USE &lcCaleDateMenu.nom_meniu IN 0 ALIAS nom_meniu
	ENDIF

	IF !USED('refaceri')
		USE &lcCaleDateMenu.refaceri IN 0 ALIAS refaceri
	ENDIF

	IF !USED('tabela_fisa_cont')
		USE &lcCaleDateMenu.tabela_fisa_cont IN 0 ALIAS tabela_fisa_cont
	ENDIF


ENDPROC && update_nomenclator

* PROCEDURE update_lunilean(  )
* Date : 06/10/2004, 13:27:54
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_lunilean*******************************************
PROCEDURE update_lunilean(  )
	
	IF USED('lunilean')
		USE IN lunilean
	ENDIF
	
	lcSql = [select * from contafin_oracle.lunilean]
	lcCursor = [lunilean]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_lunilean *******************************************


* PROCEDURE update_calendar(  )
* Date : 06/10/2004, 13:27:54
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_calendar *******************************************
PROCEDURE update_calendar(  )
	
	IF USED('calendar')
		USE IN calendar
	ENDIF
		
	lcSql = [select * from ] + gcS + [.calendar]
	lcCursor = [calendar]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_calendar *******************************************


* PROCEDURE update_firme(  )
* Date : 06/10/2004, 13:27:08
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_firme *******************************************
PROCEDURE update_firme(  )

	*** selectez firmele
	IF USED('v_firme')
		USE IN v_firme
	ENDIF
	
	lcSql = [select * from nom_firme order by firma]
	lcCursor = [v_firme]

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_firme *******************************************


* PROCEDURE update_utilizatori(  )
* Date : 06/10/2004, 13:26:23
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_utilizatori *******************************************
PROCEDURE update_utilizatori(  )
	
	IF USED('v_utilizatori')
		USE IN v_utilizatori
	ENDIF
		
	lcSql = [SELECT * from utilizatori]
	lcCursor = [v_utilizatori]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_utilizatori *******************************************

* PROCEDURE update_judete(  )
* Date : 11.10.2004, 15:24:02
* author : catalin.neagu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_judete *******************************************
PROCEDURE update_judete(  )
	
	IF USED('v_jud')
		USE IN v_jud
	ENDIF
	
	lcSql = [SELECT * from ] + gcS + [.vnom_judete]
	lcCursor = [v_jud]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	RETURN lnSucces
ENDPROC
******************************************* SFARSIT: update_judete *******************************************

**********************************************************************
PROCEDURE cclocalitati

	IF USED('v_nom_localitati')
		USE IN v_nom_localitati
	ENDIF
		
	lcSql = 'select id_loc,localitate from '+gcS+'.vnom_localitati order by localitate'
	lcCursor = 'v_nom_localitati'
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************
**************************
PROCEDURE cctipuri

	IF USED('v_nom_tip_parteneri')
		USE IN v_nom_tip_parteneri
	endif
	
	lcSql='select id_tip_part,tip_partener from '+gcS+'.vnom_tip_parteneri order by tip_partener' &&id_tip_part'
	lcCursor = 'v_nom_tip_parteneri'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************

* PROCEDURE update_coresp_tip_part(  )
* Date : 13/10/2004, 10:46:59
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_coresp_tip_part*******************************************
PROCEDURE update_coresp_tip_part(  )

	IF USED('coresp_tip_part')
		USE IN coresp_tip_part
	endif

	*** deschid corespondentele parteneri
	lcSql = [select * from ] + gcS + [.coresp_tip_part]
	lcCursor = [coresp_tip_part]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_coresp_tip_part*******************************************


* PROCEDURE update_coresp_tip_cont(  )
* Date : 13/10/2004, 10:49:03
* author : marius.mutu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_coresp_tip_cont *******************************************
PROCEDURE update_coresp_tip_cont(  )

	IF USED('coresp_tip_cont')
		USE IN coresp_tip_cont
	ENDIF
		
	lcSql = [select * from ] + gcS + [.coresp_tip_cont]
	lcCursor = [coresp_tip_cont]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_coresp_tip_cont *******************************************

PROCEDURE cctipuri_selectate
	LPARAMETERS tnId_part
	lnId_part = tnId_part
	
	IF USED('v_nom_tip_parteneri_selectati')
		USE IN v_nom_tip_parteneri_selectati
	endif
	
	lcSql='select id_tip_part,tip_partener from '+gcS+'.VCORESP_TIP_PART where id_part = '+ALLTRIM(STR(lnId_part))+ 'order by tip_partener '
	lcCursor = 'v_nom_tip_parteneri_selectati'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************

PROCEDURE cctipuri_selectate_NOU
	LPARAMETERS tnId_TIP_part
	lnId_TIP_part = tnId_TIP_part

	IF USED('v_nom_tip_parteneri_selectati')
		USE IN v_nom_tip_parteneri_selectati
	ENDIF
	
	lcSql='select id_tip_part,tip_partener from '+gcS+'.VNOM_TIP_PARTENERI where id_TIP_part = '+ALLTRIM(STR(lnId_TIP_part))+ 'order by tip_partener '
	lcCursor = 'v_nom_tip_parteneri_selectati'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************

PROCEDURE ccvalute
	IF USED('v_nom_valute')
		USE IN v_nom_valute
	ENDIF
		
	lcSql='select id_valuta,nume_val from '+gcS+'.vnom_valute order by nume_val'
	lcCursor = 'v_nom_valute'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC

***********************************************************************

PROCEDURE ccsectii

	IF USED('v_nom_sectii')
		USE IN v_nom_sectii
	ENDIF
	
	lcSql='select id_sectie,sectie from '+gcS+'.vnom_sectii order by sectie'
	lcCursor = 'v_nom_sectii'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************

PROCEDURE ccnorme
	IF USED('v_denop')
		USE IN v_denop
	ENDIF
	
	lcSql='select id_norme,denop from '+gcS+'.dev_vnorme order by denop'
	lcCursor = 'v_denop'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
***********************************************************************

PROCEDURE ccmecanici
	IF USED('v_mecanici')
		USE IN v_mecanici
	ENDIF
		
	lcSql='select id_mecanic,nume||CHR(32)||prenume as nume from '+gcS+'.dev_vmecanici order by nume'
	lcCursor = 'v_mecanici'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC

******************************************* SFARSIT: update_parteneri *******************************************
* PROCEDURE update_actper(  )
* Date : 09.11.2004, 09:33:32
* author : catalin.neagu
* description:

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:update_actper *******************************************
PROCEDURE update_actper(tnCod)
	IF USED('actact')
		USE IN actact
	ENDIF
	
	lcCod = ALLTRIM(STR(tnCod))
	lcSql = [SELECT * from ] + gcS + [.vact where cod = ] + lcCod
	lcCursor = [ACTACT]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()

	IF lnSucces>0
		SELECT * FROM actact INTO CURSOR actactan READWRITE
	ENDIF
	IF USED('actact')
		USE IN actact
	ENDIF
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_actper *******************************************


* PROCEDURE Get_Lista_Act
* Date : 09/11/2004, 15:05:42
* author : marius.mutu
* description: creeaza o lista cu campurile din act

****** PARAMETER BLOCK **************
* Parameters : 0
*
******************************************* INCEPUT:Get_Lista_Act*******************************************
PROCEDURE Get_Lista_Act
	LOCAL lcLista
	lcLista = []
	IF USED('crs_act')
		USE IN crs_act
	ENDIF

	lcSql = [select * from ] + gcS + [.ACT WHERE 1=2]
	lcCursor = [CRS_ACT]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	goExecutor.oReset()
	IF lnSucces < 0
		MESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
	ENDIF
	IF lnSucces > 0
		SELECT CRS_ACT
		lnCount = FCOUNT()
		FOR i = 1 TO lnCount
			SELECT CRS_ACT
			lcFieldName = UPPER(ALLTRIM(FIELD(i)))
			lcLista = lcLista + [,] + lcFieldName
		ENDFOR
		lcLista = SUBSTR(lcLista,2)
	ENDIF
	IF USED('crs_Act')
		USE IN CRS_ACT
	ENDIF

	RETURN lcLista
ENDPROC
******************************************* SFARSIT: Get_Lista_Act *******************************************


* PROCEDURE update_optiuni(  )
* Date : 15.11.2004, 10:08:49
* author : catalin.neagu
* description: 

****** PARAMETER BLOCK **************
* Parameters : 0
* 
******************************************* INCEPUT:update_optiuni *******************************************
PROCEDURE update_optiuni(  )
	IF USED('v_optiuni')
		USE IN v_optiuni
	ENDIF

	lcSql='select * from '+gcS+'.optiuni order by varname'
	lcCursor = 'v_optiuni'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT: update_optiuni *******************************************

******************************************* INCEPUT:update_exceptii_ireg **************************************
PROCEDURE update_exceptii_ireg(  )

	lcSql = [select * from ] + gcS + [.exceptii_ireg]
	lcCursor = [exceptii_ireg]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT:update_exceptii_ireg ***************************************

******************************************* INCEPUT:update_cote_TVA **************************************
PROCEDURE update_cote_TVA(  )

	lcSql = [select * from ] + gcS + [.cote_TVA where an =] + pcAn + [ and luna = ] + pcNl
	lcCursor = [cote_TVA]
	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
	RETURN lnSucces

ENDPROC
******************************************* SFARSIT:update_cote_TVA ***************************************

*******************************************
* PROCEDURE update_optiuni_util(  )
* Data/ora : 02/11/05, 11:07:19
* autor : liana.macinic
* descriere: 

****** PARAMETER BLOCK **************
* Parametri : 0
* 
*******************************************
PROCEDURE update_optiuni_util(  )
	IF USED('v_optiuni_util')
		USE IN v_optiuni_util
	ENDIF

	lcSql='select * from optiuni_util where id_util = '+ALLTRIM(STR(gnIdUtil)) + [ or id_util = 0  order by varname]
	lcCursor = 'v_optiuni_util'

	lnSucces = goExecutor.oExecute(lcSql,lcCursor)
*!*		MESSAGEBOX('v_optiuni_util')
	RETURN lnSucces
	
ENDPROC

**********************sfarsit procedura update_optiuni_util*******************