637 lines
21 KiB
Plaintext
637 lines
21 KiB
Plaintext
***************************************************************************************************************
|
|
**** Clasa:
|
|
**** oDateListare
|
|
**** Proceduri:
|
|
**** rap_avize
|
|
**** rap_facturi
|
|
**** rap_incasari
|
|
**** rap_articole
|
|
**** rap_articole_tr
|
|
**** rap_avize_transfer
|
|
**** rap_centralizator
|
|
**** rap_centr_subgrupe
|
|
***************************************************************************************************************
|
|
Define Class oDateListare As Custom
|
|
datai = {}
|
|
dataf = {}
|
|
data_referinta = {}
|
|
csql = []
|
|
id_client = Null
|
|
nume_client = []
|
|
id_agent = Null
|
|
nume_agent = []
|
|
id_delegat = Null
|
|
nume_delegat = []
|
|
id_masina = Null
|
|
nrinmat = []
|
|
categorie = []
|
|
id_categorie_entitate = Null
|
|
denumire = []
|
|
id_articol = Null
|
|
grupa = []
|
|
id_grupa = Null
|
|
subgrupa = []
|
|
id_subgrupa = Null
|
|
id_gestiune_sursa = Null
|
|
gestiune_sursa = []
|
|
id_gestiune_dest = Null
|
|
gestiune_dest = []
|
|
id_util = Null
|
|
utilizator = []
|
|
id_gestiune = Null
|
|
nume_gestiune = []
|
|
subgr_art = []
|
|
id_furnart = Null
|
|
furnizor_art = []
|
|
*!* tip_raport = 1
|
|
*!* Dimension acoloane(30,4) && 1 - nume_camp
|
|
*!* && 2 - ordine la grupare
|
|
*!* && 3 - ordine la order by
|
|
*!* && 4 - sens la order by ( 1 - ASC, 2 - DESC )
|
|
Procedure Init
|
|
With This
|
|
ldData = Ttod(get_ora())
|
|
If Year(ldData)*12+Month(ldData)<>gnAn*12+gnLuna
|
|
.datai = Date(gnAn,gnLuna,1)
|
|
.dataf = Gomonth(Date(gnAn,gnLuna,1),1)-1
|
|
.data_referinta = .dataf
|
|
Else
|
|
.dataf = ldData
|
|
.data_referinta = ldData
|
|
.datai = Date(Year(ldData),Month(ldData),1)
|
|
Endif
|
|
Endwith
|
|
Endproc
|
|
|
|
Enddefine
|
|
***************************************************************************************************************
|
|
********************************************** INCEPUT: rap_avize *********************************************
|
|
Procedure rap_avize
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_avize")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_avize
|
|
********************************************** SFARSIT: rap_avize *********************************************
|
|
********************************************* INCEPUT: rap_facturi ********************************************
|
|
Procedure rap_facturi
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_facturi")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_facturi
|
|
********************************************** SFARSIT: rap_facturi *******************************************
|
|
******************************************** INCEPUT: rap_incasari ********************************************
|
|
Procedure rap_incasari
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_incasari")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_incasari
|
|
******************************************** SFARSIT: rap_incasari ********************************************
|
|
******************************************** INCEPUT: rap_articole ********************************************
|
|
Procedure rap_articole
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_articole")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_articole
|
|
******************************************** SFARSIT: rap_articole ********************************************
|
|
******************************************** INCEPUT: rap_articole_tr ********************************************
|
|
Procedure rap_articole_tr
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_articole_tr")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_articole_tr
|
|
******************************************** SFARSIT: rap_articole_tr ********************************************
|
|
******************************************** INCEPUT: rap_articole_v ********************************************
|
|
Procedure rap_articole_v
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_articole_v")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_articole_tr
|
|
******************************************** SFARSIT: rap_articole_v ********************************************
|
|
***************************************** INCEPUT: rap_avize_transfer *****************************************
|
|
Procedure rap_avize_transfer
|
|
Private poListare
|
|
poListare = Createobject("oDateListare")
|
|
ofrmdatelistare=Createobject("frm_date_rapoarte_avize_tr")
|
|
ofrmdatelistare.Show(1)
|
|
Release poListare, ofrmdatelistare
|
|
Endproc && rap_avize_transfer
|
|
***************************************** SFARSIT: rap_avize_transfer *****************************************
|
|
***************************************** INCEPUT: rap_centralizator ******************************************
|
|
Procedure rap_centralizator
|
|
Private pcDataora,pcPerioada,pdDataI,pdDataF,pnTotalFTva1,pnTotalTva1,pnTotalFTva2,pnTotalTva2
|
|
Store {} To pdDataI,pdDataF
|
|
Store 0 To pnTotalFaraTva1,pnTotalTva1,pnTotalFaraTva2,pnTotalTva2
|
|
Local lcOrder,lcSql,lcFiltru,lnSucces,lnNefacturatFTva,lnNefacturatTva
|
|
|
|
ofrmperioada=Createobject('frm_perioada_zzllaaaa')
|
|
ofrmperioada.Show(1)
|
|
If gnButon=2
|
|
Return
|
|
Endif
|
|
|
|
pcPerioada = [Perioada ]+Dtoc(pdDataI)+[ - ]+Dtoc(pdDataF)
|
|
|
|
Create Cursor crsCentralizator(tip N(2),categorie c(100),valftva N(20,4),valtva N(20,4))
|
|
*!* tip = 1 >> nu afiseaza sumele
|
|
pcDataora = get_ora(2)
|
|
|
|
If Used('crsCentrTot')
|
|
Use In crsCentrTot
|
|
Endif
|
|
lcSql1 = [select 1 as crs,tip,SUM(suma_fara_tva) as valftva,SUM(suma_tva) as valtva from ] + ;
|
|
gcS + [.fact_vrap_centralizator_tipuri where data_act between ?pdDataI and ?pdDataF] + gcCondSucursala + ;
|
|
[ group by tip]
|
|
lcSql2 = [select 2 as crs,null as tip,SUM(suma_fara_tva) as valftva,SUM(suma_tva) as valtva from ] + ;
|
|
gcS + [.fact_vrap_centralizator_art where data_act between ?pdDataI and ?pdDataF] + gcCondSucursala
|
|
lcSql3 = [select 3 as crs,null as tip,SUM(suma_fara_tva) as valftva,SUM(suma_tva) as valtva from ] + ;
|
|
gcS + [.fact_vrap_centralizator_rate where data_act between ?pdDataI and ?pdDataF] + gcCondSucursala
|
|
lcSql4 = [select 4 as crs,null as tip,SUM(disc_fara_tva) as valftva,SUM(disc_tva) as valtva from ] + ;
|
|
gcS + [.fact_vrap_centralizator_fact where data_act between ?pdDataI and ?pdDataF] + gcCondSucursala
|
|
lcSql = lcSql1 + [ union all ] + lcSql2 + [ union all ] + lcSql3 + [ union all ] + lcSql4
|
|
lcCursor = [crsCentrTot]
|
|
lnSucces = goExecutor.oexecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
|
Use In crsCentrTot
|
|
Return
|
|
Endif
|
|
|
|
*** prelucrare raport
|
|
*!* Facturi
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "1. FACTURI"
|
|
Select Sum(valftva) As valftva,Sum(valtva) As valtva From crsCentrTot Where tip < 20 And crs=1 Into Cursor crsTemp
|
|
Select crsTemp
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
pnTotalFTva1 = Nvl(poCentr.valftva,0)
|
|
pnTotalTva1 = Nvl(poCentr.valtva,0)
|
|
|
|
*!* Avize catre clienti
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "2. AVIZE CATRE CLIENTI",tip With 1
|
|
|
|
*!* Valoare totala
|
|
Append Blank
|
|
Replace categorie With Space(5)+"a) Valoare totala"
|
|
Select Sum(valftva) As valftva,Sum(valtva) As valtva From crsCentrTot Where Inlist(tip,21,22) And crs=1 Into Cursor crsTemp
|
|
Select crsTemp
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
lnNefacturatFTva = Nvl(poCentr.valftva,0)
|
|
lnNefacturatTva = Nvl(poCentr.valtva,0)
|
|
|
|
*!* Valoare facturata
|
|
Append Blank
|
|
Replace categorie With Space(5)+"b) Valoare facturata"
|
|
Select Sum(valftva) As valftva,Sum(valtva) As valtva From crsCentrTot Where tip = 4 And crs=1 Into Cursor crsTemp
|
|
Select crsTemp
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
lnNefacturatFTva = lnNefacturatFTva - Nvl(poCentr.valftva,0)
|
|
lnNefacturatTva = lnNefacturatTva - Nvl(poCentr.valtva,0)
|
|
|
|
*!* Valoare retururi
|
|
Append Blank
|
|
Replace categorie With Space(5)+"c) Valoare retururi"
|
|
Select Sum(valftva) As valftva,Sum(valtva) As valtva From crsCentrTot Where tip = 24 And crs=1 Into Cursor crsTemp
|
|
Select crsTemp
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
lnNefacturatFTva = lnNefacturatFTva + Nvl(poCentr.valftva,0)
|
|
lnNefacturatTva = lnNefacturatTva + Nvl(poCentr.valtva,0)
|
|
|
|
*!* Valoare nefacturata
|
|
Append Blank
|
|
Replace categorie With Space(5)+"d) Valoare nefacturata (a-b+c)"
|
|
Replace valftva With lnNefacturatFTva,valtva With lnNefacturatTva
|
|
pnTotalFTva1 = pnTotalFTva1 + lnNefacturatFTva
|
|
pnTotalTva1 = pnTotalTva1 + lnNefacturatTva
|
|
|
|
*!* Transferuri intre subunitati
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "3. TRANSFERURI INTRE SUBUNITATI"
|
|
Select Sum(valftva) As valftva,Sum(valtva) As valtva From crsCentrTot Where tip = 23 And crs=1 Into Cursor crsTemp
|
|
Select crsTemp
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
pnTotalFTva1 = pnTotalFTva1 + Nvl(poCentr.valftva,0)
|
|
pnTotalTva1 = pnTotalTva1 + Nvl(poCentr.valtva,0)
|
|
|
|
*!* Articole
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "4. TOTAL ARTICOLE VANDUTE"
|
|
Select crsCentrTot
|
|
Locate For crs=2
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
pnTotalFTva2 = Nvl(poCentr.valftva,0)
|
|
pnTotalTva2 = Nvl(poCentr.valtva,0)
|
|
|
|
*!* Articole
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "5. TOTAL RATE CONTRACTE"
|
|
Select crsCentrTot
|
|
Locate For crs=3
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
pnTotalFTva2 = pnTotalFTva2 + Nvl(poCentr.valftva,0)
|
|
pnTotalTva2 = pnTotalTva2 + Nvl(poCentr.valtva,0)
|
|
|
|
*!* Discount-uri globale
|
|
Select crsCentralizator
|
|
Append Blank
|
|
Replace categorie With "6. TOTAL DISCOUNT GLOBAL"
|
|
Select crsCentrTot
|
|
Locate For crs=4
|
|
Scatter Name poCentr
|
|
Select crsCentralizator
|
|
Replace valftva With Nvl(poCentr.valftva,0),valtva With Nvl(poCentr.valtva,0)
|
|
pnTotalFTva2 = pnTotalFTva2 - Nvl(poCentr.valftva,0)
|
|
pnTotalTva2 = pnTotalTva2 - Nvl(poCentr.valtva,0)
|
|
|
|
Release poCentr
|
|
Use In crsTemp
|
|
|
|
If Used('crsCentrTot')
|
|
Use In crsCentrTot
|
|
Endif
|
|
|
|
If Reccount('crsCentralizator') > 0
|
|
Keyboard "{ctrl+f10}"
|
|
Select crsCentralizator
|
|
Report Form raport_centralizator To Printer Prompt Preview
|
|
Else
|
|
amessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
|
|
Endif
|
|
|
|
If Used('crsCentralizator')
|
|
Use In crsCentralizator
|
|
Endif
|
|
|
|
Release pcDataora,pcPerioada,pdDataI,pdDataF,pnTotalFTva1,pnTotalTva1,pnTotalFTva2,pnTotalTva2
|
|
Endproc && rap_centralizator
|
|
***************************************** SFARSIT: rap_centralizator ******************************************
|
|
***************************************** INCEPUT: rap_centr_subgrupe *****************************************
|
|
Procedure rap_centr_subgrupe
|
|
Local lcSql,lnSucces,lcCursor
|
|
Private pcDataora,pcPerioada,pdDataI,pdDataF,pcTitlu
|
|
Store {} To pdDataI,pdDataF
|
|
lcCursor = [crscentrsubgr]
|
|
|
|
ofrmperioada=Createobject('frm_perioada_zzllaaaa')
|
|
ofrmperioada.Show(1)
|
|
If gnButon=1
|
|
pcPerioada = [Perioada ] + Dtoc(pdDataI) + [ - ] + Dtoc(pdDataF)
|
|
Else
|
|
Return
|
|
Endif
|
|
|
|
lcXMLGestiune = caut_gestiune_xml(2)
|
|
If !Empty(lcXMLGestiune) And gnButon = 1
|
|
Xmltocursor(lcXMLGestiune, "crsGestTemp")
|
|
If Reccount('crsGestTemp') = 0
|
|
amessagebox('Nu ati selectat nici o gestiune!',0+48,'Inventar')
|
|
Return
|
|
Endif
|
|
pcTitlu = [CENTRALIZATOR VALORI PE SUBGRUPE DE ARTICOLE]
|
|
lcListaIdGestiuni = cursor2lista("crsGestTemp", "id_gestiune", ",")
|
|
Use In crsGestTemp
|
|
Else
|
|
Return
|
|
Endif
|
|
|
|
If Used(lcCursor)
|
|
Use In (lcCursor)
|
|
Endif
|
|
lcSql = [select subgrupa,nume_gestiune,id_gestiune,Sum(val_ach) as val_ach,Sum(val_vanz) as val_vanz from ] + gcS + [.fact_vcentr_val_subgrupe ] + ;
|
|
[where data_act between ?pdDataI and ?pdDataF and id_gestiune in (] + lcListaIdGestiuni + [) ] + ;
|
|
[group by id_gestiune,nume_gestiune,subgrupa ] + ;
|
|
[order by nume_gestiune,subgrupa]
|
|
lnSucces = goExecutor.oexecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.cEroare,16,"Eroare")
|
|
Else
|
|
goExport.export2frx(lcCursor,[rap_centr_val_subgrupe])
|
|
Endif
|
|
If Used(lcCursor)
|
|
Use In (lcCursor)
|
|
Endif
|
|
|
|
Release lcSql,lnSucces,pcDataora,pcPerioada,pdDataI,pdDataF,pcTitlu
|
|
Endproc && rap_centr_subgrupe
|
|
***************************************** SFARSIT: rap_centr_subgrupe *****************************************
|
|
Procedure centr_avize_ruta
|
|
|
|
|
|
lcFiltru = [2=2]
|
|
lcSchema = [id_lucrare n(10),nrord c(100)]
|
|
lcOrder = [nrord]
|
|
lccoloane = [nrord]
|
|
lcTitlu = [ALEGETI LUCRAREA]
|
|
lcTitluColoane = [Lucrare]
|
|
*!* llMaiMulteMasini = tlMaiMulteMasini
|
|
lcSelect = [select id_lucrare,nrord from vnom_lucrari]
|
|
lcFiltruOriginal = [inactiv = 0]
|
|
*!* lcNumeProc = [nom_nomrute]
|
|
llToateIreg = .F.
|
|
lcPrimaColoana = [nrord]
|
|
lnPornire = 1
|
|
*!* lnTipReturn = Iif(tlMaiMulteMasini, 1, 0)
|
|
lcIdColumn = "id_lucrare"
|
|
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, , llToateIreg, lcFiltruOriginal)&&, lcPrimaColoana, lnPornire, , lcIdColumn)
|
|
*!* loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
|
|
|
|
|
If Empty(loCauta.id_lucrare) Or Isnull(loCauta.id_lucrare)
|
|
Return
|
|
Endif
|
|
|
|
|
|
|
|
lcSql = [ select * from fact_vrap_avize_ruta where id_lucrare = ]+Alltrim(Str(loCauta.id_lucrare))+[ order by ruta,data_act,numar_act]
|
|
lcCursor = [crsavizeruta]
|
|
lnSucces = goExecutor.oexecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
|
Use In crsavizeruta
|
|
Return
|
|
Endif
|
|
Select crsavizeruta
|
|
If Reccount() < 1
|
|
amessagebox('Nu exista date pentru comanda selectata!',0+64,'Atentie')
|
|
Use In crsavizeruta
|
|
|
|
Return
|
|
Endif
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crsavizeruta
|
|
Report Form rap_avizerute To Printer Prompt Preview
|
|
|
|
Use In crsavizeruta
|
|
Endproc
|
|
|
|
|
|
*-------------------------------------------------------------------------------
|
|
|
|
Procedure centr_art_ruta
|
|
|
|
|
|
lcFiltru = [2=2]
|
|
lcSchema = [id_lucrare n(10),nrord c(100)]
|
|
lcOrder = [nrord]
|
|
lccoloane = [nrord]
|
|
lcTitlu = [ALEGETI LUCRAREA]
|
|
lcTitluColoane = [Lucrare]
|
|
*!* llMaiMulteMasini = tlMaiMulteMasini
|
|
lcSelect = [select id_lucrare,nrord from vnom_lucrari]
|
|
lcFiltruOriginal = [inactiv = 0]
|
|
*!* lcNumeProc = [nom_nomrute]
|
|
llToateIreg = .F.
|
|
lcPrimaColoana = [nrord]
|
|
lnPornire = 1
|
|
*!* lnTipReturn = Iif(tlMaiMulteMasini, 1, 0)
|
|
lcIdColumn = "id_lucrare"
|
|
loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, , llToateIreg, lcFiltruOriginal)&&, lcPrimaColoana, lnPornire, , lcIdColumn)
|
|
*!* loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, tlToateIreg, lcFiltruOriginal) && 11.07.2007
|
|
|
|
|
|
If Empty(loCauta.id_lucrare) Or Isnull(loCauta.id_lucrare)
|
|
Return
|
|
Endif
|
|
|
|
|
|
|
|
lcSql = [ select * from fact_vrap_art_ruta where id_lucrare = ]+Alltrim(Str(loCauta.id_lucrare))+[ order by ruta,subgrupa,denumire]
|
|
lcCursor = [crsartruta]
|
|
lnSucces = goExecutor.oexecute(lcSql,lcCursor)
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
|
|
Use In crsartruta
|
|
Return
|
|
Endif
|
|
Select crsartruta
|
|
If Reccount() < 1
|
|
amessagebox('Nu exista date pentru comanda selectata!',0+64,'Atentie')
|
|
Use In crsartruta
|
|
|
|
Return
|
|
Endif
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crsartruta
|
|
Report Form rap_ARTrute To Printer Prompt Preview
|
|
|
|
Use In crsartruta
|
|
Endproc
|
|
|
|
*---------------------------------------------------------------------------
|
|
Procedure rap_factav_doc && lansat din rap_listfactav_centr, lansat la randul lui din frm_facturi (ofacturare.vcx)
|
|
Local lnNrIreg,lcFiltruInit,lnRecSel
|
|
Store 0 To lnNrIreg,lnRecSel
|
|
Store '' To lcFiltruInit
|
|
|
|
Select crsfacturi
|
|
lcFiltruInit = Set("Filter")
|
|
lnRecSel = Recno()
|
|
Set Filter To ales = 1
|
|
|
|
Count For ales = 1 To lnNrIreg
|
|
*!* modificare v 2.0.40
|
|
*!* If Reccount() <1
|
|
If lnNrIreg < 1
|
|
*!* modificare v 2.0.40 ^
|
|
amessagebox('Nu ati selectat vreun document!',0+48,'Atentie')
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* EndIf
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crsfacturi
|
|
Report Form rap_avizedoc To Printer Prompt Preview
|
|
*!* modificare v 2.0.40
|
|
Endif
|
|
*!* modificare v 2.0.40 ^
|
|
Select crsfacturi
|
|
Set Filter To &lcFiltruInit
|
|
If lnRecSel>0
|
|
Goto lnRecSel
|
|
Endif
|
|
Endproc
|
|
*---------------------------------------------------------------------------
|
|
Procedure rap_factav_art && lansat din rap_listfactav_centr, lansat la randul lui din frm_facturi (ofacturare.vcx)
|
|
Local lcidvanzari,lcSql,lnSucces
|
|
Store '' To lcidvanzari
|
|
Local lnNrIreg,lcFiltruInit,lnRecSel
|
|
Store 0 To lnNrIreg,lnRecSel
|
|
Store '' To lcFiltruInit
|
|
|
|
Select crsfacturi
|
|
lcFiltruInit = Set("Filter")
|
|
lnRecSel = Recno()
|
|
Set Filter To ales = 1
|
|
|
|
Count For ales = 1 To lnNrIreg
|
|
*!* modificare v 2.0.40
|
|
*!* If Reccount() <1
|
|
If lnNrIreg < 1
|
|
*!* modificare v 2.0.40 ^
|
|
amessagebox('Nu ati selectat vreun document!',0+48,'Atentie')
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* EndIf
|
|
Else
|
|
*!* modificare v 2.0.40
|
|
Select crsfacturi
|
|
Scan
|
|
lcidvanzari = lcidvanzari + [, ]+Alltrim(Str(crsfacturi .id_vanzare))
|
|
Select crsfacturi
|
|
Endscan
|
|
lcidvanzari = Substr(lcidvanzari,2)
|
|
|
|
lcSql = [select a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa,sum(cantitate) as cantitate from fact_vfacturi_detalii a ]+;
|
|
[ where a.id_vanzare in (]+Alltrim(lcidvanzari)+[)]+;
|
|
[ group by a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa]+;
|
|
[ order by a.codmat, a.denumire ]
|
|
|
|
lnSucces = goExecutor.oexecute(lcSql,'crsfactdetaliiartrap')
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* Endif
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crsfactdetaliiartrap
|
|
Report Form rap_artdoc To Printer Prompt Preview
|
|
*!* modificare v 2.0.40
|
|
Endif
|
|
Endif
|
|
*!* modificare v 2.0.40 ^
|
|
Select crsfacturi
|
|
Set Filter To &lcFiltruInit
|
|
If lnRecSel>0
|
|
Goto lnRecSel
|
|
Endif
|
|
Endproc
|
|
*---------------------------------------------------------------------------
|
|
Procedure rap_factav_docart && lansat din rap_listfactav_centr, lansat la randul lui din frm_facturi (ofacturare.vcx)
|
|
|
|
Select a.*,1 As g1 From crsfacturi a With (Buffering = .T.) Where ales = 1 Into Cursor crsDocArt NOFILTER Readwrite
|
|
Select crsDocArt
|
|
If Reccount() <1
|
|
amessagebox('Nu ati selectat nici un document!',0+48,'Atentie')
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* EndIf
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
|
|
Local lcidvanzari,lcSql,lnSucces
|
|
Store '' To lcidvanzari
|
|
|
|
Select crsDocArt
|
|
Scan
|
|
lcidvanzari = lcidvanzari + [, ]+Alltrim(Str(crsDocArt.id_vanzare))
|
|
Select crsDocArt
|
|
Endscan
|
|
lcidvanzari = Substr(lcidvanzari,2)
|
|
|
|
lcSql = [select a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa,sum(cantitate) as cantitate from fact_vfacturi_detalii a ]+;
|
|
[ where a.id_vanzare in (]+Alltrim(lcidvanzari)+[)]+;
|
|
[ group by a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa]+;
|
|
[ order by a.codmat, a.denumire ]
|
|
|
|
lnSucces = goExecutor.oexecute(lcSql,'crsfactdetaliiartrap')
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* EndIf
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crsfactdetaliiartrap
|
|
Report Form rap_artdoc To Printer Prompt Preview
|
|
*!* modificare v 2.0.40
|
|
Endif
|
|
Endif
|
|
*!* modificare v 2.0.40 ^
|
|
Select crsfacturi
|
|
Set Filter To &lcFiltruInit
|
|
If lnRecSel>0
|
|
Goto lnRecSel
|
|
Endif
|
|
Endproc
|
|
*----------------------------------------------------------------------------------------------
|
|
Procedure rap_transf_art
|
|
Local lcidvanzari,lcSql,lnSucces
|
|
Store '' To lcidvanzari
|
|
|
|
Select * From crsfacturi With (Buffering = .T.) Where ales = 1 Into Cursor crsTmp
|
|
If Reccount() <1
|
|
amessagebox('Nu ati selectat vreun document!',0+48,'Atentie')
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* EndIf
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
Select crsTmp
|
|
Scan
|
|
lcidvanzari = lcidvanzari + [, ]+Alltrim(Str(crsTmp.id_vanzare))
|
|
Select crsTmp
|
|
Endscan
|
|
Use In crsTmp
|
|
lcidvanzari = Substr(lcidvanzari,2)
|
|
lcSql = [select a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa,sum(cantitate) as cantitate,client from fact_vfacturi_detalii a ]+;
|
|
[ where a.id_vanzare in (]+Alltrim(lcidvanzari)+[)]+;
|
|
[ group by a.codmat,a.denumire,a.pret_achizitie,a.pret,a.subgrupa,client]+;
|
|
[ order by a.codmat, a.denumire ]
|
|
lnSucces = goExecutor.oexecute(lcSql,'crssitconsum')
|
|
If lnSucces < 0
|
|
amessagebox(goExecutor.cEroare,0+16,"Eroare")
|
|
*!* modificare v 2.0.40
|
|
*!* Return
|
|
*!* Endif
|
|
Else
|
|
*!* modificare v 2.0.40 ^
|
|
Private pcDataora
|
|
pcDataora = get_ora(2)
|
|
Select crssitconsum
|
|
Report Form rap_transferart To Printer Prompt Preview
|
|
*!* modificare v 2.0.40
|
|
Endif
|
|
Endif
|
|
*!* modificare v 2.0.40 ^
|
|
Select crsfacturi
|
|
Endproc &&rap_transf_art |