*!* 22.03.2010 *!* marius.mutu *!* nom_Gestiuni_nou, nom_gestiuni_modifica (ccsectii - completare cursor sectii) *!* 31.01.2017 *!* marius.mutu *!* nom_gestiuni_nou + tnIdGestiune (optional): daca se doreste crearea unei gestiuni prin copierea unei alte gestiuni (tnIdGestiune) *!* 07.01.2020 *!* marius.mutu *!* contracte_nou, articole_nou + @tnId pentru returnarea id-ului inregistrarii nou create *!* 03.03.2026 *!* marius.mutu *!* nom_parteneri_nou - completare nume si prenume din denumire daca nu sunt completate, pentru persoana fizica * PROCEDURE viz_lucrari ( ) * Date : 07.10.2004, 14:26:02 * author : marius.mutu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_lucrari ******************************************* Procedure viz_lucrari( ) Private polucrari, pcschema1, pcselect1 Store '' To polucrari pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_lucrari where 1=2'] pcorder1 = [nrord] pcfiltru1 = [1=2] llAfiseaza = .F. gencursor('polucrari', 'v_nom_lucrari', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) polucrari.ca_baza1.afisare() ofrmsectii = Createobject('frm_lucrari') ofrmsectii.Show(1) Release polucrari Endproc ******************************************* SFARSIT: viz_lucrari******************************************* * PROCEDURE viz_sectii( ) * Date : 07.10.2004, 14:26:02 * author : catalin.neagu * description: ******************************************* INCEPUT:viz_sectii ******************************************* Procedure viz_sectii( ) Private posectii, pcschema1, pcselect1 Store '' To posectii pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_sectii where 1=2'] pcorder1 = [sectie] pcfiltru1 = [2=2] + gcCondSucursala llAfiseaza = .F. gencursor('posectii', 'v_sectii', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) posectii.ca_baza1.afisare() ofrmsectii = Createobject('frm_sectii') ofrmsectii.Show(1) Release posectii Endproc ******************************************* SFARSIT: viz_sectii ******************************************* * PROCEDURE viz_sucursale( ) * Date : 25.08.2005 * author : marius.mutu * description: ******************************************* INCEPUT:viz_sectii ******************************************* Procedure viz_sucursale( ) Private posucursale, pcschema1, pcselect1 Store '' To posucursale pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_sucursale where 1=2'] pcorder1 = [sucursala] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('posucursale', 'v_sucursale', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) posucursale.ca_baza1.afisare() ofrmsucursale = Createobject('frm_sucursale') ofrmsucursale.Show(1) Release posucursale Endproc ******************************************* SFARSIT: viz_sectii ******************************************* * PROCEDURE viz_gestiuni( ) * Date : 07.10.2004, 16:07:41 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_gestiuni ******************************************* Procedure viz_gestiuni( ) Private pogestiuni, pcschema1, pcselect1 Store '' To pogestiuni *!* pcschema1=['id_gestiune n(5),nume_gestiune c(50),cgest c(4),cont_gestiune c(4),ngest c(10),nrg n(4),ascd c(4),nr_grupa n(4),gest n(3)'] pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_gestiuni where 1=2'] pcorder1 = [nume_gestiune] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pogestiuni', 'v_gestiuni', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pogestiuni.ca_baza1.afisare() ofrmgest = Createobject('frm_gestiuni') ofrmgest.Show(1) Release posectii Endproc ******************************************* SFARSIT: viz_gestiuni ******************************************* * PROCEDURE viz_responsabili( ) * Date : 08.10.2004, 14:24:55 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_responsabili ******************************************* Procedure viz_responsabili( ) Private poresponsabili, pcschema1, pcselect1 Store '' To poresponsabili pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_responsabili where 1=2'] pcorder1 = [nume] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poresponsabili', 'v_responsabili', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poresponsabili.ca_baza1.afisare() ofrmres = Createobject('frm_responsabili') ofrmres.Show(1) Release poresponsabili Endproc ******************************************* SFARSIT: viz_responsabili ******************************************* * PROCEDURE viz_venchel( ) * Date : 08.10.2004, 15:48:26 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_venchel ******************************************* Procedure viz_venchel( ) &&code goes here Private povenchel, pcschema1, pcselect1 Store '' To povenchel pcschema1 = ['id_venchelt n(10),id_tata n(10),tip_venchelt n(1),explicatie c(200),'+] + ; ['explicatie_fiu c(50),explicatie_tata c(50),inactiv n(1),id_mod n(20)'] pcselect1 = ['select id_venchelt,id_tata,tip_venchelt,explicatie,'+] + ; ['explicatie_fiu,explicatie_tata,inactiv,id_mod from ] + gcS + [.vnom_venchel where 1=2'] pcorder1 = [explicatie,explicatie_fiu,explicatie_tata] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('povenchel', 'v_venchel', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) povenchel.ca_baza1.afisare() ofrmvenchel = Createobject('frm_venchel') ofrmvenchel.Show(1) Release povenchel Endproc ******************************************* SFARSIT: viz_venchel ******************************************* * PROCEDURE viz_plcont( ) * Date : 08.10.2004, 16:38:18 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_plcont ******************************************* Procedure viz_plcont( ) Private poplcont, pcschema1, pcselect1 Store '' To poplcont pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_plcont where 1=2'] pcorder1 = [AN,CONT,ACONT] pcfiltru1 = [an=] + Alltrim(Str(gnan)) llAfiseaza = .F. gencursor('poplcont', 'v_plcont', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poplcont.ca_baza1.afisare() ofrmplcont = Createobject('frm_plcont') ofrmplcont.Show(1) Release poplcont Endproc ******************************************* SFARSIT: viz_plcont ******************************************* * PROCEDURE viz_fdoc( ) * Date : 11.10.2004, 09:41:01 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_fdoc ******************************************* Procedure viz_fdoc( ) Private pofdoc, pcschema1, pcselect1 Store '' To pofdoc lcSchema = [ID_FDOC I, ID_FDOC2 I, FEL_DOCUMENT C(30), ID_MOD I, INACTIV I, TIP_DOC C(10), DESCRIERE C(50), PAYMENTCODE C(9), METHODCODE C(9), PAYMENTMETHOD C(110), PAYMENTNAME C(250)] lcSelect = [select id_fdoc, id_fdoc2, fel_document, id_mod, inactiv, tip_doc, descriere, paymentcode, methodcode, paymentmethod, paymentname from vnom_fdoc] lcOrder = [fel_document] lcFiltru = [2=2] llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('pofdoc', 'v_fdoc', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) pofdoc.ca_baza1.afisare() ofrmfdoc = Createobject('frm_fdoc') ofrmfdoc.Show(1) Release pofdoc Use In (Select('v_fdoc')) Endproc ******************************************* SFARSIT: viz_fdoc ******************************************* * PROCEDURE viz_judete( ) * Date : 11.10.2004, 13:40:46 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_judete ******************************************* Procedure viz_judete( ) Private pojud, pcschema1, pcselect1 Store '' To pojud lnSucces = update_tip_doc() && updateserver.prg If m.lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, _Screen.Caption) Create Cursor crsTipDoc394 (Id I, tip C(50)) Endif pcschema1 = [''] pcselect1 = ['select * from syn_vnom_judete where 1=2'] pcorder1 = [judet] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pojud', 'v_judet', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pojud.ca_baza1.afisare() ofrmjud = Createobject('frm_judet') ofrmjud.Show(1) Release pojud Endproc ******************************************* SFARSIT: viz_judete ******************************************* * PROCEDURE viz_localitati( ) * Date : 11.10.2004, 13:42:47 * author : catalin.neagu * description: ****** PARAMETER BLOCK ************** * Parameters : 0 * ******************************************* INCEPUT:viz_localitati ******************************************* Procedure viz_localitati( ) Private poloc, pcschema1, pcselect1 Store '' To poloc pcschema1 = [''] pcselect1 = ['select * from syn_vnom_localitati where 1=2'] pcorder1 = [localitate] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poloc', 'v_local', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poloc.ca_baza1.afisare() ofrmloc = Createobject('frm_localitati') ofrmloc.Show(1) Release poloc Endproc ******************************************* SFARSIT: viz_localitati ******************************************* *------------------------------------------------------------ * Description: vizualizare parteneri * Parameters: * Return: * Use: *------------------------------------------------------------ * Id Date By Description * 1 26/06/2006 paula.mutu Initial Creation * *------------------------------------------------------------ Procedure viz_parteneri Lparameters tnIdTipPart, tnSpecial, tcMesaj, tcTitlu, tnTipPersoana *!* tnIdTipPart: tip partener care este bifat implicit *!* tnSpecial: tipul partener bifat nu se poate modifica de utilizator *!* tcMesaj: *!* tcTitlu: Titlu formular (Clienti/Furnizori/Agenti/Responsabili/Delegati) *!* tnTipPersoana : tipul de persoana cu care intra implicit la adaugare ( 1 - juridica, 2 - fizica ) PRIVATE poCoduri LOCAL lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal Local lnIdTipPart, lnSpecial, lcMesaj, lcTitlu, lnTipPersoana poCoduri = NULL lnIdTipPart = Icase(!Empty(tnIdTipPart), tnIdTipPart, 0) lnSpecial = Icase(!Empty(tnSpecial), tnSpecial, 0) lcMesaj = Icase(!Empty(tcMesaj), tcMesaj, '') lcTitlu = ICASE(!EMPTY(m.tcTitlu), m.tcTitlu, '') lnTipPersoana = ICASE(!EMPTY(m.tnTipPersoana), m.tnTipPersoana, 1) ** load cursor crscoresp_tip_parteneri gol: Private pocoresp_tip_parteneri, pcselect1, pcfiltru1, pcschema1, pcorder1 Store "" To pcselect1, pcfiltru1, pcschema1, pcorder1, pocoresp_tip_parteneri pcselect1 = ['SELECT * FROM VCORESP_TIP_PART where 1=2'] pcfiltru1 = [1=2] pcschema1 = [''] pcorder1 = [TIP_PARTENER] llAfisare1 = .F. gencursor('pocoresp_tip_parteneri', 'crscoresp_tip_parteneri', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare1) pocoresp_tip_parteneri.ca_baza1.afisare() && adrese Private poAdrese, pcselect2, pcfiltru2, pcschema2, pcorder2 Store "" To poAdrese, pcselect2, pcfiltru2, pcschema2, pcorder2 pcselect2 = ['SELECT id_adresa, id_part, denumire_adresa, da_apare, strada, numar, bloc, scara, etaj, apart, sector, '+] + ; ['id_loc, localitate, id_regiune, id_judet, judet, codpostal, id_tara, tara, telefon1, telefon2, fax, email, web, '+] + ; ['inactiv, principala FROM ] + gcS + [.vadrese_parteneri where 1=2'] pcfiltru2 = [1=2] pcschema2 = [''] pcorder2 = [localitate,strada] && modificare adrese parteneri 12.2013 : am adaugat localitate llAfisare2 = .F. gencursor('poAdrese', 'crsAdrese', pcselect2, pcfiltru2, pcschema2, pcorder2, llAfisare2) poAdrese.ca_baza1.afisare() && persoane de contact Private poPers, pcselect3, pcfiltru3, pcschema3, pcorder3 Store "" To poPers, pcselect, pcfiltru, pcschema, pcorder pcselect3 = ['SELECT id_pers, id_part, nume, prenume, apelativ, functia, telefon, email, inactiv, principal FROM ] + gcS + [.vpers_contact where 1=2'] pcfiltru3 = [1=2] pcschema3 = [''] pcorder3 = [nume] llAfisare3 = .F. gencursor('poPers', 'crsPers_contact', pcselect3, pcfiltru3, pcschema3, pcorder3, llAfisare3) poPers.ca_baza1.afisare() && coduri lcSchema = [] lcSelect = [SELECT id,id_part, cod FROM vparteneri_coduri] lcFiltru = [1=2] lcOrder = [cod] llAfiseaza = .F. lcGroup = [] llModParam = .T. lcFiltruOriginal = [] gencursor('poCoduri', 'crsCoduri', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcGroup, llModParam, lcFiltruOriginal) poCoduri.ca_baza1.afisare() && contracte Private poContracte LOCAL lcSelect4, lcFiltru4, lcSchema4, lcOrder4, llModParam4, lcFiltruOriginal4, lcGroup4 Store NULL To poContracte TEXT TO lcSchema4 NOSHOW id_ctr N(10), id_part N(12), denumire C(70), data D, numar C(100), id_tip_ctr N(6), inactiv N(3), denumire_tip C(100), tata C(200), valftva N(18,4), valctva N(18,4), id_valuta N(7), nume_val C(20), val_discount N(18,4), proc_tva N(8,2), incetat N(3), data_inceput D, data_sfarsit D, data_incetat D, motiv_incetat C(200), scadenta_incasare N(5), coef_penalitati N(8,2), id_responsabil N(12), id_sectie N(7), sectie C(50), durata N(7), semnat N(3), observatii M, sters N(3), id_util N(10), dataora D, id_utils N(10), dataoras D, opt_facturare N(6), text_standard N(3), id_agent N(20), responsabil C(70), nume_agent C(70), contract C(111), id_nota N(10), descriere C(250), id_selectie N(6), selectie C(100), grnt_proc_ret N(4), grnt_val_ret N(12,4), grnt_alerta1 N(6), grnt_proc_alerta1 N(5), grnt_pv_nr N(12), grnt_pv_data D, numar_intern C(20), data_intern D, ofertanti C(200), tip_istoric C(1), id_tata N(10), activ N(3), grnt_perioada N(4), afisare_scadenta N(3), id_sucursala N(7), tip_curs N(4), tip_curs_explicatie C(100), coef_penalitati2 N(8,2), zile_penalitati N(6), zile_penalitati2 N(6), zile_gratie_penalitati N(6) ENDTEXT TEXT TO lcSelect4 NOSHOW Select id_ctr, id_part, denumire, data, numar, id_tip_ctr, inactiv, denumire_tip, tata, valftva, valctva, id_valuta, nume_val, val_discount, proc_tva, incetat, data_inceput, data_sfarsit, data_incetat, motiv_incetat, scadenta_incasare, coef_penalitati, id_responsabil, id_sectie, sectie, durata, semnat, observatii, sters, id_util, dataora, id_utils, dataoras, opt_facturare, text_standard, id_agent, responsabil, nume_agent, contract, id_nota, descriere, id_selectie, selectie, grnt_proc_ret, grnt_val_ret, grnt_alerta1, grnt_proc_alerta1, grnt_pv_nr, grnt_pv_data, numar_intern, data_intern, ofertanti, tip_istoric, id_tata, activ, grnt_perioada, afisare_scadenta, id_sucursala, tip_curs, tip_curs_explicatie, coef_penalitati2, zile_penalitati, zile_penalitati2, zile_gratie_penalitati From vContracte ENDTEXT lcFiltru4 = [1=2] lcOrder4 = [data desc] llAfisare4 = .F. lcGroup4 = [] llModParam4 = .T. lcFiltruOriginal4 = [] gencursor('poContracte', 'crsContracte', lcselect4, lcfiltru4, lcSchema4, lcOrder4, llAfisare4, lcGroup4, llModParam4, lcFiltruOriginal4) poContracte.ca_baza1.afisare() Private poparteneri Store '' To poparteneri TEXT TO lcSchema1 NOSHOW id_part N(12), denumire C(70), nume C(70), prenume C(70), cod_fiscal C(30), cod_fiscal2 C(30), reg_comert C(30), id_loc_inreg N(12), localitate C(100), tip_persoana N(3), prefix C(30), sufix C(30), banca C(40), cont_banca C(30), inactiv N(3), motiv_inactiv C(100), id_categorie_entitate N(12), categorie_entitate C(150), dataora T, utilizator C(100), adresa C(250), telefon C(50), email C(100), swift_banca C(11), adresa_banca C(150), institutie_publica N(1) ENDTEXT Text To lcSelect1 Noshow SELECT p.id_part, p.denumire, p.nume, p.prenume, p.cod_fiscal, p.cod_fiscal2, p.reg_comert, p.id_loc_inreg, p.localitate_inreg, p.tip_persoana, p.prefix, p.sufix, p.banca, p.cont_banca, p.inactiv, p.motiv_inactiv,p.id_categorie_entitate,p.categorie_entitate,p.dataora,p.utilizator, p.adresa, p.telefon, p.email, p.swift_banca, p.adresa_banca, p.institutie_publica FROM VNOM_PARTENERI p Endtext lcOrder1 = [p.denumire] lcgroup = [] lcFiltru1 = [1=2] lcFiltruOriginal = [] * In programul de contracte selectez doar partenerii cu tipul -1 CLIENTI / -2 FURNIZORI If Type('gnParametru_prog') <> 'U' And Inlist(gnParametru_prog, 1, 2) && contracte clienti/furnizori Text To lcSelect1 ADDITIVE NOSHOW left join CORESP_TIP_PART ctp on ctp.ID_PART = p.ID_PART left join nom_tip_parteneri tp on (tp.id_tip_part = ctp.id_tip_part and tp.sters = 0) Endtext If gnParametru_prog = 1 && contracte clienti lcFiltruOriginal = [tp.parent_id = -1] Else && gnParametru_prog = 2 && contracte furnizori lcFiltruOriginal = [tp.parent_id = -2] Endif && gnParametru_prog Endif llModParam = .T. llAfiseaza = .F. gencursor('poparteneri', 'crsparteneri', lcSelect1, lcFiltru1, lcSchema1, lcOrder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poparteneri.ca_baza1.afisare() Select crsparteneri oParteneri = Createobject('frm_parteneri', lnIdTipPart, lnSpecial, lcMesaj, lcTitlu, lnTipPersoana) oParteneri.Show() Release poparteneri Release pocoresp_tip_parteneri Release poAdrese Release poContracte = close_cctipuri() USE IN (SELECT('crsContracte')) USE IN (SELECT('crsparteneri')) USE IN (SELECT('crsPers_contact')) USE IN (SELECT('crsCoduri')) USE IN (SELECT('crscoresp_tip_parteneri')) USE IN (SELECT('crsAdrese')) Endproc && viz_parteneri ************************************************************* ******************************************* INCEPUT:vizualizare_partener ******************************************* Procedure vizualizare_partener Lparameters tnIdTipPart, tcTitlu, tnTipPersoana *!* tnTipPersoana : tipul de persoana cu care intra implicit la adaugare ( 1 - juridica, 2 - fizica ) Private poparteneri, poAdrese Local lcSchema, lcSelect, lcOrder, lcFiltru, llAfiseaza Store '' To poparteneri, poAdrese, poCoduri lcSchema = [] lcSelect = [SELECT distinct p.id_part, p.denumire, p.nume, p.prenume, p.cod_fiscal, p.reg_comert,] + ; [p.id_loc_inreg, p.localitate_inreg, p.tip_persoana, p.prefix, p.sufix, p.banca, p.cont_banca,] + ; [p.inactiv, p.motiv_inactiv, p.id_categorie_entitate, p.categorie_entitate, p.swift_banca, p.adresa_banca from vnom_parteneri p ] + ; [left join coresp_tip_part ctp on ctp.id_part = p.id_part where 1=2] lcOrder = [p.denumire] lcFiltru = [1=2] llAfiseaza = .F. gencursor('poparteneri', 'crsparteneri', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza) poparteneri.ca_baza1.afisare() lcSchema = [] lcSelect = ['SELECT id_adresa, id_part, denumire_adresa, da_apare, strada, numar, bloc, scara, etaj, apart, sector,'+] + ; ['id_loc, localitate, id_regiune, id_judet, judet, codpostal, id_tara, tara, telefon1, telefon2, fax, email, web, '+] + ; ['inactiv, principala FROM ] + gcS + [.vadrese_parteneri where 1=2'] lcFiltru = [1=2] lcOrder = [strada] llAfiseaza = .F. gencursor('poAdrese', 'crsAdrese', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza) poAdrese.ca_baza1.afisare() lcSchema = [] lcSelect = ['SELECT id,id_part, cod FROM ] + gcS + [.vparteneri_coduri where 1=2'] lcFiltru = [1=2] lcOrder = [cod] llAfiseaza = .F. gencursor('poCoduri', 'crsCoduri', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza) poCoduri.ca_baza1.afisare() Select crsparteneri ofrmpartener = Createobject('frm_partener', tnIdTipPart, tcTitlu, tnTipPersoana) ofrmpartener.Show(1) Release ofrmpartener, poAdrese, poparteneri, poCoduri Endproc ******************************************* SFARSIT: vizualizare_partener******************************************* ******************************************* INCEPUT: vizualizare_furnizori ******************************************* Procedure vizualizare_furnizori Local lnIdTipFurnizor If Used('crsconttemp') Use In crsconttemp Endif lcSql = [select id_tip_part from ] + gcS + [.coresp_tip_cont where cont='401'] lcCursor = [crsconttemp] lnSucces = goExecutor.oExecute(lcSql, lcCursor) goExecutor.oReset() If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Return Endif If Reccount('crsconttemp') > 0 Select crsconttemp lnIdTipFurnizor = id_tip_part Use In crsconttemp DO viz_parteneri with lnIdTipFurnizor , 1, "Alegeti tipul", "Furnizori" *!* Do vizualizare_partener With lnIdTipFurnizor, "Furnizori" Else Use In crsconttemp AMESSAGEBOX("Nu au fost gasite configurarile de tipuri de parteneri pentru contul 401 !", 0 + 48, "Atentie") Endif Endproc ******************************************* SFARSIT: vizualizare_furnizori ******************************************* ******************************************* INCEPUT: vizualizare_clienti ******************************************* Procedure vizualizare_clienti LPARAMETERS tlVizualizareParteneri * tlVizualizareParteneri: .F. frm_partener, .T. frm_parteneri If Used('crsconttemp') Use In crsconttemp ENDIF lcSql = [select id_tip_part from ] + gcS + [.coresp_tip_cont where cont='] + gcCont411 + ['] lcCursor = [crsconttemp] lnSucces = goExecutor.oExecute(lcSql, lcCursor) goExecutor.oReset() If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Return Endif If Reccount('crsconttemp') > 0 Select crsconttemp lnIdTipClient = id_tip_part Use In crsconttemp *!* IF m.tlVizualizareParteneri DO viz_parteneri with lnIdTipClient, 1, "Alegeti tipul", "Clienti" *!* ELSE *!* Do vizualizare_partener With lnIdTipClient, "Clienti" *!* ENDIF Else Use In crsconttemp AMESSAGEBOX("Nu au fost gasite configurarile de tipuri de parteneri pentru contul " + gcCont411 + " !", 0 + 48, "Atentie") Endif Endproc ******************************************* SFARSIT: vizualizare_clienti ******************************************* ******************************************* INCEPUT: vizualizare_responsabili ******************************************* Procedure vizualizare_responsabili Do vizualizare_partener With (gnIdTipResponsabili), ("Responsabili"), (2) Endproc ******************************************* SFARSIT: vizualizare_delegati ******************************************* ******************************************* INCEPUT: vizualizare_delegati ******************************************* Procedure vizualizare_delegati Do vizualizare_partener With (gnIdTipDelegati), ("Delegati"), (2) Endproc ******************************************* SFARSIT: vizualizare_delegati ******************************************* ******************************************* INCEPUT: vizualizare_agenti ******************************************* Procedure vizualizare_agenti Do vizualizare_partener With (gnIdTipAgenti), ("Agenti"), (2) Endproc ******************************************* SFARSIT: vizualizare_agenti ******************************************* Procedure viz_entitati_conturi ** load cursor crstipuriconturi gol: Private poconturi, pcselect4, pcfiltru4, pcschema4, pcorder4 Store "" To pcselect4, pcfiltru4, pcschema4, pcorder4, poconturi pcselect4 = ['SELECT * FROM ] + gcS + [.CONFIG_CONT_IREG where 1=2'] pcfiltru4 = [1=2] pcschema4 = [''] pcorder4 = [CONT] llAfisare4 = .F. gencursor('poconturi', 'crsconturi', pcselect4, pcfiltru4, pcschema4, pcorder4, llAfisare4) poconturi.ca_baza1.afisare() Private potipuri_conturi, pcselect3, pcfiltru3, pcschema3, pcorder3 Store "" To pcselect3, pcfiltru3, pcschema3, pcorder3, potipuri_conturi **pcselect2=['SELECT * FROM '+]+gcS+[+'CORESP_TIP_PART join NOM_TIP_PARTENERI on CORESP_TIP_PART.ID_TIP_PART=NOM_TIP_PARTENERI.ID_TIP_PART where 2=2'] pcselect3 = ['SELECT * FROM ] + gcS + [.VCORESP_TIP_CONT where 1=2'] pcfiltru3 = [1=2] pcschema3 = [''] pcorder3 = [CONT] llAfisare3 = .F. gencursor('potipuri_conturi', 'crstipuriconturi', pcselect3, pcfiltru3, pcschema3, pcorder3, llAfisare3) potipuri_conturi.ca_baza1.afisare() ** load cursor crstipuriparteneri plin: Private potipuri_parteneri, pcselect2, pcfiltru2, pcschema2, pcorder2 Store "" To pcselect2, pcfiltru2, pcschema2, pcorder2, potipuri_parteneri **pcselect2=['SELECT * FROM '+]+gcS+[+'CORESP_TIP_PART join NOM_TIP_PARTENERI on CORESP_TIP_PART.ID_TIP_PART=NOM_TIP_PARTENERI.ID_TIP_PART where 2=2'] pcselect2 = ['SELECT * FROM ] + gcS + [.VNOM_TIP_PARTENERI where 1=2'] pcfiltru2 = [2=2] pcschema2 = [''] pcorder2 = [TIP_PARTENER] llAfisare2 = .F. gencursor('potipuri_parteneri', 'crstipuriparteneri', pcselect2, pcfiltru2, pcschema2, pcorder2, llAfisare2) potipuri_parteneri.ca_baza1.afisare() Select crstipuriparteneri oEntitati_conturi = Createobject('frm_entitati_conturi') oEntitati_conturi.Show() Release poconturi Release potipuri_conturi Release potipuri_parteneri Endproc && viz_entitati_conturi ******************************************* SFARSIT: viz_entitati_conturi ******************************************* *!* 11.04.2012 : marius.atanasiu Procedure lucrari_validat_nou nom_lucrari_nou() Endproc ************************************************************* ***proceduri lansare forme de insert nou pt. cauta_alfa:***** ************************************************************* Procedure nom_lucrari_nou Local loRec, lnSucces, lcSelect, lcCursor lcSelect = [select * from ] + gcS + [.nom_lucrari where 1=2] lcCursor = [crsLucrariTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return Null Endif Select (lcCursor) Scatter Name loRec AddProperty(loRec, "nume_parinte", "") Do Adauga_Modifica_Inregistrare With 'lucrari', loRec, , "INSERT" If Used(lcCursor) Use In (lcCursor) Endif If gnButon = 1 Return loRec Else Return Null Endif Endproc ***====================================================================================== *!* 28.07.2006 *!* MARIUS.MUTU Procedure nom_lucrari_modifica Parameters tnIdLucrare Local loRec, lnSucces, lcSelect loRec = Null If Empty(tnIdLucrare) Or Type('tnIdLucrare') # 'N' Or Isnull(tnIdLucrare) Return loRec Endif lcSelect = [select * from ] + gcS + [.nom_lucrari where id_lucrare = ?tnIdLucrare] lcCursor = [crsLucrariTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return loRec Endif Select (lcCursor) Scatter Name loRec Use In (lcCursor) AddProperty(loRec, "nume_parinte", "") If !Isnull(loRec.id_tata) lcSelect = [select nrord from ] + gcS + [.nom_lucrari where sters = 0 and id_lucrare = ] + Transform(loRec.id_tata) lcCursor = [crsLucrariTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Else loRec.nume_parinte = Alltrim(crsLucrariTemp.nrord) Endif If Used(lcCursor) Use In (lcCursor) Endif Endif Do Adauga_Modifica_Inregistrare With 'lucrari', loRec, loRec.id_lucrare, "UPDATE" If gnButon = 1 Return loRec Else Return Null Endif Endproc && nom_lucrari_modifica ***====================================================================================== Procedure nom_fdoc_nou Private pofdoc, pcschema1, pcselect1 Store '' To pofdoc pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_fdoc where 1=2'] pcorder1 = [fel_document] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pofdoc', 'v_fdoc_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pofdoc.ca_baza1.afisare() *** Select v_fdoc_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'fdoc', loRec, , "INSERT" Use In v_fdoc_nou Endproc Procedure nom_gestiuni_nou Lparameters tnIdGestiune * tnIdGestiune (optional): daca se doreste crearea unei gestiuni prin copierea unei alte gestiuni (tnIdGestiune) Private pogestiuni Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal, llBlank Store '' To pogestiuni lcSchema = [] lcSelect = [select * from vnom_gestiuni] lcOrder = [nume_gestiune] lcFiltru = Iif(!Empty(Nvl(tnIdGestiune, 0)), [id_gestiune = ] + Transform(tnIdGestiune), [1=2]) llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('pogestiuni', 'v_gestiuni_nou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) pogestiuni.ca_baza1.afisare() *** Select v_gestiuni_nou If Empty(Nvl(tnIdGestiune, 0)) Scatter Name loRec Memo Blank loRec.id_responsabil = Null && modificare ROAGEST v 2.0.150 loRec.id_sectie = Null && modificare ROAGEST v 2.1.2 Else Scatter Name loRec Memo loRec.id_gestiune = Null Endif Use In (Select('v_gestiuni_nou')) = ccsucursale() = cctipuri_gestiuni() llBlank = .T. = ccsectii(m.llBlank) loRec.id_sucursala = gnIdSucursala Do Adauga_Modifica_Inregistrare With 'gestiuni', loRec, , "INSERT" = close_ccsucursale() = close_cctipuri_gestiuni() = close_ccsectii() Endproc *!* 18.09.2006 *!* MARIUS.MUTU Procedure nom_gestiuni_modifica Parameters tnIdGestiune Local loRec, lnSucces, lcSelect, llBlank loRec = Null If Empty(tnIdGestiune) Or Type('tnIdGestiune') # 'N' Or Isnull(tnIdGestiune) Return loRec Endif lcSelect = [select * from vnom_gestiuni where id_gestiune = ?tnIdGestiune] lcCursor = [crsGestiuneTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return loRec Endif Select (lcCursor) Scatter Name loRec Use In (lcCursor) = ccsucursale() = cctipuri_gestiuni() llBlank = .T. = ccsectii(m.llBlank) Select vnom_sucursale Locate For id_sucursala = loRec.id_sucursala If Found() loRec.sucursala = vnom_sucursale.sucursala Endif Select vtipuri_gestiuni Locate For id_tipgest = loRec.nr_pag If Found() loRec.nume_tip = vtipuri_gestiuni.nume_tip Endif Do Adauga_Modifica_Inregistrare With 'gestiuni', loRec, loRec.id_gestiune, "UPDATE" = close_ccsucursale() = close_cctipuri_gestiuni() = close_ccsectii() If gnButon = 1 Return loRec Else Return Null Endif Endproc && nom_gestiuni_modifica ***====================================================================================== ************************************************************* Procedure nom_judete_nou Private pojudete, pcschema1, pcselect1 Store '' To pojudete pcschema1 = [''] pcselect1 = ['select * from syn_vnom_judete where 1=2'] pcorder1 = [judet] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pojudete', 'v_judete_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pojudete.ca_baza1.afisare() *** Select v_judete_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'judet', loRec, , "INSERT" Use In v_judete_nou Endproc ************************************************************* Procedure nom_responsabili_nou Private poresponsabili, pcschema1, pcselect1 Store '' To poresponsabili pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_responsabili where 1=2'] pcorder1 = [nume] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poresponsabili', 'v_responsabili_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poresponsabili.ca_baza1.afisare() *** Select v_responsabili_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'responsabili', loRec, , "INSERT" Use In v_responsabili_nou Endproc ************************************************************* Procedure nom_sectii_nou Private posectii, pcschema1, pcselect1 Store '' To posectii pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_sectii where 1=2'] pcorder1 = [sectie] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('posectii', 'v_sectii_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) posectii.ca_baza1.afisare() *** Select v_sectii_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'sectii', loRec, , "INSERT" Use In v_sectii_nou Endproc ************************************************************* Procedure nom_venchel_nou Private posectii, pcschema1, pcselect1 Store '' To povenchel pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_venchel where 1=2'] pcorder1 = [tip_venchelt] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('povenchel', 'v_venchel_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) povenchel.ca_baza1.afisare() *** Select v_venchel_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'venchel', loRec, , "INSERT" Use In v_venchel_nou Endproc ************************************************************* Procedure nom_localitati_nou Private polocalitati, pcschema1, pcselect1 Store '' To polocalitati pcschema1 = [''] pcselect1 = ['select * from syn_vnom_localitati where 1=2'] pcorder1 = [localitate] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('polocalitati', 'v_localitati_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) polocalitati.ca_baza1.afisare() *** update_judete() Select v_localitati_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'localitati', loRec, , "INSERT" Use In v_localitati_nou Endproc ************************************************************* Procedure nom_plcont_nou Private poplcont, pcschema1, pcselect1 Store '' To poplcont pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_plcont where 1=2'] pcorder1 = [cont] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poplcont', 'v_plcont_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poplcont.ca_baza1.afisare() *** Select v_plcont_nou Scatter Name loRec Blank loRec.an = gnan Do Adauga_Modifica_Inregistrare With 'plcont', loRec, , "INSERT" Use In v_plcont_nou Endproc ************************************************************* ************************************************************* Procedure nom_parteneri_nou Lparameters tnIdTipPart, tcTipPart, tnSpecial, tnTipPersoana, tnIdPartCoresp, toDate, tnIdPart *!* tnSpecial = 1 => nu poate sa aleaga alt tip decat tnIdTipPart *!* tnTipPersoana ( cu ce tip de persoana intra implicit ) *!* = 1 => juridica *!* = 2 => fizica *!* tnIdPartCoresp = la adaugarea unui delegat, este id_part al clientului pentru care se adauga delegatul *!* todate = contine proprietati completate pentru adaugarea silentioasa fara sa mai arate formularul nom_parteneri_nou *!* tnId_Part = se populeaza formularul de adaugare partener cu datele partenerului dat (copiere partener) * Intoarce obiect cu partenerul creat si Id-ul partenerului completat sau NULL daca eroare Private poparteneri Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal, lnSpecial, llCopiere, llSilentios LOCAL lnIdPartener, lcSelect2, lnTipPersFizica lnTipPersFizica = 2 lcSelect2 = SELECT() lnIdPartener = 0 Store '' To poparteneri Private loRec Private pnIdPart, pnIdTipPart pnIdPart = 0 pnIdTipPart = 0 If !Empty(tnSpecial) lnSpecial = tnSpecial Else lnSpecial = 0 Endif If !Empty(tnTipPersoana) lnTipPersoana = tnTipPersoana Else lnTipPersoana = 1 Endif llCopiere = Type('tnIdPart') = 'N' pnIdPart = Iif(Empty(m.tnIdPart), 0, m.tnIdPart) lcSchema = [] * lcSelect=[SELECT id_part, denumire, nume, prenume, cod_fiscal, reg_comert, categorie_entitate, id_categorie_entitate, id_loc_inreg, localitate_inreg, tip_persoana, prefix, sufix, banca, cont_banca, inactiv, motiv_inactiv FROM ]+gcS+[.VNOM_PARTENERI] lcSelect = [select id_part, denumire, nume, prenume, cod_fiscal, cod_fiscal2, reg_comert, id_loc_inreg, id_categorie_entitate, localitate_inreg, prefix, sufix, ] + ; [tip_persoana, banca, cont_banca, motiv_inactiv, inactiv, eliberatde, dataeliberat, email, web, fax, id_adresa, adresa, telefon, telefon2, id_loc, localitate, ] + ; [judet, id_judet, sector, apart, etaj, scara, bloc, strada, numar, codpostal, id_tara, tara, categorie_entitate, dataora, utilizator, swift_banca, adresa_banca, institutie_publica from vnom_parteneri] lcOrder = [nume] If !m.llCopiere lcFiltru = [1=2] Else lcFiltru = [id_part = ] + Alltrim(Str(m.pnIdPart)) Endif llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('poparteneri', 'crsParteneriNou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poparteneri.ca_baza1.afisare() *** If Pcount() > 0 Do Case Case Type('tnIdTipPart') = 'N' pnIdTipPart = tnIdTipPart Case Type('tnIdTipPart') = 'C' pnIdTipPart = Round(Val(Getwordnum(tnIdTipPart, 1, ",")), 0) Otherwise pnIdTipPart = 0 Endcase Endif Select crsParteneriNou If !m.llCopiere Scatter Name loRec Blank Else Scatter Name loRec ENDIF loRec.tip_persoana = lnTipPersoana && juridica AddProperty(loRec, "id_tip_part", pnIdTipPart) AddProperty(loRec, "tip_partener", "0") AddProperty(loRec, "special", lnSpecial) *!* modificare 10.01 *!* ccorespdel : poate fi un id (id_part) sau o lista de id-uri (id_part) separate prin virgula,dar fara virgula la final AddProperty(loRec, "ccorespdel", Iif(Empty(tnIdPartCoresp), [], Alltrim(Str(tnIdPartCoresp)))) *!* ^ IF TYPE('toDate') = 'O' IF TYPE('toDate.denumire')= 'C' AND !EMPTY(toDate.denumire) loRec.denumire = toDate.denumire ENDIF IF TYPE('toDate.nume')= 'C' AND !EMPTY(toDate.nume) loRec.nume = toDate.nume ENDIF IF TYPE('toDate.prenume')= 'C' AND !EMPTY(toDate.prenume) loRec.prenume = toDate.prenume ENDIF IF TYPE('toDate.cod_fiscal')= 'C' AND !EMPTY(toDate.cod_fiscal) loRec.cod_fiscal = toDate.cod_fiscal ENDIF IF TYPE('toDate.tip_persoana ')= 'N' AND !EMPTY(toDate.tip_persoana ) loRec.tip_persoana = toDate.tip_persoana ENDIF IF TYPE('toDate.id_tip_part')= 'N' AND !EMPTY(toDate.id_tip_part) loRec.id_tip_part = toDate.id_tip_part ENDIF ENDIF * Persoana fizica cu denumire, fara nume, completez nume si prenume din denumire IF loRec.tip_persoana = m.lnTipPersFizica AND !EMPTY(NVL(loRec.denumire,'')) AND EMPTY(NVL(loRec.nume,'')) lnPos = AT(' ', loRec.denumire) IF m.lnPos > 0 loRec.nume = LEFT(loRec.denumire, m.lnPos) loRec.prenume = SUBSTR(loRec.denumire, m.lnPos + 1) ENDIF ENDIF * Nu apare formularul daca toDate.lSilentios = .T. sau exista toDate llSilentios = .F. IF TYPE('toDate.lSilentios') = 'L' llSilentios = toDate.lSilentios ELSE llSilentios = (TYPE('toDate') = 'O') ENDIF *!* =cclocalitati() = cccateg_ent() If Type('gnParametru_prog') <> 'U' Do Case Case gnParametru_prog = 1 && contracte clienti pnParent_id = -1 Case gnParametru_prog = 2 && contracte furnizori pnParent_id = -2 Endcase Else pnParent_id = 0 Endif If !m.llSilentios lcSel = [{call pack_def.get_partener_tipuri(?pnIdPart, ?pnIdTipPart, ?pnParent_id)}] lcCursor = 'v_nom_tip_parteneri' lnSucces = goExecutor.oExecute(lcSel, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Return Endif *!* modificare adrese parteneri 12.2013 gnButon = 2 lcSql = [SELECT id_adresa, id_part, denumire_adresa, da_apare, strada, numar, bloc, scara, etaj, apart, sector,] + ; [id_loc, localitate, id_regiune, id_judet, judet, codpostal, id_tara, tara, telefon1, telefon2,] + ; [fax, email, web, inactiv, principala,id_adresa as id_adresa_orig FROM vadrese_parteneri where 1=2] lcCursor = [crsAdreseEnt] If goExecutor.oExecuta(lcSql, lcCursor) lcSql = [SELECT id_pers, id_part, nume, prenume, apelativ, functia, telefon, email, inactiv, principal, id_pers as id_pers_orig FROM vpers_contact where 1=2] lcCursor2 = [crsPersContactEnt] If goExecutor.oExecuta(lcSql, lcCursor2) gnButon = Adauga_Modifica_Inregistrare("parteneri", loRec, @lnIdPartener, "INSERT") && In oproceduri_ams.prg Endif Use In (Select(lcCursor2)) Endif Use In (Select(lcCursor)) *!* Do Adauga_Modifica_Inregistrare With "parteneri",loRec,,"INSERT" In oproceduri_ams.prg *!* modificare adrese parteneri 12.2013 ^ *!* =close_cclocalitati() = close_categ_ent() *!* modificare ROACONT 2.0.40 = close_cctipuri() *!* modificare ROACONT 2.0.40 ^ SELECT (m.lcSelect2) If gnButon = 1 loRec.id_part = m.pnIdPart Return loRec Else Return Null Endif Else AdaugarePartener = Createobject("cus_odata_parteneri") lnIdPartener = 0 AdaugarePartener.lSilent = .T. AdaugarePartener.salvare(toDate, @lnIdPartener) toDate.id_part = m.pnIdPart *!* modificare ROACONT 2.0.40 = close_cctipuri() *!* modificare ROACONT 2.0.40 ^ SELECT (m.lcSelect2) If NVL(m.pnIdPart,0) <> 0 Return toDate Else Return Null Endif Endif Endproc && nom_parteneri_nou ************************************************************* Procedure nom_parteneri_modifica Lparameters tnId_Part, tnIdTipPart, tcTipPart, tnSpecial, tcMesaj *!* tnSpecial = 1 => nu poate sa aleaga alt tip decat tnIdTipPart Local lnIdTipPart, lcTipPart, lnSpecial If !Empty(tnIdTipPart) lnIdTipPart = tnIdTipPart Else lnIdTipPart = 0 Endif If !Empty(tcTipPart) lcTipPart = tcTipPart Else lcTipPart = [] Endif If !Empty(tnSpecial) lnSpecial = tnSpecial Else lnSpecial = 0 Endif Private poparteneri Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal Store '' To poparteneri Private pnId_part, pnIdPart pnId_part = tnId_Part pnIdPart = tnId_Part lcSchema = [] *lcSelect=[SELECT id_part, denumire, nume, prenume, cod_fiscal, reg_comert, id_loc_inreg, categorie_entitate, id_categorie_entitate, localitate_inreg, tip_persoana, prefix, sufix, banca, cont_banca, inactiv, motiv_inactiv FROM VNOM_PARTENERI] lcSelect = [select id_part, denumire, nume, prenume, cod_fiscal, cod_fiscal2, reg_comert, id_loc_inreg, id_categorie_entitate, localitate_inreg, prefix, sufix, ] + ; [tip_persoana, banca, cont_banca, motiv_inactiv, inactiv, eliberatde, dataeliberat, email, web, fax, id_adresa, adresa, telefon, telefon2, id_loc, localitate, ] + ; [judet, id_judet, sector, apart, etaj, scara, bloc, strada, numar, codpostal, id_tara, tara, categorie_entitate, dataora, utilizator, swift_banca, adresa_banca, institutie_publica from vnom_parteneri] lcOrder = [nume] lcFiltru = [] llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [id_part = ] + Transform(pnId_part) gencursor('poparteneri', 'crsParteneriModifica', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poparteneri.ca_baza1.afisare() If !Used('crsParteneriModifica') Return Endif Select crsParteneriModifica Scatter Name loRec AddProperty(loRec, "id_tip_part", lnIdTipPart) AddProperty(loRec, "tip_partener", lcTipPart) AddProperty(loRec, "special", lnSpecial) AddProperty(loRec, "ccorespdel", []) pccod_fiscal = loRec.cod_fiscal pccontinua = .F. *!* =cclocalitati() = cccateg_ent() If Type('gnParametru_prog') <> 'U' Do Case Case gnParametru_prog = 1 && contracte clienti pnParent_id = -1 Case gnParametru_prog = 2 && contracte furnizori pnParent_id = -2 Otherwise pnParent_id = 0 Endcase Else pnParent_id = 0 Endif lcSel = [{call pack_def.get_partener_tipuri(?pnId_Part, ?loRec.id_tip_part, ?pnParent_id)}] lcCursor = 'v_nom_tip_parteneri' lnSucces = goExecutor.oExecute(lcSel, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Return Endif = cctipuri_selectate(loRec.id_part) ****inceput exceptii*** *!* If Reccount('v_nom_tip_parteneri_selectati') > 1 *!* If lnIdTipPart <> 0 And lnSpecial <> 0 And !Empty(tcMesaj) *!* AMESSAGEBOX(tcMesaj, 16, 'Atentie!') *!* *!* modificare ROACONT 2.0.40 *!* = close_cctipuri() *!* = close_cctipuri_selectate() *!* *!* modificare ROACONT 2.0.40 ^ *!* Return Null *!* Endif *!* Endif If gnId_prg_owner = 69 If Reccount('v_nom_tip_parteneri_selectati') = 1 And v_nom_tip_parteneri_selectati.id_tip_part <> lnIdTipPart AMESSAGEBOX(tcMesaj, 16, 'Atentie!') *!* modificare ROACONT 2.0.40 = close_cctipuri() = close_cctipuri_selectate() *!* modificare ROACONT 2.0.40 ^ Return Null Endif Endif ****sfarsit exceptii*** *!* modificare adrese parteneri 12.2013 gnButon = 2 lcSql = [SELECT id_adresa, id_part, denumire_adresa, da_apare, strada, numar, bloc, scara, etaj, apart, sector,] + ; [id_loc, localitate, id_regiune, id_judet, judet, codpostal, id_tara, tara, telefon1, telefon2,] + ; [fax, email, web, inactiv, principala, id_adresa as id_adresa_orig FROM vadrese_parteneri where id_part = ?pnId_part] lcCursor = [crsAdreseEnt] If goExecutor.oExecuta(lcSql, lcCursor) lcSql = [SELECT id_pers, id_part, nume, prenume, apelativ, functia, telefon, email, inactiv, principal, id_pers as id_pers_orig ] + ; [FROM vpers_contact where id_part = ?pnId_part] lcCursor2 = [crsPersContactEnt] If goExecutor.oExecuta(lcSql, lcCursor2) *!* PRIVATE poRec *!* poRec = CloneObj(loRec) *DO FORM frm_parteneri_nou NAME loAdMod WITH poRec,poRec.id_part,"UPDATE" Do Adauga_Modifica_Inregistrare With "parteneri", loRec, loRec.id_part, "UPDATE" In oproceduri_ams.prg Endif Use In (Select(lcCursor2)) Endif Use In (Select(lcCursor)) *!* Do Adauga_Modifica_Inregistrare With "parteneri",loRec,loRec.id_part,"UPDATE" In oproceduri_ams.prg *!* modificare adrese parteneri 12.2013 ^ *!* =close_cclocalitati() = close_cctipuri() = close_cctipuri_selectate() = close_categ_ent() If gnButon = 1 Return loRec Else Return Null Endif Endproc && nom_parteneri_modifica ************************************************************************************************************************** ************************************************************************************************************************** * local lnId * lnId = 0 * llSucces = nom_articole_nou(@lnId) ************************************************************************************************************************** Procedure nom_articole_nou LPARAMETERS tnId, toDate * tnId: OUT id articol creat * toDate: (optional) obiect cu date initiale (ex: denumire, um). are aceleasi atribute ca vnom_articole LOCAL llSucces, lnButon, loRec tnId = 0 llSucces = goExecutor.oExecuta('select * from vnom_articole where 1=2', 'vnom_articole_nou') IF m.llSucces Select vnom_articole_nou Scatter Name loRec Blank Memo llSucces = goExecutor.oExecuta('SELECT id, id_part, partener, id_articol, articol, cod FROM VPARTENERI_ARTICOLE_CODURI WHERE 1=2', 'crsParteneriArticoleCoduri') * Initializez articolul cu date optionale IF TYPE('toDate') = 'O' CopyObjectProperties(toDate, loRec) * cod client IF TYPE('toDate.id_client') = 'N' AND TYPE('toDate.client') = 'C' AND TYPE('toDate.cod_client') = 'C' AND !EMPTY(NVL(toDate.id_client, 0)) AND !EMPTY(NVL(toDate.cod_client, '')) REPLACE id_part WITH toDate.id_client, partener WITH Alltrim(toDate.client), cod WITH ALLTRIM(toDate.cod_client) ENDIF * cod furnizor IF TYPE('toDate.id_furnizor') = 'N' AND TYPE('toDate.furnizor') = 'C' AND TYPE('toDate.cod_furnizor') = 'C' AND !EMPTY(NVL(toDate.id_furnizor, 0)) AND !EMPTY(NVL(toDate.cod_furnizor, '')) loRec.id_part = toDate.id_furnizor loRec.partener = toDate.furnizor loRec.codmatf = ALLTRIM(toDate.cod_furnizor) ENDIF ENDIF ENDIF * actualizez vnom_um de fiecare data, poate am facut modificari in asocierea um/cod_um_iso IF m.llSucces llSucces = update_um() ENDIF IF m.llSucces IF !USED('vnom_um_iso') llSucces = update_um_iso() ENDIF ENDIF IF m.llSucces DO CASE CASE Type('gcNumeProgram') = 'C' And Inlist(Alltrim(Upper(gcNumeProgram)), 'ROAPRETURI', 'ROACONTRACTE') loRec.in_crm = 1 CASE Type('gcNumeProgram') = 'C' And Inlist(Alltrim(Upper(gcNumeProgram)), 'ROAACNPRO') loRec.tip = 1 && manopera loRec.in_crm = 0 loRec.in_stoc = 0 OTHERWISE loRec.in_stoc = 1 ENDCASE If m.gnCodMatAutomat = 2 Private poGeneratorCodmat poGeneratorCodmat= Createobject("oGeneratorNumere") lnRezultat = poGeneratorCodmat.creeaza_cursor_serii(14) EndIf If m.gnCodBareAutomat = 2 Private poGeneratorCodBare poGeneratorCodBare= Createobject("oGeneratorNumere") lnRezultat2 = poGeneratorCodBare.creeaza_cursor_serii(15) EndIf lnButon = Adauga_Modifica_Inregistrare('catalog_articole', loRec, @tnId , "INSERT") llSucces = (m.lnButon = 1) ENDIF Use In (SELECT('vnom_articole_nou')) USE IN (SELECT('crsParteneriArticoleCoduri')) RETURN m.llSucces Endproc ************************************************************************************************************************** ************************************************************************************************************************** Procedure nom_articole2_nou LOCAL llSucces, lnButon, loRec * in contracte llSucces = goExecutor.oExecuta('select * from vnom_articole where 1=2', 'vnom_articole_nou') IF m.llSucces Select vnom_articole_nou Scatter Name loRec Blank Memo llSucces = goExecutor.oExecuta('SELECT id, id_part, partener, id_articol, articol, cod FROM VPARTENERI_ARTICOLE_CODURI WHERE 1=2', 'crsParteneriArticoleCoduri') ENDIF * actualizez vnom_um de fiecare data, poate am facut modificari in asocierea um/cod_um_iso IF m.llSucces llSucces = update_um() ENDIF IF m.llSucces IF !USED('vnom_um_iso') llSucces = update_um_iso() ENDIF ENDIF IF m.llSucces lnButon = Adauga_Modifica_Inregistrare('catalog_articole2', loRec, , "INSERT") llSucces = (m.lnButon = 1) ENDIF Use In (SELECT('vnom_articole_nou')) USE IN (SELECT('crsParteneriArticoleCoduri')) RETURN m.llSucces Endproc ************************************************************************************************************************** ************************************************************************************************************************** * llSucces = nom_articole_modifica(lnId) ************************************************************************************************************************** Procedure nom_articole_modifica LPARAMETERS tnId LOCAL llSucces, lnButon, loRec, lnId lnId = tnId llSucces = goExecutor.oExecuta('select * from vnom_articole where id_articol = ' + ALLTRIM(STR(m.lnId)), 'vnom_articole_nou') IF m.llSucces Select vnom_articole_nou Scatter Name loRec Memo llSucces = goExecutor.oExecuta('SELECT id, id_part, partener, id_articol, articol, cod FROM VPARTENERI_ARTICOLE_CODURI WHERE id_articol = ' + ALLTRIM(STR(m.lnId)) + ' order by partener', 'crsParteneriArticoleCoduri') ENDIF * actualizez vnom_um de fiecare data, poate am facut modificari in asocierea um/cod_um_iso IF m.llSucces llSucces = update_um() ENDIF IF m.llSucces IF !USED('vnom_um_iso') llSucces = update_um_iso() ENDIF ENDIF IF m.llSucces lorec.conditii_pastrare = Nvl(lorec.conditii_pastrare,'') If gnCodMatAutomat = 2 Private poGeneratorCodmat poGeneratorCodmat= Createobject("oGeneratorNumere") lnRezultat = poGeneratorCodmat.creeaza_cursor_serii(14) Endif If gnCodBareAutomat = 2 Private poGeneratorCodBare poGeneratorCodBare= Createobject("oGeneratorNumere") lnRezultat2 = poGeneratorCodBare.creeaza_cursor_serii(15) Endif lnButon = Adauga_Modifica_Inregistrare('catalog_articole', lorec, lnId, 'UPDATE') llSucces = (m.lnButon = 1) ENDIF Use In (SELECT('vnom_articole_nou')) USE IN (SELECT('crsParteneriArticoleCoduri')) RETURN m.llSucces Endproc ************************************************************************************************************************** Procedure viz_valute( ) Private povalute, pcschema1, pcselect1 Store '' To povalute pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_valute where 1=2'] pcorder1 = [nume_val] pcfiltru1 = [inactiv=0] llAfiseaza = .F. gencursor('povalute', 'v_valute', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) povalute.ca_baza1.afisare() ofrmval = Createobject('frm_valute') ofrmval.Show(1) Release povalute Endproc ************************************************************************************************************************** Procedure nom_valute_nou Private povalute, pcschema1, pcselect1 Store '' To povalute pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_valute where 1=2'] pcorder1 = [ nume_val ] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('povalute', 'valute_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) povalute.ca_baza1.afisare() *** Select valute_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'valute', loRec, , "INSERT" Use In valute_nou Endproc ************************************************************************************************************************** Procedure sal_nom_mes_nou *!* modificare 11.01.2012 AddProperty(poRec, "tip_modificare", 1) AddProperty(poRec, "dataconsemnare", {}) *!* modificare 11.01.2012 ^ Do Adauga_Modifica_Inregistrare With "meserii", poRec, , "INSERT", , "addmes" Endproc ************************************************************************************************************************** Procedure sal_nom_formatii_nou Local loRec Store '' To loRec loRec = poRec If Used('v_sectie') Use In v_sectie Endif *cursor sectie v_sectie lcSql = [select * from ] + gcS + [.vnom_sectii order by sectie]&& where inactiv = 0] lcCursor = [v_sectie] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Endif Select v_sectie Scatter Name loRec Additive *cursor semnaturi v_semnaturi If Used('v_semnaturi') Use In v_semnaturi Endif lcSql = [select * from ] + gcS + [.sal_semnaturi where sters = 0 and inactiv = 0 order by denumire ]&& where inactiv = 0] lcCursor = [v_semnaturi] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Endif Select v_semnaturi Scatter Name loRec Additive *cursor transa v_transe If Used('v_transe') Use In v_transe Endif lcSql = [select * from ] + gcS + [.SAL_vNOM_TRANSE where inactiv = 0 and sters = 0] lcCursor = [v_transe] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Endif Select v_transe Scatter Name loRec Additive Do Adauga_Modifica_Inregistrare With "FORMATII", loRec, , "INSERT", , "addform" Endproc ************************************************************************************************************************** Procedure sal_nom_tipctr_nou Local loRec Store '' To loRec loRec = poRec *cursor ore/zi v_nomore If Used('v_nomore') Use In v_nomore Endif lcSql = [select * from ] + gcS + [.SAL_vNOMORE where inactiv = 0 and sters = 0] lcCursor = [v_nomore] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Endif Select v_nomore Scatter Name loRec Additive Do Adauga_Modifica_Inregistrare With "tipctr", loRec, , "INSERT", , "addtip" Endproc ************************************************************************************************************************** Procedure sal_nom_handicap_nou Local loRec Store '' To loRec loRec = poRec Do Adauga_Modifica_Inregistrare With "grdhand", loRec, , "INSERT", , "addhand" Endproc ************************************************************************************************************************** Procedure sal_nom_grmun_nou Local loRec Store '' To loRec loRec = poRec Do Adauga_Modifica_Inregistrare With "grpmun", loRec, , "INSERT", , "addgrp" Endproc ************************************************************************************************************************** Procedure sal_caseasig_nou Local loRec Store '' To loRec loRec = poRec *cursor judete v_jud If Used('v_jud') Use In v_jud Endif lcSql = [SELECT * from syn_vnom_judete where inactiv = 0] lcCursor = [v_jud] lnSucces = goExecutor.oExecute(lcSql, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, "Eroare") Endif Select v_jud Scatter Name loRec Additive Do Adauga_Modifica_Inregistrare With "caseasig", loRec, , "INSERT", , "addcasa" Endproc ************************************************************************************************************************** Procedure sal_nom_cm_nou Local loRec Store '' To loRec loRec = poRec lcSelect = [select * from ] + gcS + [.sal_vnom_cm where sters = 0] lcCursor = [v_nomtipcm] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare) Return Endif Select v_nomtipcm Scatter Name loRec Blank *!* DEBUG *!* SUSPEND Do Adauga_Modifica_Inregistrare With "nomcm", loRec, , "INSERT", , "addcm" Endproc ************************************************************************************************************************** Procedure adrese_parteneri_nou Lparameters tnIdPartener, tcActiune, tcCursor *!* modificare adrese parteneri 12.2013 : am adaugat tcActiune, tcCursor, lcActiune Local lcSelect, lcCursor, lnSucces, loRec, lnidpartener, lnPrincipala, lcActiune Private pnIdAdresa pnIdAdresa = 0 If Pcount() = 0 Or Type('tnIdPartener') # 'N' lnidpartener = 0 Else lnidpartener = tnIdPartener Endif *!* modificare adrese parteneri 12.2013 gnButon = 1 lcActiune = Evl(tcActiune, "INSERT") lcCursor = "crsAdreseTemp" If lcActiune = "LOCAL" Select * From (tcCursor) With (Buffering = .T.) Where principala = 1 And !Deleted() Into Cursor (lcCursor) Else lcSelect = "SELECT * FROM vadrese_parteneri where principala = 1 and id_part = " + Transform(lnidpartener) If !goExecutor.oExecuta(lcSelect, lcCursor) gnButon = 2 Endif Endif If gnButon = 1 If Reccount(lcCursor) = 0 lnPrincipala = 1 Else lnPrincipala = 0 Endif Select (lcCursor) Scatter Name loRec Blank Use In (lcCursor) loRec.id_part = tnIdPartener loRec.principala = lnPrincipala Do Adauga_Modifica_Inregistrare With "parteneri_adrese", loRec, , lcActiune In oproceduri_ams.prg Endif *!* lcSelect = "SELECT * FROM vadrese_parteneri where principala = 1 and id_part = " + Transform(lnidpartener) *!* lcCursor = "crsAdreseTemp" *!* If goExecutor.oExecuta(lcSelect, lcCursor) *!* If Reccount('crsAdreseTemp') = 0 *!* lnPrincipala = 1 *!* Else *!* lnPrincipala = 0 *!* Endif *!* Select crsAdreseTemp *!* Scatter Name loRec Blank *!* Use In crsAdreseTemp *!* loRec.id_part = tnIdPartener *!* loRec.principala = lnPrincipala *!* Do Adauga_Modifica_Inregistrare With "parteneri_adrese",loRec,,"INSERT" In oproceduri_ams.prg *!* Else *!* gnButon = 2 *!* Endif *!* modificare adrese parteneri 12.2013 ^ If gnButon = 1 loRec.id_adresa = pnIdAdresa Return loRec Else Return Null Endif Endproc && adrese_parteneri_nou ************************************************************************************************************************** Procedure coduri_parteneri_nou Lparameters tnIdPartener Local lcSelect, lcCursor, lnSucces, loRec, lnidpartener, lnPrincipala Private pnIdAdresa pnIdAdresa = 0 If Pcount() = 0 Or Type('tnIdPartener') # 'N' lnidpartener = 0 Else lnidpartener = tnIdPartener Endif lcSelect = "SELECT * FROM parteneri_coduri where id_part = " + Transform(lnidpartener) lcCursor = "crsCoduriTemp" lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare) Return Endif Select crsCoduriTemp Scatter Name loRec Blank Use In crsCoduriTemp loRec.id_part = tnIdPartener Do Adauga_Modifica_Inregistrare With "coduri", loRec, , "INSERT" In oproceduri_ams.prg If gnButon = 1 Return loRec Else Return Null Endif Endproc && coduri_parteneri_nou ************************************************************************************************************************** Procedure coduri_parteneri_modifica Lparameters tnIdCod Local lcSelect, lcCursor, lnSucces, loRec lcSelect = "SELECT * FROM parteneri_coduri where id = " + Transform(tnIdCod) lcCursor = "crsCoduriTemp" lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare) Return Endif Select crsCoduriTemp Scatter Name loRec Use In crsCoduriTemp Do Adauga_Modifica_Inregistrare With "coduri", loRec, tnIdCod, "UPDATE" In oproceduri_ams.prg If gnButon = 1 Return loRec Else Return Null Endif Endproc && coduri_parteneri_modifica ************************************************************* ************************************************************************************************************************** Procedure adrese_parteneri_modifica Lparameters tnIdAdresa, tcActiune, tcCursor *!* modificare adrese parteneri 12.2013 : am adaugat tcActiune, tcCursor Local lcSelect, lcCursor, lnSucces, loRec, lcActiune *!* modificare adrese parteneri 12.2013 gnButon = 1 lcActiune = Evl(tcActiune, "UPDATE") lcCursor = Evl(tcCursor, "crsAdreseTemp") If lcActiune = [UPDATE] lcSelect = "SELECT * FROM vadrese_parteneri where id_adresa = " + Transform(tnIdAdresa) If !goExecutor.oExecuta(lcSelect, lcCursor) gnButon = 2 Endif Endif If gnButon = 1 Select (lcCursor) Scatter Name loRec Do Adauga_Modifica_Inregistrare With "parteneri_adrese", loRec, tnIdAdresa, lcActiune In oproceduri_ams.prg If lcActiune = [UPDATE] Use In (Select(lcCursor)) Endif Endif *!* lcSelect = "SELECT * FROM vadrese_parteneri where id_adresa = " + Transform(tnIdAdresa) *!* lcCursor = "crsAdreseTemp" *!* lnSucces = goExecutor.oExecute(lcSelect, lcCursor) *!* If lnSucces < 0 *!* amessagebox(goExecutor.cEroare) *!* Return *!* Endif *!* Select crsAdreseTemp *!* Scatter Name loRec *!* Use In crsAdreseTemp *!* =cclocalitati() *!* =ccJudete() *!* =ccTari() *!* Do Adauga_Modifica_Inregistrare With "parteneri_adrese",loRec,tnIdAdresa,"UPDATE" In oproceduri_ams.prg *!* =close_cclocalitati() *!* =close_ccJudete() *!* =close_ccTari() *!* modificare adrese parteneri 12.2013 ^ If gnButon = 1 Return loRec Else Return Null Endif Endproc && adrese_parteneri_modifica ************************************************************* Procedure contracte_nou Parameters tnId_Part, tnIdTip, tnId LOCAL lnButon, llSucces, lcSchema, lcSelect, lcOrder, lcFiltru, lcAfiseaza Private pnId_part, pnId_tip_ctr If !Empty(tnId_Part) pnId_part = tnId_Part Else pnId_part = 0 ENDIF pnId_tip_ctr = IIF(!EMPTY(m.tnIdTip), m.tnIdTip, 0) Private poContracte, pcschema1, pcselect1 Store '' To poContracte lcschema = [''] lcselect = ['select * from vcontracte where 1=2'] lcorder = [denumire,data,numar] lcfiltru = [1=2] llAfiseaza = .F. gencursor('poContracte', 'v_contracte_nou', m.lcSelect, m.lcFiltru, m.lcSchema, m.lcOrder, m.llAfiseaza) poContracte.ca_baza1.afisare() *** Select v_contracte_nou Scatter Name loRec Blank AddProperty(loRec, "numar2", "") If Type('loRec.curs') = 'U' AddProperty(loRec, "curs", 0) Endif loRec.tip_istoric = [C] loRec.Data = Date() loRec.data_inceput = {} loRec.data_sfarsit = {} loRec.id_part = pnId_part && modificare 11.04.2012 lnButon = Adauga_Modifica_Inregistrare('contract', loRec, @tnId, "INSERT") && In oproceduri_ams.prg llSucces = (m.lnButon = 1) Use In v_contracte_nou RETURN m.llSucces Endproc && contracte_nou ************************************************************* Procedure nom_lucrari_detalii_nou Private pniesire, pcNrOrd Local loRec, lnSucces, lcSelect Store [] To pcNrOrd pniesire = 0 lcSelect = [select * from ] + gcS + [.vlucrari_detalii where 1=2] lcCursor = [crsLucrariDetaliiTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return Null Endif Select (lcCursor) Scatter Name loRec Use In (lcCursor) goExecutor.oFunction2Value([pack_comenzi.genereaza_nr_lucrare], @pcNrOrd) loRec.nrord = pcNrOrd loRec.data_lucrare = get_ora() Do Adauga_Modifica_Inregistrare With 'lucrari_detalii', loRec, , "INSERT" If gnButon = 1 Return loRec Else Return Null Endif Endproc ************************************************************* Procedure nom_masini_nou Local loRec, lnSucces, lcSelect lcSelect = [select * from ] + gcS + [.vnom_masini where 1=2] lcCursor = [crsMasiniTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return Null Endif Select (lcCursor) Scatter Name loRec Do Adauga_Modifica_Inregistrare With 'masini', loRec, , "INSERT" Use In (lcCursor) If gnButon = 1 Return loRec Else Return Null Endif Endproc ************************************************************* ****************************************************************************************************************** Procedure viz_tipuri_ctr Private poTipuri_ctr Store '' To poTipuri_ctr Local lcSchema, lcSelect, lcOrder, lcgroup, lcFiltru, lcFiltruOriginal, llModParam, llAfiseaza lcSchema = [id_tip_ctr N(4), denumire_tip C(50), system N(1), id_tata N(4), tip_sup C(200)] lcSelect = [select id_tip_ctr, denumire_tip, system, id_tata, TRIM(SUBSTR(tata,1,INSTR(tata,CHR(92),1,nivel)-1)) as tip_sup from vtipuri_contracte ] lcOrder = [denumire_tip] lcgroup = [] lcFiltru = [1=2] Do Case Case gnParametru_prog = 1 lcFiltruOriginal = [substr(tata,2,6)='CLIENT'] Case gnParametru_prog = 2 lcFiltruOriginal = [substr(tata,2,6)='FURNIZ'] Endcase llModParam = .T. llAfiseaza = .F. gencursor('poTipuri_ctr', 'cTipuri_ctr', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poTipuri_ctr.ca_baza1.afisare() Select cTipuri_ctr ofrm_t_ctr = Createobject('frm_tipuri_ctr') ofrm_t_ctr.Show(1) Release poTipuri_ctr Endproc && viz_tipuri_ctr ****************************************************************************************************************** Procedure nom_calculatoare_nou Private poCalculatoare Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal Store '' To poCalculatoare lcSchema = [] lcSelect = [select * from vcalculatoare] lcOrder = [sucursala, denumire] lcFiltru = [] llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('poCalculatoare', 'crsCalcNou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poCalculatoare.ca_baza1.afisare() *** Select crsCalcNou Scatter Name loRec Blank Use In crsCalcNou = ccsucursale() Do Adauga_Modifica_Inregistrare With 'calc', loRec, , "INSERT" = close_ccsucursale() Endproc *!* 18.09.2006 *!* MARIUS.MUTU Procedure nom_calculatoare_modifica Parameters tnIdCalculator Local loRec, lnSucces, lcSelect loRec = Null If Empty(tnIdCalculator) Or Type('tnIdCalculator') # 'N' Or Isnull(tnIdCalculator) Return loRec Endif lcSelect = [select * from vcalculatoare where id_calc = ?tnIdCalculator] lcCursor = [crsCalculatoareTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return loRec Endif Select (lcCursor) Scatter Name loRec Use In (lcCursor) = ccsucursale() Select vnom_sucursale Locate For id_sucursala = loRec.id_sucursala If Found() loRec.sucursala = vnom_sucursale.sucursala Endif Do Adauga_Modifica_Inregistrare With 'calc', loRec, loRec.id_calc, "UPDATE" = close_ccsucursale() If gnButon = 1 Return loRec Else Return Null Endif Endproc && nom_calculatoare_modifica ***====================================================================================== ***====================================================================================== Procedure utilizatorintern_nou Private poUtilizatori Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal Store '' To poUtilizatori lcSchema = [] lcSelect = [select * from vutilizatori_rol_intern] lcOrder = [sucursala, denumire_grup, utilizator] lcFiltru = [1=2] llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('poUtilizatori', 'crsUtilNou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poUtilizatori.ca_baza1.afisare() *** Select crsUtilNou Scatter Name loRec Blank Use In crsUtilNou = ccsucursale() = ccutilizatori() = ccgrupuri_utilizatori() Do Adauga_Modifica_Inregistrare With 'utilizatori', loRec, , "INSERT" = close_ccsucursale() = close_ccgrupuri_utilizatori() = close_ccutilizatori() Endproc && utilizatorintern_nou ***====================================================================================== *!* 18.09.2006 *!* MARIUS.MUTU Procedure utilizatorintern_modifica Parameters tnIdUtil Local loRec, lnSucces, lcSelect, lcCursor loRec = Null If Empty(tnIdUtil) Or Type('tnIdUtil') # 'N' Or Isnull(tnIdUtil) Return loRec Endif lcSelect = [select * from vutilizatori_rol_intern where id_util = ?tnIdUtil] lcCursor = [crsUtilizatoriTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return loRec Endif Select (lcCursor) Scatter Name loRec Use In (lcCursor) = ccsucursale() = ccutilizatori() = ccgrupuri_utilizatori() Select vnom_sucursale Locate For id_sucursala = loRec.id_sucursala If Found() loRec.sucursala = vnom_sucursale.sucursala Endif Select vutilizatori Locate For id_util = loRec.id_util If Found() loRec.utilizator = vutilizatori.utilizator Endif Select vgrupuri_utilizatori Locate For id_grup = loRec.id_grup If Found() loRec.denumire_grup = vgrupuri_utilizatori.denumire_grup Endif Do Adauga_Modifica_Inregistrare With 'utilizatori', loRec, loRec.id_util, "UPDATE" = close_ccsucursale() = close_ccgrupuri_utilizatori() = close_ccutilizatori() If gnButon = 1 Return loRec Else Return Null Endif Endproc && utilizatorintern_modifica ***====================================================================================== Procedure sal_modlic_nou Private pomodlic, pcschema1, pcselect1 Store '' To pomodlic pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.sal_nom_modlic where 1=2'] pcorder1 = [modlic] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pomodlic', 'v_modlic_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pomodlic.ca_baza1.afisare() *** Select v_modlic_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'modlic', loRec, , "INSERT" Use In v_modlic_nou Endproc ************************************************************* * PROCEDURE viz_plafon_casa( Tcs ) * Date : 04/04/06, 11:22:25 * author : georgiana.voicu * description: ****** PARAMETER BLOCK ************** * Parameters : 1 * Parameter 1: * ******************************************* INCEPUT: viz_plafon_casa ******************************************* Procedure viz_plafon_casa(tcS, tnAn, tnLuna) Local lnSucces, lcS If Empty(tcS) lcS = "CONTAFIN_ORACLE" Else lcS = tcS Endif lnAn = Iif(Empty(tnAn), gnan, tnAn) lnLuna = Iif(Empty(tnLuna), gnLuna, tnLuna) Private pcot, pcschema1, pcselect1 Store '' To pcot pcschema1 = [''] pcselect1 = ['select id_calendar, luna, anul, plafon_casa, plafon_plati, plafon_furnizori from ] + lcS + [.calendar where 1=2'] pcfiltru1 = [ anul = ?lnAn and luna = ?lnluna] pcorder1 = [anul, luna] gencursor('pcot', 'v_plafon', pcselect1, pcfiltru1, pcschema1, pcorder1) pcot.ca_baza1.afisare() ofrmpc = Createobject('frm_plafon_casa') ofrmpc.ogencursor = pcot ofrmpc.ctabel = 'v_plafon' ofrmpc.Show(1) Release ofrmpc If Used('v_plafon') Use In v_plafon Endif Endproc ******************************************* SFARSIT: viz_plafon_casa ******************************************* ************************************************************* Procedure nom_sallucrari_nou Local loRec, lnSucces, lcSelect, lcCursor lcSelect = [select * from ] + gcS + [.sal_vnom_lucrari where 1=2] lcCursor = [crsLucrariTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return Null Endif Select (lcCursor) Scatter Name loRec AddProperty(loRec, "nume_parinte", "") Do Adauga_Modifica_Inregistrare With "sal_lucrari", loRec, , "INSERT", , "addcluc" If Used(lcCursor) Use In (lcCursor) Endif If gnButon = 1 Return loRec Else Return Null Endif Endproc ***====================================================================================== ***====================================================================================== Procedure sal_tipctr_nou Private poctr, pcschema1, pcselect1 Store '' To poctr pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.sal_nom_tipctr where 1=2'] pcorder1 = [tip_contract] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poctr', 'v_ctr_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poctr.ca_baza1.afisare() *** Do update_ore In update_roadef_sal.prg Select v_ctr_nou Scatter Name loRec Blank AddProperty(loRec, 'ore', '') Do Adauga_Modifica_Inregistrare With 'tipctr', loRec, , "INSERT" Use In v_ctr_nou Use In v_nomore Endproc ***====================================================================================== *!* 24.10.2006 *!* MARIUS.MUTU ***====================================================================================== Procedure calcsetare_nou Private poCalcSetare Local lcSchema, lcSelect, lcFiltru, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal poCalcSetare = Null lcSchema = [] lcSelect = [select id_calcsetare, id_calc, calculator, setare, explicatia, valoare, valoare_text, tip, tabel, coloane, titlucoloane, idcoloana, resultcoloana, titlu from vcalc_setari] lcOrder = [] lcFiltru = [1=2] llAfiseaza = .F. lcgroup = "" llModParam = .T. lcFiltruOriginal = [] gencursor('poCalcSetare', 'crsCalcSetareNou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poCalcSetare.ca_baza1.afisare() *** Select crsCalcSetareNou Scatter Name loRec Memo Blank Use In crsCalcSetareNou = cccalculatoare() = ccsetari() Do Adauga_Modifica_Inregistrare With 'calcsetari', loRec, , "INSERT" = close_cccalculatoare() = close_ccsetari() Endproc && calcsetare_nou ***====================================================================================== Procedure calcsetare_modifica Parameters tnIdCalcSetare Local loRec, lnSucces, lcSelect, lcCursor loRec = Null If Empty(tnIdCalcSetare) Or Type('tnIdCalcSetare') # 'N' Or Isnull(tnIdCalcSetare) Return loRec Endif lcSelect = [select id_calcsetare, id_calc, calculator, setare, explicatia, valoare, valoare_text, tip, tabel, coloane, titlucoloane, idcoloana, resultcoloana, titlu from vcalc_setari where id_calcsetare = ?tnIdCalcSetare] lcCursor = [crsCalcSetareTemp] lnSucces = goExecutor.oExecute(lcSelect, lcCursor) If lnSucces < 0 AMESSAGEBOX(goExecutor.cEroare, 0 + 16, 'Eroare') Return loRec Endif Select (lcCursor) Scatter Name loRec Memo Use In (lcCursor) = cccalculatoare() = ccsetari() Select vcalculatoare Locate For id_calc = loRec.id_calc If Found() loRec.calculator = vcalculatoare.denumire Endif Select vsetari Locate For setare = loRec.setare If Found() loRec.setare = vsetari.setare Endif Do Adauga_Modifica_Inregistrare With 'calcsetari', loRec, loRec.id_calcsetare, "UPDATE" = close_cccalculatoare() = close_ccsetari() If gnButon = 1 Return loRec Else Return Null Endif Endproc && calcsetare_modifica ***====================================================================================== Procedure nom_medii_transmisie_nou Private poMediu_transmisie, pcschema1, pcselect1 Store '' To poMediu_transmisie pcschema1 = [''] pcselect1 = ['select * from vnom_medii_transmisie where 1=2'] pcorder1 = [mediu_transmisie] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('poMediu_transmisie', 'v_mediu_transmisie_nou', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) poMediu_transmisie.ca_baza1.afisare() *** Select v_mediu_transmisie_nou Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'medii_transmisie', loRec, , "INSERT" Use In v_mediu_transmisie_nou Endproc ***====================================================================================== ******************************************* INCEPUT:viz_medii_transmisie ******************************************* Procedure viz_medii_transmisie( ) Private poMediu_transmisie, pcschema1, pcselect1 Store '' To poMediu_transmisie pcschema1 = [] pcselect1 = [select id_mediu, mediu_transmisie from vnom_medii_transmisie] pcorder1 = [mediu_transmisie] pcfiltru1 = [] llAfiseaza = .F. lcgroup = [] lcFiltruOriginal = [] llModParam = .T. gencursor('poMediu_transmisie', 'v_medii_transmisie', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal) poMediu_transmisie.ca_baza1.afisare() ofrmMT = Createobject('frm_medii_transmisie') ofrmMT.Show(1) Release poMediu_transmisie Endproc ******************************************* SFARSIT: viz_medii_transmisie ******************************************* Procedure viz_marci( ) Private pomarca, pcschema1, pcselect1 Store '' To pomarca pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_marci_masini where 1=2'] pcorder1 = [marca_masina] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pomarca', 'v_marci', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pomarca.ca_baza1.afisare() ofrmmarca = Createobject('frm_marci') ofrmmarca.Show(1) Release pomarca Endproc Procedure viz_modele( ) Private pomodel, pcschema1, pcselect1 Store '' To pomodel pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.vnom_modele_masini where 1=2'] pcorder1 = [model_masina] pcfiltru1 = [2=2] llAfiseaza = .F. gencursor('pomodel', 'v_modele', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pomodel.ca_baza1.afisare() ofrmmodel = Createobject('frm_modele') ofrmmodel.Show(1) Release pomodel Endproc Procedure vizualizare_soferi Do vizualizare_partener With gnIdTipSoferi, "Soferi", 2 Endproc Procedure nom_nomrute_nou Private pofdoc, pcschema1, pcselect1 Store '' To pofdoc pcschema1 = [''] pcselect1 = ['select * from ] + gcS + [.fact_vnom_rute where 1=2'] pcorder1 = [ruta] pcfiltru1 = [sters = 0 ] llAfiseaza = .F. gencursor('pofdoc', 'v_rute', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfiseaza) pofdoc.ca_baza1.afisare() *** Select v_rute Scatter Name loRec Blank Do Adauga_Modifica_Inregistrare With 'nomrute', loRec, , "INSERT" Use In v_rute Endproc ************************************************************* Procedure proiecte_nou Parameters tnId_Part Local lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcgroup, llModParam, lcFiltruOriginal Private poProiecte Store '' To poProiecte Private pnId_part If !Empty(tnId_Part) pnId_part = tnId_Part Else pnId_part = 0 Endif lcSchema = [] lcSelect = [select * from con_vproiecte] lcOrder = [denumire] lcFiltru = [1=2] llAfisare = .F. lcgroup = [] llModParam = .T. lcFiltruOriginal = [] gencursor('poProiecte', 'v_proiecte_nou', lcSelect, lcFiltru, lcSchema, lcOrder, llAfisare, lcgroup, llModParam, lcFiltruOriginal) poProiecte.ca_baza1.afisare() *** Select v_proiecte_nou Scatter Name loRec Blank Memo loRec.Data_proiect = Date() AddProperty(loRec, 'id_responsabil', 0) AddProperty(loRec, 'responsabil', '') AddProperty(loRec, 'id_modelproiect', 0) AddProperty(loRec, 'modelproiect', '') Do Adauga_Modifica_Inregistrare With 'proiecte', loRec, , "INSERT" In oproceduri_ams.prg Use In v_proiecte_nou Endproc && proiecte_nou ************************************************************* ************************************************************* *** se apeleaza din cauta_alfa_form, butonul but_verifica ************************************************************* Procedure nom_parteneri_verifica Lparameters toPartener Local loDate As "empty" Local lcCodFiscal, lcDenumire, ldDataAct, lnOptiune, lnRaspuns, loPartener lcCodFiscal = Alltrim(Transform(toPartener.cod_fiscal)) lcDenumire = Upper(Alltrim(Transform(toPartener.denumire))) ldDataAct = Iif(Type('toPartener.dataact') = 'D', toPartener.dataact, Date()) lnOptiune = 0 loPartener = Null loDate = Createobject("empty") AddProperty(loDate, "denumire", m.lcDenumire) AddProperty(loDate, "cod_fiscal", m.lcCodFiscal) AddProperty(loDate, "data", m.ldDataAct) lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener) Endproc && nom_parteneri_verifica *** se apeleaza din cauta_alfa_form, butonul but_verifica Procedure nom_parteneri_verifica_old Lparameters toPartener *!* Lparameters tlValidare && execut doar validarea codului Local loVerificare As "verificarecod" Local lcCod, lcDenumire, lcEroare, lcText, lcXml, llIsCIF, llPlatitorTva, llValid, llValidare Local loPartener llValidare = .F. loVerificare = Createobject("verificarecod") && validare.prg lcCod = Alltrim(Transform(toPartener.cod_fiscal)) lcDenumire = Upper(Alltrim(Transform(toPartener.denumire))) If Empty(m.lcCod) Return Endif llIsCIF = loVerificare.ISCIF(m.lcCod) *!* VERIFIC VALIDITATEA CODULUI If llIsCIF llValid = loVerificare.Validare('CIF', m.lcCod) Else llValid = loVerificare.Validare('CNP', m.lcCod) Endif If llValidare && se verifica doar validitatea codului Return llValid Endif If !m.llValid AMESSAGEBOX('Codul ' + m.lcCod + ' este ' + Iif(llValid, 'valid.', 'invalid.'), 0 + 48, _Screen.Caption) Else *!* DOAR PENTRU CIF-URI VERIFIC DENUMIREA, REG_COMERT, CALITATEA DE PLATITOR TVA If llIsCIF lcXml = loVerificare.Verificare('CIF', m.lcCod, 'MFINVIES') If Type('loVerificare.oEntitate') = 'O' loPartener = loVerificare.oEntitate llPlatitorTva = loPartener.platitortva lcEroare = loPartener.eroare If !Empty(loPartener.eroare) AMESSAGEBOX(loPartener.eroare, 0 + 48, _Screen.Caption) Else lcText = 'VERIFICARE CIF: ' + m.lcCod + ' ' + m.lcDenumire + CRLF + CRLF + ; Alltrim(loPartener.firma) + CRLF + ; Iif((loPartener.platitortvamfin And Left(m.lcCod, 2) <> 'RO') Or (!loPartener.platitortvamfin And Left(m.lcCod, 2) = 'RO'), ' *** ATENTIE *** ', '') + ; Iif(loPartener.platitortvamfin, "PLATITOR TVA (" + Alltrim(loPartener.datatvamfin) + ")", "NEPLATITOR TVA") + CRLF + ; Iif(loPartener.VIES, Iif(loPartener.platitortva, 'PLATITOR TVA VIES', 'NEPLATITOR TVA VIES'), 'Nu s-a interogat VIES.') + CRLF + ; 'Stare: ' + Alltrim(loPartener.stare) + CRLF + ; '----------------------------------------------------' + CRLF + ; '* Adresa: ' + Alltrim(loPartener.adresa) + CRLF + ; '* Judet: ' + loPartener.judet + CRLF + ; '* Nr. inregistrare la Registrul Comertului: ' + loPartener.regcom + CRLF + ; '* Cod Postal: ' + loPartener.codpostal + CRLF + ; '* Telefon: ' + loPartener.telefon + CRLF + ; '* Fax: ' + loPartener.fax + CRLF + CRLF + CRLF AMESSAGEBOX(lcText, 0 + 64, _Screen.Caption) Endif Endif Endif && llIsCIF Endif && !llValid Return m.llValid Endproc && nom_parteneri_verifica ************************************************************* *** se apeleaza din cauta_alfa_form, butonul but_copiaza Procedure nom_parteneri_copiaza Lparameters toPartener, tnIdTipPart, tnTipPersoana, tnSpecial, tcTipPart Local lcTipPart, lnIdPart, lnIdPartCoresp, lnIdTipPart, lnSpecial, lnTipPersoana, loDate lnIdTipPart = Iif(Empty(tnIdTipPart), 0, tnIdTipPart) lcTipPart = Iif(Empty(Nvl(tcTipPart, [])), '', tcTipPart) lnSpecial = Iif(Empty(tnSpecial), 0, tnSpecial) lnTipPersoana = Iif(Empty(tnTipPersoana), 0, tnTipPersoana) lnIdPartCoresp = 0 loDate = Null lnIdPart = Nvl(toPartener.id_part, 0) If Empty(m.lnIdPart) Return 2 Endif Do nom_parteneri_nou With m.lnIdTipPart, m.lcTipPart, m.lnSpecial, m.lnTipPersoana, m.lnIdPartCoresp, m.loDate, m.lnIdPart Return gnButon Endproc && nom_parteneri_copiaza ************************************************************************************************************************** Procedure NOM_LIMBI_NOU Local loRec Store '' To loRec loRec = poRec Do Adauga_Modifica_Inregistrare With "nom_limbi", loRec, , "INSERT", , "addlimba" Endproc ************************************************************************************************************************** ************************************************************************************************************************** Procedure NOM_cursuri_NOU Local loRec Store '' To loRec loRec = poRec Do Adauga_Modifica_Inregistrare With "curscal", loRec, , "INSERT", , "addnomcurs" Endproc **************************************************************************************************************************