138 lines
4.6 KiB
Plaintext
138 lines
4.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="oavize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_date_aviz 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_simplu2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: do_cauta_altele
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
DoCreate = .T.
|
|
Height = 146
|
|
Name = "frm_date_aviz"
|
|
Width = 375
|
|
_shape1.Name = "_shape1"
|
|
_shape2.Height = 29
|
|
_shape2.Left = 312
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 65
|
|
Lb_titlu_alb_b121.Caption = "Date aviz"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Left = 344
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Left = 132
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 12
|
|
But_renunt1.Left = 315
|
|
But_renunt1.Name = "But_renunt1"
|
|
But_renunt1.Top = 1
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ;
|
|
cvariabila = serie_act, ;
|
|
cvariabiladoc = nract, ;
|
|
Left = 12, ;
|
|
Name = "Clb_serie_act", ;
|
|
nid_tipdoc = 6, ;
|
|
pcobj = poDate, ;
|
|
Top = 41, ;
|
|
Width = 314, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
_cbbase1.Name = "_cbbase1", ;
|
|
_lbbase1.Name = "_lbbase1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
|
Height = 29, ;
|
|
Left = 12, ;
|
|
Name = "Clb_tx_simplu2", ;
|
|
Top = 69, ;
|
|
Width = 314, ;
|
|
Text_simplu1.ControlSource = "poDate.nract", ;
|
|
Text_simplu1.InputMask = (get_mask(14,0)), ;
|
|
Text_simplu1.Left = 125, ;
|
|
Text_simplu1.Name = "Text_simplu1", ;
|
|
Text_simplu1.Top = 3, ;
|
|
Lb_simplu1.Caption = "Numarul avizului", ;
|
|
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(poDate.listaid,'')), ;
|
|
cprocedura = thisform.do_cauta_altele, ;
|
|
cvar_afisata = poDate.descriere, ;
|
|
Left = 12, ;
|
|
Name = "Ct_clb_cautare1", ;
|
|
Top = 103, ;
|
|
img_cautare.Name = "img_cautare", ;
|
|
clb_tx_cautare.Lb_simplu1.Caption = "Gestiune destinatie", ;
|
|
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
|
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
|
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1"
|
|
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
|
|
|
PROCEDURE do_cauta_altele
|
|
Local loCauta
|
|
loCauta = caut_gestiune_dest(poDate.id_client)
|
|
If !Isnull(loCauta) And !Empty(Nvl(loCauta.id_gestiune,0))
|
|
poDate.listaid = loCauta.id_gestiune
|
|
poDate.descriere = loCauta.nume_gestiune
|
|
|
|
poDateGestiuneDest.id_gestiune = loCauta.id_gestiune
|
|
poDateGestiuneDest.id_tipgest = loCauta.id_tipgest
|
|
poDateGestiuneDest.Cont = Nvl(loCauta.Cont,[XXXX])
|
|
poDateGestiuneDest.acont = Nvl(loCauta.acont,[XXXX])
|
|
|
|
This.ct_clb_cautare1.Refresh()
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
Local llReturn
|
|
Store .T. To llReturn
|
|
Do Case
|
|
Case Empty(Nvl(poDate.nract,0))
|
|
amessagebox("Numarul avizului trebuie sa fie diferit de 0!",48,"Atentie")
|
|
llReturn = .F.
|
|
Thisform.clb_tx_simplu2.SetFocus()
|
|
Case Empty(Nvl(poDate.listaid,''))
|
|
amessagebox("Nu ati ales gestiunea destinatie!",48,"Atentie")
|
|
llReturn = .F.
|
|
Thisform.ct_clb_cautare1.SetFocus()
|
|
Otherwise
|
|
llReturn = .T.
|
|
Endcase
|
|
Return llReturn
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
With Thisform
|
|
If Inlist(poDate.rezultat_serii,1,3)
|
|
Thisform.clb_serie_act.do_initializeaza(poDate.rezultat_serii)
|
|
Thisform.clb_serie_act.SetFocus()
|
|
Else
|
|
lnHeight = lnHeight - Thisform.clb_serie_act.Height
|
|
laPozitii(Thisform.clb_serie_act.TabIndex,2)=1
|
|
Thisform.RemoveObject('clb_serie_act')
|
|
Thisform.clb_nract.SetFocus()
|
|
Endif
|
|
Endwith
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|