Marius Mutu
77e98d73e9
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
3940 lines
122 KiB
Plaintext
3940 lines
122 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
*< FOXBIN2PRG: Version="1.21" SourceFile="ooptiuni.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||
*
|
||
*
|
||
DEFINE CLASS cus_odata_cote AS _cusodatabase OF "..\libs\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cschema =
|
||
Name = "cus_odata_cote"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
lcs = this.cschema
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
|
||
ENDIF
|
||
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"")
|
||
lcLuna = ALLTRIM(STR(toRec.luna))
|
||
lcAn = ALLTRIM(STR(toRec.an))
|
||
lcProcent = ALLTRIM(STR(toRec.procent))
|
||
lcproc = ALLTRIM(STR(toRec.proc_tva,5,2))
|
||
|
||
Endif
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
|
||
lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +;
|
||
lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
|
||
lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ;
|
||
[', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +;
|
||
[ where id_proc_tva = ] + lcId
|
||
|
||
|
||
Case lcActiune = "DELETE"
|
||
|
||
lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId
|
||
|
||
Endcase
|
||
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_exceptii AS _cusodatabase OF "..\libs\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cschema =
|
||
Name = "cus_odata_exceptii"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
lcs = this.cschema
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
|
||
ENDIF
|
||
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"")
|
||
lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"")
|
||
lcDebit = ALLTRIM(STR(toRec.debit))
|
||
lcInvers = '1'
|
||
|
||
Endif
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
|
||
lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +;
|
||
lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
|
||
lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ;
|
||
[', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +;
|
||
[ where id_exceptii = ] + lcId
|
||
|
||
|
||
Case lcActiune = "DELETE"
|
||
|
||
lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId
|
||
Endcase
|
||
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_firme_201402 AS _cusodatabase OF "..\..\roacomenzi\comun\clase\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<PropValue>
|
||
Name = "cus_odata_firme"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lnid_formaj = NVL(ALLTRIM(STR(toRec.id_forma_juridica)),"0")
|
||
lnid_formao = NVL(ALLTRIM(STR(toRec.id_forma_organizare)),"0")
|
||
lnid_formap = NVL(ALLTRIM(STR(toRec.id_forma_prop)),"0")
|
||
lnid_tip_soc = NVL(ALLTRIM(STR(toRec.id_tip_soc)),"0")
|
||
|
||
lcindicativ = Nvl(STRTRAN(Alltrim(Upper(toRec.indicativ)),['],['']),"")
|
||
|
||
lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"")
|
||
lcantet = Nvl(STRTRAN(Alltrim(Upper(toRec.antet)),['],['']),"")
|
||
lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"")
|
||
lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"")
|
||
lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"")
|
||
lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"")
|
||
lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"")
|
||
lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"")
|
||
lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"")
|
||
lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"")
|
||
lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"")
|
||
lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"")
|
||
lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0")
|
||
lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0")
|
||
lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"")
|
||
lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"")
|
||
lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"")
|
||
lctel2 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon2)),['],['']),"")
|
||
lctel3 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon3)),['],['']),"")
|
||
lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"")
|
||
lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"")
|
||
lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"")
|
||
lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0")
|
||
lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0")
|
||
lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"")
|
||
lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"")
|
||
lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"")
|
||
*!* lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0")
|
||
*!* lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0")
|
||
lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"")
|
||
*!* lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0")
|
||
lcjudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"")
|
||
lclocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"")
|
||
lcstrada = Nvl(STRTRAN(Alltrim(Upper(toRec.strada)),['],['']),"")
|
||
lcnumar = Nvl(STRTRAN(Alltrim(Upper(toRec.numar)),['],['']),"")
|
||
lcbloc = Nvl(STRTRAN(Alltrim(Upper(toRec.bloc)),['],['']),"")
|
||
lcscara = Nvl(STRTRAN(Alltrim(Upper(toRec.scara)),['],['']),"")
|
||
lccod_postal = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_postal)),['],['']),"")
|
||
lnapart = NVL(ALLTRIM(STR(toRec.apart)),"0")
|
||
lnidm="0"
|
||
lnmama="0"
|
||
lnidl=NVL(ALLTRIM(STR(toRec.id_loc)),"0")
|
||
Endif
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
lcSql = [begin contafin_oracle.pack_drepturi.firmeinsproc('] + lcfirma + [','] + lcantet + [','] + ;
|
||
lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ;
|
||
[','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ;
|
||
[','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ;
|
||
[',] + lnpersj + [,] + lncodang + [,'] + lcnume + ;
|
||
[','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ;
|
||
[','] + lcemail + [','] + lcoasp + [',] + lncapsv + ;
|
||
[,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ;
|
||
[',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+;
|
||
[,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ;
|
||
[,'] + lcindicativ + ['); end;]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
lcSql = [begin contafin_oracle.pack_drepturi.deffirmemodproc(]+lcId+[,'] + lcfirma + [','] + lcantet + [','] + ;
|
||
lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ;
|
||
[','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ;
|
||
[','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ;
|
||
[',] + lnpersj + [,] + lncodang + [,'] + lcnume + ;
|
||
[','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ;
|
||
[','] + lcemail + [','] + lcoasp + [',] + lncapsv + ;
|
||
[,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ;
|
||
[','] + lcjudet + [','] + lclocalitate +[','] + lcstrada + [','] + lcnumar + ;
|
||
[','] + lcbloc + [','] + lcscara + [',] + lnapart + [,'] + lccod_postal + ;
|
||
[',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+;
|
||
[,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ;
|
||
[,'] + lcindicativ + ['); end;]
|
||
STRTOFILE(lcsql,'c:\jurnal.txt')
|
||
*!* RETURN
|
||
Case lcActiune = "DELETE"
|
||
lcSql = [begin contafin_oracle.pack_drepturi.firmedelproc(] + lcId + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;]
|
||
Endcase
|
||
This.csql = lcSql
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_optiuni AS _cusodatabase OF "..\libs\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cschema =
|
||
Name = "cus_odata_optiuni"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
lcs = this.cschema
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
|
||
ENDIF
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||
lcId = Alltrim(Str(tnId))
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"")
|
||
lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"")
|
||
lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"")
|
||
lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"")
|
||
|
||
|
||
Endif
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
|
||
lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +;
|
||
lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
|
||
lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ;
|
||
[', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ;
|
||
[' where id_optiuni = ] + lcId
|
||
|
||
Case lcActiune = "DELETE"
|
||
|
||
lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId
|
||
|
||
Endcase
|
||
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS cus_odata_plafon_casa AS _cusodatabase OF "..\..\comun\clase\_cus_odata_base.vcx"
|
||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cschema =
|
||
Name = "cus_odata_plafon_casa"
|
||
*</PropValue>
|
||
|
||
PROCEDURE make_sql
|
||
Lparameters toRec,tnId
|
||
|
||
LOCAL lcActiune, lcs
|
||
PRIVATE pnId,pnPlCasa,pnPlPlati,pnPlFurn
|
||
|
||
lcActiune = Alltrim(This.cActiune)
|
||
*lcs = this.cschema
|
||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||
Return .F.
|
||
Endif
|
||
|
||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||
Return .F.
|
||
Endif
|
||
|
||
IF INLIST(lcActiune, "UPDATE",'DELETE')
|
||
pcId = ALLTRIM(STR(tnId))
|
||
ENDIF
|
||
|
||
|
||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||
pcPlCasa = ALLTRIM(STR(toRec.plafon_casa,16,gnPa))
|
||
pcPlPlati = ALLTRIM(STR(toRec.plafon_plati,16,gnPa))
|
||
pcPlFurn = ALLTRIM(STR(toRec.plafon_furnizori,16,gnPa))
|
||
Endif
|
||
|
||
|
||
Do Case
|
||
Case lcActiune = "INSERT"
|
||
|
||
*!* lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +;
|
||
*!* lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)]
|
||
|
||
Case lcActiune = "UPDATE"
|
||
|
||
lcSql = [UPDATE calendar SET ] + ;
|
||
[ plafon_casa = ] + pcPlCasa + [, plafon_plati = ] + pcPlPlati + [, plafon_furnizori = ] + pcPlFurn + ;
|
||
[ where id_calendar = ] + pcId
|
||
|
||
|
||
Case lcActiune = "DELETE"
|
||
|
||
*!* lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId
|
||
|
||
Endcase
|
||
|
||
This.csql = lcSql
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_cote_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_cote1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*p: nid
|
||
*p: orec
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 165
|
||
Name = "frm_cote_nou"
|
||
Width = 314
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 252
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 76
|
||
Lb_titlu_alb_b121.Caption = "Cote tva"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 7
|
||
BUT_TERMIN1.Left = 283
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 5
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 253, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 6, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 1, ;
|
||
Top = 44, ;
|
||
Text_simplu1.ControlSource = "porec.descriere", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Descriere", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu2", ;
|
||
TabIndex = 2, ;
|
||
Top = 72, ;
|
||
Text_simplu1.ControlSource = "porec.procent", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Procent", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu3", ;
|
||
TabIndex = 3, ;
|
||
Top = 100, ;
|
||
Text_simplu1.ControlSource = "porec.luna", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Luna", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu6", ;
|
||
TabIndex = 4, ;
|
||
Top = 128, ;
|
||
Text_simplu1.ControlSource = "porec.an", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "An", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ;
|
||
Left = 119, ;
|
||
Name = "Cus_odata_cote1", ;
|
||
Top = 28
|
||
*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
LOCAL PLRETURN
|
||
|
||
lccontrol = UPPER(this.ActiveControl.BaseClass )
|
||
IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
|
||
lcval=This.Activecontrol.controlsource
|
||
&lcval=thisform.ActiveControl.value
|
||
ENDIF
|
||
|
||
|
||
Do Case
|
||
Case Empty(porec.descriere)
|
||
Messagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie")
|
||
This.clb_tx_simplu1.SetFocus()
|
||
plreturn=.F.
|
||
|
||
*!* Case Empty(porec.procent)
|
||
*!* Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie")
|
||
*!* This.clb_tx_simplu2.SetFocus()
|
||
*!* plreturn=.F.
|
||
|
||
Case Empty(porec.luna)
|
||
Messagebox('Nu ati completat luna!',0+48,"Atentie")
|
||
This.clb_tx_simplu3.SetFocus()
|
||
plreturn=.F.
|
||
|
||
Case Empty(porec.an)
|
||
Messagebox('Nu ati completat anul!',0+48,"Atentie")
|
||
This.clb_tx_simplu6.SetFocus()
|
||
plreturn=.F.
|
||
|
||
OTHERWISE
|
||
this.cus_odata_cote1.cschema=this.cschema
|
||
PLRETURN=This.cus_odata_cote1.salvare(This.OREC,This.NID)
|
||
ENDCASE
|
||
|
||
Return PLRETURN
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS toRec, tnId, tcActiune
|
||
|
||
DODEFAULT()
|
||
|
||
this.orec= toRec
|
||
this.nid = tnId
|
||
this.cus_odata_cote1.cactiune = tcActiune
|
||
ENDPROC
|
||
|
||
PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid
|
||
|
||
porec.proc_tva = (100+this.value)/100
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_cote_tva AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_cot" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cgridsortlist = grid_cot
|
||
cschema = CONTAFIN_ORACLE
|
||
DoCreate = .T.
|
||
Height = 351
|
||
Name = "frm_cote_tva"
|
||
Width = 524
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 522
|
||
_shape2.Height = 29
|
||
_shape2.Left = 402
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 120
|
||
Lb_titlu_alb_b121.Caption = "COTE TVA"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 494
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Left = 434, ;
|
||
Name = "But_modifica1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Left = 403, ;
|
||
Name = "But_nou1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Left = 463, ;
|
||
Name = "But_sterge1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Left = 299, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 2, ;
|
||
Top = 52
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_cot' AS _grid WITH ;
|
||
ColumnCount = 4, ;
|
||
DeleteMark = .F., ;
|
||
Height = 264, ;
|
||
Left = 5, ;
|
||
Name = "grid_cot", ;
|
||
Panel = 1, ;
|
||
RecordSource = "v_cote_tva", ;
|
||
RowHeight = 23, ;
|
||
Top = 84, ;
|
||
Width = 513, ;
|
||
Column1.ControlSource = "descriere", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.Width = 305, ;
|
||
Column2.ControlSource = "procent", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.Width = 66, ;
|
||
Column3.ControlSource = "luna", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.Width = 43, ;
|
||
Column4.ControlSource = "an", ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.Width = 64
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_cot.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Descriere", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_cot.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_cot.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Procent %", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_cot.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_cot.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Luna", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ;
|
||
Height = 23, ;
|
||
Left = 31, ;
|
||
Name = "Text1", ;
|
||
Top = 35, ;
|
||
Width = 100
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_cot.Column4.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "An", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_cot.Column4.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'lb_nom_cot' AS clb_tx_simplu WITH ;
|
||
Left = 8, ;
|
||
Name = "lb_nom_cot", ;
|
||
TabIndex = 1, ;
|
||
Top = 52, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Nume", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru=pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru=pcot.ca_baza1.cfiltru
|
||
ENDIF
|
||
save_grid_tag(thisform.grid_cot)
|
||
pcot.ca_baza1.cfiltru=lcFiltru
|
||
pcot.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_cot)
|
||
IF RECCOUNT('v_cote_tva')>0
|
||
thisform.grid_cot.SetFocus()
|
||
ELSE
|
||
thisform.lb_nom_cot.SetFocus()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
SELECT v_cote_tva
|
||
SCATTER NAME loRec BLANK
|
||
PRIVATE lcot,poRec
|
||
lcot=''
|
||
poRec = loRec
|
||
DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot'
|
||
lcot.cschema = this.cschema
|
||
lcot.show(1)
|
||
RELEASE lcot,poRec
|
||
this.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru=[]
|
||
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_cot.text_simplu1.value)),['],[''])
|
||
If !Empty(lcNume)
|
||
lcFiltru=[descriere like ']+lcNume+[%' and an=]+pcAn
|
||
ELSE
|
||
lcFiltru = [an=]+pcAn
|
||
Endif
|
||
This.MousePointer= 11
|
||
This.LockScreen=.T.
|
||
Thisform.actualizeaza_grid1(lcFiltru)
|
||
IF RECCOUNT()=0
|
||
MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
|
||
ENDIF
|
||
This.LockScreen=.F.
|
||
This.MousePointer= 0
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
Select v_cote_tva
|
||
Scatter Name loRec
|
||
PRIVATE lcot,poRec
|
||
lcot = ''
|
||
poRec = loRec
|
||
Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot'
|
||
lcot.cschema = this.cschema
|
||
lcot.show(1)
|
||
RELEASE lcot,poRec
|
||
thisform.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
SELECT v_cote_tva
|
||
SCATTER NAME lorec MEMO
|
||
PRIVATE lcot
|
||
lcot = ''
|
||
Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot'
|
||
lcot.cschema = this.cschema
|
||
lcot.salvare(,loRec.id_proc_tva)
|
||
RELEASE lcot
|
||
|
||
this.actualizeaza_grid1()
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
IF USED('v_cote_tva')
|
||
USE IN v_cote_tva
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_exceptii_ireg AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_ex" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cgridsortlist = grid_ex
|
||
cschema = CONTAFIN_ORACLE
|
||
DoCreate = .T.
|
||
Height = 351
|
||
Name = "frm_exceptii_ireg"
|
||
Width = 463
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 466
|
||
_shape2.Height = 29
|
||
_shape2.Left = 346
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 120
|
||
Lb_titlu_alb_b121.Caption = "EXCEPTII"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 433
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
GRIDSORT1.Name = "GRIDSORT1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Left = 373, ;
|
||
Name = "But_modifica1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Left = 342, ;
|
||
Name = "But_nou1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Left = 402, ;
|
||
Name = "But_sterge1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Left = 299, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 2, ;
|
||
Top = 52
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_ex' AS _grid WITH ;
|
||
ColumnCount = 5, ;
|
||
DeleteMark = .F., ;
|
||
Height = 264, ;
|
||
Left = 4, ;
|
||
Name = "grid_ex", ;
|
||
Panel = 1, ;
|
||
RecordSource = "v_exceptii_ireg", ;
|
||
RowHeight = 23, ;
|
||
Top = 84, ;
|
||
Width = 456, ;
|
||
Column1.ControlSource = "cont", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.Width = 124, ;
|
||
Column2.ControlSource = "cont_c", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.Width = 119, ;
|
||
Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.Width = 179, ;
|
||
Column4.ControlSource = "invers", ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.Visible = .F., ;
|
||
Column4.Width = 59, ;
|
||
Column5.ControlSource = "id_set", ;
|
||
Column5.Name = "Column5", ;
|
||
Column5.Visible = .F., ;
|
||
Column5.Width = 70
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_ex.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_ex.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_ex.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont_corespondent", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_ex.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_ex.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Pozitie cont", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ;
|
||
Height = 23, ;
|
||
Left = 31, ;
|
||
Name = "Text1", ;
|
||
Top = 35, ;
|
||
Width = 100
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_ex.Column4.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Invers", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_ex.Column4.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
Visible = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_ex.Column5.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Id_set", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_ex.Column5.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1", ;
|
||
Visible = .F.
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ;
|
||
Left = 8, ;
|
||
Name = "lb_nom_ex", ;
|
||
TabIndex = 1, ;
|
||
Top = 52, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Cont", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru=pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru=pex.ca_baza1.cfiltru
|
||
ENDIF
|
||
save_grid_tag(thisform.grid_ex)
|
||
pex.ca_baza1.cfiltru=lcFiltru
|
||
pex.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_ex)
|
||
IF RECCOUNT('v_exceptii_ireg')>0
|
||
thisform.grid_ex.SetFocus()
|
||
ELSE
|
||
thisform.lb_nom_ex.SetFocus()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
SELECT v_exceptii_ireg
|
||
SCATTER NAME loRec BLANK
|
||
PRIVATE lex,poRec
|
||
|
||
lex=''
|
||
poRec = loRec
|
||
DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex'
|
||
lex.cschema = this.cschema
|
||
lex.show(1)
|
||
RELEASE lex,poRec
|
||
this.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru=[]
|
||
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_ex.text_simplu1.value)),['],[''])
|
||
If !Empty(lcNume)
|
||
lcFiltru=[cont like ']+lcNume+[%']
|
||
ELSE
|
||
lcFiltru = [2=2]
|
||
Endif
|
||
This.MousePointer= 11
|
||
This.LockScreen=.T.
|
||
Thisform.actualizeaza_grid1(lcFiltru)
|
||
IF RECCOUNT()=0
|
||
MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
|
||
ENDIF
|
||
This.LockScreen=.F.
|
||
This.MousePointer= 0
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
Select v_exceptii_ireg
|
||
Scatter Name loRec
|
||
PRIVATE lex,poRec
|
||
lex = ''
|
||
poRec = loRec
|
||
Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex'
|
||
lex.cschema = this.cschema
|
||
lex.show(1)
|
||
RELEASE lex,poRec
|
||
thisform.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
SELECT v_exceptii_ireg
|
||
SCATTER NAME lorec MEMO
|
||
PRIVATE lex
|
||
lex = ''
|
||
Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex'
|
||
lex.cschema = this.cschema
|
||
lex.salvare(,loRec.id_exceptii)
|
||
RELEASE lex
|
||
|
||
this.actualizeaza_grid1()
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
IF USED('v_exceptii_ireg')
|
||
USE IN v_exceptii_ireg
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_exceptii_nou AS _frmbase OF "..\libs\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_exceptii1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*p: nid
|
||
*p: orec
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 133
|
||
Name = "frm_exceptii_nou"
|
||
Width = 314
|
||
_shape1.Name = "_shape1"
|
||
_shape2.Height = 29
|
||
_shape2.Left = 252
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 76
|
||
Lb_titlu_alb_b121.Caption = "Exceptii"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 6
|
||
BUT_TERMIN1.Left = 283
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 4
|
||
BUT_TERMIN1.Top = 1
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 253, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 5, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 15, ;
|
||
Name = "Cb_tx_simplu1", ;
|
||
TabIndex = 3, ;
|
||
Top = 102, ;
|
||
Width = 290, ;
|
||
_cbbase1.BoundTo = .T., ;
|
||
_cbbase1.Name = "_cbbase1", ;
|
||
_cbbase1.RowSource = "DEBIT,CREDIT", ;
|
||
_cbbase1.RowSourceType = 1, ;
|
||
_lbbase1.Caption = "Pozitie", ;
|
||
_lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 1, ;
|
||
Top = 44, ;
|
||
Text_simplu1.ControlSource = "porec.cont", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Cont", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu2", ;
|
||
TabIndex = 2, ;
|
||
Top = 72, ;
|
||
Text_simplu1.ControlSource = "porec.cont_c", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Corespondent", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ;
|
||
Left = 168, ;
|
||
Name = "Cus_odata_exceptii1", ;
|
||
Top = 33
|
||
*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
LOCAL PLRETURN
|
||
|
||
porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1)
|
||
lccontrol = UPPER(this.ActiveControl.BaseClass )
|
||
IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
|
||
lcval=This.Activecontrol.controlsource
|
||
&lcval=thisform.ActiveControl.value
|
||
ENDIF
|
||
|
||
|
||
Do Case
|
||
Case Empty(porec.cont)
|
||
Messagebox('Nu ati completat contul!',0+48,"Atentie")
|
||
This.clb_tx_simplu1.SetFocus()
|
||
plreturn=.F.
|
||
|
||
Case Empty(porec.cont_c)
|
||
Messagebox('Nu ati completat contul corespondent!',0+48,"Atentie")
|
||
This.clb_tx_simplu2.SetFocus()
|
||
plreturn=.F.
|
||
|
||
*!* Case Empty(porec.debit)
|
||
*!* Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie")
|
||
*!* This.clb_tx_simplu3.SetFocus()
|
||
*!* plreturn=.F.
|
||
|
||
OTHERWISE
|
||
|
||
lcCont = ALLTRIM(porec.cont)
|
||
lcContC = ALLTRIM(porec.cont_c)
|
||
lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont
|
||
lcCursor = [cur_cont]
|
||
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
goExecutor.oReset() &&Verific contu in plcont
|
||
|
||
IF RECCOUNT('cur_cont')=0
|
||
MESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0,'Eroare')
|
||
PLRETURN=.f.
|
||
USE IN cur_cont
|
||
RETURN PLRETURN
|
||
ENDIF
|
||
IF USED('cur_cont')
|
||
USE IN cur_cont
|
||
ENDIF
|
||
|
||
lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC
|
||
lcCursor = [cur_cont_c]
|
||
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
||
goExecutor.oReset() &&Verific contul corespondent
|
||
IF RECCOUNT('cur_cont_c')=0
|
||
MESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0,'Eroare')
|
||
PLRETURN=.f.
|
||
USE IN cur_cont_c
|
||
RETURN PLRETURN
|
||
ENDIF
|
||
IF USED('cur_cont_c')
|
||
USE IN cur_cont_c
|
||
ENDIF
|
||
this.cus_odata_exceptii1.cschema=this.cschema
|
||
PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID)
|
||
ENDCASE
|
||
|
||
Return PLRETURN
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS toRec, tnId, tcActiune
|
||
|
||
DODEFAULT()
|
||
IF porec.debit=0
|
||
this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT'
|
||
ELSE
|
||
this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT'
|
||
ENDIF
|
||
this.orec= toRec
|
||
this.nid = tnId
|
||
this.cus_odata_exceptii1.cactiune = tcActiune
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_firme_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cFirma.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cFirma.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cSchema.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cSchema.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cBanca3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cAdresa.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cAdresa.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Check1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCodAng.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCodAng.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cNume.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cNume.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPrenume.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPrenume.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCaen.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cCaen.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cOasp.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cOasp.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cFax.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cFax.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cEmail.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cEmail.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cSucursala.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grd_firme.cSucursala.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: do_refresh_date
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
cbuton3 = but_modifica1
|
||
cbuton4 = but_sterge1
|
||
cgridsortlist = grd_firme
|
||
Desktop = .T.
|
||
DoCreate = .T.
|
||
Height = 515
|
||
lactiv3 = .T.
|
||
lactiv4 = .T.
|
||
Name = "frm_firme"
|
||
Width = 791
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 792
|
||
_SHAPE2.Height = 29
|
||
_SHAPE2.Left = 648
|
||
_SHAPE2.Name = "_SHAPE2"
|
||
_SHAPE2.Top = 0
|
||
_SHAPE2.Width = 144
|
||
LB_TITLU_ALB_B121.Caption = "FIRME"
|
||
LB_TITLU_ALB_B121.FontBold = .T.
|
||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||
LB_TITLU_ALB_B121.TabIndex = 9
|
||
BUT_TERMIN1.Left = 756
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 2
|
||
BUT_TERMIN1.Top = 1
|
||
GRIDSORT1.Name = "GRIDSORT1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Left = 689, ;
|
||
Name = "But_modifica1", ;
|
||
TabIndex = 4, ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Left = 655, ;
|
||
Name = "But_nou1", ;
|
||
TabIndex = 5, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Left = 723, ;
|
||
Name = "But_sterge1", ;
|
||
TabIndex = 3, ;
|
||
Top = 1, ;
|
||
Visible = .T.
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_banca1", ;
|
||
TabIndex = 10, ;
|
||
TabStop = .F., ;
|
||
Top = 244, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.banca1", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Banca 1", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_cod_firma", ;
|
||
TabIndex = 12, ;
|
||
TabStop = .F., ;
|
||
Top = 300, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Cod firma", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_cod_fiscal", ;
|
||
TabIndex = 7, ;
|
||
TabStop = .F., ;
|
||
Top = 188, ;
|
||
Width = 290, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cod_fiscal", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Cod fiscal", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_cont_banca1", ;
|
||
TabIndex = 11, ;
|
||
TabStop = .F., ;
|
||
Top = 272, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Cont banca 1", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_email", ;
|
||
TabIndex = 17, ;
|
||
TabStop = .F., ;
|
||
Top = 440, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.email", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "E-mail", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_fax", ;
|
||
TabIndex = 16, ;
|
||
TabStop = .F., ;
|
||
Top = 412, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.fax", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Fax", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_reg_comert", ;
|
||
TabIndex = 8, ;
|
||
TabStop = .F., ;
|
||
Top = 216, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Reg. comert", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_telefon", ;
|
||
TabIndex = 13, ;
|
||
TabStop = .F., ;
|
||
Top = 328, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Telefon", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_telefon2", ;
|
||
TabIndex = 14, ;
|
||
TabStop = .F., ;
|
||
Top = 356, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon2", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Telefon 2", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ;
|
||
Left = 466, ;
|
||
Name = "Clb_telefon3", ;
|
||
TabIndex = 15, ;
|
||
TabStop = .F., ;
|
||
Top = 384, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon3", ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.ReadOnly = .T., ;
|
||
LB_SIMPLU1.Caption = "Telefon 3", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ;
|
||
Height = 124, ;
|
||
Left = 466, ;
|
||
Name = "Ed_adresa", ;
|
||
TabIndex = 6, ;
|
||
TabStop = .F., ;
|
||
Top = 65, ;
|
||
Width = 290, ;
|
||
_edbase1.ControlSource = "porec.adresa", ;
|
||
_edbase1.Height = 118, ;
|
||
_edbase1.Left = 58, ;
|
||
_edbase1.Name = "_edbase1", ;
|
||
_edbase1.ReadOnly = .T., ;
|
||
_edbase1.Top = 2, ;
|
||
_edbase1.Width = 228, ;
|
||
_LBBASE1.Caption = "Adresa", ;
|
||
_LBBASE1.Name = "_LBBASE1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'grd_firme' AS _grdrow WITH ;
|
||
ColumnCount = 27, ;
|
||
DeleteMark = .F., ;
|
||
Height = 444, ;
|
||
Left = 36, ;
|
||
Name = "grd_firme", ;
|
||
Panel = 1, ;
|
||
RecordSource = "v_firme", ;
|
||
TabIndex = 1, ;
|
||
Top = 48, ;
|
||
Width = 396, ;
|
||
Column1.ControlSource = "firma", ;
|
||
Column1.Name = "cFirma", ;
|
||
Column1.Width = 155, ;
|
||
Column2.ColumnOrder = 2, ;
|
||
Column2.ControlSource = "schema", ;
|
||
Column2.Name = "cSchema", ;
|
||
Column2.Width = 120, ;
|
||
Column3.ColumnOrder = 3, ;
|
||
Column3.ControlSource = "cod_fiscal", ;
|
||
Column3.Name = "cCod_Fiscal", ;
|
||
Column3.Width = 120, ;
|
||
Column4.ColumnOrder = 7, ;
|
||
Column4.ControlSource = "cont_banca1", ;
|
||
Column4.Name = "cCont_Banca1", ;
|
||
Column4.Width = 161, ;
|
||
Column5.ColumnOrder = 6, ;
|
||
Column5.ControlSource = "banca1", ;
|
||
Column5.Name = "cBanca1", ;
|
||
Column5.Width = 121, ;
|
||
Column6.ColumnOrder = 8, ;
|
||
Column6.ControlSource = "banca2", ;
|
||
Column6.Name = "cBanca2", ;
|
||
Column6.Width = 131, ;
|
||
Column7.ColumnOrder = 9, ;
|
||
Column7.ControlSource = "cont_banca2", ;
|
||
Column7.Name = "cCont_Banca2", ;
|
||
Column7.Width = 149, ;
|
||
Column8.ColumnOrder = 10, ;
|
||
Column8.ControlSource = "banca3", ;
|
||
Column8.Name = "cBanca3", ;
|
||
Column8.Width = 148, ;
|
||
Column9.ColumnOrder = 11, ;
|
||
Column9.ControlSource = "cont_banca3", ;
|
||
Column9.Name = "cCont_Banca3", ;
|
||
Column9.Width = 141, ;
|
||
Column10.ColumnOrder = 12, ;
|
||
Column10.ControlSource = "adresa", ;
|
||
Column10.Name = "cAdresa", ;
|
||
Column10.Width = 174, ;
|
||
Column11.ColumnOrder = 13, ;
|
||
Column11.ControlSource = "cod_firma", ;
|
||
Column11.Name = "cCod_Firma", ;
|
||
Column11.Width = 98, ;
|
||
Column12.ColumnOrder = 19, ;
|
||
Column12.ControlSource = "persoana_juridica", ;
|
||
Column12.Name = "cPersoanaJuridica", ;
|
||
Column12.Sparse = .F., ;
|
||
Column12.Width = 99, ;
|
||
Column13.ColumnOrder = 20, ;
|
||
Column13.ControlSource = "codang", ;
|
||
Column13.Name = "cCodAng", ;
|
||
Column13.Width = 130, ;
|
||
Column14.ColumnOrder = 21, ;
|
||
Column14.ControlSource = "nume", ;
|
||
Column14.Name = "cNume", ;
|
||
Column14.Width = 119, ;
|
||
Column15.ColumnOrder = 22, ;
|
||
Column15.ControlSource = "prenume", ;
|
||
Column15.Name = "cPrenume", ;
|
||
Column15.Width = 132, ;
|
||
Column16.ColumnOrder = 24, ;
|
||
Column16.ControlSource = "capital_soc_sub", ;
|
||
Column16.Name = "cCapital_soc_sub", ;
|
||
Column16.Width = 134, ;
|
||
Column17.ColumnOrder = 25, ;
|
||
Column17.ControlSource = "capital_soc_var", ;
|
||
Column17.Name = "cCapital_soc_var", ;
|
||
Column17.Width = 116, ;
|
||
Column18.ColumnOrder = 27, ;
|
||
Column18.ControlSource = "caen", ;
|
||
Column18.Name = "cCaen", ;
|
||
Column18.Width = 129, ;
|
||
Column19.ColumnOrder = 26, ;
|
||
Column19.ControlSource = "punct_luc", ;
|
||
Column19.Name = "cPunctLucru", ;
|
||
Column19.Width = 107, ;
|
||
Column20.ColumnOrder = 23, ;
|
||
Column20.ControlSource = "oasp", ;
|
||
Column20.Name = "cOasp", ;
|
||
Column20.Width = 112, ;
|
||
Column21.ColumnOrder = 14, ;
|
||
Column21.ControlSource = "telefon", ;
|
||
Column21.Name = "cTelefon", ;
|
||
Column21.Width = 103, ;
|
||
Column22.ColumnOrder = 15, ;
|
||
Column22.ControlSource = "telefon2", ;
|
||
Column22.Name = "cTelefon2", ;
|
||
Column22.Width = 115, ;
|
||
Column23.ColumnOrder = 16, ;
|
||
Column23.ControlSource = "telefon3", ;
|
||
Column23.Name = "cTelefon3", ;
|
||
Column23.Width = 125, ;
|
||
Column24.ColumnOrder = 17, ;
|
||
Column24.ControlSource = "fax", ;
|
||
Column24.Name = "cFax", ;
|
||
Column24.Width = 118, ;
|
||
Column25.ColumnOrder = 18, ;
|
||
Column25.ControlSource = "email", ;
|
||
Column25.Name = "cEmail", ;
|
||
Column25.Width = 122, ;
|
||
Column26.ColumnOrder = 4, ;
|
||
Column26.ControlSource = "reg_comert", ;
|
||
Column26.Name = "cReg_Comert", ;
|
||
Column26.Width = 147, ;
|
||
Column27.ColumnOrder = 5, ;
|
||
Column27.ControlSource = "sucursala", ;
|
||
Column27.Name = "cSucursala", ;
|
||
Column27.Width = 122
|
||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grd_firme.cAdresa.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Adresa", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cAdresa.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Banca 1", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Banca 2", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Banca 3", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cBanca3.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCaen.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "CAEN", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCaen.Text1' AS textbox WITH ;
|
||
Alignment = 3, ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCapital_soc_sub.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Capital social subscris", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCapital_soc_sub.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCapital_soc_var.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Capital social varsat", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCapital_soc_var.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCod_Firma.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod firma", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCod_Firma.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCod_Fiscal.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod fiscal", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCod_Fiscal.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCodAng.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cod ang.", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCodAng.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont banca 1", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont banca 2", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Cont banca 3", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cCont_Banca3.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cEmail.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "E-mail", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cEmail.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cFax.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Fax", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cFax.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cFirma.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Firma", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cFirma.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cNume.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nume", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cNume.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cOasp.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Oasp", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cOasp.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cPersoanaJuridica.Check1' AS checkbox WITH ;
|
||
Alignment = 2, ;
|
||
BackStyle = 0, ;
|
||
Caption = "", ;
|
||
Centered = .T., ;
|
||
Height = 17, ;
|
||
Left = 47, ;
|
||
Name = "Check1", ;
|
||
Top = 35, ;
|
||
Width = 60
|
||
*< END OBJECT: BaseClass="checkbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cPersoanaJuridica.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Persoana juridica", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cPrenume.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Prenume", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cPrenume.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cPunctLucru.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Punct de lucru", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cPunctLucru.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cReg_Comert.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Reg. comert", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cReg_Comert.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cSchema.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Schema", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cSchema.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cSucursala.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Sucursala", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cSucursala.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Telefon", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Telefon 2", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Telefon 3", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grd_firme.cTelefon3.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
Lparameters pcFiltru
|
||
Local lcFiltru
|
||
lcFiltru=pcFiltru
|
||
If Empty(lcFiltru)
|
||
lcFiltru=pofirme.ca_baza1.cfiltru
|
||
Endif
|
||
save_grid_tag(Thisform.grd_firme)
|
||
pofirme.ca_baza1.cfiltru=lcFiltru
|
||
pofirme.ca_baza1.afisare()
|
||
restore_grid_tag(Thisform.grd_firme)
|
||
Thisform.grd_firme.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Destroy
|
||
If Used('v_firme')
|
||
Use In v_firme
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
gnButon=1
|
||
Select v_firme
|
||
Scatter Name loRec Blank
|
||
Do Adauga_Modifica_Inregistrare With "firme",loRec,,"INSERT"
|
||
If gnButon=1
|
||
This.actualizeaza_grid1()
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
If Reccount('v_firme')>0
|
||
gnButon=1
|
||
Select v_firme
|
||
Scatter Name loRec
|
||
Do Adauga_Modifica_Inregistrare With "firme",loRec,loRec.Id_firma,"UPDATE"
|
||
If gnButon=1
|
||
This.actualizeaza_grid1()
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE do_refresh_date
|
||
Thisform.ed_adresa.Refresh()
|
||
Thisform.clb_banca1.Refresh()
|
||
Thisform.clb_cod_firma.Refresh()
|
||
Thisform.clb_cod_fiscal.Refresh()
|
||
Thisform.clb_cont_banca1.Refresh()
|
||
Thisform.clb_email.Refresh()
|
||
Thisform.clb_fax.Refresh()
|
||
Thisform.clb_reg_comert.Refresh()
|
||
Thisform.clb_telefon.Refresh()
|
||
Thisform.clb_telefon2.Refresh()
|
||
Thisform.clb_telefon3.Refresh()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
If Reccount('v_firme')>0
|
||
gnButon=1
|
||
Select v_firme
|
||
Scatter Name loRec
|
||
Do STERGE_INREGISTRARE With "firme",loRec.Id_firma
|
||
If gnButon=1
|
||
This.actualizeaza_grid1()
|
||
Endif
|
||
Endif
|
||
ENDPROC
|
||
|
||
PROCEDURE grd_firme.AfterRowColChange
|
||
Lparameters nColIndex
|
||
If Inlist(This.RowColChange,0,1,3)
|
||
Select v_firme
|
||
Scatter Name poRec
|
||
Thisform.do_refresh_date()
|
||
Endif
|
||
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_firme_nou_201402 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_banca2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cont_banca2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_banca3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cont_banca3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_capsocvar" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_caen" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_codang" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_prenume" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_capsocsub" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_oasp" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_firme1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu8" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu9" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu10" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu11" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="tx_parinte" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="tx_cod_fiscal_p" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_schema" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_clb_cautare2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_clb_cautare3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_clb_cautare4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_itm" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Ct_localitate1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*m: alege_fj
|
||
*m: alege_judet
|
||
*m: alege_localitate
|
||
*m: alege_nivel
|
||
*m: alege_organizare
|
||
*m: alege_proprietate
|
||
*m: sucursala
|
||
*p: id_judet
|
||
*p: jcategorie
|
||
*p: nid
|
||
*p: orec
|
||
*p: parenta
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 3
|
||
Desktop = .F.
|
||
DoCreate = .T.
|
||
Height = 689
|
||
id_judet = 0
|
||
jcategorie = 1
|
||
Name = "frm_firme_nou"
|
||
nid =
|
||
orec =
|
||
parenta = 0
|
||
ScrollBars = 2
|
||
Width = 701
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 702
|
||
_SHAPE2.Height = 29
|
||
_SHAPE2.Left = 630
|
||
_SHAPE2.Name = "_SHAPE2"
|
||
_SHAPE2.Top = 0
|
||
_SHAPE2.Width = 72
|
||
LB_TITLU_ALB_B121.Caption = "FIRMA"
|
||
LB_TITLU_ALB_B121.FontBold = .T.
|
||
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
||
LB_TITLU_ALB_B121.TabIndex = 44
|
||
BUT_TERMIN1.Left = 669
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 42
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 9
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 214
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 635, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 43, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 6, ;
|
||
Name = "Cb_tx_simplu1", ;
|
||
TabIndex = 1, ;
|
||
Top = 36, ;
|
||
Width = 314, ;
|
||
_cbbase1.BoundColumn = 2, ;
|
||
_cbbase1.BoundTo = .T., ;
|
||
_cbbase1.ColumnCount = 2, ;
|
||
_cbbase1.ControlSource = "thisform.jcategorie", ;
|
||
_cbbase1.Height = 23, ;
|
||
_cbbase1.Left = 78, ;
|
||
_cbbase1.Name = "_cbbase1", ;
|
||
_cbbase1.RowSource = "Persoana juridica,1,Persoana fizica,2", ;
|
||
_cbbase1.RowSourceType = 1, ;
|
||
_cbbase1.Top = 3, ;
|
||
_cbbase1.Width = 232, ;
|
||
_lbbase1.Caption = "Categorie", ;
|
||
_lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 353, ;
|
||
Name = "Cb_tx_simplu2", ;
|
||
TabIndex = 40, ;
|
||
Top = 717, ;
|
||
Width = 314, ;
|
||
_cbbase1.BoundColumn = 2, ;
|
||
_cbbase1.BoundTo = .T., ;
|
||
_cbbase1.ColumnCount = 2, ;
|
||
_cbbase1.Height = 23, ;
|
||
_cbbase1.Left = 75, ;
|
||
_cbbase1.Name = "_cbbase1", ;
|
||
_cbbase1.RowSource = "Adaugare,1,Modificare,2,Corectie,3", ;
|
||
_cbbase1.RowSourceType = 1, ;
|
||
_cbbase1.Top = 3, ;
|
||
_cbbase1.Width = 232, ;
|
||
_lbbase1.Caption = "Opera<72>ie", ;
|
||
_lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_banca1", ;
|
||
TabIndex = 17, ;
|
||
Top = 484, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.banca1", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Banca 1", ;
|
||
LB_SIMPLU1.Left = 5, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_banca2' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_banca2", ;
|
||
TabIndex = 19, ;
|
||
Top = 540, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.banca2", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Banca 2", ;
|
||
LB_SIMPLU1.Left = 5, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_banca3' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_banca3", ;
|
||
TabIndex = 21, ;
|
||
Top = 596, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.banca3", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Banca 3", ;
|
||
LB_SIMPLU1.Left = 5, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_caen' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_caen", ;
|
||
TabIndex = 5, ;
|
||
Top = 150, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.caen", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.MaxLength = 4, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "CAEN", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_capsocsub' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_capsocsub", ;
|
||
TabIndex = 25, ;
|
||
Top = 708, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.capital_soc_sub", ;
|
||
TEXT_SIMPLU1.Height = 23, ;
|
||
TEXT_SIMPLU1.Left = 103, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Top = 3, ;
|
||
TEXT_SIMPLU1.Width = 207, ;
|
||
LB_SIMPLU1.Caption = "Capital soc. sub.", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_capsocvar' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_capsocvar", ;
|
||
TabIndex = 24, ;
|
||
Top = 680, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.capital_soc_var", ;
|
||
TEXT_SIMPLU1.Height = 23, ;
|
||
TEXT_SIMPLU1.Left = 103, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Top = 3, ;
|
||
TEXT_SIMPLU1.Width = 207, ;
|
||
LB_SIMPLU1.Caption = "Capital soc. v<>r.", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_cod_firma", ;
|
||
TabIndex = 23, ;
|
||
Top = 652, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Cod firm<72>", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 6, ;
|
||
Name = "Clb_cod_fiscal", ;
|
||
TabIndex = 4, ;
|
||
Top = 120, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.cod_fiscal", ;
|
||
Text_simplu1.Left = 78, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 232, ;
|
||
Lb_simplu1.Caption = "Cod fiscal", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_codang' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_codang", ;
|
||
TabIndex = 31, ;
|
||
Top = 457, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.codang", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Cod angajat", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_cont_banca1", ;
|
||
TabIndex = 18, ;
|
||
Top = 512, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Cont banca 1", ;
|
||
LB_SIMPLU1.Left = 4, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cont_banca2' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_cont_banca2", ;
|
||
TabIndex = 20, ;
|
||
Top = 568, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cont_banca2", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Cont banca 2", ;
|
||
LB_SIMPLU1.Left = 5, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_cont_banca3' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_cont_banca3", ;
|
||
TabIndex = 22, ;
|
||
Top = 624, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.cont_banca3", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Cont banca 3", ;
|
||
LB_SIMPLU1.Left = 5, ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
LB_SIMPLU1.Top = 6
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_email", ;
|
||
TabIndex = 38, ;
|
||
Top = 653, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.email", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "E-mail", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_fax", ;
|
||
TabIndex = 37, ;
|
||
Top = 625, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.fax", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Fax", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_itm' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_itm", ;
|
||
TabIndex = 26, ;
|
||
Top = 310, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.indicativ", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "ITM", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_nume", ;
|
||
TabIndex = 32, ;
|
||
Top = 485, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.nume", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Nume", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_oasp' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_oasp", ;
|
||
TabIndex = 39, ;
|
||
Top = 683, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.oasp", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.MaxLength = 3, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "OASP", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_prenume' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_prenume", ;
|
||
TabIndex = 33, ;
|
||
Top = 513, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.prenume", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Prenume", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_reg_comert", ;
|
||
TabIndex = 16, ;
|
||
Top = 456, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ;
|
||
TEXT_SIMPLU1.Left = 78, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 232, ;
|
||
LB_SIMPLU1.Caption = "Reg. comer<65>", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_schema' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 6, ;
|
||
Name = "Clb_schema", ;
|
||
TabIndex = 41, ;
|
||
Top = 747, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.schema", ;
|
||
Text_simplu1.Height = 23, ;
|
||
Text_simplu1.Left = 78, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 232, ;
|
||
Lb_simplu1.Caption = "Schem<65>", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_telefon", ;
|
||
TabIndex = 34, ;
|
||
Top = 541, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Telefon", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_telefon2", ;
|
||
TabIndex = 35, ;
|
||
Top = 569, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon2", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Telefon 2", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_telefon3", ;
|
||
TabIndex = 36, ;
|
||
Top = 597, ;
|
||
Width = 314, ;
|
||
TEXT_SIMPLU1.ControlSource = "porec.telefon3", ;
|
||
TEXT_SIMPLU1.Left = 90, ;
|
||
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||
TEXT_SIMPLU1.Width = 220, ;
|
||
LB_SIMPLU1.Caption = "Telefon 3", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 6, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 3, ;
|
||
Top = 92, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.firma", ;
|
||
Text_simplu1.Height = 23, ;
|
||
Text_simplu1.Left = 78, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 232, ;
|
||
Lb_simplu1.Caption = "Firma", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu10' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_tx_simplu10", ;
|
||
TabIndex = 29, ;
|
||
Top = 396, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.apart", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "Apartament", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu11' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_tx_simplu11", ;
|
||
TabIndex = 30, ;
|
||
Top = 429, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.cod_postal", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "Cod po<70>tal", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_tx_simplu6", ;
|
||
TabIndex = 14, ;
|
||
Top = 394, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.strada", ;
|
||
Text_simplu1.Left = 78, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 232, ;
|
||
Lb_simplu1.Caption = "Strad<61>", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ;
|
||
Left = 6, ;
|
||
Name = "Clb_tx_simplu7", ;
|
||
TabIndex = 15, ;
|
||
Top = 422, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.numar", ;
|
||
Text_simplu1.Left = 78, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 232, ;
|
||
Lb_simplu1.Caption = "Num<75>r", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu8' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_tx_simplu8", ;
|
||
TabIndex = 27, ;
|
||
Top = 340, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.bloc", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "Bloc", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu9' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "Clb_tx_simplu9", ;
|
||
TabIndex = 28, ;
|
||
Top = 368, ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.scara", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "Scar<61>", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
|
||
cconditie = empty(nvl(porec.forma_juridica,''))=.t., ;
|
||
cprocedura = thisform.alege_fj, ;
|
||
cvar_afisata = porec.forma_juridica, ;
|
||
Left = 352, ;
|
||
Name = "Ct_clb_cautare1", ;
|
||
TabIndex = 6, ;
|
||
Top = 35, ;
|
||
img_cautare.Name = "img_cautare", ;
|
||
clb_tx_cautare.Lb_simplu1.Caption = "Forma juridic<69>", ;
|
||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||
clb_tx_cautare.Text_simplu1.Left = 90, ;
|
||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||
clb_tx_cautare.Text_simplu1.Width = 220
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_clb_cautare2' AS ct_clb_cautare WITH ;
|
||
cconditie = empty(nvl(porec.tip_societate,''))=.t., ;
|
||
cprocedura = thisform.alege_nivel, ;
|
||
cvar_afisata = porec.tip_societate, ;
|
||
Left = 352, ;
|
||
Name = "Ct_clb_cautare2", ;
|
||
TabIndex = 7, ;
|
||
Top = 63, ;
|
||
img_cautare.Name = "img_cautare", ;
|
||
clb_tx_cautare.Lb_simplu1.Caption = "Nivel", ;
|
||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||
clb_tx_cautare.Text_simplu1.Left = 90, ;
|
||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||
clb_tx_cautare.Text_simplu1.Width = 220
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_clb_cautare3' AS ct_clb_cautare WITH ;
|
||
cconditie = empty(nvl(porec.forma_organizare,''))=.t., ;
|
||
cprocedura = thisform.alege_organizare, ;
|
||
cvar_afisata = porec.forma_organizare, ;
|
||
Height = 31, ;
|
||
Left = 5, ;
|
||
Name = "Ct_clb_cautare3", ;
|
||
TabIndex = 2, ;
|
||
Top = 63, ;
|
||
Width = 343, ;
|
||
img_cautare.Left = 319, ;
|
||
img_cautare.Name = "img_cautare", ;
|
||
img_cautare.Top = 5, ;
|
||
clb_tx_cautare.Lb_simplu1.Caption = "Organizare", ;
|
||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||
clb_tx_cautare.Text_simplu1.Height = 23, ;
|
||
clb_tx_cautare.Text_simplu1.Left = 78, ;
|
||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||
clb_tx_cautare.Text_simplu1.Top = 3, ;
|
||
clb_tx_cautare.Text_simplu1.Width = 232
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_clb_cautare4' AS ct_clb_cautare WITH ;
|
||
cconditie = empty(nvl(porec.forma_proprietate,''))=.t., ;
|
||
cprocedura = thisform.alege_proprietate, ;
|
||
cvar_afisata = porec.forma_proprietate, ;
|
||
Left = 352, ;
|
||
Name = "Ct_clb_cautare4", ;
|
||
TabIndex = 10, ;
|
||
Top = 147, ;
|
||
img_cautare.Name = "img_cautare", ;
|
||
clb_tx_cautare.Lb_simplu1.Caption = "Proprietate", ;
|
||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||
clb_tx_cautare.Text_simplu1.Left = 90, ;
|
||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||
clb_tx_cautare.Text_simplu1.Width = 220
|
||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ct_localitate1' AS ct_localitate WITH ;
|
||
cdate = poRec, ;
|
||
Left = 6, ;
|
||
Name = "Ct_localitate1", ;
|
||
TabIndex = 13, ;
|
||
Top = 310, ;
|
||
Cb_localitate_af.img_atentie.Name = "img_atentie", ;
|
||
Cb_localitate_af.Name = "Cb_localitate_af", ;
|
||
Cb_localitate_af._cbautofill1.Name = "_cbautofill1", ;
|
||
Cb_localitate_af._lbbase1.Name = "_lbbase1", ;
|
||
Cb_tara.Name = "Cb_tara", ;
|
||
Cb_tara._cbbase1.Name = "_cbbase1", ;
|
||
Cb_tara._lbbase1.Name = "_lbbase1", ;
|
||
Cb_judet.Name = "Cb_judet", ;
|
||
Cb_judet._cbbase1.Name = "_cbbase1", ;
|
||
Cb_judet._lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\onomenclatoare.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_firme1' AS cus_odata_firme WITH ;
|
||
Left = 311, ;
|
||
Name = "Cus_odata_firme1", ;
|
||
Top = 692
|
||
*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
|
||
|
||
ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ;
|
||
Height = 72, ;
|
||
Left = 6, ;
|
||
Name = "Ed_adresa", ;
|
||
TabIndex = 12, ;
|
||
Top = 225, ;
|
||
Width = 605, ;
|
||
_edbase1.ControlSource = "porec.adresa", ;
|
||
_edbase1.Height = 66, ;
|
||
_edbase1.Left = 102, ;
|
||
_edbase1.Name = "_edbase1", ;
|
||
_edbase1.Top = 2, ;
|
||
_edbase1.Width = 499, ;
|
||
_LBBASE1.Caption = "Adres<65>", ;
|
||
_LBBASE1.Name = "_LBBASE1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ;
|
||
Height = 40, ;
|
||
Left = 6, ;
|
||
Name = "Ed_tx_simplu1", ;
|
||
TabIndex = 11, ;
|
||
Top = 186, ;
|
||
Width = 605, ;
|
||
_EDBASE1.ControlSource = "porec.antet", ;
|
||
_EDBASE1.Height = 36, ;
|
||
_EDBASE1.Left = 102, ;
|
||
_EDBASE1.Name = "_EDBASE1", ;
|
||
_EDBASE1.Top = 2, ;
|
||
_EDBASE1.Width = 500, ;
|
||
_LBBASE1.Caption = "Antet", ;
|
||
_LBBASE1.Name = "_LBBASE1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'tx_cod_fiscal_p' AS clb_tx_simplu WITH ;
|
||
Left = 353, ;
|
||
Name = "tx_cod_fiscal_p", ;
|
||
TabIndex = 9, ;
|
||
Top = 120, ;
|
||
Visible = .F., ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.cod_fiscal_p", ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "Cod fiscal", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'tx_parinte' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 353, ;
|
||
Name = "tx_parinte", ;
|
||
TabIndex = 8, ;
|
||
Top = 92, ;
|
||
Visible = .F., ;
|
||
Width = 314, ;
|
||
Text_simplu1.ControlSource = "porec.parinte", ;
|
||
Text_simplu1.Height = 23, ;
|
||
Text_simplu1.Left = 90, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 220, ;
|
||
Lb_simplu1.Caption = "P<>rinte", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE alege_fj
|
||
buton=2
|
||
lnidstaresoc = thisform.jcategorie
|
||
pcselect = [select id_forma_juridica,denumire from syn_nom_forme_juridice]
|
||
pcFiltru = []
|
||
pcFiltruOrig = [id_staresoc=?lnidstaresoc]
|
||
pcschema = ['']
|
||
pcorder = [ordine]
|
||
pccoloane = [denumire]
|
||
pcTitlu = [Categorie]
|
||
pcTitluColoane = [Categorie]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.forma_juridica = locauta.denumire
|
||
porec.id_forma_juridica = locauta.id_forma_juridica
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_judet
|
||
buton=2
|
||
pcselect = [select id_judet,judet,indicativ from syn_vnom_judete]
|
||
pcfiltru = [inactiv=0]
|
||
pcFiltruOriginal = [inactiv=0]
|
||
pcschema = ['']
|
||
pcorder = [judet]
|
||
pccoloane = [judet,indicativ]
|
||
pcTitlu = [Judete]
|
||
pcTitluColoane = [Judet,Indicativ]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.judet = locauta.judet
|
||
thisform.id_judet = locauta.id_judet
|
||
porec.indicativ=locauta.indicativ
|
||
thisform.clb_itm.Refresh
|
||
ENDIF
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_localitate
|
||
IF EMPTY(thisform.id_judet)
|
||
aMESSAGEBOX('Alegeti judetul!',48,"Atentie")
|
||
porec.id_localitate=0
|
||
RETURN
|
||
ENDIF
|
||
lnid_jud = thisform.id_judet
|
||
pcselect = [select id_loc,localitate from syn_vnom_localitati]
|
||
pcFiltru = [inactiv = 0 and id_judet=?lnid_jud]
|
||
pcFiltruOrig = pcFiltru
|
||
pcschema = ['']
|
||
pcorder = [localitate]
|
||
pccoloane = [localitate]
|
||
pcTitlu = [Localitate]
|
||
pcTitluColoane = [Localitate]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.localitate = locauta.localitate
|
||
porec.id_loc = locauta.id_loc
|
||
ENDIF
|
||
|
||
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_nivel
|
||
buton=2
|
||
pcselect = [select id_tip_soc,denumire,parent from syn_nom_tip_societate]
|
||
pcfiltru = [2=2]
|
||
pcschema = ['']
|
||
pcorder = [denumire]
|
||
pccoloane = [denumire]
|
||
pcTitlu = [Nivel infiintare]
|
||
pcTitluColoane = [Nivel]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.tip_societate = locauta.denumire
|
||
porec.id_tip_soc = locauta.id_tip_soc
|
||
thisform.ParentA = locauta.parent
|
||
thisform.sucursala()
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_organizare
|
||
IF EMPTY(NVL(porec.id_forma_juridica,''))
|
||
aMESSAGEBOX("Completati forma juridica!",0+48,"Atentie")
|
||
porec.id_forma_organizare=0
|
||
RETURN
|
||
ENDIF
|
||
|
||
buton=2
|
||
pcselect = [select id_forma_organizare,abreviere,denumire from syn_nom_forme_organizare]
|
||
pcFiltru = [id_forma_juridica=?porec.id_forma_juridica]
|
||
pcFiltruOriginal = pcFiltru
|
||
pcschema = ['']
|
||
pcorder = [denumire]
|
||
pccoloane = [denumire,abreviere]
|
||
pcTitlu = [Forma Organizare]
|
||
pcTitluColoane = [Forma organizare,Abreviere]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.forma_organizare = locauta.denumire
|
||
porec.id_forma_organizare = locauta.id_forma_organizare
|
||
ENDIF
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE alege_proprietate
|
||
buton=2
|
||
pcselect = [select id_forma_prop,forma_proprietate from syn_nom_forme_proprietate]
|
||
pcfiltru = [2=2]
|
||
pcschema = ['']
|
||
pcorder = [forma_proprietate]
|
||
pccoloane = [forma_proprietate]
|
||
pcTitlu = [Forma proprietate]
|
||
pcTitluColoane = [Forma proprietate]
|
||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
|
||
|
||
*!* Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
|
||
|
||
IF buton # 2
|
||
porec.forma_proprietate = locauta.forma_proprietate
|
||
porec.id_forma_prop= locauta.id_forma_prop
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
Local PLRETURN
|
||
|
||
lccontrol = Upper(This.ActiveControl.BaseClass )
|
||
If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
|
||
lcval=This.ActiveControl.ControlSource
|
||
&lcval=Thisform.ActiveControl.Value
|
||
Endif
|
||
|
||
Do Case
|
||
Case Empty(porec.firma)
|
||
Messagebox('Nu ati completat numele firmei!',0+48,"Atentie")
|
||
Thisform.clb_firma.text_simplu1.SetFocus()
|
||
PLRETURN=.F.
|
||
Case Empty(porec.schema)
|
||
Messagebox('Nu ati completat numele schemei!',0+48,"Atentie")
|
||
Thisform.clb_schema.text_simplu1.SetFocus()
|
||
PLRETURN=.F.
|
||
OTHERWISE
|
||
|
||
PLRETURN=Thisform.cus_odata_firme1.salvare(This.OREC,This.NID)
|
||
|
||
Endcase
|
||
Return PLRETURN
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
Lparameters toRec, tnId, tcActiune
|
||
DoDefault()
|
||
|
||
This.orec= toRec
|
||
This.nid = tnId
|
||
This.cus_odata_firme1.cactiune = tcActiune
|
||
Do Case
|
||
Case tcActiune="INSERT"
|
||
Thisform.lb_titlu_alb_b121.Caption="ADAUGARE FIRM<52>"
|
||
Case tcActiune="UPDATE"
|
||
If Type("toRec.modificare_schema")<>"U"
|
||
Thisform.clb_schema.text_simplu1.Enabled=Iif(toRec.modificare_schema==0,.F.,.T.)
|
||
Endif
|
||
Thisform.lb_titlu_alb_b121.Caption="MODIFICARE FIRM<52>"
|
||
thisform.jcategorie=porec.persoana_juridica
|
||
*!* modificare ROADEF v 2.1.2
|
||
*!* lcSelect = [select id_judet,indicativ from vnom_localitati where id_loc=?porec.id_loc]
|
||
*!* lcCursor = [crsId_jud]
|
||
*!* lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
|
||
*!* IF lnSucces < 0
|
||
*!* MESSAGEBOX(goExecutor.cEroare)
|
||
*!* ELSE
|
||
*!* SELECT crsId_jud
|
||
*!* thisform.id_judet = id_judet
|
||
*!* USE IN crsId_jud
|
||
*!* ENDIF
|
||
Thisform.id_judet = toRec.id_judet
|
||
*!* modificare ROADEF v 2.1.2 ^
|
||
ENDCASE
|
||
*!* modificare ROADEF v 2.1.2
|
||
This.ct_localitate1.initializeaza()
|
||
*!* modificare ROADEF v 2.1.2 ^
|
||
ENDPROC
|
||
|
||
PROCEDURE sucursala
|
||
LOCAL lnP
|
||
lnP=thisform.parenta
|
||
thisform.tx_parinte.Visible=IIF(lnP=0,.f.,.t.)
|
||
thisform.tx_cod_fiscal_p.Visible=IIF(lnP=0,.f.,.t.)
|
||
thisform.tx_cod_fiscal_p.Refresh
|
||
thisform.tx_parinte.Refresh
|
||
ENDPROC
|
||
|
||
PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
|
||
porec.persoana_juridica=this.value
|
||
thisform.jcategorie=this.Value
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_optiuni AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_opt" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
cschema = CONTAFIN_ORACLE
|
||
DoCreate = .T.
|
||
Height = 351
|
||
Name = "frm_optiuni"
|
||
Width = 524
|
||
_shape1.Anchor = 10
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 522
|
||
_shape2.Height = 29
|
||
_shape2.Left = 402
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 120
|
||
Lb_titlu_alb_b121.Caption = "OPTIUNI"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Anchor = 8
|
||
BUT_TERMIN1.Left = 494
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
GRIDSORT1.Name = "GRIDSORT1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Anchor = 8, ;
|
||
Left = 434, ;
|
||
Name = "But_modifica1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||
Anchor = 8, ;
|
||
Left = 403, ;
|
||
Name = "But_nou1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||
Anchor = 8, ;
|
||
Left = 463, ;
|
||
Name = "But_sterge1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Left = 431, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 2, ;
|
||
Top = 52
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_opt' AS _grid WITH ;
|
||
Anchor = 15, ;
|
||
ColumnCount = 4, ;
|
||
DeleteMark = .F., ;
|
||
Height = 264, ;
|
||
Left = 5, ;
|
||
Name = "grid_opt", ;
|
||
Panel = 1, ;
|
||
RecordSource = "v_optiuni", ;
|
||
RowHeight = 23, ;
|
||
Top = 84, ;
|
||
Width = 513, ;
|
||
Column1.ControlSource = "varname", ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.Width = 241, ;
|
||
Column2.ColumnOrder = 3, ;
|
||
Column2.ControlSource = "vartype", ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.Width = 70, ;
|
||
Column3.ColumnOrder = 2, ;
|
||
Column3.ControlSource = "varvalue", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.Sparse = .F., ;
|
||
Column3.Width = 226, ;
|
||
Column4.ControlSource = "vardesc", ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.Width = 145
|
||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_opt.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Nume", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_opt.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_opt.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Tip data", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_opt.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_opt.Column3.Edit1' AS editbox WITH ;
|
||
Height = 53, ;
|
||
Left = 94, ;
|
||
Name = "Edit1", ;
|
||
Top = 23, ;
|
||
Width = 100
|
||
*< END OBJECT: BaseClass="editbox" />
|
||
|
||
ADD OBJECT 'grid_opt.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Valoare", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_opt.Column4.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Descriere", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_opt.Column4.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'lb_nom_opt' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 8, ;
|
||
Name = "lb_nom_opt", ;
|
||
TabIndex = 1, ;
|
||
Top = 52, ;
|
||
Width = 376, ;
|
||
Text_simplu1.Height = 23, ;
|
||
Text_simplu1.Left = 57, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 313, ;
|
||
Lb_simplu1.Caption = "Nume", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru=pcFiltru
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru=popt.ca_baza1.cfiltru
|
||
ENDIF
|
||
save_grid_tag(thisform.grid_opt)
|
||
popt.ca_baza1.cfiltru=lcFiltru
|
||
popt.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_opt)
|
||
IF RECCOUNT('v_optiuni')>0
|
||
thisform.grid_opt.SetFocus()
|
||
ELSE
|
||
thisform.lb_nom_opt.SetFocus()
|
||
ENDIF
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_adauga
|
||
SELECT v_optiuni
|
||
SCATTER NAME loRec MEMO BLANK
|
||
PRIVATE lopt,poRec
|
||
lopt=''
|
||
poRec = loRec
|
||
DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt'
|
||
lopt.cschema = this.cschema
|
||
lopt.show(1)
|
||
RELEASE lopt,poRec
|
||
this.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru=[]
|
||
lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_opt.text_simplu1.value)),['],[''])
|
||
If !Empty(lcNume)
|
||
lcFiltru=[UPPER(varname) like ']+lcNume+[%']
|
||
ELSE
|
||
lcFiltru = [2=2]
|
||
Endif
|
||
This.MousePointer= 11
|
||
This.LockScreen=.T.
|
||
Thisform.actualizeaza_grid1(lcFiltru)
|
||
IF RECCOUNT()=0
|
||
MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
|
||
ENDIF
|
||
This.LockScreen=.F.
|
||
This.MousePointer= 0
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
Select v_optiuni
|
||
Scatter Name loRec MEMO
|
||
PRIVATE lopt,poRec
|
||
lopt = ''
|
||
poRec = loRec
|
||
Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt'
|
||
lopt.cschema = this.cschema
|
||
lopt.show(1)
|
||
RELEASE lopt,poRec
|
||
thisform.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
PROCEDURE do_sterge
|
||
SELECT v_optiuni
|
||
SCATTER NAME lorec MEMO
|
||
PRIVATE lopt
|
||
lopt = ''
|
||
Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt'
|
||
lopt.cschema = this.cschema
|
||
lopt.salvare(,loRec.id_optiuni)
|
||
RELEASE lopt
|
||
|
||
this.actualizeaza_grid1()
|
||
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
DODEFAULT()
|
||
THIS.WindowState = 2
|
||
ENDPROC
|
||
|
||
PROCEDURE Unload
|
||
IF USED('v_optiuni')
|
||
USE IN v_optiuni
|
||
ENDIF
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_optiuni_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_optiuni1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*p: nid
|
||
*p: orec
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 1
|
||
DoCreate = .T.
|
||
Height = 165
|
||
Name = "frm_optiuni_nou"
|
||
Width = 492
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 492
|
||
_shape2.Height = 29
|
||
_shape2.Left = 416
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 76
|
||
Lb_titlu_alb_b121.Caption = "Optiuni"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 7
|
||
BUT_TERMIN1.Left = 459
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 5
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||
Left = 429, ;
|
||
Name = "But_renunt1", ;
|
||
TabIndex = 6, ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Cb_tx_simplu1", ;
|
||
TabIndex = 2, ;
|
||
Top = 72, ;
|
||
_cbbase1.ControlSource = "porec.vartype", ;
|
||
_cbbase1.Name = "_cbbase1", ;
|
||
_cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ;
|
||
_cbbase1.RowSourceType = 1, ;
|
||
_lbbase1.Caption = "Tip data", ;
|
||
_lbbase1.Name = "_lbbase1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 1, ;
|
||
Top = 44, ;
|
||
Text_simplu1.ControlSource = "porec.varname", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Nume", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
|
||
Height = 29, ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu3", ;
|
||
TabIndex = 3, ;
|
||
Top = 100, ;
|
||
Width = 465, ;
|
||
Text_simplu1.ControlSource = "porec.varvalue", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Height = 23, ;
|
||
Text_simplu1.Left = 101, ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Top = 3, ;
|
||
Text_simplu1.Width = 360, ;
|
||
Lb_simplu1.Caption = "Valoare", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
|
||
Left = 15, ;
|
||
Name = "Clb_tx_simplu6", ;
|
||
TabIndex = 4, ;
|
||
Top = 128, ;
|
||
Width = 465, ;
|
||
Text_simplu1.ControlSource = "porec.vardesc", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.Width = 360, ;
|
||
Lb_simplu1.Caption = "Descriere", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ;
|
||
Left = 144, ;
|
||
Name = "Cus_odata_optiuni1", ;
|
||
Top = 24
|
||
*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
LOCAL PLRETURN
|
||
|
||
lccontrol = UPPER(this.ActiveControl.BaseClass )
|
||
IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
|
||
lcval=This.Activecontrol.controlsource
|
||
&lcval=thisform.ActiveControl.value
|
||
ENDIF
|
||
|
||
|
||
Do Case
|
||
Case Empty(porec.varname)
|
||
Messagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie")
|
||
This.clb_tx_simplu1.SetFocus()
|
||
plreturn=.F.
|
||
|
||
Case Empty(porec.vartype)
|
||
Messagebox('Nu ati completat tipul de data!',0+48,"Atentie")
|
||
This.CB_tx_simplu1.SetFocus()
|
||
plreturn=.F.
|
||
|
||
*!* Case Empty(porec.varvalue)
|
||
*!* Messagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie")
|
||
*!* This.clb_tx_simplu3.SetFocus()
|
||
*!* plreturn=.F.
|
||
|
||
OTHERWISE
|
||
this.cus_odata_optiuni1.cschema=this.cschema
|
||
PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID)
|
||
ENDCASE
|
||
|
||
Return PLRETURN
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS toRec, tnId, tcActiune
|
||
|
||
DODEFAULT()
|
||
toRec.varvalue = NVL(toRec.varvalue, '')
|
||
poRec.varvalue = NVL(toRec.varvalue, '')
|
||
|
||
toRec.vardesc = NVL(toRec.vardesc, '')
|
||
poRec.vardesc = NVL(toRec.vardesc, '')
|
||
|
||
this.orec= toRec
|
||
this.nid = tnId
|
||
this.cus_odata_optiuni1.cactiune = tcActiune
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_plafon_casa AS frm_termin OF "..\..\comun\clase\_frm_child.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="grid_plafoane" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column1.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column1.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column2.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column2.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column3.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column3.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column4.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column4.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column5.Header1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="grid_plafoane.Column5.Text1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: ctabel
|
||
*p: ogencursor
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 2
|
||
cgridsortlist = grid_plafoane
|
||
ctabel =
|
||
DoCreate = .T.
|
||
Height = 340
|
||
Name = "frm_plafon_casa"
|
||
ogencursor =
|
||
Width = 492
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 504
|
||
_shape2.Height = 29
|
||
_shape2.Left = 428
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
_shape2.Width = 63
|
||
Lb_titlu_alb_b121.Caption = "Plafon casa"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
BUT_TERMIN1.Left = 461
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Left = 452
|
||
Gridsort1.Name = "Gridsort1"
|
||
Gridsort1.Top = 42
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||
Left = 431, ;
|
||
Name = "But_modifica1", ;
|
||
Top = 1
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
|
||
Height = 29, ;
|
||
Left = 12, ;
|
||
Name = "Clb_luna_intre1", ;
|
||
Top = 39, ;
|
||
Width = 229, ;
|
||
tx_n1.Left = 68, ;
|
||
tx_n1.Name = "tx_n1", ;
|
||
tx_n1.Top = 3, ;
|
||
LB_SIMPLU1.Caption = "Perioada", ;
|
||
LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||
tx_n2.Left = 148, ;
|
||
tx_n2.Name = "tx_n2", ;
|
||
tx_n2.Top = 3
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
||
Height = 27, ;
|
||
Left = 244, ;
|
||
Name = "Cmd_cauta1", ;
|
||
TabIndex = 2, ;
|
||
Top = 40, ;
|
||
Width = 80
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||
|
||
ADD OBJECT 'grid_plafoane' AS _grid WITH ;
|
||
ColumnCount = 5, ;
|
||
DeleteMark = .F., ;
|
||
HeaderHeight = 23, ;
|
||
Height = 258, ;
|
||
Left = 6, ;
|
||
Name = "grid_plafoane", ;
|
||
Panel = 1, ;
|
||
RecordSource = "v_plafon", ;
|
||
RowHeight = 20, ;
|
||
Top = 74, ;
|
||
Width = 479, ;
|
||
Column1.ControlSource = "plafon_casa", ;
|
||
Column1.InputMask = (get_mask(12,gnPa)), ;
|
||
Column1.Name = "Column1", ;
|
||
Column1.Width = 114, ;
|
||
Column2.ColumnOrder = 3, ;
|
||
Column2.ControlSource = "plafon_furnizori", ;
|
||
Column2.InputMask = (get_mask(12,gnPa)), ;
|
||
Column2.Name = "Column2", ;
|
||
Column2.Width = 110, ;
|
||
Column3.ColumnOrder = 4, ;
|
||
Column3.ControlSource = "luna", ;
|
||
Column3.Name = "Column3", ;
|
||
Column3.Width = 43, ;
|
||
Column4.ColumnOrder = 5, ;
|
||
Column4.ControlSource = "anul", ;
|
||
Column4.Name = "Column4", ;
|
||
Column4.Width = 64, ;
|
||
Column5.ColumnOrder = 2, ;
|
||
Column5.ControlSource = "plafon_plati", ;
|
||
Column5.InputMask = (get_mask(12,gnPa)), ;
|
||
Column5.Name = "Column5", ;
|
||
Column5.Width = 112
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column1.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Plafon casa", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column1.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column2.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Plafon furnizori", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column2.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column3.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Luna", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column3.Text1' AS textbox WITH ;
|
||
Height = 23, ;
|
||
Left = 31, ;
|
||
Name = "Text1", ;
|
||
Top = 35, ;
|
||
Width = 100
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column4.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "An", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column4.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column5.Header1' AS header WITH ;
|
||
Alignment = 2, ;
|
||
Caption = "Plafon plati", ;
|
||
Name = "Header1"
|
||
*< END OBJECT: BaseClass="header" />
|
||
|
||
ADD OBJECT 'grid_plafoane.Column5.Text1' AS textbox WITH ;
|
||
BackColor = 255,255,255, ;
|
||
BorderStyle = 0, ;
|
||
ForeColor = 0,0,0, ;
|
||
Margin = 0, ;
|
||
Name = "Text1"
|
||
*< END OBJECT: BaseClass="textbox" />
|
||
|
||
PROCEDURE actualizeaza_grid1
|
||
LPARAMETERS pcFiltru
|
||
LOCAL lcFiltru
|
||
lcFiltru=pcFiltru
|
||
pobj = this.ogencursor
|
||
IF EMPTY(lcFiltru)
|
||
lcFiltru=pobj.ca_baza1.cfiltru
|
||
ENDIF
|
||
save_grid_tag(thisform.grid_plafoane)
|
||
pobj.ca_baza1.cfiltru=lcFiltru
|
||
pobj.ca_baza1.afisare()
|
||
restore_grid_tag(thisform.grid_plafoane)
|
||
thisform.grid_plafoane.SetFocus
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_cauta
|
||
Local lcFiltru
|
||
lcFiltru=[]
|
||
|
||
lcLunaMin =SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),1,2)
|
||
lcAnMin = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),3)
|
||
|
||
lcLunaMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),1,2)
|
||
lcAnMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),3)
|
||
|
||
IF EMPTY(lcLunaMin)
|
||
lcLunaMin = '1'
|
||
ENDIF
|
||
IF EMPTY(lcAnMin)
|
||
lcAnMin = STR(gnAn)
|
||
ENDIF
|
||
IF EMPTY(lcLunaMax)
|
||
lcLunaMax = STR(gnLuna)
|
||
ENDIF
|
||
IF EMPTY(lcAnMax)
|
||
lcAnMax = STR(gnAn)
|
||
ENDIF
|
||
|
||
lcfiltru = [luna + 12*anul between ] + lcLunaMin + [ + 12*] + lcAnMin + [ and ] + lcLunaMax + [ + 12*] + lcAnMax
|
||
|
||
This.MousePointer= 11
|
||
This.LockScreen=.T.
|
||
Thisform.actualizeaza_grid1(lcFiltru)
|
||
IF RECCOUNT()=0
|
||
MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
|
||
ENDIF
|
||
This.LockScreen=.F.
|
||
This.MousePointer= 0
|
||
ENDPROC
|
||
|
||
PROCEDURE do_modifica
|
||
lcCrs = this.ctabel
|
||
|
||
SELECT (lcCrs)
|
||
Scatter Name loRec
|
||
PRIVATE lcot,poRec
|
||
lcot = ''
|
||
poRec = loRec
|
||
Do Adauga_Modifica_Inregistrare With "plafon",loRec,loRec.Id_calendar,"UPDATE",.t.,'lcot'
|
||
*lcot.cschema = this.cschema
|
||
lcot.show(1)
|
||
RELEASE lcot,poRec
|
||
thisform.actualizeaza_grid1()
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|
||
|
||
DEFINE CLASS frm_plafon_nou AS frm_termin_renunt OF "..\..\comun\clase\_frm_child.vcx"
|
||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||
|
||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
|
||
*< OBJECTDATA: ObjPath="Cus_odata_plafon_casa1" UniqueID="" Timestamp="" />
|
||
|
||
*<DefinedPropArrayMethod>
|
||
*p: cschema
|
||
*p: nid
|
||
*p: orec
|
||
*</DefinedPropArrayMethod>
|
||
|
||
*<PropValue>
|
||
BorderStyle = 2
|
||
cschema =
|
||
DoCreate = .T.
|
||
Height = 198
|
||
Name = "frm_plafon_nou"
|
||
nid =
|
||
orec =
|
||
Width = 316
|
||
_shape1.Height = 29
|
||
_shape1.Left = 0
|
||
_shape1.Name = "_shape1"
|
||
_shape1.Top = 0
|
||
_shape1.Width = 320
|
||
_shape2.Left = 242
|
||
_shape2.Name = "_shape2"
|
||
_shape2.Top = 0
|
||
Lb_titlu_alb_b121.Caption = "Plafoane casa"
|
||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||
Lb_titlu_alb_b121.TabIndex = 6
|
||
BUT_TERMIN1.Left = 284
|
||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||
BUT_TERMIN1.TabIndex = 4
|
||
BUT_TERMIN1.Top = 1
|
||
Gridsort1.Name = "Gridsort1"
|
||
But_renunt1.Left = 255
|
||
But_renunt1.Name = "But_renunt1"
|
||
But_renunt1.TabIndex = 5
|
||
But_renunt1.Top = 1
|
||
*</PropValue>
|
||
|
||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||
Left = 13, ;
|
||
Name = "Clb_tx_simplu1", ;
|
||
TabIndex = 1, ;
|
||
Top = 49, ;
|
||
Text_simplu1.ControlSource = "porec.plafon_casa", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Plafon casa", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||
Left = 13, ;
|
||
Name = "Clb_tx_simplu2", ;
|
||
TabIndex = 2, ;
|
||
Top = 77, ;
|
||
Text_simplu1.ControlSource = "porec.plafon_plati", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Plafon plati", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
|
||
Left = 13, ;
|
||
Name = "Clb_tx_simplu3", ;
|
||
TabIndex = 7, ;
|
||
TabStop = .F., ;
|
||
Top = 133, ;
|
||
Text_simplu1.ControlSource = "porec.luna", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Lb_simplu1.Caption = "Luna", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
|
||
Left = 13, ;
|
||
Name = "Clb_tx_simplu4", ;
|
||
TabIndex = 3, ;
|
||
Top = 105, ;
|
||
Text_simplu1.ControlSource = "porec.plafon_furnizori", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Lb_simplu1.Caption = "Plafon furnizori", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
|
||
Left = 13, ;
|
||
Name = "Clb_tx_simplu6", ;
|
||
TabIndex = 8, ;
|
||
TabStop = .F., ;
|
||
Top = 161, ;
|
||
Text_simplu1.ControlSource = "porec.anul", ;
|
||
Text_simplu1.Format = "!K", ;
|
||
Text_simplu1.Name = "Text_simplu1", ;
|
||
Text_simplu1.ReadOnly = .T., ;
|
||
Lb_simplu1.Caption = "An", ;
|
||
Lb_simplu1.Name = "Lb_simplu1"
|
||
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||
|
||
ADD OBJECT 'Cus_odata_plafon_casa1' AS cus_odata_plafon_casa WITH ;
|
||
Left = 65, ;
|
||
Name = "Cus_odata_plafon_casa1", ;
|
||
Top = 33
|
||
*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
|
||
|
||
PROCEDURE inainte_de_do_termin
|
||
LOCAL PLRETURN
|
||
|
||
*!* lccontrol = UPPER(this.ActiveControl.BaseClass)
|
||
*!* IF INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
|
||
*!* lcval=This.Activecontrol.controlsource
|
||
*!* &lcval=thisform.ActiveControl.value
|
||
*!* ENDIF
|
||
|
||
this.cus_odata_plafon_casa1.cschema=this.cschema
|
||
PLRETURN=This.cus_odata_plafon_casa1.salvare(This.OREC,This.NID)
|
||
|
||
Return PLRETURN
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE Init
|
||
LPARAMETERS toRec, tnId, tcActiune
|
||
|
||
DODEFAULT()
|
||
|
||
this.orec= toRec
|
||
this.nid = tnId
|
||
this.cus_odata_plafon_casa1.cactiune = tcActiune
|
||
ENDPROC
|
||
|
||
ENDDEFINE
|