Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
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
This commit is contained in:
214
Programe/onom_clienti.prg
Normal file
214
Programe/onom_clienti.prg
Normal file
@@ -0,0 +1,214 @@
|
||||
*******************************************
|
||||
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*******************
|
||||
|
||||
|
||||
Reference in New Issue
Block a user