Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
215 lines
6.7 KiB
Plaintext
215 lines
6.7 KiB
Plaintext
*******************************************
|
|
Procedure viz_delegati
|
|
Lparameters tnidpartener
|
|
Private podelegati,pcschema1,pcselect1,odetalii
|
|
LOCAL llAfiseaza
|
|
Store '' To podelegati
|
|
If Used('v_delegati')
|
|
Use In v_delegati
|
|
Endif
|
|
pcschema1=['']
|
|
pcselect1=['select * from ] + gcS + [.vnom_delegati where 1=2']
|
|
pcorder1 = [nume]
|
|
*!* pcfiltru1=[sters=0]
|
|
pcfiltru1=[1=2]
|
|
llAfiseaza=.F.
|
|
gencursor('podelegati','v_delegati',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
|
podelegati.ca_baza1.afisare()
|
|
ofrmdelegati=Createobject('frm_delegati',tnidpartener)
|
|
ofrmdelegati.Show(1)
|
|
|
|
Select v_delegati
|
|
Scatter Name odetalii
|
|
Use In v_delegati
|
|
Release podelegati
|
|
Return odetalii
|
|
ENDPROC && viz_delegati
|
|
**********************sfarsit procedura viz_delegati*******************
|
|
******************************************* INCEPUT:viz_responsabili *******************************************
|
|
PROCEDURE viz_responsabili( )
|
|
|
|
PRIVATE poresponsabili, pcschema1, pcselect1
|
|
STORE '' TO poresponsabili
|
|
pcschema1 = ['']
|
|
pcselect1=['select * from ] + gcS + [.vnom_responsabili where 1=2']
|
|
pcorder1=[nume]
|
|
pcfiltru1 = [2=2]
|
|
llAfiseaza = .F.
|
|
gencursor('poresponsabili','v_responsabili',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
|
poresponsabili.ca_baza1.afisare()
|
|
ofrmres=CREATEOBJECT('frm_responsabili')
|
|
ofrmres.SHOW(1)
|
|
RELEASE poresponsabili
|
|
|
|
|
|
ENDPROC && viz_responsabili
|
|
******************************************* SFARSIT: viz_responsabili *******************************************
|
|
Procedure viz_curs
|
|
|
|
Private poCurs
|
|
Store '' To poCurs
|
|
|
|
Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza
|
|
lcSchema1 = ['id_curs N(10), nume_val C(10), curs N(10,4), data D(8), data2 D(8), id_valuta N(5)']
|
|
lcSelect1 = [select id_curs, nume_val, curs, data, data2, id_valuta from ] + gcS + [.vcrm_curs]
|
|
lcOrder1 = [data desc]
|
|
lcFiltru1 = [1=2]
|
|
lcFiltruOriginal = []
|
|
llModParam = .T.
|
|
llAfiseaza = .F.
|
|
lcgroup = []
|
|
*gencursor('poCurs','cIntermediar', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
gencursor('poCurs','tCurs', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
poCurs.ca_baza1.afisare()
|
|
|
|
Select tCurs
|
|
lovc = Createobject("frm_curs")
|
|
lovc.Show(1)
|
|
|
|
Release poCurs
|
|
|
|
Endproc && viz_curs
|
|
***-----------------------------------------------------------------------------------------------------------------------------
|
|
Procedure viz_tipc
|
|
|
|
Private poTipc
|
|
Store '' To poTipc
|
|
|
|
Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza
|
|
lcSchema1 = ['']
|
|
lcSelect1 = [select * from ] + gcS + [.crm_tipc]
|
|
lcOrder1 = [id_tipc]
|
|
lcFiltru1 = [2=2]
|
|
lcFiltruOriginal = []
|
|
llModParam = .T.
|
|
llAfiseaza = .F.
|
|
lcgroup = []
|
|
gencursor('poTipc','tTipc', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
poTipc.ca_baza1.afisare()
|
|
|
|
Select tTipc
|
|
lotc = Createobject("frm_tipc")
|
|
lotc.Show(1)
|
|
|
|
Release poTipc
|
|
|
|
Endproc && viz_tipc
|
|
***-----------------------------------------------------------------------------------------------------------------------------
|
|
********* Inceput: viz_articole
|
|
Procedure viz_articole
|
|
|
|
Private poArticole
|
|
Store '' To poArticole
|
|
|
|
Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza
|
|
lcSchema1 = ['']
|
|
lcSelect1 = [select * from ] + gcS + [.nom_articole]
|
|
lcOrder1 = [denumire]
|
|
lcFiltru1 = [1=2]
|
|
lcFiltruOriginal = []
|
|
llModParam = .T.
|
|
llAfiseaza = .F.
|
|
lcgroup = []
|
|
gencursor('poArticole','tArticole', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
poArticole.ca_baza1.afisare()
|
|
|
|
of_art = Createobject('frm_articole')
|
|
of_art.Show(1)
|
|
|
|
Endproc
|
|
********* Sfarsit: viz_articole
|
|
******************************************************************************************************************
|
|
Procedure viz_clienti()
|
|
Private poClie,pcschema1,pcselect1
|
|
Local llAfiseaza
|
|
Store .F. To llAfiseaza
|
|
Store '' To poClie
|
|
If Used('v_clie')
|
|
Use In v_clie
|
|
Endif
|
|
|
|
pcschema1=['']
|
|
pcselect1=['select b.* from vcoresp_tip_part a left join vnom_parteneri b '+]+;
|
|
['on a.id_part=b.id_part where a.id_tip_part=16 and b.inactiv=0']
|
|
pcorder1=[b.nume]
|
|
pcfiltru1 = [1 = 2]
|
|
llAfiseaza = .F.
|
|
gencursor('poclie','v_clie',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
|
poClie.ca_baza1.afisare()
|
|
|
|
ofrmclienti=Createobject('frm_clienti')
|
|
ofrmclienti.Show(1)
|
|
Release ofrmclienti,poClie
|
|
Endproc && viz_clienti
|
|
******************************************************************************************************************
|
|
******************************************************************************************************************
|
|
Procedure viz_agenti
|
|
Private poagenti,pcschema1,pcselect1
|
|
Local llAfiseaza
|
|
Store .F. To llAfiseaza
|
|
Store '' To poagenti
|
|
If Used('crsagenti')
|
|
Use In crstagenti
|
|
Endif
|
|
|
|
pcschema1=['']
|
|
pcselect1=['select * from ]+gcS+[.vnom_agenti where 2=2']
|
|
pcorder1=[nume_agent]
|
|
pcfiltru1 = [1 = 2]
|
|
llAfiseaza = .F.
|
|
gencursor('poagenti','crsagenti',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
|
|
poagenti.ca_baza1.afisare()
|
|
|
|
ofrmagenti=Createobject('frm_agenti')
|
|
ofrmagenti.Show(1)
|
|
Release ofrmtipuri,potipurieven
|
|
Endproc && viz_agenti
|
|
******************************************************************************************************************
|
|
*****************************************************************************
|
|
function cauta_zona
|
|
Lparameters tnIdZona,tcNumeZona
|
|
Local locauta,llReturn
|
|
Store "" To locauta
|
|
Store .F. To llReturn
|
|
pcselect = ["select id_zona,zona from ] + gcS + [.crm_vzone where inactiv=0"]
|
|
pcfiltru = [1=2]
|
|
pcschema = ['']
|
|
pcorder = [2]
|
|
pccoloane = [Zona]
|
|
pcTitlu = [Zona]
|
|
pcTitluColoane = [Zona]
|
|
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
|
|
If !Empty(locauta.id_zona)
|
|
tnIdZona=locauta.id_zona
|
|
tcNumeZona=Alltrim(locauta.zona)
|
|
llReturn=.T.
|
|
Endif
|
|
Return llReturn
|
|
Endfunc && cauta_zona
|
|
*****************************************************************************
|
|
Procedure update_clienti( )
|
|
LPARAMETERS tnid_partener
|
|
|
|
LOCAL lcFiltru
|
|
IF !EMPTY(tnid_partener)
|
|
lcFiltru = [ and p.id_part=]+ALLTRIM(STR(tnid_partener))
|
|
ELSE
|
|
lcFiltru = []
|
|
ENDIF
|
|
If Used('v_clienti')
|
|
Use In v_clienti
|
|
Endif
|
|
|
|
lcSql = [select distinct p.nume, p.cod_fiscal, p.id_part FROM ] + gcS + [.vcoresp_tip_part p ] + ;
|
|
[join ] + gcS + [.vcoresp_tip_cont c on p.id_tip_part=c.id_tip_part where c.cont ='4111' ] + ;
|
|
[and p.inactiv=0 ]+lcFiltru+[ order by p.nume ]
|
|
lcCursor = 'v_clienti'
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
goExecutor.oReset()
|
|
Return lnSucces
|
|
|
|
Endproc
|
|
**********************sfarsit procedura update_clienti*******************
|
|
|
|
|