romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

437
Programe/onom_devize.prg Normal file
View File

@@ -0,0 +1,437 @@
*******************************************
* PROCEDURE viz_mecanici( )
* Data/ora : 12/14/04, 14:16:18
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_mecanici( )
Private pomecanici,pcschema1,pcselect1
Store '' To pomecanici
If Used('v_mecanici')
Use In v_mecanici
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vmecanici where 1=2']
pcorder1=[nume,prenume]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('pomecanici','v_mecanici',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
pomecanici.ca_baza1.afisare()
ofrmmecanici=Createobject('frm_mecanici')
ofrmmecanici.Show(1)
Release pomecanici
Endproc
**********************sfarsit procedura viz_mecanici*******************
*******************************************
* PROCEDURE viz_asiguratori( )
* Data/ora : 12/15/04, 15:57:12
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_asiguratori( )
&&code goes here
Local lnIdAsigurator
Private poasiguratori,pcschema1,pcselect1
Store '' To poasiguratori
If Used('v_asiguratori')
Use In v_asiguratori
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vasiguratori where 1=2']
pcorder1=[asigurator]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('poasiguratori','v_asiguratori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
poasiguratori.ca_baza1.afisare()
Select v_asiguratori
Go Top
lnIdAsigurator=id_asigurator
Private poinspector,pcschema2,pcselect2
Store '' To poinspector
If Used('v_inspectori')
Use In v_inspectori
Endif
pcschema2=['']
pcselect2=['select * from ] + gcS + [.auto_vinspectori where 1=2']
pcorder2=[inspector]
pcfiltru2 = [id_asigurator=]+Alltrim(Str(lnIdAsigurator))
llAfiseaza = .F.
gencursor('poinspector','v_inspectori',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
poinspector.ca_baza1.afisare()
ofrmasig=Createobject('frm_asiguratori')
ofrmasig.Show(1)
Release poasiguratori
Endproc
**********************sfarsit procedura viz_asiguratori*******************
*******************************************
* PROCEDURE viz_masini_marci( )
* Data/ora : 12/16/04, 09:15:00
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_masini_marci()
Lparameters tlReturn
Local llReturn
Private pomarci,pcschema1,pcselect1
Store '' To pomarci
If !Empty(tlReturn)
llReturn=tlReturn
Else
llReturn=.F.
Endif
If Used('v_marci')
Use In v_marci
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vmarci where 1=2']
pcorder1=[marca]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('pomarci','v_marci',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
pomarci.ca_baza1.afisare()
Private pomasini,pcschema2,pcselect2
Store '' To pomasini
If Used('v_masini')
Use In v_masini
Endif
pcschema2=['']
pcselect2=['select * from ] + gcS + [.auto_vmasini where 1=2']
pcorder2=[masina]
pcfiltru2 = [2=2]
llAfiseaza = .F.
gencursor('pomasini','v_masini',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
pomasini.ca_baza1.afisare()
SELECT v_masini
SET FILTER TO id_marca=v_marci.id_marca
ofrmmarcimasini=Createobject('frm_marci_masini')
ofrmmarcimasini.lreturnval=llReturn
ofrmmarcimasini.Show(1)
Release pomasini,pomarci
Endproc
**********************sfarsit procedura viz_masini_marci*******************
*******************************************
* PROCEDURE viz_delegati( )
* Data/ora : 12/16/04, 09:40:39
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
*!* Procedure viz_delegati
*!* Lparameters tnidpartener,tcpartener
*!* Private podelegati,pcschema1,pcselect1,odetalii
*!* LOCAL llAfiseaza
*!* Store '' To podelegati
*!* If Used('v_delegati')
*!* Use In v_delegati
*!* Endif
*!* pcschema1=['']
*!* pcselect1=['select * from ] + gcS + [.dev_vdelegati where 1=2']
*!* pcorder1=[delegat]
*!* *!* 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,tcpartener)
*!* ofrmdelegati.Show(1)
*!* Select v_delegati
*!* Scatter Name odetalii
*!* Use In v_delegati
*!* Release podelegati
*!* Return odetalii
*!* Endproc
**********************sfarsit procedura viz_delegati*******************
*******************************************
* PROCEDURE viz_norme( )
* Data/ora : 12/16/04, 10:39:24
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_norme( )
Private ponorme,pcschema1,pcselect1
Store '' To ponorme
If Used('v_norme')
Use In v_norme
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vnorme where 1=2']
pcorder1=[masina,denop]
pcfiltru1 = [1=2]
llAfiseaza = .F.
gencursor('ponorme','v_norme',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
ponorme.ca_baza1.afisare()
ofrmnorme=Createobject('frm_norme')
ofrmnorme.Show(1)
Release ponorme
Endproc
**********************sfarsit procedura viz_norme*******************
*******************************************
* PROCEDURE viz_ansamble( )
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_ansamble( )
Private ponorme,pcschema1,pcselect1
Store '' To poansamble
If Used('v_ansamble')
Use In v_ansamble
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vansamble where 1=2']
pcorder1=[denumire]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('poansamble','v_ansamble',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
poansamble.ca_baza1.afisare()
ofrmansamble=Createobject('frm_ansamble')
ofrmansamble.Show(1)
Release poansamble,ofrmansamble
Endproc
**********************sfarsit procedura viz_norme*******************
*******************************************
* PROCEDURE viz_preturi( )
* Data/ora : 12/16/04, 11:15:21
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_preturi( )
Private popreturi,pcschema1,pcselect1
Store '' To popreturi
If Used('v_preturi')
Use In v_preturi
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vpreturi where 1=2']
pcorder1=[marca]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('popreturi','v_preturi',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
popreturi.ca_baza1.afisare()
ofrmpreturi=Createobject('frm_preturi')
ofrmpreturi.Show(1)
Release popreturi
Endproc
**********************sfarsit procedura viz_preturi*******************
*******************************************
* PROCEDURE viz_clienti( )
* Data/ora : 12/27/04, 10:07:39
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_clienti( )
lparameters tlDoarMasiniActive && modificare v 2.1.1
Private poclie,pcschema1,pcselect1
Local llAfiseaza
Store .F. To llAfiseaza
Store '' To poclie
If Used('v_clie')
Use In v_clie
Endif
pcschema1=['id_part N(20),denumire C(254),nume C(254),prenume C(254),cod_fiscal C(254),reg_comert C(254),id_loc_inreg N(20),id_categorie_entitate N(20),'+] + ;
['localitate_inreg C(254),prefix C(254),sufix C(254),tip_persoana N(20),banca C(254),cont_banca C(254),motiv_inactiv C(254),inactiv N(1),'+] + ;
['eliberatde C(254),dataeliberat d,id_adresa N(20),adresa C(254),telefon C(254),telefon2 C(254),id_loc N(20),localitate C(254),'+] + ;
['judet C(254),id_judet N(20),sector N(4),apart C(254),etaj C(254),scara C(254),bloc C(254),strada C(254),numar C(254),codpostal C(254),'+] + ;
['categorie_entitate C(254)']
pcselect1=[select b.id_part,b.denumire,b.nume,b.prenume,b.cod_fiscal,b.reg_comert,b.id_loc_inreg,b.id_categorie_entitate,b.localitate_inreg,b.prefix,] + ;
[b.sufix,b.tip_persoana,b.banca,b.cont_banca,b.motiv_inactiv,b.inactiv,b.eliberatde,b.dataeliberat,b.id_adresa,b.adresa,b.telefon,b.telefon2,b.id_loc,] + ;
[b.localitate,b.judet,b.id_judet,b.sector,b.apart,b.etaj,b.scara,b.bloc,b.strada,b.numar,b.codpostal,b.categorie_entitate ] + ;
[from ]+gcS+[.coresp_tip_part a left join ]+gcS+[.vnom_parteneri b ]+;
[on a.id_part=b.id_part where a.id_tip_part in ] + ;
[(select id_tip_part from coresp_tip_cont where cont = ?gcCont411) 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()
Private pomasini,pcschema2,pcselect2
Store '' To pomasini
If Used('v_masiniclie')
Use In v_masiniclie
Endif
pcschema2=['']
*!* modificare v 2.1.1
If tlDoarMasiniActive
pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
['(select id_part from nom_parteneri where sters = 1 or inactiv = 1) and inactiv=0']
Else
*!* modificare v 2.1.1 ^
pcselect2=['select * from ] + gcS + [.auto_vmasiniclienti where id_partener not in '+]+;
['(select id_part from nom_parteneri where sters = 1 or inactiv = 1)']
*!* modificare v 2.1.1
Endif
*!* modificare v 2.1.1 ^
pcorder2=[masina]
pcfiltru2 = [1 = 2]
llAfiseaza = .F.
gencursor('pomasini','v_masiniclie',pcselect2,pcfiltru2,pcschema2,pcorder2,llAfiseaza)
pomasini.ca_baza1.afisare()
Select v_clie
ofrmclienti=Createobject('frm_dev_clienti',tlDoarMasiniActive) && modificare v 2.1.1
*!* IF gnNivelUtilizator=0
*!* ofrmclienti.cmd_modifica1.visible=.T.
*!* ENDIF
ofrmclienti.Show(1)
Release popreturi
Select v_masiniclie
Scatter Name omclie
Return omclie
Endproc
**********************sfarsit procedura viz_clienti*******************
*******************************************
* PROCEDURE viz_dealeri( )
* Data/ora : 01/03/05, 16:51:46
* autor : liana.macinic
* descriere:
Procedure viz_dealeri( )
Private podealeri,pcschema1,pcselect1
Store '' To podealeri
If Used('v_furnizori')
Use In v_furnizori
Endif
pcschema1=['']
pcselect1=['select * from ] + gcS + [.auto_vfurnizori where 1=2']
pcorder1=[denumire]
pcfiltru1 = [2=2]
llAfiseaza = .F.
gencursor('podealeri','v_furnizori',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
podealeri.ca_baza1.afisare()
ofrmdealeri=Createobject('frm_dealeri')
ofrmdealeri.Show(1)
Release podealeri
Endproc
**********************sfarsit procedura viz_dealeri*******************
*------------------------------inceput procedura viz_responsabili-----------------------------------------
* PROCEDURE viz_responsabili( )
* Data : 03/29/05, 10:05:19
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parameters : 0
*
*******************************************
*!* PROCEDURE viz_resp( )
*!* Local lnIdResp
*!* Private poResp,pcschema1,pcselect1
*!* Store '' To poResp
*!* If Used('v_Resp')
*!* Use In v_Resp
*!* Endif
*!* pcschema1=['']
*!* pcselect1=['select * from ] + gcS + [.dev_vnom_resp where 1=2']
*!* pcorder1=[ales]
*!* pcfiltru1 = [2=2]
*!* llAfiseaza = .F.
*!* gencursor('poResp','v_Resp',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfiseaza)
*!* poResp.ca_baza1.afisare()
*!* Select v_Resp
*!* Go Top
*!* lnIdResp=id_Resp
*!* ofrmResp=Createobject('frm_Resp')
*!* ofrmResp.Show(1)
*!* Release poResp
*!* ENDPROC
*------------------------------sfarsit procedura viz_responsabili-----------------------------------------
***********************************************************************
Procedure caut_marci_masini
Parameters tnPornire, tlDesktop,tlToateIreg
Local lcCont, loCauta, lnPornire, llDesktop
lnPornire = tnPornire && 1-incepe cu...6-toate
llDesktop = tlDesktop
Store "" To loCauta
lcSelect = [select id_marca, marca FROM ] + gcS + [.auto_vmarci ]
lcFiltru = [1=2]
lcSchema = []
lcOrder = [marca]
lccoloane = [marca]
lcTitlu = [Alegeti marca]
lcTitluColoane = [Marca]
lcFiltruOriginal = [inactiv = 0]
lcNumeProc = []
If Empty(tlToateIreg)
llToateIreg = .F.
Else
llToateIreg = tlToateIreg
Endif
loCauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal,,lnPornire,,,llDesktop)
Return loCauta
Endproc && caut_marci_masini
***********************************************************************

1156
Programe/oproceduri_analize.prg Normal file
View File

File diff suppressed because it is too large Load Diff

1795
Programe/oproceduri_devize.prg Normal file
View File

File diff suppressed because it is too large Load Diff

2051
Programe/oproceduri_listari.prg Normal file
View File

File diff suppressed because it is too large Load Diff

940
Programe/oproceduri_vizualizare.prg Normal file
View File

@@ -0,0 +1,940 @@
*!* 19.08.2014
*!* marius.mutu
*!* vizualizeaza_detalii_comanda: adaugat campul UM
Procedure distribuire_timp_normat
*!* Local lcFiltru,lcSql,lnSucces
*!* lcFiltru = Strtran(gcCondLuna,Chr(39),Chr(63))
*!* lcSql=[begin pack_devize.dev_distribuie_timp_n('] + Alltrim(gcS) + [',']+Alltrim(lcFiltru)+['); end;]
LOCAL lcSql,lnSucces
lcSql = [begin pack_auto.dev_distribuie_timp_n(?gnLuna,?gnAn); end;]
lnSucces=goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,'Eroare')
Return
Endif
Endproc
**********************************************************************************
Procedure emitere_facturi
If glLunaInchisa
amessagebox("Nu puteti emite facturi, deoarece aceasta luna este inchisa!",0+48,"Luna inchisa")
Return
Endif
*!* *---------------------------------
*!* lcSql = [select a.id_ordl,a.id_lucrare,a.luna,a.an,a.datai,a.validat,a.dataoravalid,b.manopera,b.materiale,;
*!* a.nume,a.nrord,a.nrinmat,a.asigurator,a.inspector,a.util_valid,a.numar,a.tip_incas,a.id_masiniclient,;
*!* b.facturat,b.datafact;
*!* from ] + gcs + [.dev_vordl a left join ] + gcs +[.dev_vordl_manmat b on a.id_ordl = b.id_ordl]
*!* lnSucces=goExecutor.oExecute(lcSql,'crsMater')
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,'Eroare')
*!* ENDIF
*!* SELECT crsMater
*!* BROWSE
*!* *-----------------------------------
Private pcValoare1,pcValoare2,pcIntre,pnCriteriu, pnCriteriu2, pcFiltruOra,pcFiltruVfp
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
pcValoare1 = ""
pcValoare2 = ""
pnCriteriu = 1
pnCriteriu2 = 1
pcIntre = ""
pcFiltruOra = ""
pcFiltruVfp = ""
Do Form frm_filtru_text With "nrord","Nr. comanda",pnCriteriu,pnCriteriu2 To pcFiltruOra
If Used('crscomenzi')
Use In crscomenzi
Endif
*!* pcschema=['ID_ORDL n(10),ID_LUCRARE n(10),DATAI d,VALIDAT n(1),DATAORAVALID t,MANOPERA n(20,4),MATERIALE n(20,4),'+]+;
*!* ['NUME c(50),NRORD c(30),NRINMAT c(10),ASIGURATOR c(24),INSPECTOR c(24),UTIL_VALID c(30),FACTURAT n(1),DATAFACT d,'+]+;
*!* ['NRFACT n(15),ID_MASINICLIENT n(8),ID_PARTENER n(5),TIP_COMANDA c(50)']
*!* pcselect=['select a.id_ordl,a.id_lucrare,a.datai,a.validat,a.dataoravalid,a.manopera,a.materiale,a.nume,'+]+;
*!* ['a.nrord,a.nrinmat,a.asigurator,a.inspector,a.util_valid,a.facturat,a.datafact,a.nrfact,a.id_masiniclient,'+]+;
*!* ['a.id_partener,a.tip_comanda '+]+;
*!* ['from ] + gcS + [.dev_vvalid_comenzi a '+]+;
*!* ['where 1=2']
pcschema=['']
pcselect=['select 0 as ales,a.* from ] + gcS + [.auto_validare_comenzi a '+]+;
['where 1=2']
IF !EMPTY(pcFiltruora)
* TIP = 1 POST GARANTIE, 2 = GARANTIE
pcfiltru = gcCondLuna + [ and a.inchis_fortat = 0 and a.id_tip IN (1,2) ] + pcFiltruOra
ELSE
pcfiltru = [1=2]
ENDIF
pcorder=[datai,nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
Select crscomenzi
ofrmfacturare=Createobject('frm_emitere_facturi')
*!* modificare v 2.0.17
If !Empty(pcFiltruOra)
With ofrmfacturare.ck_nrord
.cValoare1 = pcValoare1
.cValoare2 = pcValoare2
.criteriu = pnCriteriu
.criteriu2 = pnCriteriu2
.cIntre = pcIntre
.filtru = pcFiltruOra
.filtru_vfp = pcFiltruVFP
.Value = 1
Endwith
Endif
*!* modificare v 2.0.17 ^
ofrmfacturare.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi,ofrmfacturare
Endproc && emitere_facturi
*****************************************************************************************
**********************************************************************************
Procedure inchidere_regie
Private pnVar
STORE 0 TO pnVar
goExecutor.oFunction2Value("pack_auto.getOptiuneInchidere(3)",@pnVar)
If Nvl(pnVar,1) = 1
amessagebox("Comenzile de regie se inchid automat la validare!",0+48,"Atentie")
Return
Endif
If glLunaInchisa
amessagebox("Nu puteti inchide comenzi de regie, deoarece aceasta luna este inchisa!",0+48,"Luna inchisa")
Return
Endif
Private pcValoare1,pcValoare2,pcIntre,pnCriteriu, pnCriteriu2, pcFiltruOra, pcFiltruVFP
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
pcValoare1 = ""
pcValoare2 = ""
pnCriteriu = 1
pnCriteriu2 = 1
pcIntre = ""
pcFiltruOra = ""
pcFiltruVFP = ""
Do Form frm_filtru_text With "nrord","Nr. comanda",pnCriteriu,pnCriteriu2 To pcFiltruOra
If Used('crscomenzi')
Use In crscomenzi
Endif
pcschema=['']
pcselect=['select * from ] + gcS + [.auto_validare_comenzi a '+]+;
['where 1=2']
IF !EMPTY(pcFiltruora)
pcfiltru = gcCondLuna + [ and a.id_tip=3 ] + pcFiltruOra
ELSE
pcfiltru = [1=2]
ENDIF
pcorder=[datai,nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
Select crscomenzi
ofrmfacturare=Createobject('frm_inchidere_regie')
*!* modificare v 2.0.17
If !Empty(pcFiltruOra)
With ofrmfacturare.ck_nrord
.cValoare1 = pcValoare1
.cValoare2 = pcValoare2
.criteriu = pnCriteriu
.criteriu2 = pnCriteriu2
.cIntre = pcIntre
.filtru = pcFiltruOra
.filtru_vfp = pcFiltruVFP
.Value = 1
Endwith
Endif
*!* modificare v 2.0.17 ^
ofrmfacturare.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi,ofrmfacturare
Endproc && inchidere_regie
*****************************************************************************************
**********************************************************************************
Procedure inchidere_productie
Private pnVar
STORE 1 TO pnVar
goExecutor.oFunction2Value("pack_auto.getOptiuneInchidere(6)",@pnVar)
If Nvl(pnVar,1) = 1
amessagebox("Comenzile de productie se inchid automat la validare!",0+48,"Atentie")
Return
Endif
If glLunaInchisa
amessagebox("Nu puteti inchide comenzi de productie, deoarece aceasta luna este inchisa!",0+48,"Luna inchisa")
Return
Endif
Private pcValoare1,pcValoare2,pcIntre,pnCriteriu, pnCriteriu2, pcFiltruOra, pcFiltruVFP
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
pcValoare1 = ""
pcValoare2 = ""
pnCriteriu = 1
pnCriteriu2 = 1
pcIntre = ""
pcFiltruOra = ""
pcFiltruVFP = ""
Do Form frm_filtru_text With "nrord","Nr. comanda",pnCriteriu,pnCriteriu2 To pcFiltruOra
If Used('crscomenzi')
Use In crscomenzi
Endif
pcschema=['']
pcselect=['select * from ] + gcS + [.auto_validare_comenzi a '+]+;
['where 1=2']
IF !EMPTY(pcFiltruora)
pcfiltru = gcCondLuna + [ and a.id_tip=6 ] + pcFiltruOra
ELSE
pcfiltru = [1=2]
ENDIF
pcorder=[datai,nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
Select crscomenzi
ofrmfacturare=Createobject('frm_inchidere_productie')
*!* modificare v 2.0.17
If !Empty(pcFiltruOra)
With ofrmfacturare.ck_nrord
.cValoare1 = pcValoare1
.cValoare2 = pcValoare2
.criteriu = pnCriteriu
.criteriu2 = pnCriteriu2
.cIntre = pcIntre
.filtru = pcFiltruOra
.filtru_vfp = pcFiltruVFP
.Value = 1
Endwith
Endif
*!* modificare v 2.0.17 ^
ofrmfacturare.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi,ofrmfacturare
Endproc && inchidere_productie
*****************************************************************************************
Procedure vizualizare_facturi
Private pcselect,pcschema,pcfiltru,pcorder,pofacturi,llAfiseaza
Store '' To pofacturi
pcschema=['NRCRT n(5),ID_LUCRARE N(20),NRORD C(50),DATAI d,NUME c(50),TELEFON C(50),MANOPERA n(20,4),MATERIALE n(20,4),MANOPERA_DEVIZ n(20,4), MATERIALE_DEVIZ n(20,4),'+]+;
['ASIGURATOR c(24),INSPECTOR c(24),NR_DOSAR c(40),NRINMAT c(35),NRACT n(14),DATAACT d,VALCTVA n(19,2), ID_PART_REF N(20), PART_REF C(100)']
pcorder=[a.dataact,a.nract,a.datai,a.nrord]
*!* modificare 27.01
*!* pcselect=['select row_number() over (partition by a.nrord order by ] + pcorder + [) as nrcrt,'+]+;
*!* ['a.nrord,a.datai,a.nume,a.manopera,a.materiale,a.asigurator,'+]+;
*!* ['a.inspector,a.nrinmat,a.nrfact as nract,a.datafact as dataact,a.valctva '+]+;
*!* ['from ] + gcS + [.dev_validare_comenzi a '+]+;
*!* ['where 1=2']
pcselect=['select a.nrcrt,a.id_lucrare,a.nrord,a.datai,a.nume,a.telefon,a.manopera,a.materiale,a.manopera_deviz, a.materiale_deviz, a.asigurator,a.inspector,'+]+;
['a.nr_dosar,a.nrinmat,a.nract,a.dataact,a.valctva, a.id_part_ref, a.part_ref '+]+;
['from auto_facturi_emise a'+]+;
['where 1=2']
*!* *!* ['join ] + gcS + [.vireg_parteneri b on a.id_lucrare=b.id_lucrare '+]+;
*!* *!* pcfiltru=[b.luna=]+Alltrim(Str(gnLuna))+[ and b.an=]+Alltrim(Str(gnAn))
*!* *!* pcfiltru=[(extract(month from dataact) =]+Alltrim(Str(gnLuna))+[ and extract(year from dataact) =]+Alltrim(Str(gnAn))+[)]
pcFiltru=[1=2]
*!* *!* pcfiltru = gcCondLuna + [ and a.facturat = 1]
llAfiseaza=.F.
gencursor('pofacturi','crsfacturi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pofacturi.ca_baza1.afisare()
ofrmvizfact=Createobject('frm_viz_facturi')
ofrmvizfact.Show(1)
If Used('crsfacturi')
Use In crsfacturi
Endif
Release pofacturi
Endproc && vizualizare_facturi
*****************************************************************************************
Function vizualizeaza_detalii_comanda
Lparameters toFereastra,toComanda,tlDoarVizualizare
Local loFrmDetaliiComanda, lcSelect, lcSchema, lcFiltru, lcOrder, llAfiseaza, lnDoarVizualizare
Private plComandaM, poOper, poRul, poDevEst
Store '' To poOper, poRul, poDevEst
plComandaM = .F.
llAfiseaza = .F.
Do ccsectii In update_devize.prg
lcSchema=['ID_ORDL n(10),CODOP c(10),TIMPN n(9,3),PRET n(20,4),VALIDAT n(1),DENOP c(100),SECTIE c(100),DATAI d,ID_OPER N(20),NOU N(1)']
lcSelect=['select id_ordl,codop,timpn,pret,validat,denop,sectie,datai,id_oper,nou from ] + gcS + [.auto_voper where 1=2']
lcOrder=[datai,id_oper]
lcFiltru= [id_ordl = ]+Alltrim(Str(toComanda.id_ordl))+[ and ]+;
[extract(month from datai)+extract(year from datai)*12<=?gnLuna+?gnAn*12]
gencursor('pooper','oper',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
poOper.ca_baza1.afisare()
*!* am pus toComanda.proc_tvav in loc de pack_contafin.getCotaTVAStandard
*!* era pack_contafin.getCotaTVAStandard era pus pentru ca se poate schimba TVA-ul de la o luna la alta si pe factura trebuie sa am
*!* calculat tva-ul cu cota din luna curenta,nu cu cea din luna in care am facut bonul
*!* toComanda.proc_tvav se stabileste la crearea comenzii auto, se actualizeaza la validare si la facturare
lcSchema=['CODMAT c(50),DENUMIRE c(100),UM C(10),PRETV n(20,4),CANTE n(18,3),DATAACT D,ID_RUL n(20),COTA_DIFERITA n(1),TVA n(20,4),PRETCTVA n(20,4)']
*!* modificare v 2.0.41 : am adaugat pack_sesiune.calculeaza_pret_cu_tva
lcSelect=[select codmat,denumire,um,pretv,cante,dataact,id_rul,decode(proc_tvav,] + ALLTRIM(STR(toComanda.proc_tvav,10,4)) + [,0,1) as cota_diferita,] + ;
[pack_sesiune.calculeaza_pret_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ;
ALLTRIM(STR(toComanda.proc_tvav,10,4)) + [,0,2) as tva, ] + ;
[pack_sesiune.calculeaza_pret_cu_tva(pretv,1,pack_def.GetIdMonedaNationala(),] + ;
ALLTRIM(STR(toComanda.proc_tvav,10,4)) + [,0,2) as pretctva ] + ;
[from ] + gcS + [.vrul where 1=2']
lcOrder=[dataact,id_rul]
lcFiltru= [id_lucrare = ]+Alltrim(Str(toComanda.id_lucrare))+[ and cante <> 0 and ]+;
[luna+an*12<=?gnLuna+?gnAn*12]
gencursor('porul','rul',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
poRul.ca_baza1.afisare()
lcSchema=['DENUMIRE v(100),COD v(10),UM v(10),CANTITATE n(20,4),PRETFTVA n(20,4),PRETCTVA n(20,4),COTA_TVA n(10),VALOARE n(20,4),ID_DEV_ESTIMARE_REP n(20),ID_LUCRARE n(10),NRORD v(50),ID_NORME n(5),ID_ARTICOL n(20),PRET_CU_TVA n(1),VALFTVA n(20,4),VALTVA n(20,4)']
lcSelect=['select denumire,cod,um,cantitate,pretftva,pretctva,cota_tva,valoare,id_dev_estimare_rep,id_lucrare,nrord,id_norme,id_articol,pret_cu_tva,valftva,valtva from ] + gcS + [.auto_vestimari_rep where 1=2']
lcOrder=[id_dev_estimare_rep]
lcFiltru= [id_lucrare = ]+Alltrim(Str(toComanda.id_lucrare))
gencursor('podevest','v_devizest',lcSelect,lcFiltru,lcSchema,lcOrder,llAfiseaza)
poDevEst.ca_baza1.afisare()
lnDoarVizualizare = Iif(Empty(tlDoarVizualizare),1,Iif(tlDoarVizualizare,2,1))
toFereastra.AlwaysOnTop=.F.
loFrmDetaliiComanda = Createobject('frm_vizcomanda',lnDoarVizualizare,toComanda.Validat)
loFrmDetaliiComanda.Show(1)
toFereastra.AlwaysOnTop=.T.
Use In (Select('oper'))
Use In (Select('rul'))
Use In (Select('v_devizest'))
Release loFrmDetaliiComanda, lcSelect, lcSchema, lcFiltru, lcOrder, llAfiseaza, poOper, poRul, poDevEst,llDoarVizualizare
Return plComandaM
Endfunc
*****************************************************************************************
Procedure vizualizare_comenzi_regie
Private pcselect,pcschema,pcfiltru,pcorder,pofacturi,llAfiseaza
Store '' To pofacturi
pcschema=['NRCRT n(5),NRORD c(50),DATAI d,NUME c(50),MANOPERA n(20,4),MATERIALE n(20,4),'+]+;
['NRINMAT c(35),NRACT n(14),DATAACT d,TOTALFTVA n(19,2)']
pcorder=[a.datai,a.nrord]
pcselect=['select a.nrcrt,a.nrord,a.datai,a.nume,a.manopera,a.materiale,'+]+;
['a.nrinmat,a.nract,a.dataact,a.totalftva '+]+;
['from ]+gcS+[.auto_inchidere a'+]+;
['where 1=2']
pcFiltru=[1=2]
llAfiseaza=.F.
gencursor('pofacturi','crsfacturi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pofacturi.ca_baza1.afisare()
ofrmvizfact=Createobject('frm_viz_comenzi_regie')
ofrmvizfact.Show(1)
If Used('crsfacturi')
Use In crsfacturi
Endif
Release pofacturi
Endproc && vizualizare_comenzi_regie
*****************************************************************************************
Procedure normare_salarii
*!* If glLunaInchisa
*!* amessagebox("Nu puteti norma salariile, deoarece aceasta luna este inchisa!",0+48,"Luna inchisa")
*!* Return
*!* Endif
Local loTherm, lcTask, lnPercent
Private pcselect,pcschema,pcfiltru,pcorder,pomanopera,pomecanici,llAfiseaza
Store '' To pomanopera,pomecanici
If Used('crsmanopera')
Use In crsmanopera
Endif
If Used('crsmecanici')
Use In crsmecanici
Endif
loTherm = Newobject("_thermometer","_therm","","Manopera comenzi inchise...")
lcTask = "Incarcare date vizualizare"
_Screen.MousePointer= 11
*!* gofundal.AlwaysOnTop=.F.
With loTherm
.AlwaysOnTop=.T.
.Show()
lnPercent = 0
lcTask="Incarcare date mecanici..."
.Update(lnPercent, lcTask)
*!* =ccsectii()
=ccmecanici()
lnPercent = 20
.Update(lnPercent, lcTask)
pcschema=['NRORD c(50),DATAI d,ID_OPER n(10),TIMPN n(9,3),PRET n(20,4),ID_SECTIE n(5),SECTIE c(30),'+]+;
['DENOP c(100),UTIL c(30),DATAORA t,FACTURAT n(1),NRFACT N(14),DATAFACT d,TIP_COMANDA c(50)']
*!* pcselect=['select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,'+]+;
*!* ['c.facturat,c.nrfact,c.datafact '+]+;
*!* ['from ] + gcS + [.dev_vordl a '+]+;
*!* ['join ] + gcS + [.dev_voper b on a.id_ordl=b.id_ordl '+]+;
*!* ['left join ] + gcS + [.dev_vordl_facturat c on a.id_ordl=c.id_ordl '+]+;
*!* ['where 1=2']
*!* inlocuire dev_vvalid_comenzi
pcselect=['select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,'+]+;
['a.facturat,a.nrfact,a.datafact,a.tip_comanda '+]+;
['from ] + gcS + [.auto_normare_comenzi a '+]+;
['join ] + gcS + [.auto_voper b on a.id_ordl=b.id_ordl '+]+;
['where 1=2']
*!* pcfiltru=[a.luna=]+Alltrim(Str(gnLuna))+[ and a.an=]+Alltrim(Str(gnAn))+[ and a.facturat=1]
*!* pcFiltru = [extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn))+[ and a.facturat=1]
pcfiltru = gcCondLuna + [ and a.facturat = 1]
pcorder=[a.datai,a.nrord]
llAfiseaza=.F.
pcfiltru = [1=2]
gencursor('pomanopera','crsmanopera',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
If !glLunaInchisa
lnPercent = 30
lcTask="Distribuire timp normat..."
.Update(lnPercent, lcTask)
distribuire_timp_normat()
endif
*!* lcSql=[begin pack_devize.dev_distribuie_timp_n('] + Alltrim(gcS) + [',']+Alltrim(pcfiltru)+['); end;]
*!* lnSucces=goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,'Eroare')
*!* Endif
lnPercent = 60
lcTask="Incarcare date operatii comenzi..."
.Update(lnPercent, lcTask)
pomanopera.ca_baza1.afisare()
lnPercent = 90
lcTask="Incarcare date manopera..."
.Update(lnPercent, lcTask)
pcschema=['ID_OPERMECANIC n(10),ORE n(9,3),NUME c(100),ID_MECANIC n(5)']
pcselect=['select id_opermecanic,ore,nume||CHR(32)||prenume as nume,id_mecanic from ] + gcS + [.auto_voper_detalii_m '+]+;
['where 1=2']
pcfiltru=[1=2]
pcorder=[nume]
llAfiseaza=.F.
gencursor('pomecanici','crsmecanici',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
.Complete()
.AlwaysOnTop=.F.
Endwith
*!* gofundal.AlwaysOnTop=.T.
_Screen.MousePointer= 0
ofrmvizfact=Createobject('frm_normare_salarii')
ofrmvizfact.Show(1)
If Used('crsmecanici')
Use In crsmecanici
Endif
If Used('crsmanopera')
Use In crsmanopera
Endif
Release pocomenzi,pomanopera
Endproc && normare salarii
*****************************************************************************************
Procedure vizualizare_ist_comenzi
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
pcschema=['ID_ORDL n(10),ID_LUCRARE n(10),ID_MASINICLIENT n(8),ID_TIP n(5),DATAI d,'+]+;
['VALIDAT n(1),DATAORAVALID T,UTIL_VALID C(50),NRORD c(50),FACTURAT n(1),DATAFACT d,NRFACT N(14),'+]+;
['VALCTVA_FACTURA N(20,4),VAL_MANOPERA_FACTURA N(20,4),VAL_MATERIALE_FACTURA N(20,4),'+]+;
['VAL_MATERIALE_ACH N(20,4),VAL_MATERIALE_VZ N(20,4),ORE_MANOPERA N(20,4),VAL_MANOPERA N(20,4),'+]+;
['ID_PARTENER n(10),NRINMAT c(35),MASINA c(20),MARCA c(24),NUME c(50),'+]+;
['ASIGURATOR c(40),INSPECTOR c(40),NR_DOSAR c(40),TIP_COMANDA c(50),PROC_TVAV N(10,4), INCHIS_FORTAT N(1), DATAORAINCHIS T, UTIL_INCHIS C(30), ID_PART_REF N(20), PART_REF C(100),'+]+;
['SERIES V(100), KMINT I, ORE_FUNCTIONARE I']
pcselect=[select a.id_ordl,a.id_lucrare,a.id_masiniclient,a.id_tip,a.datai,]+;
[a.validat,a.dataoravalid,a.util_valid,a.nrord,a.facturat,a.datafact,a.nrfact,]+;
[a.valctva_factura, a.val_manopera_factura, a.val_materiale_factura, a.val_materiale_ach, a.val_materiale_vz, a.ore_manopera, a.val_manopera,]+;
[a.id_partener,a.nrinmat,a.masina,a.marca,a.nume,a.asigurator,a.inspector,a.nr_dosar,]+;
[a.tip_comanda,a.proc_tvav, ] + ;
[a.inchis_fortat, a.dataorainchis, a.util_inchis, a.id_part_ref, a.part_ref, ]+;
[a.series, a.kmint, a.ore_functionare ] + ;
[ from auto_istoric_comenzi a where 1=2]
pcfiltru=[1=2]
pcorder=[a.datai,a.nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
ofrmistoric=Createobject('frm_istoric_comenzi')
ofrmistoric.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi
Endproc && vizualizare_ist_comenzi
*****************************************************************************************
Procedure vizualizare_manopera
*!* If glLunaInchisa
*!* amessagebox("Nu puteti vizualiza manopera, deoarece luna este inchisa!",0+48,"Luna inchisa")
*!* Return
*!* Endif
Local loTherm, lcTask, lnPercent
Private pcselect,pcschema,pcfiltru,pcorder,pomanopera,pomecanici,llAfiseaza
Store '' To pomanopera,pomecanici
If Used('crsmanopera')
Use In crsmanopera
Endif
If Used('crsmecanici')
Use In crsmecanici
Endif
loTherm = Newobject("_thermometer","_therm","","Manopera comenzi in luna curenta...")
lcTask = "Incarcare date vizualizare"
_Screen.MousePointer= 11
*!* gofundal.AlwaysOnTop=.F.
With loTherm
.AlwaysOnTop=.T.
.Show()
lnPercent = 0
lcTask="Incarcare date sectii si mecanici..."
.Update(lnPercent, lcTask)
Do ccsectii in update_devize.prg
=ccmecanici()
lnPercent = 20
.Update(lnPercent, lcTask)
pcschema=['NRORD c(50),DATAI d,ID_OPER n(10),TIMPN n(9,3),PRET n(20,4),ID_SECTIE n(5),SECTIE c(30),'+]+;
['DENOP c(100),UTIL c(30),DATAORA t,FACTURAT n(1),NRFACT N(14),DATAFACT d,TIP_COMANDA c(50)']
*!* inlocuire dev_vvalid_comenzi
pcselect=['select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,'+]+;
['a.facturat,a.nrfact,a.datafact,a.tip_comanda '+]+;
['from ] + gcS + [.auto_normare_comenzi a '+]+;
['join ] + gcS + [.auto_voper b on a.id_ordl=b.id_ordl '+]+;
['where 1=2']
*!* pcselect=['select a.nrord,a.datai,b.id_oper,b.timpn,b.pret,b.id_sectie,b.sectie,b.denop,b.util,b.dataora,'+]+;
*!* ['c.facturat,c.nrfact,c.datafact '+]+;
*!* ['from ] + gcS + [.dev_vordl a '+]+;
*!* ['join ] + gcS + [.dev_voper b on a.id_ordl=b.id_ordl '+]+;
*!* ['left join ] + gcS + [.dev_vordl_facturat c on a.id_ordl=c.id_ordl '+]+;
*!* ['where 1=2']
*!* pcfiltru=[a.luna=]+Alltrim(Str(gnLuna))+[ and a.an=]+Alltrim(Str(gnAn))
*!* pcFiltru = [(extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn)) + [ or a.datafact is null)]
pcfiltru = gcCondLuna
pcorder=[a.datai,a.nrord]
llAfiseaza=.F.
pcfiltru = [1=2]
gencursor('pomanopera','crsmanopera',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
If !glLunaInchisa
lnPercent = 30
lcTask="Distribuire timp normat..."
.Update(lnPercent, lcTask)
distribuire_timp_normat()
endif
*!* lcSql=[begin pack_devize.dev_distribuie_timp_n('] + Alltrim(gcS) + [',']+Alltrim(pcfiltru)+['); end;]
*!* lnSucces=goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,'Eroare')
*!* Endif
lnPercent = 60
lcTask="Incarcare date operatii comenzi..."
.Update(lnPercent, lcTask)
pomanopera.ca_baza1.afisare()
lnPercent = 90
lcTask="Incarcare date manopera..."
.Update(lnPercent, lcTask)
pcschema=['ID_OPERMECANIC n(10),ORE n(9,3),NUME c(100),ID_MECANIC n(5)']
pcselect=['select id_opermecanic,ore,nume||CHR(32)||prenume as nume,id_mecanic from ] + gcS + [.auto_voper_detalii_m '+]+;
['where 1=2']
pcfiltru=[1=2]
pcorder=[nume]
llAfiseaza=.F.
gencursor('pomecanici','crsmecanici',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
.Complete()
.AlwaysOnTop=.F.
Endwith
Release loTherm
*!* gofundal.AlwaysOnTop=.T.
_Screen.MousePointer= 0
ofrmmanopera=Createobject('frm_viz_manopera')
ofrmmanopera.Show(1)
If Used('crsmecanici')
Use In crsmecanici
Endif
If Used('crsmanopera')
Use In crsmanopera
Endif
Release pocomenzi,pomanopera
Endproc && vizualizare_manopera
*****************************************************************************************
Procedure validare_comenzi
If glLunaInchisa
amessagebox("Nu puteti valida comenzi, deoarece aceasta luna este inchisa!",0+48,"Luna inchisa")
Return
Endif
Private pcValoare1,pcValoare2,pcIntre,pnCriteriu, pnCriteriu2, pcFiltruOra, pcFiltruVFP
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
pcValoare1 = ""
pcValoare2 = ""
pnCriteriu = 1
pnCriteriu2 = 1
pcIntre = ""
pcFiltruOra = ""
pcFiltruVFP = ""
Do Form frm_filtru_text With "nrord","Nr. comanda",pnCriteriu,pnCriteriu2 To pcFiltruOra
If Used('crscomenzi')
Use In crscomenzi
Endif
*!* pcschema=['ID_ORDL n(10),ID_LUCRARE n(10),DATAI d,VALIDAT n(1),DATAORAVALID t,MANOPERA n(20,4),MATERIALE n(20,4),'+]+;
*!* ['NUME c(50),NRORD c(30),NRINMAT c(10),ASIGURATOR c(24),INSPECTOR c(24),UTIL_VALID c(30),FACTURAT n(1),TIP_COMANDA c(50)']
*!* pcselect=['select a.id_ordl,a.id_lucrare,a.datai,a.validat,a.dataoravalid,a.manopera,a.materiale,a.nume,'+]+;
*!* ['a.nrord,a.nrinmat,a.asigurator,a.inspector,a.util_valid,a.facturat,tip_comanda from ] + gcS + [.dev_validare_comenzi a '+]+;
*!* ['where 1=2']
pcschema=['ID_ORDL n(10),ID_LUCRARE n(10),DATAI d,VALIDAT n(1),DATAORAVALID t,MANOPERA n(20,4),MATERIALE n(20,4),'+]+;
['NUME c(50),NRORD c(50),NRINMAT c(35),ASIGURATOR c(24),INSPECTOR c(24),NR_DOSAR c(40),UTIL_VALID c(30),'+]+;
['FACTURAT n(1),ID_TIP N(5),TIP_COMANDA c(50),PROC_TVAV N(10,4), INCHIS_FORTAT N(1), DATAORAINCHIS T, UTIL_INCHIS C(30),' + ]+;
['KMINT I, ORE_FUNCTIONARE I, SERIES V(100), CILINDREE I, PUTERECP I, PUTEREKW I']
pcselect=['select a.id_ordl,a.id_lucrare,a.datai,a.validat,a.dataoravalid,a.manopera,a.materiale,a.nume,'+]+;
['a.nrord,a.nrinmat,a.asigurator,a.inspector,a.nr_dosar,a.util_valid,a.facturat,a.id_tip,a.tip_comanda,a.proc_tvav, '+]+;
['a.inchis_fortat, a.dataorainchis, a.util_inchis, a.kmint, a.ore_functionare, a.series, a.cilindree, a.puterecp, a.puterekw '+]+;
['from auto_validare_comenzi a '+]+;
['where 1=2']
&&pcFiltru = [extract(month from a.datafact) = ] + Alltrim(Str(gnLuna)) + [ and extract(year from a.datafact) = ]+Alltrim(Str(gnAn))+
*!* pcfiltru=[((extract(month from datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from datafact) =]+Alltrim(Str(gnAn)) +[) or (datafact is null ))]+pcFiltruOra
IF !EMPTY(pcFiltruora)
pcfiltru = gcCondLuna +pcFiltruOra
ELSE
pcfiltru = [1=2]
ENDIF
pcorder=[a.datai,a.nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
Select crscomenzi
ofrmvalidare=Createobject('frm_val_comenzi')
*!* modificare v 2.0.17
If !Empty(pcFiltruOra)
With ofrmvalidare.ck_nrord
.cValoare1 = pcValoare1
.cValoare2 = pcValoare2
.criteriu = pnCriteriu
.criteriu2 = pnCriteriu2
.cIntre = pcIntre
.filtru = pcFiltruOra
.filtru_vfp = pcFiltruVFP
.Value = 1
Endwith
Endif
*!* modificare v 2.0.17 ^
ofrmvalidare.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi
Endproc && validare_comenzi
*****************************************************************************************
Procedure vizualizare_comenzi
Private pcselect,pcschema,pcfiltru,pcorder,pocomenzi,llAfiseaza
Store '' To pocomenzi
If Used('crscomenzi')
Use In crscomenzi
Endif
pcschema=['ID_ORDL n(10),ID_LUCRARE n(10),DATAI d,NUME c(50),NRORD c(50),NRINMAT c(35),VALIDAT n(1),ID_TIP N(5),TIP_COMANDA c(50),DATAORAVALID D,'+] +;
['FACTURAT n(1),DATAFACT d,NRFACT N(14),PROC_TVAV N(10,4), ID_PART_REF N(20), PART_REF C(100), SERIES V(100), KMINT I, ORE_FUNCTIONARE I']
pcselect=['select a.id_ordl,a.id_lucrare,a.datai,a.nume,a.nrord,a.nrinmat,a.validat,a.id_tip,a.tip_comanda,a.dataoravalid,a.facturat,a.datafact,a.nrfact,a.proc_tvav, a.id_part_ref, a.part_ref, '+]+;
[' a.series, a.kmint, a.ore_functionare '+] + ;
[' from ] + gcS + [.auto_normare_comenzi a where 1=2']
*!* [' from ] + gcS + [.dev_vvalid_comenzi a where 1=2']
*!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))
*!* pcfiltru=[(extract(month from datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null )]
pcfiltru = [1=2] && gcCondLuna
pcorder=[a.datai,a.nrord]
llAfiseaza=.F.
gencursor('pocomenzi','crscomenzi',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
pocomenzi.ca_baza1.afisare()
ofrmviz=Createobject('frm_viz_comenzi')
ofrmviz.Show(1)
If Used('crscomenzi')
Use In crscomenzi
Endif
Release pocomenzi
Endproc && vizualizare_comenzi
*****************************************************************************************
*******************************************
* PROCEDURE viz_optiuni( )
* Data/ora : 02/10/05, 15:46:17
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure viz_optiuni( )
Private lcCuloare,pcDev_p411,pcDEV_s411,pcDev_nr411,pcDev_poz411,pcDev_p704,pcDEV_s704,pcDev_nr704,pcDev_poz704
pcDev_p411 = gcDev_p411
pcDEV_s411 = gcDEV_s411
pcDev_nr411 = gcDev_nr411
pcDev_poz411 = gcDev_poz411
pcDev_p704 = gcDev_p704
pcDEV_s704 = gcDEV_s704
pcDev_nr704 = gcDev_nr704
pcDev_poz704 = gcDev_poz704
*!* STORE gcCuloare_fundal TO lcCuloare
oopt = Createobject('optiuni_frm')
oopt.Show(1)
*!* DEBUG
*!* SUSPEND
If pcDev_p411 # gcDev_p411
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDEV_Sp411) + [' where varname =] + ['DEV_P411']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDEV_s411 # gcDEV_s411
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDEV_s411) + [' where varname =] + [ 'DEV_S411']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDev_poz411 # gcDev_poz411
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDev_poz411) + [' where varname =] + [ 'DEV_POZ411']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDev_nr411 # gcDev_nr411
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDev_nr411) + [' where varname =] + [ 'DEV_NR411']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
*------------------
If pcDev_p704 # gcDev_p704
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDev_p704) + [' where varname =] + ['DEV_P704']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDEV_s704 # gcDEV_s704
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDEV_s704) + [' where varname =] + [ 'DEV_S704']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDev_poz704 # gcDev_poz704
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDev_poz704) + [' where varname =] + [ 'DEV_POZ704']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
If pcDev_nr704 # gcDev_nr704
lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + Alltrim(gcDev_nr704) + [' where varname =] + [ 'DEV_NR704']
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
Endif
*!* pcDev_p704 = gcDev_p704
*!* pcDEV_s704 = gcDEV_s704
*!* pcDev_nr704 = gcDev_nr704
*!* pcDev_poz704 = gcDev_poz704
*!* *----------optiuni analitice pt 704
*!* IF !EMPTY(gcDEV_P704)
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + ALLTRIM(gcDEV_P704) + [' where varname =] + ['DEV_P704']
*!* ELSE
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + [' where varname =] + ['DEV_P704']
*!* ENDIF
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF EMPTY(gcDEV_S704)
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + [' where varname =]+[ 'DEV_S704']
*!* ELSE
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + ALLTRIM(gcDEV_S704) + [' where varname =] + [ 'DEV_S704']
*!* ENDIF
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF EMPTY(gcDEV_POZ704)
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + [' where varname =]+[ 'DEV_POZ704']
*!* ELSE
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + ALLTRIM(gcDEV_POZ704) + [' where varname =] + [ 'DEV_POZ704']
*!* ENDIF
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF EMPTY(gcDEV_NR704)
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + [' where varname =]+[ 'DEV_NR704']
*!* ELSE
*!* lcSql = [UPDATE ] + gcS + [.optiuni SET varvalue = '] + ALLTRIM(gcDEV_NR704) + [' where varname =] + [ 'DEV_NR704']
*!* ENDIF
*!* lnSucces = goExecutor.oExecute(lcSql)
*!* If lnSucces < 0
*!* amessagebox(goExecutor.cEroare,0+16,"Eroare")
*!* Return
*!* ENDIF
*!* IF gcCuloare_fundal # lcCuloare
*!* ENDIF
Endproc
**********************sfarsit procedura viz_optiuni*******************
**********************inceput procedura viz_stocuri*******************
Procedure viz_stocuri
*!*
tcTipGest=[]
tnTipGest=0
*!*
LOCAL lnTipGest, lcFiltruInitial,lcTipGest, lcFiltruPermis
lcFiltruTipGest = ""
lcFiltruPermis = ""
lnTipGest = tnTipGest
lcTipGest = ""
IF EMPTY(tcTipGest)
lcTipGest = []
ELSE
lcTipGest = tcTipGest
ENDIF
lcFiltruInitial = [a.an=]+ Alltrim(Str(gnAn))+[ and a.luna=]+ Alltrim(Str(gnLuna))+;
STRTRAN(gcCondSucursala,[id_sucursala],[a.id_sucursala])
IF !EMPTY(lnTipGest)
lcFiltruTipGest = [ and a.nr_pag = ] + ALLTRIM(STR(lnTipGest))
ENDIF
IF EMPTY(gcGestPermis)
lcFiltruPermis = [ and 1=2]
else
lcFiltruPermis = [ and a.id_gestiune in (] + gcGestPermis + [)]
EndIf
lcFiltruInitial = lcFiltruInitial + lcFiltruTipGest + lcFiltruPermis
LOCAL lnStocObinv
lnStocObinv = 0
DO INAINTE_DE_STOC WITH gnAn, gnLuna, lnTipGest, lnStocObinv in oinainte_de.prg
PRIVATE postocuri,pcschema,pcselect,pcfiltru,pcorder
STORE '' TO postocuri
pcschema=['nr_crt n(6),id_stoc n(20),an n(4),luna n(2),id_articol n(10),serie c(100),pret n(16,4),pretv n(16,4),'+]+;
['tva n(16,4),tvav n(16,4),cants n(14,3),cant n(14,3),cante n(14,3),cont c(4),'+]+;
['acont c(4),pretd n(16,4),dataora d,datain d,dataout d,proc_tvav n(5,2),'+]+;
['id_gestiune n(5),codmat c(50),denumire c(100),um c(6),nr_pag n(2),nume_gestiune c(50),'+]+;
['cgest c(20),um2 c(10),cant_bax n(9,4),grupa c(100),subgrupa c(100),id_valuta n(10), nume_val c(4),'+]+;
['codmatf c(50), lot c(50), adata_expirare T,id_sucursala N(5),sucursala C(100),'+]+;
['id_lucrare_rez N(10),nrord_rez C(50),id_part_rez N(10),part_rez C(100)']
pcselect=['select row_number() over (order by a.denumire) as nr_crt,a.id_stoc,a.an,a.luna,a.id_articol,a.serie,'+]+;
['a.pret,a.pretv,a.tva,a.tvav,a.cants,a.cant,a.cante,a.cont,a.acont,a.pretd,a.dataora,'+]+;
['a.datain,a.dataout,a.proc_tvav,'+]+;
['a.id_gestiune,a.codmat,a.denumire,a.um,a.nr_pag,a.nume_gestiune,a.cgest,a.um2,a.cant_bax,a.grupa,a.subgrupa, a.id_valuta, a.nume_val, a.codmatf, a.lot, a.adata_expirare,'+]+;
['a.id_sucursala,a.sucursala,'+]+;
['a.id_lucrare_rez,a.nrord_rez,a.id_part_rez,a.part_rez '+]+;
['from vstoc a where 1=2']
pcfiltru = [1=2]
pcorder=[1]
llAfiseaza=.F.
_SCREEN.MOUSEPOINTER= 11
gencursor('postocuri','crsStocuri',pcselect,pcfiltru,pcschema,pcorder,llAfiseaza)
postocuri.ca_baza1.afisare()
LOCAL loStocuri
loStocuri=CREATEOBJECT('frm_stocuri')
_SCREEN.MOUSEPOINTER= 0
loStocuri.ntipgest = lnTipGest
PRIVATE pcListTipGest
pcListTipGest = []
lnOptgrValue = IIF(loStocuri.ntipgest<>0,IIF(loStocuri.ntipgest=6,2,IIF(loStocuri.ntipgest=7,4,1)),3)
WITH loStocuri
.Lb_titlu_alb_b121.CAPTION = [STOCURI] + IIF(!EMPTY(lcTipGest),[ / ] + lcTipGest,[])
.cFiltruInitial = lcFiltruInitial
.optgrup.VALUE = lnOptgrValue
*!* modificare v 2.0.5
.but_verifica1.visible = .F.
*!* modificare v 2.0.5 ^
IF lnOptgrValue = 1
.optgrup.option2.VISIBLE = .F.
.optgrup.option3.VISIBLE = .F.
.optgrup.option4.VISIBLE = .F.
ENDIF
IF lnOptgrValue = 2
.optgrup.option1.VISIBLE = .F.
.optgrup.option3.VISIBLE = .F.
.optgrup.option4.VISIBLE = .F.
ENDIF
IF lnOptgrValue = 4
.optgrup.option1.VISIBLE = .F.
.optgrup.option2.VISIBLE = .F.
.optgrup.option3.VISIBLE = .F.
ENDIF
.optgrup.ENABLED = IIF(.ntipgest<>0,.F.,.T.)
IF .But_modifica1.VISIBLE
.But_modifica1.VISIBLE = IIF(.ntipgest<>0,.T.,.F.)
ENDIF
ENDWITH
loStocuri.SHOW(1)
RELEASE postocuri
ENDPROC && viz_stocuri
******************************************************************************
PROCEDURE export_cursor_excel
PARAMETERS tcAlias,tcListaCampuri,tcAliasCampuri
ENDPROC && export_cursor_excel
**********************sfarsit procedura export_cursor_excel*******************

79
Programe/ovariabile_globale.prg Normal file
View File

@@ -0,0 +1,79 @@
PUBLIC gcCondLuna
*!* gcCondLuna = [((((extract(month from datafact) =]+Alltrim(Str(gnLuna))+;
*!* [ and extract(year from datafact) =]+Alltrim(Str(gnAn))+[) or (datafact is null ));
*!* and ]+;
*!* [ (extract (month from datai)<=]+Alltrim(Str(gnLuna)) + [ and extract(year from datai)<= ]+Alltrim(Str(gnAn))+[))]+;
*!* [ or ((extract (month from dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from dataoravalid)>=]+Alltrim(Str(gnAn)) +[)]+;
*!* [ and id_tip > 1)]+ [)]
*!* 30.06
*!* lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))]
*!* lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)>= ]+Alltrim(Str(gnLuna))+[ and extract(year from a.dataoravalid)>=]+Alltrim(Str(gnAn)) +[)) ]
*!* gcCondLuna = [ ((extract (month from a.datai)=]+Alltrim(Str(gnLuna)) + [ and extract(year from a.datai)= ]+Alltrim(Str(gnAn))+[) or ]+;
*!* [ (a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))) ]
lcDataFact= [ (a.facturat=1 and (extract(month from a.datafact) =]+Alltrim(Str(gnLuna))+[ and extract(year from a.datafact) =]+Alltrim(Str(gnAn))+[))]
lcDataValid = [ (a.validat=1 and (extract (month from a.dataoravalid)+extract(year from a.dataoravalid)*12=]+Alltrim(Str(gnLuna+gnAn*12)) +[)) ]
gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
[ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
[ ((a.inch_validare=0 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.inch_validare=1 and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* If Nvl(gnDev_valregie,1) = 1
*!* gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
*!* [ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
*!* [ ((a.id_tip=1 and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip>1 and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* Else
*!* gcCondLuna = [ ((extract (month from a.datai)+extract(year from a.datai)*12=]+Alltrim(Str(gnLuna+gnAn*12))+[) or ]+;
*!* [ ((extract (month from a.datai)+extract(year from a.datai)*12<]+Alltrim(Str(gnLuna+gnAn*12))+[) and ]+;
*!* [ ((a.id_tip in (1,3) and (a.facturat=0 or ] + lcDataFact + [) ) or (a.id_tip not in (1,3) and (a.validat=0 or ] + lcDataValid + [))))) ]
*!* Endif
******************************************************************************************************************
PUBLIC gcGestPermis, gcGrupePermis,gnTipGest,gcGestPermis_Nume,gcGrupePermis_Nume
STORE '' TO gcGestPermis,gcGrupePermis,gcGestPermis_Nume,gcGrupePermis_Nume
STORE 0 TO gnTipGest
lcSql = [select * from ] + gcs + [.VGEST_CORESP_UTIL_GRUPE where id_util =] + ALLTRIM(STR(gnIdUtil))
lcCursor = [GRUPE_permis]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
IF lnSucces > 0
SELECT grupe_permis
SCAN
gcGrupePermis = gcGrupePermis + ',' + ALLTRIM(STR(id_grupe))
gcGrupePermis_nume = gcGrupePermis_nume + ',' + ALLTRIM(nume_grupa)
ENDSCAN
gcGrupePermis = SUBSTR(gcGrupePermis,2)
gcGrupePermis_nume = SUBSTR(gcGrupePermis_nume,2)
USE IN grupe_permis
ENDIF
IF '-1' $ gcGrupePermis
gcGestPermis = '-1'
ELSE
lcSql = [SELECT * FROM ] + gcs + [.VGEST_CORESP_GRUPE_GESTIUNI A JOIN ] + gcs + [.VGEST_CORESP_UTIL_GRUPE B ]+ ;
[ON A.ID_GRUPE = B.ID_GRUPE WHERE B.ID_UTIL = ] + ALLTRIM(STR(gnIdUtil))
lcCursor = [gest_permis]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
IF lnSucces > 0
SELECT gest_permis
SCAN
gcGestPermis = gcGestPermis + ',' + ALLTRIM(STR(id_gestiune))
gcGestPermis_nume = gcGestPermis_nume + ',' + ALLTRIM(nume_gestiune)
ENDSCAN
gcGestPermis = SUBSTR(gcGestPermis,2)
gcGestPermis_nume = SUBSTR(gcGestPermis_nume,2)
USE IN gest_permis
ENDIF
ENDIF
SET STEP ON
* initializare variabile publice gnInchidereValidare1/2/3/4/5/6/7
=cctipuri_deviz()
SELECT crstipuri_deviz
SCAN
lcVariabila = 'gnInchidereValidare' + ALLTRIM(STR(id_tip))
PUBLIC &lcVariabila && gnInchidereValidare1 = 0/1
&lcVariabila = NVL(inch_validare, 0)
ENDSCAN
USE IN (Select('crstipuri_deviz'))

301
Programe/proceduri.prg Normal file
View File

@@ -0,0 +1,301 @@
************************************************************************************
Procedure CAUT_ALF
Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM
Local MC0,MC1,MC2
Set Safety Off
MC0='SELE '+NUMEBAZA
MC1='VARMEM=M.'+NUMECIMP
MC2='SET order TO TAG '+NUMECIMP
&MC0
Go Top
If Eof()
Appe Blank
Endif
&MC2
OCA=Createobject("CAUTALF")
OCA.Caption=CAPTEXT
OCA.GRID1.RecordSource=NUMEBAZA
OCA.GRID1.COLUMN1.ControlSource=NUMECIMP
OCA.Show(1)
Scatter Memvar
&MC1
Return
************************************************************************************
Procedure CAUT_ALFa
Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM
Local MC0,MC1,MC2
Set Safety Off
MC0='SELE '+NUMEBAZA
MC1='VARMEM=M.'+NUMECIMP
MC2='SET order TO TAG '+NUMECIMP
&MC0
Go Top
If Eof()
Appe Blank
Endif
&MC2
OCA=Createobject("CAUTALFa")
OCA.Caption=CAPTEXT
OCA.GRID1.RecordSource=NUMEBAZA
OCA.GRID1.COLUMN1.ControlSource=NUMECIMP
OCA.cmdrenunt1.Visible=.T.
OCA.Show(1)
Scatter Memvar
&MC1
Return
************************************************************************************
Procedure CODARE
Sele COD
If Flock()
Goto Bottom
*SCATTER MEMVAR
m.COD=COD+1
Append Blank
*m.COD=RECNO()
Gather Memvar
Endif
Unlock
Return
************************************************************************************
Procedure mesaj
Parameters m1,m2
ot=Create('text')
ot.label2.Caption=m1
ot.label3.Caption=m2
ot.Show(1)
Return
************************************************************************************
Procedure mesajval
Parameters m1,m2
ot=Create('textval')
ot.label2.Caption=m1
ot.valoare=m2
ot.Show(1)
Return
************************************************************************************
*!* Procedure IESIRE
*!* *close tables
*!* *close database
*!* *set defa to &dirgen
*!* *erase actactan.*
*!* *erase ?temp.*
*!* Quit
*!* Return
*!* ************************************************************************************
*!* Function e_ultima_luna
*!* Sele calendar
*!* Loca For m.NL=NL And m.an=an
*!* Skip
*!* If Eof()
*!* ultima_luna=.T.
*!* Return .T.
*!* Else
*!* ultima_luna=.F.
*!* Return .F.
*!* Endif
*!* ************************************************************************************
*!* Procedure danu
*!* Parameters m1
*!* od=Create('danu')
*!* od.label1.Caption=m1
*!* od.Show(1)
*!* Return
*!* ************************************************************************************
*!* Procedure danuquit
*!* Parameters m1
*!* od=Create('danu')
*!* od.label1.Caption=m1
*!* od.Show(1)
*!* If buton=2
*!* Quit
*!* Endif
*!* Return
************************************************************************************
Procedure nrord
Parameters ALI
Sele &ALI
A=Reccount()
If A=0
Return
Endif
If A>65000
Return 0
Endif
Declare NROR(A)
K=0
Scan
K=K+1
NROR(K)=Recno()
Endscan
Return
************************************************************************************
Function NRCRT
NR=Ascan(NROR,Recno())
Return NR
************************************************************************************
Procedure inchidprog
Endproc
*!* Procedure inchidprog
*!* Local CC,M.NUMESTATIE,UU
*!* Return
*!* UU=utilizator
*!* *IF !FILE('&loc\&nfscurt\tempo\OPTIUNI.DBF')
*!* *RETURN
*!* *ENDIF
*!* If !Used('OPTIUNI')
*!* Return
*!* Endif
*!* *SELE 0
*!* *USE &loc\&nfscurt\tempo\OPTIUNI SHAR ALIAS OPTIUNI
*!* Sele OPTIUNI
*!* Loca For OPTIUNE='RETEA'
*!* If !Found() Or (Found() And !DA)
*!* Sele OPTIUNI
*!* Use
*!* Return
*!* Endif
*!* Sele OPTIUNI
*!* Use
*!* If !File('C:\CONTAFIN\TEMP\RETEA.DBF')
*!* Return
*!* Endif
*!* Sele 0
*!* Use C:\CONTAFIN\TEMP\RETEA Shar Alias RETEA
*!* m.NUMESTATIE=Allt(NUMESTATIE)
*!* CC=DIRGEN
*!* Use
*!* If File('&DIRGEN\Dateretea\istoric.DBF')
*!* Sele 0
*!* Use &DIRGEN\Dateretea\istoric Share Alias istoric
*!* Else
*!* Sele 0
*!* Use &CC\START2000\Data\istoric Share Alias istoric
*!* Endif
*!* Sele istoric
*!* Set Order To DATAORAINT
*!* Loca For Empty(dataoraies) And Allt(statie)=m.NUMESTATIE And Allt(utilizator)=Allt(UU)
*!* If Found()
*!* If Flock()
*!* Repl dataoraies With Datetime()
*!* Unlock
*!* Endif
*!* Endif
*!* Sele istoric
*!* Use
*!* If File('&DIRGEN\Dateretea\activ.DBF')
*!* Sele 0
*!* Use &DIRGEN\Dateretea\Activ Share Alias Activ
*!* Else
*!* Sele 0
*!* Use &CC\START2000\Data\Activ Share Alias Activ
*!* Endif
*!* Sele Activ
*!* Loca For Allt(statie)=m.NUMESTATIE
*!* If !Found()
*!* Wait Wind 'Aceasta statie nu este inregistrata in server!'
*!* Else
*!* Sele Activ
*!* If Flock()
*!* Repl DEVIZE With .F.
*!* Endif
*!* Unlock
*!* Endif
*!* Sele Activ
*!* Use
*!* Return
************************************************************************************
Procedure caut_alfa_cursor
Parameters NUMEBAZA,NUMECIMP,CAPTEXT,VARMEM
Local MC0,MC1,MC2, llVizibil
Set Safety Off
llVizibil = .T.
MC0='SELE '+NUMEBAZA
MC1='VARMEM=M.'+NUMECIMP
*MC2='SET order TO TAG '+NUMECIMP
MC2 = [INDEX ON ] +NUMECIMP+ [ TAG nume OF &loc\&nfscurt\tempo\xindex.idx COMPACT ASCENDING ]
*!* &MC0
*!* &MC2
*!* GO TOP
Local lcNumeCol2
Store '' To lcNumeCol2
LcCol = Alltrim(NUMEBAZA) + '.cod_fiscal'
If Type(LcCol) # 'U'
lcNumeCol2 = 'cod_fiscal'
Endif
LcCol = Alltrim(NUMEBAZA) + '.gest'
If Type(LcCol) # 'U'
lcNumeCol2 = 'gest'
Endif
LcCol = Alltrim(NUMEBAZA) + '.id_sectie'
If Type(LcCol) # 'U'
lcNumeCol2 = 'id_sectie'
Endif
If Empty(lcNumeCol2)
lcNumeCol2 = 'space(4)'
llVizibil = .F.
Endif
LcCol = Alltrim(NUMEBAZA) + '.id'
If Type(LcCol) # 'U'
lcNumeCol3 = 'id'
Else
lcNumeCol3 = 'space(4)'
Endif
Select Distinct &NUMECIMP, &lcNumeCol2, &lcNumeCol3 From (NUMEBAZA) Into Cursor tnomenclator Readwrite Order By &NUMECIMP
OCA=Createobject("CAUTALFa")
OCA.Caption=CAPTEXT
OCA.GRID1.RecordSource='tnomenclator'
OCA.GRID1.COLUMN1.ControlSource = NUMECIMP
OCA.GRID1.COLUMN2.ControlSource = lcNumeCol2
OCA.GRID1.COLUMN2.Visible = llVizibil
OCA.cmdrenunt1.Visible=.T.
OCA.command1.Visible=.F.
OCA.command2.Visible=.F.
OCA.command3.Visible=.F.
OCA.Show(1)
If buton=2
Use In tnomenclator
Return
Endif
lcFile = Addbs(gcTempPath) + 'xindex.idx'
If File(lcFile)
Set Index To
Delete File &lcFile
Endif
Select tnomenclator
Scatter Memvar
&MC1
Use In tnomenclator
Return

993
Programe/roaauto.prg Normal file
View File

@@ -0,0 +1,993 @@
Parameters tparam
Private gcNumeProgram
Local lcStem
lcStem = Upper(Juststem(Sys(16,0)))
gcNumeProgram="ROAAUTO"
IF !LIKE(gcNumeProgram + '*', UPPER(ALLTRIM(JUSTSTEM(SYS(16,0)))))
Messagebox("Nu puteti porni acest program!",0+16,"Atentie")
RETURN
ENDIF
Local lchost, lcUserName, lcPassword, lnIdUtil, lnIdProgram, lcUserNameApp,lcPasswordApp
Store '' To lchost, lcUserName, lcPassword, lcUserNameApp,lcPasswordApp
Store 0 To lnIdUtil, lnIdProgram
_Screen.Icon = gcNumeProgram+".ico"
Set Century On
Set Deleted On
Set Date To Dmy
Set Exclusive Off
Set Cpdialog Off
Set Talk Off
Set Safety Off
Set Escape Off
Set Exact On
Set Mark To '/'
Set Ansi On
Set Console Off
Set Notify Off
Set Seconds Off
Set NullDisplay To ''
Set Hours To 24
Set Decimals To 4
_Screen.Visible=.F.
_Screen.AutoCenter=.T.
****************************************************************
* VARIABILE
Local lcMainClassLib
Local lcLastSetTalk,lcLastSetPath,lcLastSetClassLib,lcOnShutdown
****************************************************************
* VARIABILE
Public CRLF,CR,LF,Tab
Store Chr(13) + Chr(10) To CRLF
CR=Chr(13)
LF=Chr(10)
Tab=Chr(9)
Public pcTitlu,pl_verificat
Store "" To pcTitlu
Store .F. To pl_verificat
***********************************************************************************
** Variabile vechi
Declare nror[65000]
Public pcNl,pcAn
PUBLIC buton,primadata,dirgen,m.ctva,m.ctvam,m.ctvai,m.den
Store "" To pcNl,pcAn,m.den && se initializeaza in start00
Store 1 To BUTON,col_menu
STORE .T. TO primadata
***********************************************************************************
*** DECLARATII DE VARIABILE PUBLICE
***********************************************************************************
*-- Save and configure environment.***********************
lcLastSetTalk=Set("TALK")
Set Talk Off
lcLastSetPath=Set("PATH")
Set Procedure To "d:\ROA\ROAAUTO\COMUN\UTILE\web\WWUTILS.PRG" Additive
Set Procedure To "d:\ROA\ROAAUTO\COMUN\UTILE\web\WWAPI.PRG" Additive
PRIVATE gcAppPath,gcAppName,gcTempPath, gcCaleServerDate, gcUserNameApp, gcPasswordApp,gcDirMare && gcAppDataPath
Store '' To gcUserNameApp, gcPasswordApp, gcAcces && gnNivelUtilizator, gnGrupUtilizator
Public gcSchemaPath, gcAntet
Store '' To gcSchemaPath, gcAntet
gcAppPath = Addbs(ShortPath(GetAppStartPath()))
If Right(gcAppPath ,9)="PROGRAME\"
gcAppPath = Substr(gcAppPath ,1,Len(gcAppPath )-9)
Endif
gcAppName=Allt(Uppe(Juststem(Sys(16,0))))
gcUtilizatoriPath = gcAppPath + "UTILIZATORI\"
Set Default To (gcAppPath)
lcPath = gcAppPath + 'Date;' + ;
gcAppPath + 'Include;' + ;
gcAppPath + 'FERESTRE;' + ;
gcAppPath + 'GRAFICE;' + ;
gcAppPath + 'CLASE;' + ;
gcAppPath + 'MENIURI;' + ;
gcAppPath + 'PROGRAME;' + ;
gcAppPath + 'RAPOARTE;' + ;
gcAppPath + 'COMUN\CLASE;' + ;
gcAppPath + 'COMUN\FERESTRE;' + ;
gcAppPath + 'COMUN\PROGRAME;' + ;
gcAppPath + 'COMUN\GRAFICE;' + ;
gcAppPath + 'COMUN\RAPOARTE;' + ;
gcAppPath + 'COMUN\UTILE\GRIDEXTRAS;' + ;
gcAppPath + 'COMUN\UTILE\EXCEL;' + ;
gcAppPath + 'COMUN\UTILE\CTL32;' + ;
gcAppPath + 'COMUN\UTILE\HPDF;' + ;
gcAppPath + 'COMUN\UTILE\HPDF\REPORTOUTPUT;' + ;
gcAppPath + 'COMUN\UTILE\WEB;' + ;
Addbs(Substr(gcAppPath,1,Rat([\],gcAppPath,2)))+[COMUNROA\]
SET PATH TO &lcPath ADDITIVE
*!* Set Path To ;Date;Include;FERESTRE;GRAFICE;Help;CLASE;MENIURI;PROGRAME;RAPOARTE;
PUSH Menu _Msysmenu
lcLastSetClassLib=Set("CLASSLIB")
lcMainClassLib = m.gcAppPath + "COMUN\clase\appwiz.vcx"
****************************************************************
* CLASE
Set Classlib To (lcMainClassLib) Additive
Set Classlib To baza Additive
Set Classlib To CAUT Additive
*!* Set Classlib To FERESTREBAZA Additive
****************************************************************
Set Classlib To registry Additive
Set Classlib To odevize Additive
Set Classlib To decabaza Additive
Set Classlib To onomenclatoare Additive
Set Classlib To onom_devize Additive
Set Classlib To oviz_devize Additive
Set Classlib To cauta_alfa_forms Additive
*!* Set Classlib To ointroduceri Additive
Set Classlib To ferestre_oracle Additive
Set Classlib To caut_ora Additive
Set Classlib To Messagebox Additive
SET CLASSLIB TO otoolbar ADDITIVE
SET CLASSLIB TO serii_numere ADDITIVE
SET CLASSLIB TO stocuri additive
SET CLASSLIB TO ctl32_statusbar_fals.vcx additive
SET CLASSLIB TO ocriterii.vcx additive
*!* modificare v 2.0.6
SET CLASSLIB TO wwdialogs.vcx additive
*!* modificare v 2.0.6 ^
SET CLASSLIB TO comun.vcx additive
SET CLASSLIB TO gridextras.vcx additive
SET CLASSLIB TO ferestre_cere_date.vcx ADDITIVE && modificare v 2.0.28
SET CLASSLIB TO onom_articole.vcx ADDITIVE && modificare v 2.0.41
SET CLASSLIB TO overificari.vcx ADDITIVE && modificare v 2.1.2
SET CLASSLIB TO accessibility.vcx additive
****************************************************************
* PROCEDURI
Set Procedure To ooperatii_comune Additive
Set Procedure To quitapp Additive
Set Procedure To init_program Additive
Set Procedure To proceduri_comune Additive
*!* modificare v 2.0.1
*!* Set Procedure To oproceduri_casa_marcat_e500 Additive
Set Procedure To controllerecr Additive
*!* modificare v 2.0.1 ^
Set Procedure To oproceduri_comune Additive
Set Procedure To gencursor.prg Additive
Set Procedure To updateserver.prg Additive
Set Procedure To update_devize.prg Additive
Set Procedure To update_nomenclator.prg Additive
Set Procedure To onom_devize.prg Additive
Set Procedure To onomenclatoare Additive
Set Procedure To proceduri Additive
Set Procedure To oproceduri_ams Additive
Set Procedure To oproceduri_vizualizare Additive
Set Procedure To ocautare Additive
Set Procedure To oproceduri_devize Additive
Set Procedure To oproceduri_listari Additive
Set Procedure To oproceduri_facturare ADDITIVE
SET PROCEDURE TO email ADDITIVE
Set Procedure To oinit_optiuni Additive
Set Procedure To osecurity Additive
Set Procedure To pmenu Additive
Set Procedure To acces_meniu Additive
Set Procedure To wwxmlhttp.prg Additive
Set Procedure To ini.prg Additive
Set Procedure To oserii_numere.prg Additive
Set Procedure To oheader.prg Additive
Set Procedure To cauta_alfa.prg Additive
Set Procedure To suma_in_vorbe Additive
Set Procedure To wwutils.prg Additive
SET PROCEDURE TO oserii_numere.prg additive
SET PROCEDURE TO oexport.prg additive
SET PROCEDURE TO wwconfig.prg additive
*!* modificare v 2.0.6
SET PROCEDURE TO iniacces.prg ADDITIVE
SET PROCEDURE TO oupdate.prg additive
SET PROCEDURE TO procese.prg additive
SET PROCEDURE TO version.prg additive
SET PROCEDURE TO xmlaccess.prg additive
SET PROCEDURE TO xmlparser.prg additive
SET PROCEDURE TO filebringer.prg additive
SET PROCEDURE TO wwcodeupdate.prg additive
SET PROCEDURE TO wwhttp.prg ADDITIVE
Set Procedure To wwApi.prg Additive
SET PROCEDURE TO xdate.prg Additive
SET PROCEDURE TO validare.prg Additive
SET PROCEDURE TO regex.prg Additive
SET PROCEDURE TO excelxml.prg ADDITIVE
Declare Integer GetPrivateProfileString In Kernel32 ;
string, String, String, String @, Integer, String
Declare Integer WritePrivateProfileString In Kernel32 ;
string, String, String, String
Declare Integer CopyFile In kernel32;
STRING lpExistingFileName,;
STRING lpNewFileName,;
INTEGER bFailIfExists
Declare Integer URLDownloadToFile In urlmon.Dll;
INTEGER pCaller, String szURL, String szFileName,;
INTEGER dwReserved, Integer lpfnCB
Declare Integer PathFileExists In shlwapi;
STRING pszPath
*!* modificare v 2.0.6 ^
*!* modificare v 2.0.8
Set Procedure To ofacturare.prg Additive
Set Procedure To ofacturare_comun.prg Additive
*!* modificare v 2.0.8 ^
***********************************************************************************
If Pcount() = 1 And Type('tparam') = 'C'
glParametri = .T.
Private laParametri
Declare laParametri[1]
lcParam = Alltrim(tparam)
lnNr = lista2array(lcParam,@laParametri,";")
If lnNr < 5
AMessagebox('Numar incorect de parametri',0+16,'Eroare')
Return
Endif
lchost = laParametri[1]
lcUserName = laParametri[2]
lcPassword = laParametri[3]
lnIdUtil = Round(Val(laParametri[4]),0)
lnIdProgram = Round(Val(laParametri[5]),0)
Else
glParametri = .F.
lchost = 'JCSSERVER'
lcUserName = 'CONTAFIN_ORACLE'
lcPassword = ''
lnIdUtil = 0
lnIdProgram = 0
Endif
*!* Public glVerificTabel && daca se verifica structura tabelelor in totv.prg
*!* glVerificTabel=.T.
Store "" To gcTempPath, gcCaleServerDate
*!* modificare v 2.0.6
*!* If !Directory(gcAppDataPath)
*!* Md (gcAppDataPath)
*!* Endif
*!* modificare v 2.0.6 ^
***********************************************************************************
*** DIRGEN
liat = Rat("\",gcAppPath,2)
gcDirMare = Addbs(Left(gcAppPath,liat-1))
dirgen = gcDirMare
*!* modificare v 2.1.9
PRIVATE gcReportPreviewer, gcReportPreviewerPath
gcReportPreviewer = "FoxyPreview" && oexport.prg
gcReportPreviewerPath = gcDirMare + "COMUNROA\"
*!* modificare v 2.1.9 ^
gcSecurityPath = gcDirMare + 'Security\'
gcSecurityFile = gcSecurityPath + 'ROA_SECURITY.TXT'
Private poLog,goLog && obiect pt logarea mesajelor sistemului
poLog = Newobject("Log_Mesaje","Log_Mesaje.prg")
goLog = poLog
*!* modificare 21.06
PRIVATE gcGeneralIniFile,gcSettingsFile
gcGeneralIniFile = m.gcDirMare + "settings.ini"
gcSettingsFile = m.gcGeneralIniFile
IF !FILE(gcGeneralIniFile)
TEXT TO lcSettings NOSHOW
[errors]
host=http://83.103.197.79:3000/errors/create_xml
ENDTEXT
STRTOFILE(lcSettings, gcGeneralIniFile)
ENDIF
*!* ^
Public glQuit
glQuit = .F.
Public gnIdIstoric
gnIdIstoric = 0
*!* modificare v 2.1.9
Private gcLocalePath, goLocale, gcLocale
gcLocalePath = gcAppPath + "Locale\"
lcLanguage = getini(gcGeneralIniFile,"locale","lang")
llLocale= getini(gcGeneralIniFile,"locale","llocale")
If Empty(m.lcLanguage)
gcLocale = 'Romana'
Else
gcLocale = m.lcLanguage
Endif
Local lcObjLocale
If gcLocale = 'Romana'
lcObjLocale = [Locale_dummy]
Else
lcObjLocale = [Locale]
Endif
goLocale=Newobject(lcObjLocale,"Locale.vcx")
If !Empty(m.llLocale) And m.llLocale<>'0'
goLocale.llocale=.T.
Endif
Release lcObjLocale
goLocale.locale = gcLocale
*!* If verificari()
*!* _Screen.Visible=.T.
*!* aMessagebox("Se fac verificari programului!"+CRLF+"Va rugam reveniti!",64,"ROA FACTURARE")
*!* glQuit= .T.
*!* Quit
*!* Endif
*!* If !Debug_Start()
*!* lcParam=tparam
*!* If Empty(tparam) Or (Type('tParam')='C' And !verific_start(tparam,gcDirMare,gcAppName))
*!* _Screen.Visible=.T.
*!* aMessagebox("Programul trebuie pornit doar din START!",64,"ROA FACTURARE")
*!* Quit
*!* Endif
*!* Endif
*!* modificare v 2.1.9 ^
*** verificare serie permanenta
*!* Public tipar,SER_PERM,SER_PERI,VERSIUNE
*!* Store .F. To SER_PERM,SER_PERI
***************************** VARIABILE ORACLE
*!* PRIVATE goUtilizator
Private gnHandle,gnidutil,GCCODFISCAL,GCADRESA,GCNUMEFIRMA,GCMONEDA,GNDIFZILE, gcUserNameApp, gcPasswordApp
Private gnButon && variabila pentru renunt si terminat
Store 2 To gnButon
Store '' To GCCODFISCAL,GCADRESA,GCNUMEFIRMA, gcUserNameApp, gcPasswordApp, gcAcces
gnHandle = -1
gnidutil = 0
Private gcHost, gcUserName, gcPassword, gofundal, gnIdProgram, gnId_prg_owner
gnId_prg_owner = 0
gnIdProgram = 0
gofundal=''
PRIVATE gcCopyRight
gcCopyRight = '<27> ROA Romfast SRL'
Private goFirma,gnIdFirma,gcFirma,gnAn,gnLuna && ,gnPA,gnPC,gnId_Firma
&& STORE 0 TO gnPA,gnPC && nr. de zecimale afisare, calcul
Store Null To goFirma
Store 0 To gnAn,gnLuna,gnIdFirma && ,gnId_Firma
Store '' To gcFirma
Private glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa
Store .F. To glUltimaLuna,glPrimaLuna, glLunaBuna,glLuna_neplatita,glLunaInchisa
***toolbar***
PRIVATE otool,ohelp
STORE '' TO otool,ohelp
***toolbar***
Private gcS && schema firmei
Store '' To gcS
*!* modificare v 2.0.28
PUBLIC glFontCharSet
glFontCharSet = AFONT(laFontCharSet,"Arial Narrow",238)
*!* modificare v 2.0.28 ^
IF TYPE('laparametri',1)="A"
IF ALEN(laParametri,1)=10
gnAn = VAL(laParametri[7])
gnLuna = VAL(laParametri[8]) &&lansare noua
GcS = laParametri[9]
gnIdFirma = VAL(laParametri[10]) && modificare v 2.0.29
ENDIF
ENDIF
&& obiect global wrap pt sqlexec cu text eroare si succes
Private goExecutor
goExecutor = Createobject("oExecutor")
Private goConn
goConn = Createobject("oConn")
*!* modificare v 2.0.2
Private goExport
goExport = CREATEOBJECT("oExportConfig")
*!* modificare v 2.0.2 ^
*!* modificare 21.06
PRIVATE goMyXMLHTTP
lcHostErrors = getini(gcGeneralIniFile,'errors','host')
goMyXMLHTTP = CREATEOBJECT("MyXMLHTTP", lcHostErrors)
*!* ^
&& obiect global pt luna aleasa din calendar
Private goCalendar
Store Null To goCalendar
gcHost = lchost
gcUserName = lcUserName
gcPassword = lcPassword
gcUserNameApp = lcUserNameApp
gcPasswordApp = lcPasswordApp
gnidutil = lnIdUtil
gnIdProgram = lnIdProgram
*!* modificare v 2.0.1
PRIVATE goControllerEcr
goControllerEcr = CreateObject('oControllerEcr')
*!* modificare v 2.0.1 ^
If !glParametri
lnValid = getcrsSecurity(gcSecurityFile)
If lnValid > 0
If Used('crsHost')
Select crsHost
Go Top
gcHost = Alltrim(Host)
gcUserName = Alltrim(schema)
gcPassword = Alltrim(pwd)
Use In crsHost
Endif
Endif
Endif
***************************** VARIABILE ORACLE
*!* Use &gcAppPath\SER In 0 Alias SER Shared
*!* Select SER
*!* Go Top
*!* tipar=TIP
*!* SER_PERM=SER_PERMAN
*!* SER_PERI=SER_PERIOD
*!* VERSIUNE=VERcont
*!* MODEL_PROGRAM=MODEL
*!* Use In SER
*!* parolamea=Substr(tipar,Month(Date()),1)
*!* parolamea=parolamea+Allt(Str(Day(Date())))+Allt(Str(Month(Date())))
*!* If !_DEBUG()
*!* If SER_PERM And !verif_ser_perm()
*!* Quit
*!* Endif
*!* Endif
*!* Public cales,eserver,loc,numestatie
*!* eserver=.F.
*!* Store '' To cales,loc,numestatie
Public NUMEPROGRAM,MENIUPROGRAM,FUNDALPROGRAM
NUMEPROGRAM='ROAAUTO'
*!* MENIUPROGRAM=gcAppPath+"meniuri\cont2000.mpr"
*!* FUNDALPROGRAM=gcAppPath+"FERESTRE\FUNDAL.scx"
_program='roaauto'
*!* *** INITIALIZEZ CAI DATE
*!* If .F.
*!* If !Start_Nou()
*!* _Screen.WindowState=2
*!* Cd \
*!* If !Directory('c:\contafin')
*!* Md contafin
*!* Endif
*!* Cd c:\contafin\
*!* If !Directory('temp')
*!* Md temp
*!* Endif
*!* Sele 0
*!* Use c:\contafin\temp\ceprogram Alias ceprogram
*!* Scat Memv
*!* *wait wind m.util
*!* Sele ceprogram
*!* Use
*!* utilizator=m.UTIL
*!* GRUPUL=M.nrgrup
*!* If M.nrgrup=0
*!* E_UN_SUPERVIZOR=.T.
*!* Else
*!* E_UN_SUPERVIZOR=.F.
*!* Endif
*!* If File('&DIRGEN\START2000\DATA\RETEA.DBF')
*!* If !File('c:\contafin\temp\RETEA.dbf')
*!* Copy File &DIRGEN\START2000\Data\RETEA.* To c:\contafin\temp\RETEA.*
*!* Endif
*!* Sele 0
*!* Use c:\contafin\temp\RETEA
*!* eserver=Server
*!* cales=Allt(CALESERVER)
*!* Use In RETEA
*!* Endif
*!* Else
*!* gcTempPath = Init_Cale_Temp(DIRGEN)
*!* If !Directory(gcTempPath)
*!* Md (gcTempPath)
*!* Endif
*!* cales = Init_Cale_Server_Date(DIRGEN)
*!* eserver = .T.
*!* numestatie = Init_Nume_Statie(DIRGEN)
*!* utilizator = Init_Nume_Utilizator(DIRGEN)
*!* m.nivel = Round(Val(Init_Nivel_Utilizator(DIRGEN)),0)
*!* m.CONTAB = Upper(Alltrim(Init_NumeAlternativ(DIRGEN)))
*!* lcQuitData = Alltrim(DIRGEN)+"\dateretea"
*!* lcQuitName = "start_quitapp"
*!* Private goQuitApp && I'm making it private so it will die with the application.
*!* goQuitApp = quitapp(lcQuitData,lcQuitName)
*!* gnIdIstoric = Start_Istoric(m.utilizator, gcAppName, numestatie, Addbs(DIRGEN)+"DATERETEA\", "START_ISTORIC","start_ids")
*!* Endif
*!* Endif
lcOnShutdown="ShutDown()"
On Shutdown &lcOnShutdown
On Error ErrorHandler(Error(),Program(),Lineno())
_Shell="DO Cleanup IN roaauto.prg"
*-- Instantiate application object.***************************
Release goApp
Public goApp
goApp=Createobject("wzApplication")
*-- Configure application object.*****************************
*!* goApp.SetCaption("DEVIZE")
Local laVersion
Dimension laVersion(12)
If Agetfileversion(laVersion, Sys(16,0)) > 0
NUMEPROGRAM = laVersion(10)
Endif
Release laVersion
goApp.SetCaption(NUMEPROGRAM)
goApp.cStartupMenu = m.gcAppPath + "\meniuri\roaauto"
goApp.cStartupForm = m.gcAppPath + 'COMUN\ferestre\frm_login.scx'
_Screen.WindowState=2
*-- Show application.
goApp.Show
*-- Release application.
Release goApp
*-- Restore default menu.
Pop Menu _Msysmenu
*-- Restore environment.
On Error
On Shutdown
If Not lcLastSetClassLib==Set("classlib")
Release Classlib (lcMainClassLib)
Endif
If Empty(lcLastSetPath)
Set Path To
Else
Set Path To &lcLastSetPath
Endif
If lcLastSetTalk=="ON"
Set Talk On
Else
Set Talk Off
Endif
Return
************************************************************************************
* FUNCTII______________________________________________________________________
Function ErrorHandler(nError,cMethod,nLine)
Local lcErrorMsg,lcCodeLineMsg
Wait Clear
lcErrorMsg=Message()+Chr(13)+Chr(13)
lcErrorMsg=lcErrorMsg+"Method: "+cMethod
lcCodeLineMsg=Message(1)
If Between(nLine,1,10000) And Not lcCodeLineMsg="..."
lcErrorMsg=lcErrorMsg+Chr(13)+"Line: "+Alltrim(Str(nLine))
If Not Empty(lcCodeLineMsg)
lcErrorMsg=lcErrorMsg+Chr(13)+Chr(13)+lcCodeLineMsg
Endif
ENDIF
*!* modificare 21.06
If Type('goMyXMLHTTP') = 'O'
lcErrorMsg = Sys(0) + ":" + Iif(Type('GCS')='C'," " + GCS,"") + Chr(13) +Chr(10) + lcErrorMsg
lcUserName = gcUserNameApp
lcProgram = Juststem(Sys(16,0))
goMyXMLHTTP.postError(lcErrorMsg, lcUserName, lcProgram)
Endif
*!* ^
If AMessagebox(lcErrorMsg,17,_Screen.Caption)#1
On Error
Return .F.
Endif
Endfunc
************************************************************************************
Function Shutdown
*!* =End_Istoric(gnIdIstoric, Addbs(DIRGEN)+"DATERETEA\", "START_ISTORIC")
If Type("goApp")=="O" And Not Isnull(goApp)
Return goApp.OnShutDown()
Endif
Cleanup()
Quit
Endfunc
************************************************************************************
Function Cleanup
If Cntbar("_msysmenu")=7
Return
Endif
On Error
On Shutdown
Set Classlib To
Set Path To
Clear All
Close All
Pop Menu _Msysmenu
Return
************************************************************************************
*!* Function verif_ser_perm
*!* Clear
*!* Return PORNIRE()
************************************************************************************
Function PORNIRE
Set Exact On
Private calewin,calesys,checksum1,checksum2,serinreg,serdisk,file1,file2,valret,serdisktemp,ser1,ser2,key1,KEY2
Store '' To calewin,serinreg,serdisk,calesys,serdisktemp,catehd,ser1,ser2,key1,KEY2
Store 0 To checksum1,checksum2
Store .T. To valret
Declare Integer SHGetFolderPath In SHFOLDER.Dll ;
INTEGER hwndOwner, ;
INTEGER nFolder, ;
INTEGER hToken, ;
INTEGER dwFlags, ;
STRING @ pszPath
Declare Integer GetActiveWindow In WIN32API
#Define CSIDL_WINDOWS 36
#Define CSIDL_SYSTEM 37
#Define CSIDL_PROGRAMS 38
lcPath = Repl(Chr(0),261)
=SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath)
calewin=Left(lcPath,At(Chr(0),lcPath)-1)
lcPath = Repl(Chr(0),261)
=SHGetFolderPath(GetActiveWindow(),CSIDL_SYSTEM,0,0,@lcPath)
calesys=Left(lcPath,At(Chr(0),lcPath)-1)
&&se verifica existenta celor trei fisiere
If (Not File(calesys+'\diskserial.dll')) Or (Not File(calesys+'\getmacip.dll')) Or (Not File(calewin+'\comdir.snr'))
valret=.F.
Endif
If valret
file1=Filetostr(calesys+'\diskserial.dll')
checksum1=Sys(2007,file1)
file2=Filetostr(calesys+'\getmacip.dll')
checksum2=Sys(2007,file2)
&&severifica daca dll-urile nu au fost modificate
If (Val(checksum1) != 58755) Or (Val(checksum2) != 30476)
valret=.F.
Endif
Endif
&&se citesc seriile tutturor celor patru hard disk-uri posibile(pe IDE primary master,primary slave...)
&&se tine minte primul cu seria nenula-daca nu s-a putut citi seria de la nici unul se pune o serie default
&&seria default este "NUAREHAR"
If valret
Declare Integer GetSerialNumber In diskSerial.Dll Integer ,String
catehd=0
For i=0 To 3
serdisktemp=Space(40)
GetSerialNumber(i,@serdisktemp)
If (Len(Alltrim(serdisktemp))!=0) And (catehd=0)
serdisktemp=sircaracter(serdisktemp)
serdisk=serdisktemp
catehd=catehd+1
Endif
Endfor
If (Len(Alltrim(serdisk))=0)
serdisk='NUAREHAR'
Else
If ((Len(Alltrim(serdisk))>0) And (Len(Alltrim(serdisk))<8))
serdisk=serdisk+Replicate('1',8-Len(Alltrim(serdisk)))
Endif
Endif
serdisk=Substr(Alltrim(serdisk),Len(Alltrim(serdisk))-7,8)
Endif
&&se citeste din comdir.snr seria de inregistrare si se verifica egalitatea cu seria obtinuta anterior
If valret
gnFileHandle = Fopen(calewin+'\comdir.snr')
nSize = Fseek(gnFileHandle, 0, 2) && Move pointer to EOF
If nSize!=9
valret=.F.
Else
= Fseek(gnFileHandle, 0, 0) && Move pointer to BOF
cString = Fread(gnFileHandle,9)
ser1=Substr(cString,1,4)
ser2=Substr(cString,5,4)
key1=Substr(cString,9,1)
KEY2=DECTOBIN(Alltrim(HEXDEC(key1)))
serinreg=decodare1(Alltrim(Upper(ser1)),KEY2)+decodare1(Alltrim(Upper(ser2)),KEY2)
If serdisk!=serinreg
valret=.F.
Endif
Endif
= Fclose(gnFileHandle)
Endif
seriedisk1=serdisk
serieinreg1=serinreg
On Error valret=.F.
Return valret
************************************************************************************
Function decodare1
Parameters lstring,CHEIE
Local lens,poz1,poz2,POZ3,lret,LRET2,lcstring,val1,lret1
lret=''
lret1=''
LRET2=''
lcstring=Alltrim(Upper(lstring))
lens=Len(lcstring)
For i=1 To 4
poz1=Substr(lcstring,i,1)
val1=Asc(poz1)
POZ3=Substr(CHEIE,i,1)
Do Case
Case val1>=48 And val1<=57
If ((val1-47)+Int(Val(POZ3)))<=10
poz2=Chr(val1+Int(Val(POZ3)))
Else
poz2=Chr(val1+Int(Val(POZ3))-10)
Endif
Case val1>=65 And val1<=90
If ((val1-64)+2*Int(Val(POZ3)))<=26
poz2=Chr(val1+2*Int(Val(POZ3)))
Else
poz2=Chr(val1+2*Int(Val(POZ3))-26)
Endif
Endcase
LRET2=LRET2+poz2
Endfor
For i=1 To lens
poz1=Substr(LRET2,i,1)
val1=Asc(poz1)
Do Case
Case val1>=48 And val1<=57
If ((val1-47)+i)<=10
poz2=Chr(val1+i)
Else
poz2=Chr(val1+i-10)
Endif
Case val1>=65 And val1<=90
If ((val1-64)+2*i)<=26
poz2=Chr(val1+2*i)
Else
poz2=Chr(val1+2*i-26)
Endif
Endcase
lret=lret+poz2
Endfor
lens=Len(lret)
For i=1 To lens
poz1=Substr(lret,i,1)
val1=Asc(poz1)
Do Case
Case val1>=48 And val1<=57
poz2=Chr(val1+17)&& din 0-9 in A-J
Case val1>=65 And val1<=74
poz2=Chr(val1-17)&& din A-J in 0-9
Case val1>=75 And val1<=82
poz2=Chr(val1+8)&&din K-R in S-Z
Case val1>=83 And val1<=90
poz2=Chr(val1-8)&&din S-Z in K-R
Endcase
lret1=lret1+poz2
Endfor
Return lret1
************************************************************************************
&&transformarea in decimal a unui caracter hexa
Function HEXDEC
Lparameters LC
Local LV
Do Case
Case LC=='0'
LV='0'
Case LC=='1'
LV='1'
Case LC=='2'
LV='2'
Case LC=='3'
LV='3'
Case LC=='4'
LV='4'
Case LC=='5'
LV='5'
Case LC=='6'
LV='6'
Case LC=='7'
LV='7'
Case LC=='8'
LV='8'
Case LC=='9'
LV='9'
Case LC=='A'
LV='10'
Case LC=='B'
LV='11'
Case LC=='C'
LV='12'
Case LC=='D'
LV='13'
Case LC=='E'
LV='14'
Case LC=='F'
LV='15'
Endcase
Return LV
************************************************************************************
&&codarea binara din hexa pe patru biti
Function DECTOBIN
Parameters sc
Local lretf
Do Case
Case sc=='0'
lretf='0000'
Case sc=='1'
lretf='0001'
Case sc=='2'
lretf='0010'
Case sc=='3'
lretf='0011'
Case sc=='4'
lretf='0100'
Case sc=='5'
lretf='0101'
Case sc=='6'
lretf='0110'
Case sc=='7'
lretf='0111'
Case sc=='8'
lretf='1000'
Case sc=='9'
lretf='1001'
Case sc=='10'
lretf='1010'
Case sc=='11'
lretf='1011'
Case sc=='12'
lretf='1100'
Case sc=='13'
lretf='1101'
Case sc=='14'
lretf='1110'
Case sc=='15'
lretf='1111'
Endcase
Return lretf
************************************************************************************
Function ECARACTER
Parameters strg1
Private pz,ch,lcstring,vret,lg1
Store 0 To pz,lg1
Store '' To ch,lcstring
Store .T. To vret
lcstring=Upper(strg1)
lg1=Len(lcstring)
For ind1=1 To lg1
ch=Substr(lcstring,ind1,1)
If (Not Between(Asc(ch),48,57)) And (Not Between(Asc(ch),65,90))
vret=.F.
Exit
Endif
Endfor
Return vret
************************************************************************************
Function sircaracter
Parameters strg1
Private pz,ch,lcstring,vret,lg1,lciesire
Store 0 To pz,lg1
Store '' To ch,lcstring,lciesire
Store .T. To vret
strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul '
strg1=Strtran(strg1,Alltrim(Chr(39)),'')&&caracterul "
lcstring=Upper(Alltrim(strg1))
lg1=Len(lcstring)
For ind1=1 To lg1
ch=Substr(lcstring,ind1,1)
If Between(Asc(ch),48,57) Or Between(Asc(ch),65,90)
lciesire=lciesire+ch
Endif
Endfor
Return lciesire
************************************************************************************
Procedure _DEBUG
Private lcret,lcfisier,lcPath,lccalewin
Declare Integer SHGetFolderPath In SHFOLDER.Dll ;
INTEGER hwndOwner, ;
INTEGER nFolder, ;
INTEGER hToken, ;
INTEGER dwFlags, ;
STRING @ pszPath
Declare Integer GetActiveWindow In WIN32API
#Define CSIDL_WINDOWS 36
lcPath = Repl(Chr(0),261)
=SHGetFolderPath(GetActiveWindow(),CSIDL_WINDOWS,0,0,@lcPath)
lccalewin=Left(lcPath,At(Chr(0),lcPath)-1)
lcret=.F.
lcfisier=Addbs(lccalewin)+[DEBUG.TXT]
lcLog = '1 ' + lcfisier
poLog.Log(lcLog,Program())
If File(lcfisier)
LCVAL=Filetostr(lcfisier)
LNVAL1=Mod(Val(Right(LCVAL,1)),2) && restul 1 sau 0; daca e impar e 1
lnval2=Val(Left(LCVAL,Len(LCVAL)-1))
lcLog = Transform(LNVAL1) + ' ' + Transform(lnval2)
poLog.Log(lcLog,Program())
If LNVAL1=1 Or Year(Date())-Month(Date())=lnval2
lcret=.T.
Endif
Endif
lcLog = Transform(lcret)
poLog.Log(lcLog,Program())
Return lcret
Endproc
************************************************************************************
Function Start_Nou
*!* llExista_Branch = Exista_Branch(,,dirgen)
*!* lcLog = TRANSFORM(llExista_Branch)
*!* poLog.log(lcLog,PROGRAM())
Return Exista_Branch(,,DIRGEN)
Return llExista_Branch
Endfunc && start_nou
************************************************************************************
Procedure Debug_Start
lcFile = gcAppPath + "debug.txt"
If File(lcFile)
lcLog = 'debug_start'
poLog.Log(lcLog,Program())
Else
lcLog = '!debug_start'
poLog.Log(lcLog,Program())
Endif
If File(lcFile) Or !Start_Nou()
Return .T.
Endif
Return .F.
Endproc && Debug_Start
************************************************************************************
Procedure verificari
Parameters tcFisierVerif
lcverificari = Addbs(gcAppPath)+gcAppName+".txt"
If File(lcverificari)
Return .T.
Endif
Return .F.
Endproc && verificari***************
************************************************************************************
Procedure myinstance
Parameters myApp
=Ddesetoption("SAFETY",.F.)
ichannel = Ddeinitiate(myApp,"ZOOM")
If ichannel =>0
=Ddeterminate(ichannel)
Quit
Endif
=Ddesetservice(myApp,"define")
=Ddesetservice(myApp,"execute")
=Ddesettopic(myApp,"","ddezoom")
Return
************************************************************************************
Procedure ddezoom
Parameter ichannel,saction,sitem,sdata,sformat,istatus
Zoom Window Screen Norm
Return
************************************************************************************
** EOF
************************************************************************************

504
Programe/update_devize.prg Normal file
View File

@@ -0,0 +1,504 @@
*******************************************
* PROCEDURE update_mecanici( )
* Data/ora : 12/16/04, 13:01:32
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_mecanici( )
If Used('v_mecanici')
Use In v_mecanici
Endif
lcSql = [select * from ] + gcS + [.auto_vmecanici order by nume]
lcCursor = [v_mecanici]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_mecanici*******************
*******************************************
* PROCEDURE caut_personal_devize( )
*******************************************
Procedure caut_personal_devize( )
Local loCauta,llReturn
Store "" To loCauta
Store .F. To llReturn
pcselect = ["select id_salariat,id_part,nume,prenume,marca from ] + gcS + [.auto_vnom_salariati where inactiv = 0"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [nume,prenume,marca]
pcTitlu = [Alege<67>i mecanicul]
pcTitluColoane = [Nume,Prenume,Marca]
loCauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
Return loCauta
Endproc
**********************sfarsit procedura caut_personal_devize *******************
*******************************************
* PROCEDURE caut_norme( )
*******************************************
Procedure caut_norme( )
Local loCauta,llReturn
Store "" To loCauta
Store .F. To llReturn
pcselect = ["select id_norme,denop from ] + gcS + [.auto_vnorme where inactiv = 0"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [2]
pccoloane = [denop]
pcTitlu = [Alege<67>i opera<72>ia]
pcTitluColoane = [Denumire]
loCauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
Return loCauta
Endproc
**********************sfarsit procedura caut_norme *******************
*******************************************
* PROCEDURE update_sectie( )
* Data/ora : 12/16/04, 14:26:22
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_sectie( )
If Used('v_sectie')
Use In v_sectie
Endif
lcSql = [select * from ] + gcS + [.vnom_sectii order by sectie]&& where inactiv = 0]
lcCursor = [v_sectie]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_sectie*******************
*******************************************
* PROCEDURE update_clienti( )
* Data/ora : 12/20/04, 09:58:55
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
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 p.nume,p.cod_fiscal,p.id_part from ] + gcS + [.vnom_parteneri p order by p.nume]
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 ]
*!* 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 = 411 order by nume]
lcCursor = 'v_clienti'
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_clienti*******************
*******************************************
* PROCEDURE update_masini( )
* Data/ora : 12/21/04, 10:33:10
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_masini( )
If Used('v_masini')
Use In v_masini
Endif
lcSql = [select id_masina,id_marca,nvl(masina,lpad(CHR(32),100,CHR(32))) as masina,sctip,clasa,] + ;
[nvl(marca,lpad(CHR(32),100,CHR(32))) as marca from ] + gcS + [.auto_vmasini where inactiv = 0 order by 3]
lcCursor = [v_masini]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_masini*******************
*******************************************
* PROCEDURE update_ansamble( )
* Data/ora : 12/21/04, 10:34:31
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_ansamble( )
If Used('v_ansamble')
Use In v_ansamble
Endif
lcSql = [select * from ] + gcS + [.auto_vansamble where inactiv=0 order by denumire]
lcCursor = [v_ansamble]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_ansamble*******************
*******************************************
* PROCEDURE update_marci( )
* Data/ora : 12/21/04, 16:05:00
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_marci( )
If Used('v_marci')
Use In v_marci
Endif
lcSql = [select * from ] + gcS + [.auto_vmarci order by marca]
lcCursor = [v_marci]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_marci*******************
*******************************************
* PROCEDURE update_asigurator( )
* Data/ora : 12/21/04, 16:08:00
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_asigurator( )
If Used('v_asiguratori')
Use In v_asiguratori
Endif
lcSql = [select * from ] + gcS + [.auto_vasiguratori where inactiv = 0 order by asigurator]
lcCursor = [v_asiguratori]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_asigurator*******************
*******************************************
* PROCEDURE update_inspector( )
* Data/ora : 01/06/05, 10:42:26
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_inspector( )
If Used('v_inspectori')
Use In v_inspectori
Endif
lcSql = [select * from ] + gcS + [.auto_vinspectori where inactiv = 0 order by inspector]
lcCursor = [v_inspectori]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_inspectori*******************
*******************************************
* PROCEDURE update_furnizori( )
* Data/ora : 01/03/05, 15:36:04
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_furnizori( )
If Used('v_dealeri')
Use In v_dealeri
Endif
lcSql = [select id_furnizor,denumire as furnizor,inactiv from ] + gcS + [.auto_vfurnizori order by denumire]
lcCursor = [v_dealeri]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_furnizori*******************
*******************************************
* PROCEDURE update_preturi( )
* Data/ora : 01/12/05, 16:36:27
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_preturi( )
If Used('v_preturi')
Use In v_preturi
Endif
lcSql = [select * from ] + gcS + [.auto_vpreturi where inactiv=0]
lcCursor = [v_preturi]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_preturi*******************
*******************************************
* PROCEDURE update_norme( )
* Data/ora : 01/12/05, 16:40:41
* autor : liana.macinic
* descriere:
****** PARAMETER BLOCK **************
* Parametri : 0
*
*******************************************
Procedure update_norme
LPARAMETERS tcFiltru
LOCAL lcFiltru
IF EMPTY(tcFiltru)
lcFiltru = [where inactiv=0]
ELSE
lcFiltru = [where inactiv=0 and ] + tcFiltru
ENDIF
If Used('v_norme')
Use In v_norme
Endif
lcSql = [select auto_vnorme.*,0 as ales,9999 as ordine from ] + gcS + [.auto_vnorme ] + lcFiltru + [ order by denop,masina]
lcCursor = [v_norme]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
Return lnSucces
Endproc
**********************sfarsit procedura update_norme*******************
*******************************************
* 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)
*!* AMESSAGEBOX('v_optiuni_util')
RETURN lnSucces
ENDPROC
**********************sfarsit procedura update_optiuni_util*******************
***********************************************************************
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
Lparameters tctip,tnid
Local lcFiltru
If Used('v_denop')
Use In v_denop
Endif
Do Case
Case Empty(tctip)
lcFiltru = [ where inactiv=0 ]
Case tctip='NORMA'
lcFiltru=[ where id_norme = ] + Alltrim(Str(tnid))
Case tctip='MASINA'
lcFiltru=[ where id_masina = ] + Alltrim(Str(tnid)) + [ and inactiv=0 ]
Endcase
lcSql='select id_norme,denop,timpn from '+gcS+'.auto_vnorme '+;
lcFiltru+' 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,TRIM(nume)||CHR(32)||TRIM(prenume) as nume from auto_vmecanici where inactiv=0 order by nume'
lcCursor = 'v_mecanici'
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
Return lnSucces
Endproc
***********************************************************************
PROCEDURE cctipuri_deviz
IF USED('crstipuri_deviz')
USE IN crstipuri_deviz
ENDIF
lcSql='select id_tip,denumire,inch_validare from dev_tip_deviz where sters=0 order by denumire'
lcCursor = 'crstipuri_deviz'
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
RETURN lnSucces
ENDPROC
***********************************************************************
Function cauta_utilizator
Lparameters tnIdUtil,tcUtilizator
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select id_util,utilizator from syn_vutilizatori"]
pcfiltru = [1=2]
pcschema = ['']
pcorder = [utilizator]
pccoloane = [Utilizator]
pcTitlu = [Alege<67>i utilizatorul]
pcTitluColoane = [Utilizator]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.id_util)
tnIdUtil=locauta.id_util
tcUtilizator=Alltrim(locauta.utilizator)
llReturn=.T.
Endif
Return llReturn
Endfunc && cauta_utilizator
***********************************************************************
FUNCTION cauta_client
Lparameters tnIdPartener,tcNume
Local locauta,llReturn
Store "" To locauta
Store .F. To llReturn
pcselect = ["select p.id_part,p.nume,p.cod_fiscal 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"]
pcfiltru = [1=2]
pcschema = ['id_part n(10),nume c(100),cod_fiscal c(100)']
pcorder = [nume]
pccoloane = [nume,cod_fiscal]
pcTitlu = [Alege<67>i clientul]
pcTitluColoane = [Client,Cod fiscal]
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"")
If !Empty(locauta.id_part)
tnIdPartener=locauta.id_part
tcNume=Alltrim(locauta.nume)
llReturn=.T.
Endif
Return llReturn
ENDFUNC
***********************************************************************
PROCEDURE ccarticole
LPARAMETERS tcFiltru
If Used('v_articole')
Use In v_articole
Endif
lcSql = [select * from ] + gcS + [.vnom_articole where inactiv = 0 ] + IIF(!EMPTY(tcFiltru),[ and ] + tcFiltru,[])+ [ order by denumire ]
lcCursor = [v_articole]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
Return lnSucces
Endproc
***********************************************************************
Procedure ccnorme_devest
LPARAMETERS tcFiltru
If Used('v_norme')
Use In v_norme
Endif
lcSql='select * from '+gcS+'.auto_vnorme where inactiv = 0 ' + IIF(!EMPTY(tcFiltru),' and ' + tcFiltru,'')+ ' order by denop'
lcCursor = 'v_norme'
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
Return lnSucces
ENDPROC
***********************************************************************

40
Programe/update_nomenclator.prg Normal file
View File

@@ -0,0 +1,40 @@
**********************************************************
PROCEDURE update_nomenclator
DO update_lunilean
*** tabele meniu deschise din proiect
LOCAL lcCaleDateMenu
lcCaleDateMenu=gcAppPath+[COMUN\DATEMENU\]
*!* modificare v 2.0.6
*!* IF !USED('XREQUEST')
*!* USE &lcCaleDateMenu.XREQUEST IN 0 ALIAS XREQUEST
*!* ENDIF
*!* IF !USED('xitems')
*!* USE &lcCaleDateMenu.xitems IN 0 ALIAS xitems
*!* 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
lnSucces = xdate()
*!* modificare v 2.0.6 ^
IF !USED('INFISIERE')
USE &lcCaleDateMenu.INFISIERE IN 0 ALIAS INFISIERE
ENDIF
IF !USED('mila1')
USE &lcCaleDateMenu.mila1 IN 0 ALIAS mila1
ENDIF
*!* modificare v 2.0.5
CREATE CURSOR dual (dummy c(10))
INSERT INTO dual (dummy) VALUES ("x")
*!* modificare v 2.0.5 ^
ENDPROC && update_nomenclator