Import initial din SVN ROAAUTO/Trunk @HEAD
This commit is contained in:
414
COMUN/programe/omeniu_initializari.prg
Normal file
414
COMUN/programe/omeniu_initializari.prg
Normal file
@@ -0,0 +1,414 @@
|
||||
**********************************************************************
|
||||
* Program....: OMENIU_INITIALIZARI.PRG
|
||||
* Version....:
|
||||
* Author.....: MMUTU # marius.mutu
|
||||
* Date.......: 15 June 2006, 15:21:31
|
||||
* Notice.....: Copyright <20> 2006,
|
||||
* All Rights Reserved.
|
||||
* Compiler...: Visual FoxPro 09.00.0000.2412 for Windows
|
||||
* Abstract...:
|
||||
* Changes....: marius.mutu, Created 15 June 2006 / 15:21:31
|
||||
* Parameters.:
|
||||
* called by..:
|
||||
* Purpose....:
|
||||
**********************************************************************
|
||||
|
||||
|
||||
*------------------------------------------------------------
|
||||
* Description: configurare_note
|
||||
* Parameters: tlCRM
|
||||
* Return:
|
||||
* Use:
|
||||
*------------------------------------------------------------
|
||||
* Id Date By Description
|
||||
* 1 10/12/2004 lavinia.viziru Initial Creation
|
||||
*
|
||||
*------------------------------------------------------------
|
||||
Procedure configurare_note
|
||||
Parameters tlCRM
|
||||
|
||||
Local llCRM
|
||||
Local ofrm_note As Form
|
||||
Local lcCursor, lcCursor0, lcFiltru, lcForm, lcOrder, lcSchema, lcSelect, lcSelect0, lnSucces
|
||||
Local lnSucces0
|
||||
llCRM = tlCRM && folosesc crm_note_vanzari de pe server
|
||||
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
If llCRM
|
||||
Private poNote_vanzari
|
||||
Store '' To poNote_vanzari
|
||||
|
||||
Local lcSchema1, lcSelect1, lcOrder1, lcFiltru1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal
|
||||
lcSchema1 = []
|
||||
lcSelect1 = [select denumire as meniu, nv.* from vcrm_note_vanzari nv]
|
||||
lcOrder1 = [denumire]
|
||||
lcgroup = []
|
||||
lcFiltru1 = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poNote_vanzari', 'nom_meniu', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poNote_vanzari.ca_baza1.afisare()
|
||||
|
||||
Else
|
||||
|
||||
Select nom_meniu
|
||||
Set Order To 3 && Meniu
|
||||
Go Top
|
||||
Endif
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
lcSelect0 = [select cont, acont from ] + gcS + [.plcont where an = ] + Alltrim(Str(gnAn))
|
||||
lcCursor0 = [cplcont]
|
||||
|
||||
lnSucces0 = goExecutor.oExecute(lcSelect0, lcCursor0)
|
||||
If lnSucces0 < 0
|
||||
aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||||
Return
|
||||
Endif
|
||||
***-----------------------------------------------------------------------------------------------------------------------------
|
||||
Private ponote_contab, pcschema, pcselect
|
||||
Store '' To ponote_contab
|
||||
lcSchema1 = []
|
||||
lcSelect1 = [select * from ] + Iif(gnAn >= Iif(Type('gnAnFormNou') = 'U', 2007, gnAnFormNou), [vnote_contabile], [note_contabile])
|
||||
lcOrder1 = [id_set, ordine]
|
||||
lcgroup = []
|
||||
lcFiltru1 = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('ponote_contab', 'cnote_contab', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
ponote_contab.ca_baza1.afisare()
|
||||
|
||||
***************************************************************
|
||||
*** Note definite de utilizator
|
||||
***************************************************************
|
||||
Private poCategorii
|
||||
poCategorii = Null
|
||||
lcSchema = []
|
||||
lcSelect = [select categorie, id_categorie, ordine from xSetsCategorii where sters = 0 union select 'FARA CATEGORIE' as categorie, 0 as id_categorie, 0 as ordine from dual]
|
||||
lcOrder = [ordine]
|
||||
lcgroup = []
|
||||
lcFiltru = [1=2]
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poCategorii', 'crsECategorii', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poCategorii.ca_baza1.afisare()
|
||||
|
||||
Private poSets
|
||||
poSets = Null
|
||||
lcSchema = []
|
||||
lcSelect = [select * from xSets]
|
||||
lcOrder = [nume_set]
|
||||
lcgroup = []
|
||||
lcFiltru = [1=2]
|
||||
lcFiltruOriginal = [id_set >= 1000000]
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poSets', 'crsESets', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poSets.ca_baza1.afisare()
|
||||
|
||||
|
||||
Private poRequest
|
||||
poRequest = Null
|
||||
lcSchema = []
|
||||
lcOrder = [r.nr_item]
|
||||
lcgroup = []
|
||||
lcFiltru = [1=2]
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
Text To lcSelect Textmerge Noshow
|
||||
select i.label_item,
|
||||
s.nume_set,
|
||||
r.valoare_default,
|
||||
r.nr_item,
|
||||
r.id_item,
|
||||
r.id_set,
|
||||
i.fis_lista,
|
||||
i.id_fisier,
|
||||
i.camp_lista,
|
||||
rpad(case
|
||||
when i.fis_lista is not null then
|
||||
pack_util.GetText(i.fis_lista,
|
||||
i.id_fisier,
|
||||
CASE WHEN LENGTH(TRIM(TRANSLATE(r.valoare_default, '0123456789+-.', ' '))) IS NULL
|
||||
THEN to_number(r.valoare_default)
|
||||
ELSE 0
|
||||
END,
|
||||
replace(i.camp_lista, ',', ' || '' '' || '))
|
||||
ELSE
|
||||
r.valoare_default
|
||||
end,
|
||||
100,
|
||||
' ') as valoare_default_text
|
||||
from xrequest r
|
||||
join xsets s
|
||||
on s.id_set = r.id_set
|
||||
join xitems i
|
||||
on i.id_item = r.id_item
|
||||
Endtext
|
||||
|
||||
gencursor('poRequest', 'crsERequest', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poRequest.ca_baza1.afisare()
|
||||
|
||||
|
||||
Private poNote
|
||||
poNote = Null
|
||||
lcSchema = []
|
||||
lcOrder = [a.nr_nota]
|
||||
lcgroup = []
|
||||
lcFiltru = [1=2]
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
Text To lcSelect Textmerge Noshow
|
||||
SELECT decode(NVL(a.id_jtva_coloana, 0), 0, 0, 1) As Cu_tva,
|
||||
Cast(0 As Number(2)) As tipnota,
|
||||
cast(0 as number(20)) as id_act,
|
||||
cast(0 as number(2)) as luna,
|
||||
cast(0 as number(4)) as an,
|
||||
cast(0 as number(20)) as cod,
|
||||
a.dataireg,
|
||||
a.serie_act,
|
||||
a.nract,
|
||||
a.dataact,
|
||||
a.explicatia,
|
||||
a.xscd as scd,
|
||||
a.xascd as ascd,
|
||||
a.xscc as scc,
|
||||
a.xascc as ascc,
|
||||
a.suma,
|
||||
a.pereched,
|
||||
a.perechec,
|
||||
a.suma_val,
|
||||
a.id_valuta,
|
||||
v.nume_val,
|
||||
a.curs,
|
||||
a.datascad,
|
||||
0 AS neimpozab,
|
||||
a.nnir,
|
||||
cast(0 as number(5)) as id_util,
|
||||
'' AS util,
|
||||
sysdate as dataora,
|
||||
cast(0 as number(5)) as id_utils,
|
||||
'' AS utils,
|
||||
sysdate as dataoras,
|
||||
a.id_responsabil,
|
||||
resp.denumire AS nresp,
|
||||
a.id_venchelt,
|
||||
venchelt.explicatie AS dst_chlt,
|
||||
a.id_lucrare,
|
||||
lucr.nrord,
|
||||
a.id_ctr,
|
||||
(case when ctr.numar is not null then ctr.numar || '/' else '' end) || TO_CHAR(ctr.data,'DD.MM.YYYY') as contract,
|
||||
a.id_sectie,
|
||||
sectii.sectie,
|
||||
a.proc_tva,
|
||||
a.id_set,
|
||||
NVL(a.id_fact, 0) as id_fact,
|
||||
a.id_partd,
|
||||
part1.denumire AS partd,
|
||||
a.id_partc,
|
||||
part.denumire AS partc,
|
||||
cast(0 as number(5)) as id_sucursala,
|
||||
'' as sucursala,
|
||||
a.id_fdoc,
|
||||
fdoc.fel_document AS fdoc,
|
||||
a.explicatia4,
|
||||
a.explicatia5,
|
||||
cast(0 as number(5)) as id_gestin,
|
||||
'' AS gestin,
|
||||
cast(0 as number(5)) as id_gestout,
|
||||
'' AS gestout,
|
||||
NVL(a.id_factd, 0) as id_factd,
|
||||
NVL(a.id_factc, 0) as id_factc,
|
||||
a.id_jtva_coloana,
|
||||
jtva.denumire as explicatie_tva,
|
||||
cast(0 AS NUMBER(1)) AS validat,
|
||||
cast(0 as number(5)) as id_utilv,
|
||||
'' as utilv,
|
||||
SYSDATE AS dataorav,
|
||||
NVL(doc.tva_incasare,0) as tva_incasare
|
||||
from xnote a
|
||||
LEFT JOIN nom_fdoc fdoc ON a.id_fdoc = fdoc.id_fdoc
|
||||
LEFT JOIN nom_parteneri part ON a.id_partc = part.id_part
|
||||
LEFT JOIN nom_parteneri part1 ON a.id_partd = part1.id_part
|
||||
LEFT JOIN vnom_venchel venchelt ON a.id_venchelt = venchelt.id_venchelt
|
||||
LEFT JOIN nom_parteneri resp ON a.id_responsabil = resp.id_part
|
||||
LEFT JOIN nom_sectii sectii ON a.id_sectie = sectii.id_sectie
|
||||
LEFT JOIN vnom_lucrari lucr ON a.id_lucrare = lucr.id_lucrare
|
||||
LEFT JOIN nom_valute v ON a.id_valuta = v.id_valuta
|
||||
LEFT JOIN contracte ctr ON ctr.id_ctr = a.id_ctr
|
||||
LEFT JOIN jtva_coloane jtva ON a.id_jtva_coloana = jtva.id_jtva_coloana
|
||||
LEFT JOIN documente doc on a.id_fact = doc.id_doc
|
||||
Endtext
|
||||
gencursor('poNote', 'crsENote', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poNote.ca_baza1.afisare()
|
||||
***************************************************************
|
||||
|
||||
|
||||
lcCursor0 = [ctva]
|
||||
lcCursor = [ccalendar]
|
||||
If gnAn >= Iif(Type('gnAnFormNou') = 'U', 2007, gnAnFormNou)
|
||||
lcForm = [frm_config_note_contabile2007]
|
||||
Else
|
||||
lcSelect0 = [select descriere as tva, procent as ptva from ] + gcS + [.cote_tva where an = ?gnAn and luna = ?gnLuna]
|
||||
lnSucces0 = goExecutor.oExecute(lcSelect0, lcCursor0)
|
||||
If lnSucces0 < 0
|
||||
aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||||
Return
|
||||
Endif
|
||||
|
||||
lcSelect = [select ctvam from ] + gcS + [.calendar where an = '] + Alltrim(Str(gnAn)) + ;
|
||||
[' and nl = '] + Alltrim(Str(gnAn)) + [']
|
||||
lnSucces = goExecutor.oExecute(lcSelect, lcCursor)
|
||||
If lnSucces < 0
|
||||
aMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare')
|
||||
Return
|
||||
Endif
|
||||
|
||||
Private pnctvam
|
||||
Select ccalendar
|
||||
pnctvam = ccalendar.ctvam
|
||||
|
||||
lcForm = [frm_config_note_contabile]
|
||||
Endif
|
||||
*ofrm_note = CREATEOBJECT(lcForm,llCRM)
|
||||
Do Form (lcForm) Name ofrm_note Linked With m.llCRM Noshow
|
||||
ofrm_note.Show(1)
|
||||
|
||||
|
||||
Release ponote_contab
|
||||
Use In (select(lcCursor0))
|
||||
Use In (select(lcCursor))
|
||||
Use In (SELECT('cnote_contab'))
|
||||
If m.llCRM
|
||||
Use In (SELECT('nom_meniu'))
|
||||
ENDIF
|
||||
USE IN (select('crsECategorii'))
|
||||
USE IN (select('crsESets'))
|
||||
Endproc
|
||||
******************************* SFARSIT: configurare_note ************************************
|
||||
|
||||
|
||||
*------------------------------------------------------------
|
||||
* Description: configurare analitice
|
||||
* Parameters:
|
||||
* Return:
|
||||
* Use:
|
||||
*------------------------------------------------------------
|
||||
* Id Date By Description
|
||||
* 1 15/06/2006 marius.mutu Initial Creation
|
||||
*
|
||||
*------------------------------------------------------------
|
||||
Procedure configurare_analitice
|
||||
|
||||
Private poConfig
|
||||
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
||||
Store Null To poConfig
|
||||
lcSchema = []
|
||||
lcSelect = [select * from config_analitice]
|
||||
lcOrder = [cont]
|
||||
lcgroup = []
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poConfig', 'crsConfigAnalitice', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poConfig.ca_baza1.afisare()
|
||||
|
||||
loConfigFrm = Createobject("frm_config_analitice")
|
||||
loConfigFrm.Show(1)
|
||||
Endproc && configurare_analitice
|
||||
|
||||
*------------------------------------------------------------
|
||||
Procedure configurare_analitice_gruputil
|
||||
|
||||
Private poConfig
|
||||
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
||||
Store Null To poConfig
|
||||
lcSchema = []
|
||||
lcSelect = [select * from vconfig_gruputil_analitice]
|
||||
lcOrder = [denumire_grup, cont]
|
||||
lcgroup = []
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poConfig', 'crsConfigAnalitice', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poConfig.ca_baza1.afisare()
|
||||
|
||||
loConfigFrm = Createobject("frm_config_analitice_gruputil")
|
||||
loConfigFrm.Show(1)
|
||||
|
||||
USE IN (SELECT('crsConfigAnalitice'))
|
||||
Endproc && configurare_analitice_gruputil
|
||||
|
||||
*------------------------------------------------------------
|
||||
Procedure configurare_analitice_tva
|
||||
|
||||
Private poConfig
|
||||
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
||||
Store Null To poConfig
|
||||
lcSchema = []
|
||||
lcSelect = [select id, id_jtva_coloana, explicatie_tva, cont, acont, id_grup, denumire_grup, id_sucursala, sucursala, id_util, utilizator, dataora from vconfig_tva_analitice]
|
||||
lcOrder = [sucursala, denumire_grup, cont, explicatie_tva]
|
||||
lcgroup = []
|
||||
lcFiltru = []
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poConfig', 'crsConfigAnalitice', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poConfig.ca_baza1.afisare()
|
||||
|
||||
loConfigFrm = Createobject("frm_config_analitice_tva")
|
||||
loConfigFrm.Show(1)
|
||||
|
||||
USE IN (SELECT('crsConfigAnalitice'))
|
||||
Endproc && configurare_analitice_tva
|
||||
|
||||
* Eof OMENIU_INITIALIZARI.PRG
|
||||
|
||||
|
||||
|
||||
*******************************************
|
||||
* PROCEDURE acces_liste( )
|
||||
* Date : 08/30/06, 11:37:08
|
||||
* author : liana.macinic
|
||||
* description:
|
||||
|
||||
****** PARAMETER BLOCK **************
|
||||
* Parameters : 0
|
||||
*
|
||||
*******************************************
|
||||
Procedure acces_liste( )
|
||||
Private poAccesListe
|
||||
Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza
|
||||
Store Null To poAccesListe
|
||||
lcSchema = []
|
||||
lcSelect = [select * from vpolitici_grupuri]
|
||||
lcOrder = [nume_lista_preturi]
|
||||
lcgroup = []
|
||||
lcFiltru = [1=1] + gcCondSucursala
|
||||
lcFiltruOriginal = []
|
||||
llModParam = .T.
|
||||
llAfiseaza = .F.
|
||||
|
||||
gencursor('poAccesListe', 'crsPolGr', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
||||
poAccesListe.ca_baza1.afisare()
|
||||
|
||||
loAccesListeFrm = Createobject("frm_politiciGrupuri")
|
||||
loAccesListeFrm.Show(1)
|
||||
|
||||
Endproc
|
||||
*----------------------------------sfarsit procedura acces_liste----------------------------------
|
||||
Reference in New Issue
Block a user