Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
159
clase/orapoarte_parametri.vc2
Normal file
159
clase/orapoarte_parametri.vc2
Normal file
@@ -0,0 +1,159 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
|
||||
Reference in New Issue
Block a user