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

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:30:39 +03:00
commit 1fb478ae81
152 changed files with 129219 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

1484
Programe/oproceduri_autopass.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
* 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

1000
Programe/roaauto.prg Normal file
View File

File diff suppressed because it is too large Load Diff

196
Programe/test_autopass_driver.prg Normal file
View File

@@ -0,0 +1,196 @@
*****************************************************************************************
* test_autopass_driver.prg
* Driver .prg fara forma pentru US-003 (client AutopassClient) - PRD ROAAUTO-1.0,
* sectiunea "Acoperire de test": "driver .prg fara forma (1 comanda hand-built) - E2E:
* acopera encoding/headers/timeouts izolat".
*
* Ruleaza autonom din Command Window:
* DO Programe\test_autopass_driver.prg
*
* Ce face:
* (a) apeleaza autopass_test_conexiune() si afiseaza rezultatul (ping)
* (b) construieste MANUAL (fara Oracle) 2 obiecte comanda in formatul asteptat de
* AutopassClient.EnviaLot - una din ele cu operatii cu diacritice in denumire,
* ca sa acopere codepath-ul de encoding
* (c) apeleaza Valideaza (dry-run) pe cele 2 comenzi
* (d) doar cu confirmare MESSAGEBOX explicita SI doar daca mediul citit din config e
* "test", apeleaza si TrimiteLot - altfel se opreste dupa dry-run
* (e) afiseaza raspunsurile per element (index, id_ordl, status, motiv, submission_id)
*
* Nu se apeleaza din meniul aplicatiei - e un instrument de diagnostic, lansat manual.
*****************************************************************************************
CLOSE ALL
CLEAR
SET PROCEDURE TO Programe\oproceduri_autopass.prg ADDITIVE
SET PROCEDURE TO COMUN\utile\nfjson\nfjsoncreate.prg ADDITIVE
SET PROCEDURE TO COMUN\utile\nfjson\nfjsonread.prg ADDITIVE
LOCAL loPing, oClient, loComenzi, loRezValidare, loRezTrimite, loConfig
LOCAL lnAlegere, i, loItem
?'============================================================================='
?'AUTOPASS - driver de test fara forma'
?'============================================================================='
*-- (a) test conexiune (GET /v1/ping) -------------------------------------------------
?
?'--- (a) autopass_test_conexiune() ---'
loPing = autopass_test_conexiune()
?' lSucces : ' + TRANSFORM(loPing.lSucces)
?' cMediu : ' + loPing.cMediu
?' lAutentificatCuCheie : ' + TRANSFORM(loPing.lAutentificatCuCheie)
?' lAreCredsTest : ' + TRANSFORM(loPing.lAreCredsTest)
?' lAreCredsProd : ' + TRANSFORM(loPing.lAreCredsProd)
?' cEroare : ' + loPing.cEroare
IF !loPing.lSucces
?
?'Ping esuat - verifica AUTOPASS_URL/AUTOPASS_KEY in tabelul optiuni inainte de a continua.'
?'Driverul continua totusi (poate testa doar constructia payload-ului si Valideaza va esua controlat).'
ENDIF
*-- (b) construim manual 2 "comenzi", fara Oracle --------------------------------------
?
?'--- (b) construire manuala a comenzilor de test ---'
loComenzi = Createobject('Collection')
*-- comanda 1: fara diacritice, caz de baza
loItem = Createobject('empty')
AddProperty(loItem, 'id_ordl', 900001)
AddProperty(loItem, 'vin', 'WVWZZZ1KZAW000001')
AddProperty(loItem, 'nrinmat', 'B99TST01')
AddProperty(loItem, 'data_prestatie', '2026-07-01')
AddProperty(loItem, 'odometru_final', '123456')
LOCAL ARRAY laPrestatii1(2)
laPrestatii1(1) = Createobject('empty')
AddProperty(laPrestatii1(1), 'cod_op_service', 'SCH001')
AddProperty(laPrestatii1(1), 'denumire', 'Schimb ulei motor')
laPrestatii1(2) = Createobject('empty')
AddProperty(laPrestatii1(2), 'cod_op_service', 'FRN010')
AddProperty(laPrestatii1(2), 'denumire', 'Verificare frane')
AddProperty(loItem, 'prestatii(2)')
Acopy(laPrestatii1, loItem.prestatii)
AddProperty(loItem, 'obs', autopass_obs(90001, 190001))
loComenzi.Add(loItem)
*-- comanda 2: cu diacritice in denumirea operatiei - acopera codepath-ul de encoding
loItem = Createobject('empty')
AddProperty(loItem, 'id_ordl', 900002)
AddProperty(loItem, 'vin', 'WVWZZZ1KZAW000002')
AddProperty(loItem, 'nrinmat', 'B99TST02')
AddProperty(loItem, 'data_prestatie', '2026-07-02')
AddProperty(loItem, 'odometru_final', '87654')
LOCAL ARRAY laPrestatii2(2)
laPrestatii2(1) = Createobject('empty')
AddProperty(laPrestatii2(1), 'cod_op_service', 'DIAC01')
* diacritice romanesti in text sursa (comentariile raman fara diacritice, dar
* denumirea trimisa in payload TREBUIE sa contina diacriticele reale, ca sa testeze
* efectiv encoding-ul):
AddProperty(laPrestatii2(1), 'denumire', '<27>nlocuire ambreiaj - verificare etan<61>s la str<74>ngere')
laPrestatii2(2) = Createobject('empty')
AddProperty(laPrestatii2(2), 'cod_op_service', 'DIAC02')
AddProperty(laPrestatii2(2), 'denumire', 'Reglaj geometrie ro<72>i fa<66>a/spate')
AddProperty(loItem, 'prestatii(2)')
Acopy(laPrestatii2, loItem.prestatii)
AddProperty(loItem, 'obs', autopass_obs(90002, 190002))
loComenzi.Add(loItem)
?' Comenzi construite: ' + TRANSFORM(loComenzi.Count)
FOR i = 1 TO loComenzi.Count
loItem = loComenzi.Item(i)
?' [' + TRANSFORM(i) + '] id_ordl=' + TRANSFORM(loItem.id_ordl) + ;
' vin=' + loItem.vin + ' obs="' + loItem.obs + '"'
ENDFOR
*-- (c) Valideaza (dry-run) -------------------------------------------------------------
?
?'--- (c) AutopassClient.Valideaza() [dry-run, fara enqueue] ---'
oClient = Createobject('AutopassClient')
loRezValidare = .NULL.
TRY
loRezValidare = oClient.Valideaza(loComenzi)
CATCH TO loEx
?' EROARE la Valideaza(): ' + loEx.Message
ENDTRY
IF VARTYPE(loRezValidare) = 'O'
?' lSucces : ' + TRANSFORM(loRezValidare.lSucces)
?' nStatusHttp : ' + TRANSFORM(loRezValidare.nStatusHttp)
?' cDetaliu : ' + loRezValidare.cDetaliu
IF loRezValidare.lSucces AND VARTYPE(loRezValidare.oRezultate) = 'O'
?' Rezultate dry-run:'
FOR EACH loItem IN loRezValidare.oRezultate
?' index=' + TRANSFORM(loItem.index) + ;
' id_ordl=' + TRANSFORM(loItem.id_ordl) + ;
' valid=' + TRANSFORM(loItem.valid) + ;
' status_estimat=' + TRANSFORM(EVL(loItem.status_estimat,'')) + ;
' nemapate=' + IIF(TYPE('loItem.nemapate') = 'A', TRANSFORM(ALEN(loItem.nemapate,1)), '0')
ENDFOR
ENDIF
ENDIF
*-- (d) TrimiteLot - DOAR cu confirmare explicita SI DOAR daca mediul e test -------------
?
?'--- (d) AutopassClient.TrimiteLot() [enqueue real - necesita confirmare] ---'
loConfig = autopass_get_config()
IF UPPER(ALLTRIM(loConfig.cRarEnv)) <> 'TEST'
?' Mediul curent din configurare (AUTOPASS_ENV) nu este "test" (este: "' + ;
loConfig.cRarEnv + '") - TrimiteLot NU se apeleaza din driver.'
?' Seteaza AUTOPASS_ENV=test in tabelul optiuni daca vrei sa testezi enqueue-ul real.'
ELSE
lnAlegere = MESSAGEBOX('Mediul este TEST. Trimiti (enqueue real) cele ' + ;
TRANSFORM(loComenzi.Count) + ' comenzi de test la gateway-ul AUTOPASS?' + CHR(13) + ;
'Aceasta e o transmitere reala pe mediul de test (nu Productie).', 4 + 32, 'AUTOPASS - confirmare TrimiteLot')
IF lnAlegere = 6 && Yes
loRezTrimite = .NULL.
TRY
loRezTrimite = oClient.TrimiteLot(loComenzi)
CATCH TO loEx
?' EROARE la TrimiteLot(): ' + loEx.Message
ENDTRY
IF VARTYPE(loRezTrimite) = 'O'
?' lSucces : ' + TRANSFORM(loRezTrimite.lSucces)
?' nStatusHttp : ' + TRANSFORM(loRezTrimite.nStatusHttp)
?' cDetaliu : ' + loRezTrimite.cDetaliu
IF loRezTrimite.lSucces AND VARTYPE(loRezTrimite.oRezultate) = 'O'
?' Rezultate TrimiteLot:'
FOR EACH loItem IN loRezTrimite.oRezultate
?' index=' + TRANSFORM(loItem.index) + ;
' id_ordl=' + TRANSFORM(loItem.id_ordl) + ;
' status=' + TRANSFORM(loItem.status) + ;
' motiv=' + TRANSFORM(loItem.motiv) + ;
' submission_id=' + TRANSFORM(loItem.submission_id) + ;
' id_prezentare=' + TRANSFORM(loItem.id_prezentare)
ENDFOR
ENDIF
ENDIF
ELSE
?' Renuntat de utilizator - TrimiteLot nu s-a apelat.'
ENDIF
ENDIF
?
?'============================================================================='
?'Driver terminat.'
?'============================================================================='
RETURN

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