160 lines
4.8 KiB
Plaintext
160 lines
4.8 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_parametri.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_compar_stoc_bal AS _frmbase OF "_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="Clb_luna_intre1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtCont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ccont
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BorderStyle = 3
|
|
ccont =
|
|
DoCreate = .T.
|
|
Height = 110
|
|
Name = "frm_compar_stoc_bal"
|
|
Width = 345
|
|
_shape1.Name = "_shape1"
|
|
_shape2.Height = 29
|
|
_shape2.Left = 283
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 62
|
|
Lb_titlu_alb_b121.Caption = "Borderou de verificare valorica"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 5
|
|
BUT_TERMIN1.Left = 315
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 4
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Left = 168
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 6
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_image1' AS _image WITH ;
|
|
Anchor = 9, ;
|
|
Height = 20, ;
|
|
Left = 313, ;
|
|
Name = "_image1", ;
|
|
Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ;
|
|
Stretch = 1, ;
|
|
Top = 79, ;
|
|
Width = 20
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
|
Left = 285, ;
|
|
Name = "But_listare1", ;
|
|
TabIndex = 3, ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
|
|
Left = 8, ;
|
|
Name = "Clb_luna_intre1", ;
|
|
TabIndex = 1, ;
|
|
Top = 43, ;
|
|
tx_n1.ControlSource = "pcLunaI", ;
|
|
tx_n1.Name = "tx_n1", ;
|
|
Lb_simplu1.Caption = "Perioada", ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
tx_n2.ControlSource = "pcLunaF", ;
|
|
tx_n2.Name = "tx_n2"
|
|
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
BackStyle = 0, ;
|
|
Caption = "Cont", ;
|
|
Height = 17, ;
|
|
Left = 17, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 6, ;
|
|
Top = 82, ;
|
|
Width = 28
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'txtCont' AS textbox WITH ;
|
|
Anchor = 11, ;
|
|
Format = "k", ;
|
|
Height = 23, ;
|
|
Left = 138, ;
|
|
Name = "txtCont", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 2, ;
|
|
Top = 78, ;
|
|
Value = <Toate inregistrarile>, ;
|
|
Width = 168
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE inainte_de_do_listare
|
|
Thisform.AlwaysOnTop= .F.
|
|
|
|
|
|
Private pcDataora, pcTitlu, pnAnI, pnLunaI, pnAnF, pnLunaF, pcCont, plConturiLuna
|
|
|
|
pnLunaI = Val(Substr(pcLunaI,1,2))
|
|
pnAnI = Val(Substr(pcLunaI,3,4))
|
|
|
|
pnLunaF = Val(Substr(pcLunaF,1,2))
|
|
pnAnF = Val(Substr(pcLunaF,3,4))
|
|
pcCont = Thisform.cCont
|
|
Store .F. To plConturiLuna && listez totalurile doar pt. mai multe conturi - o singura luna
|
|
lcSel = [{call pack_gest_rapoarte.borderou_verificare(?pnAnI, ?pnLunaI, ?pnAnF, ?pnLunaF, ?pcCont, ?gnIdSucursala)}]
|
|
|
|
lcCursor = 'crsBorderou'
|
|
lnSucces = goExecutor.oExecute(lcSel, lcCursor)
|
|
If lnSucces < 0
|
|
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
*!* lcTitlu = [Borderou de verificare valorica]
|
|
*!* pcTitlu = ceretitlu_rap([Titlul raportului],lcTitlu)
|
|
pcTitlu = [Borderou de verificare valorica]
|
|
pcDataora = get_Ora(2)
|
|
|
|
If (pnAnF*12+pnLunaF)-(pnAnI*12+pnLunaI)+1 = 1
|
|
Select Distinct Count(Cont) As nr_cont From crsBorderou Into Cursor crsConturi
|
|
Select crsConturi
|
|
lnNr_conturi = nr_cont
|
|
If lnNr_conturi > 1
|
|
plConturiLuna = .T.
|
|
Endif
|
|
Endif
|
|
|
|
Select crsBorderou
|
|
*Report Form rap_stoc_borderou.frx To Printer Prompt Preview
|
|
goExport.export2frx([crsBorderou],[rap_stoc_borderou],.T., , , , , .T.)
|
|
Thisform.AlwaysOnTop= .T.
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE _image1.Click
|
|
LOCAL locauta
|
|
locauta = caut_cont()
|
|
|
|
thisform.cCont = ALLTRIM(locauta.cont)
|
|
|
|
IF EMPTY(locauta.cont)
|
|
thisform.txtCont.Value= '<Toate inregistrarile>'
|
|
ELSE
|
|
thisform.txtCont.Value = thisform.cCont
|
|
ENDIF
|
|
thisform.txtCont.Refresh
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|