romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
8da00785610cb4f3f04d8c98fe66169289bbee12
roacont/Clase/osit_op.vc2

2250 lines
63 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="osit_op.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_cere_cont AS formtermin OF "..\comun\clase\baza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: go
*p: calias
*p: ocont
*</DefinedPropArrayMethod>
*<PropValue>
calias =
DoCreate = .T.
Height = 122
Name = "frm_cere_cont"
ocont = .NULL.
ScrollBars = 0
Width = 205
Shape1.Height = 32
Shape1.Left = 0
Shape1.Name = "Shape1"
Shape1.Top = 0
Shape1.Width = 138
Shape1.ZOrderSet = 1
Terminat1.Command1.Name = "Command1"
Terminat1.Enabled = .F.
Terminat1.Imbuton1.Height = 29
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 27
Terminat1.Left = 171
Terminat1.Name = "Terminat1"
Terminat1.Top = 1
Terminat1.ZOrderSet = 2
Titlufrumos1.Height = 31
Titlufrumos1.Left = 7
Titlufrumos1.Name = "Titlufrumos1"
Titlufrumos1.Top = 7
Titlufrumos1.Width = 118
Titlufrumos1.ZOrderSet = 3
*</PropValue>
ADD OBJECT 'cboCont' AS combobox WITH ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "40,40", ;
Height = 24, ;
Left = 12, ;
Name = "cboCont", ;
RowSourceType = 6, ;
Style = 2, ;
TabIndex = 1, ;
Top = 60, ;
Width = 84, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Contul este considerat de:", ;
FontBold = .F., ;
Height = 17, ;
Left = 10, ;
Name = "Label9", ;
TabIndex = 14, ;
Top = 129, ;
Width = 146, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblAcont' AS label WITH ;
BackStyle = 0, ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 18, ;
Left = 146, ;
Name = "lblAcont", ;
TabIndex = 5, ;
Top = 65, ;
Width = 40, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblCont' AS label WITH ;
BackStyle = 0, ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 18, ;
Left = 111, ;
Name = "lblCont", ;
TabIndex = 4, ;
Top = 65, ;
Width = 30, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
BackStyle = 0, ;
ButtonCount = 2, ;
ControlSource = "pnTipCont", ;
Height = 26, ;
Left = 35, ;
Name = "Optiongroup1", ;
TabIndex = 8, ;
Top = 152, ;
Value = 1, ;
Width = 120, ;
ZOrderSet = 8, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Activ", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.TabStop = .F., ;
Option1.Top = 5, ;
Option1.Value = 1, ;
Option1.Width = 42, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Pasiv", ;
Option2.Height = 17, ;
Option2.Left = 60, ;
Option2.Name = "Option2", ;
Option2.TabStop = .F., ;
Option2.Top = 5, ;
Option2.Width = 48
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Renunt1' AS renunt WITH ;
Left = 139, ;
Name = "Renunt1", ;
Top = 1, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 30, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />
ADD OBJECT 'Shape2' AS shape WITH ;
BackColor = 236,233,216, ;
BackStyle = 0, ;
BorderColor = 181,210,225, ;
Height = 80, ;
Left = 6, ;
Name = "Shape2", ;
Top = 36, ;
Width = 191, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackColor = 236,233,216, ;
BackStyle = 0, ;
BorderColor = 181,210,225, ;
Height = 60, ;
Left = 6, ;
Name = "Shape3", ;
Top = 124, ;
Width = 191, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
PROCEDURE go
Select(Thisform.calias)
With Thisform.ocont
.cont=cont
.acont=acont
Thisform.lblCont.Caption=.cont
Thisform.lblAcont.Caption=.acont
If !Empty(.cont)
Thisform.terminat1.Enabled= .T.
ELSE
Thisform.terminat1.Enabled=.F.
Endif
Endwith
pcexec = [select fel_cont from ] + gcs + [.vcoresp_tip_cont where cont='] + ALLTRIM((thisform.ocont.cont)) + [']
pcCursor = [felCont_cursor]
pnsucces = goExecutor.oExecute(pcexec,pcCursor)
IF (pnsucces != 0)
SELECT felCont_cursor
IF (felCont_cursor.fel_cont = 0)
thisform.optiongroup1.option1.Value = 1
thisform.optiongroup1.option2.Value = 0
ELSE
thisform.optiongroup1.option1.Value = 0
thisform.optiongroup1.option2.Value = 1
ENDIF
USE IN felCont_cursor
ENDIF
ENDPROC
PROCEDURE cboCont.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.go()
ENDPROC
PROCEDURE cboCont.Valid
thisform.Go()
ENDPROC
PROCEDURE Optiongroup1.InteractiveChange
If Type('eactiv') # 'U'
If This.Value = 2
eActiv = .F.
Else
eActiv = .T.
Endif
Endif
ENDPROC
PROCEDURE Optiongroup1.ProgrammaticChange
This.InteractiveChange()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_cere_cont_titlu AS formtermin OF "..\..\comun\clase\baza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: go
*p: calias
*p: ocont
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
calias =
DoCreate = .T.
Height = 201
Name = "frm_cere_cont_titlu"
ocont = .NULL.
ScrollBars = 0
Width = 335
Shape1.Height = 32
Shape1.Left = 0
Shape1.Name = "Shape1"
Shape1.Top = 0
Shape1.Width = 335
Shape1.ZOrderSet = 1
Terminat1.Command1.Name = "Command1"
Terminat1.Enabled = .F.
Terminat1.Imbuton1.Height = 29
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 27
Terminat1.Left = 304
Terminat1.Name = "Terminat1"
Terminat1.TabIndex = 3
Terminat1.Top = 1
Terminat1.ZOrderSet = 2
Titlufrumos1.Height = 31
Titlufrumos1.Left = 7
Titlufrumos1.Name = "Titlufrumos1"
Titlufrumos1.TabIndex = 6
Titlufrumos1.Top = 7
Titlufrumos1.Width = 118
Titlufrumos1.ZOrderSet = 3
*</PropValue>
ADD OBJECT 'cboCont' AS combobox WITH ;
ColumnCount = 2, ;
ColumnLines = .F., ;
ColumnWidths = "40,40", ;
Height = 24, ;
Left = 12, ;
Name = "cboCont", ;
RowSourceType = 6, ;
Style = 2, ;
TabIndex = 1, ;
Top = 60, ;
Width = 84, ;
ZOrderSet = 4
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ;
Height = 29, ;
Left = 20, ;
Name = "Clb_an_luna1", ;
Top = 129, ;
Width = 290, ;
Lb_simplu1.FontSize = 10, ;
Lb_simplu1.Name = "Lb_simplu1", ;
cb1.Left = 149, ;
cb1.Name = "cb1", ;
cb1.Top = 2, ;
cb2.Left = 210, ;
cb2.Name = "cb2", ;
cb2.Top = 2
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 20, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 2, ;
Top = 157, ;
Text_simplu1.ControlSource = "tcTitlu", ;
Text_simplu1.Name = "Text_simplu1", ;
Lb_simplu1.Caption = "Titlu", ;
Lb_simplu1.FontSize = 10, ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Label9' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Contul este considerat de:", ;
FontBold = .F., ;
FontSize = 10, ;
Height = 18, ;
Left = 168, ;
Name = "Label9", ;
TabIndex = 9, ;
Top = 48, ;
Width = 154, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblAcont' AS label WITH ;
BackStyle = 0, ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 18, ;
Left = 98, ;
Name = "lblAcont", ;
TabIndex = 8, ;
Top = 63, ;
Width = 40, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lblCont' AS label WITH ;
BackStyle = 0, ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 18, ;
Left = 111, ;
Name = "lblCont", ;
TabIndex = 7, ;
Top = 65, ;
Width = 30, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
BackStyle = 0, ;
ButtonCount = 2, ;
ControlSource = "pnTipCont", ;
Height = 26, ;
Left = 186, ;
Name = "Optiongroup1", ;
TabIndex = 5, ;
Top = 80, ;
Value = 1, ;
Width = 114, ;
ZOrderSet = 8, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Activ", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.TabStop = .F., ;
Option1.Top = 5, ;
Option1.Value = 1, ;
Option1.Width = 42, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Pasiv", ;
Option2.Height = 17, ;
Option2.Left = 60, ;
Option2.Name = "Option2", ;
Option2.TabStop = .F., ;
Option2.Top = 5, ;
Option2.Width = 48
*< END OBJECT: BaseClass="optiongroup" />
ADD OBJECT 'Renunt1' AS renunt WITH ;
Left = 272, ;
Name = "Renunt1", ;
TabIndex = 4, ;
Top = 1, ;
Imbuton1.Height = 27, ;
Imbuton1.Name = "Imbuton1", ;
Imbuton1.Width = 30, ;
Command1.Name = "Command1"
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
ADD OBJECT 'Shape2' AS shape WITH ;
BackColor = 236,233,216, ;
BackStyle = 0, ;
BorderColor = 181,210,225, ;
Height = 80, ;
Left = 6, ;
Name = "Shape2", ;
Top = 36, ;
Width = 153, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape3' AS shape WITH ;
BackColor = 236,233,216, ;
BackStyle = 0, ;
BorderColor = 181,210,225, ;
Height = 80, ;
Left = 158, ;
Name = "Shape3", ;
Top = 36, ;
Width = 167, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape4' AS shape WITH ;
BackColor = 236,233,216, ;
BackStyle = 0, ;
BorderColor = 181,210,225, ;
Height = 80, ;
Left = 6, ;
Name = "Shape4", ;
Top = 115, ;
Width = 318, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
PROCEDURE go
Select(Thisform.calias)
With Thisform.ocont
.cont=cont
.acont=acont
Thisform.lblCont.Caption=.cont
Thisform.lblAcont.Caption=.acont
If !Empty(.cont)
Thisform.terminat1.Enabled= .T.
ELSE
Thisform.terminat1.Enabled=.F.
Endif
Endwith
pcexec = [select fel_cont from ] + gcs + [.vcoresp_tip_cont where cont='] + ALLTRIM((thisform.ocont.cont)) + [']
pcCursor = [felCont_cursor]
pnsucces = goExecutor.oExecute(pcexec,pcCursor)
IF (pnsucces != 0)
SELECT felCont_cursor
IF (felCont_cursor.fel_cont = 0)
thisform.optiongroup1.option1.Value = 1
thisform.optiongroup1.option2.Value = 0
ELSE
thisform.optiongroup1.option1.Value = 0
thisform.optiongroup1.option2.Value = 1
ENDIF
USE IN felCont_cursor
ENDIF
ENDPROC
PROCEDURE cboCont.MouseLeave
LPARAMETERS nButton, nShift, nXCoord, nYCoord
thisform.go()
ENDPROC
PROCEDURE cboCont.Valid
thisform.Go()
ENDPROC
PROCEDURE Clb_an_luna1.Init
this.cb1.Value=ALLTRIM(STR(gnLuna))
this.cb2.Value=ALLTRIM(STR(gnAn))
this.Enabled = .F.
this.lb_simplu1.ForeColor = RGB(128,128,128)
this.cb1.ForeColor = RGB(128,128,128)
this.cb2.ForeColor = RGB(128,128,128)
ENDPROC
PROCEDURE Optiongroup1.Valid
IF TYPE('eactiv') # 'U'
IF this.Value = 2
eActiv = .f.
ELSE
eActiv = .t.
ENDIF
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_cere_titlu 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="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 95
Name = "frm_cere_titlu"
Width = 375
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Caption = ""
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 3
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 38
*</PropValue>
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 13, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
Top = 49, ;
Width = 346, ;
TEXT_SIMPLU1.Left = 154, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
LB_SIMPLU1.Caption = "Titlu", ;
LB_SIMPLU1.FontSize = 12, ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />
ENDDEFINE
DEFINE CLASS frm_lans_sit_op 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="_shape5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkDefalcatDocumentePereche" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Analitic" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_lanscont
*m: do_lanspartener
*p: lccont
*p: lcluna_sau_perioada
*p: llactiv
*p: llcauta_alfa_cu_toti
*p: lljustselpart
*p: llperioada_blocata
*p: lnfelraport
*p: lnid_part
*p: lnperioada
*p: option1lock
*p: option2lock
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Enabled = .T.
Height = 250
lccont =
lcluna_sau_perioada = ""
llcauta_alfa_cu_toti = .T.
lnfelraport = 0
lnid_part = 0
lnperioada = 0
Name = "frm_lans_sit_op"
Width = 374
_shape1.Name = "_shape1"
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 310
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 64
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.Caption = "Situatii Operative"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 12
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 9
BUT_TERMIN1.ZOrderSet = 5
Gridsort1.Left = 16
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 35
*</PropValue>
ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
AutoSize = .F., ;
BackColor = 255,0,0, ;
BorderStyle = 0, ;
Height = 24, ;
Left = 120, ;
Name = "_optiongrup1", ;
TabIndex = 5, ;
Top = 131, ;
Value = 1, ;
Width = 163, ;
ZOrderSet = 13, ;
Option1.BackColor = 255,0,0, ;
Option1.Caption = "lunara", ;
Option1.ForeColor = 0,0,0, ;
Option1.Left = 12, ;
Option1.Name = "Option1", ;
Option1.Top = 0, ;
Option1.Value = 1, ;
Option2.BackColor = 255,0,0, ;
Option2.Caption = "perioada", ;
Option2.ForeColor = 0,0,0, ;
Option2.Height = 17, ;
Option2.Left = 84, ;
Option2.Name = "Option2", ;
Option2.Top = 0, ;
Option2.Value = 0, ;
Option2.Width = 80
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT '_optiongrup2' AS _optiongrup WITH ;
AutoSize = .F., ;
BackColor = 255,0,0, ;
BorderStyle = 0, ;
Height = 27, ;
Left = 126, ;
Name = "_optiongrup2", ;
TabIndex = 8, ;
Top = 211, ;
Width = 204, ;
ZOrderSet = 15, ;
Option1.BackColor = 255,0,0, ;
Option1.Caption = "simplu", ;
Option1.ForeColor = 0,0,0, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 5, ;
Option2.AutoSize = .T., ;
Option2.BackColor = 255,0,0, ;
Option2.Caption = "grupat pe entitati", ;
Option2.ForeColor = 0,0,0, ;
Option2.Height = 17, ;
Option2.Left = 77, ;
Option2.Name = "Option2", ;
Option2.Top = 5, ;
Option2.Width = 109
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT '_shape3' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 32, ;
Name = "_shape3", ;
Top = 209, ;
Visible = .T., ;
Width = 290, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shape4' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 32, ;
Name = "_shape4", ;
Top = 125, ;
Width = 290, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shape5' AS _shape WITH ;
BackStyle = 0, ;
Height = 29, ;
Left = 32, ;
Name = "_shape5", ;
Top = 181, ;
Visible = .T., ;
Width = 290, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'Analitic' AS textbox WITH ;
Height = 24, ;
Left = 133, ;
Name = "Analitic", ;
Top = 72, ;
Width = 184
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 311, ;
Name = "But_renunt1", ;
TabIndex = 10, ;
Top = 1, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
caction = do_lansCont, ;
cpicturedown = find.bmp, ;
cpictureup = find.bmp, ;
DisabledPicture = ..\comun\grafice\sterg2_sus_dis.bmp, ;
Left = 326, ;
Name = "But_sterge1", ;
SpecialEffect = 0, ;
TabIndex = 2, ;
ToolTipText = "Alege...", ;
Top = 41, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge2' AS but_sterge WITH ;
caction = do_lansPartener, ;
cpicturedown = find.bmp, ;
cpictureup = find.bmp, ;
Left = 326, ;
Name = "But_sterge2", ;
SpecialEffect = 0, ;
TabIndex = 4, ;
ToolTipText = "Alege ...", ;
Top = 97, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'chkDefalcatDocumentePereche' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Defalcat dupa documente pereche", ;
Left = 41, ;
Name = "chkDefalcatDocumentePereche", ;
TabIndex = 7, ;
Top = 187, ;
Value = 1
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ;
Height = 29, ;
Left = 32, ;
Name = "Clb_an_luna1", ;
TabIndex = 11, ;
Top = 153, ;
Visible = .T., ;
Width = 290, ;
ZOrderSet = 8, ;
Lb_simplu1.FontSize = 12, ;
Lb_simplu1.Name = "Lb_simplu1", ;
cb1.Left = 143, ;
cb1.Name = "cb1", ;
cb1.RowSource = "01,02,03,04,05,06,07,08,09,10,11,12", ;
cb1.Top = 2, ;
cb2.Left = 208, ;
cb2.Name = "cb2", ;
cb2.Top = 2
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
Height = 29, ;
Left = 32, ;
Name = "Clb_luna_intre1", ;
TabIndex = 6, ;
Top = 153, ;
Visible = .F., ;
Width = 290, ;
ZOrderSet = 9, ;
tx_n1.Name = "tx_n1", ;
Lb_simplu1.Caption = "Intervalul", ;
Lb_simplu1.FontSize = 12, ;
Lb_simplu1.Left = 8, ;
Lb_simplu1.Name = "Lb_simplu1", ;
Lb_simplu1.Top = 6, ;
tx_n2.Name = "tx_n2"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Left = 32, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 1, ;
TabStop = .F., ;
Top = 41, ;
ZOrderSet = 6, ;
Text_simplu1.BackColor = 255,255,255, ;
Text_simplu1.BackStyle = 0, ;
Text_simplu1.BorderColor = 0,0,0, ;
Text_simplu1.DisabledBackColor = 255,255,255, ;
Text_simplu1.DisabledForeColor = 255,255,255, ;
Text_simplu1.ForeColor = 0,0,0, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Lb_simplu1.Caption = "Cont", ;
Lb_simplu1.FontSize = 12, ;
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 = 32, ;
Name = "Clb_tx_simplu2", ;
TabIndex = 3, ;
TabStop = .F., ;
Top = 97, ;
ZOrderSet = 7, ;
Text_simplu1.BackColor = 255,255,255, ;
Text_simplu1.BackStyle = 0, ;
Text_simplu1.DisabledBackColor = 255,255,255, ;
Text_simplu1.DisabledForeColor = 255,255,255, ;
Text_simplu1.ForeColor = 0,0,0, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Lb_simplu1.Caption = "Entitate", ;
Lb_simplu1.FontSize = 12, ;
Lb_simplu1.Name = "Lb_simplu1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Label1' AS label WITH ;
BackStyle = 0, ;
Caption = "Analitic :", ;
FontSize = 11, ;
Height = 17, ;
Left = 34, ;
Name = "Label1", ;
Top = 76, ;
Width = 57
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
Caption = "Perioada:", ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Left = 39, ;
Name = "Lb_simplu1", ;
TabIndex = 13, ;
Top = 132, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
Caption = "Fel raport:", ;
FontSize = 12, ;
ForeColor = 0,0,0, ;
Left = 39, ;
Name = "Lb_simplu2", ;
TabIndex = 14, ;
Top = 215, ;
Visible = .T., ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
PROCEDURE Click
this._optiongrup1.ProgrammaticChange
ENDPROC
PROCEDURE do_lanscont
Private pcContAles,pnEActiv
Store "" To pcContAles
Store .F. To pnEActiv
Do Alege_Cont With pcContAles,pnEActiv
pcContAles = ALLTRIM(pcContAles)
If !Empty(pcContAles)
This.clb_tx_simplu1.text_simplu1.Value = pcContAles
This.lcCont = pcContAles
This.llactiv = pnEActiv
Endif
Release pcContAles,pnEActiv
ENDPROC
PROCEDURE do_lanspartener
PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj
STORE "" TO oRetObj
pnbuton=1
*!* pcselect=["select nume,id_part from ]+gcS+[.vparteneri_extins where cont=']+ALLTRIM(this.lccont)+['"]
*!* pcfiltru=[1=2]
*!* oRetObj=cauta_alfa(pcselect,pcfiltru,[''],[],[nume],[Alegeti partener coresp. cont ]+IIF(EMPTY(this.lccont),[nespecificat],ALLTRIM(this.lccont)),[Entitate],[],this.llcauta_alfa_cu_toti)
llToateIreg = this.llcauta_alfa_cu_toti
llNou = .F.
oRetObj=caut_parteneri(this.lccont, [Alegeti partenerul], llToateIreg, llNou)
IF !EMPTY(oRetObj.denumire)
this.clb_tx_simplu2.text_simplu1.Value = oRetObj.denumire &&oRetObj.id_part
this.lnid_part = oRetObj.id_part
IF (this.lljustselpart) AND (this.llperioada_blocata)
** do nada! fereastra ramane la this stadiu!
this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna))
this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
this.clb_an_luna1.Enabled = .F.
ELSE
IF oRetObj.id_part = 0 && totzi partenerii
this._optiongrup1.option1.Value = 1
this._optiongrup1.option2.Value = 0
this._optiongrup1.Enabled = .F.
this._optiongrup1.Option1.ForeColor = RGB(128,128,128)
this._optiongrup1.Option2.ForeColor = RGB(128,128,128)
this._optiongrup2.Enabled = .T.
this._optiongrup2.Option1.ForeColor = RGB(0,0,0)
this._optiongrup2.Option2.ForeColor = RGB(0,0,0)
**this._optiongrup1.tabindex = 10 &&away, ca n-are tabstop
this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna))
this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
this.clb_an_luna1.Enabled = .F.
this.clb_an_luna1.Visible = .T.
this.clb_luna_intre1.Visible = .F.
ELSE && un singur partener
this._optiongrup2.option1.Value = 1
this._optiongrup2.option2.Value = 0
this._optiongrup2.Enabled = .F.
this._optiongrup2.Option1.ForeColor = RGB(128,128,128)
this._optiongrup2.Option2.ForeColor = RGB(128,128,128)
this._optiongrup1.Enabled = .T.
this._optiongrup1.Option1.ForeColor = RGB(0,0,0)
this._optiongrup1.Option2.ForeColor = RGB(0,0,0)
this.clb_an_luna1.Enabled = .T.
IF (this.lcluna_sau_perioada != "perioada")
this.clb_an_luna1.Visible = .T.
this.clb_luna_intre1.Visible = .F.
ELSE
this._optiongrup1.option1.Value = 0
this._optiongrup1.option2.Value = 1
this._optiongrup1.InteractiveChange
this.clb_an_luna1.Visible = .F.
this.clb_luna_intre1.Visible = .T.
ENDIF
ENDIF
ENDIF && select just part sau select all
ENDIF
ENDPROC
PROCEDURE inainte_de_do_renunt
plreturn=.F.
ENDPROC
PROCEDURE inainte_de_do_termin
STORE "" TO perioada
*!* 04.08.2011
IF THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE)
thisform.do_lanspartener()
ENDIF
*!* 04.08.2011 ^
DO CASE
CASE EMPTY(THIS.clb_tx_simplu1.text_simplu1.VALUE)
aMessagebox('Nu ati ales contul!',0+48,"Atentie")
THIS.but_sterge1.SETFOCUS
plreturn=.F.
CASE THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE)
aMessagebox('Nu ati ales partenerul/partenerii!',0+48,"Atentie")
THIS.but_sterge2.SETFOCUS
plreturn=.F.
OTHERWISE
plreturn=.T.
** prepare params ...
IF THIS.lnperioada = 0
perioada = THIS.clb_an_luna1.cb1.VALUE+"/"+THIS.clb_an_luna1.cb2.VALUE
ELSE
perioada = SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,3)+"-"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,3)
ENDIF
***
llFormRelease = .T.
IF lcTitlu == ""
lcTitlu = IIF(THIS.lnid_part>0,THIS.clb_tx_simplu2.text_simplu1.VALUE+THIS.lccont,"Entitati "+THIS.lccont)
ENDIF
pcCont = THIS.lccont
plActiv = THIS.llActiv
IF THISFORM._optiongrup2.VALUE<>2
lnid_part = THIS.lnid_part
ELSE
lnid_part = 0
ENDIF
lnFel_raport = THIS.lnfelraport
lcPerioada = perioada
lcEntitateAleasa = THIS.clb_tx_simplu2.text_simplu1.VALUE
plDefalcatDocumentPereche = Iif(this.chkDefalcatDocumentePereche.Value = 1, .T., .F.)
pcAnalitic=thisform.analitic.Value
***
ENDCASE
RETURN plreturn
ENDPROC
PROCEDURE Init
LPARAMETERS tcCont,tlActiv,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcLuna_sau_Perioada
**parametrii sunt explicati in osituatii_operative.prg, in procedura PrepareRptSitOp
IF !EMPTY(tcCont)
this.lccont = tcCont
this.llactiv = tlActiv
**blokare alegere cont:
this.clb_tx_simplu1.TEXT_SIMPLU1.Value = tcCont
this.but_sterge1.Visible = .F.
this.clb_tx_simplu1.tEXT_SIMPLU1.ForeColor = RGB(128,128,128)
**setare pe selectie doar de partener(i): (init e pe .F.)
this.lljustselpart = .T.
this.llcauta_alfa_cu_toti = tlCauta_alfa_Cu_Toti
this.llperioada_blocata = tlPerioada_Blocata
ENDIF
**cu ce sa intre daca perioada nu-i blocata:
IF !EMPTY(tcLuna_sau_Perioada)
this.lcluna_sau_perioada = tcLuna_sau_Perioada
ELSE
this.lcluna_sau_perioada = "luna"
ENDIF
**this.Height = 125
this.clb_an_luna1.cb1.Value = PADL(ALLTRIM(STR(gnLuna)),2,'0')
this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
IF tlPerioada_Blocata
this._optiongrup1.Enabled = .F.
ELSE
this._optiongrup1.Enabled = .T.
ENDIF
IF this.lcluna_sau_perioada = "luna"
this._optiongrup1.Value = 1
ELSE
this._optiongrup1.Value = 2
ENDIF
this._optiongrup1.InteractiveChange
this._optiongrup1.Option1.ForeColor = RGB(128,128,128)
this._optiongrup1.Option2.ForeColor = RGB(128,128,128)
*this._optiongrup2.Enabled = .F.
this._optiongrup2.Option1.ForeColor = RGB(128,128,128)
this._optiongrup2.Option2.ForeColor = RGB(128,128,128)
DODEFAULT()
ENDPROC
PROCEDURE Clb_luna_intre1.tx_n1.Valid
IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna
aMESSAGEBOX("Data este prea mare!",0+48,"Atentie")
RETURN 0
ENDIF
ENDPROC
PROCEDURE Clb_luna_intre1.tx_n2.Valid
IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna
aMESSAGEBOX("Data este prea mare!",0+48,"Atentie")
RETURN 0
ENDIF
ENDPROC
PROCEDURE Clb_tx_simplu1.Text_simplu1.GotFocus
IF this.ForeColor != RGB(128,128,128)
thisform.do_lanscont
ENDIF
ENDPROC
PROCEDURE Clb_tx_simplu2.Text_simplu1.GotFocus
thisform.do_lanspartener
ENDPROC
PROCEDURE Lb_titlu_alb_b121.MouseDown
Lparameters nButton, nShift, nXCoord, nYCoord
If nButton = 1
thisform.MouseIcon='HMOVE.CUR'
thisform.MousePointer= 99
ReleaseCapture()
SendMessage(Thisform.nHWND, 0x112, 0xF012, 0x0)
thisform.MousePointer= 0
SendMessage(Thisform.nHWND, 0x202, 0x0, 0x0)
Endif
ENDPROC
PROCEDURE _optiongrup1.InteractiveChange
IF this.Value = 1
thisform.lnperioada = 0
thisform.clb_an_luna1.Visible = .T.
thisform.clb_luna_intre1.Visible = .F.
thisform.clb_an_luna1.SetFocus
ELSE
thisform.lnperioada = 1
thisform.clb_an_luna1.Visible = .F.
thisform.clb_luna_intre1.Visible = .T.
thisform.clb_luna_intre1.tx_n1.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value
thisform.clb_luna_intre1.tx_n2.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value
thisform.clb_luna_intre1.SetFocus
ENDIF
ENDPROC
PROCEDURE _optiongrup2.InteractiveChange
IF this.option1.Value = 1
thisform.lnfelraport = 0
ELSE
thisform.lnfelraport = 1
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS frm_viz_sit_op 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="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: calcul
*p: laid_part
*p: nsumac
*p: nsumad
*p: nsumasold
*</DefinedPropArrayMethod>
*<PropValue>
AlwaysOnTop = .T.
AutoCenter = .T.
BackColor = 255,255,255
cbuton1 = but_excel1
cbuton2 = but_listare1
cgridsortlist = grid1
DoCreate = .T.
Height = 452
lactiv1 = .F.
lactiv2 = .F.
lactiv3 = .F.
lactiv4 = .F.
laid_part =
MaxButton = .F.
MinButton = .F.
Name = "frm_viz_sit_op"
nsumac = 0
nsumad = 0
nsumasold = 0
TitleBar = 0
Width = 789
WindowState = 2
WindowType = 1
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 792
_shape1.ZOrderSet = 0
_shape2.Anchor = 8
_shape2.Height = 29
_shape2.Left = 690
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 99
_shape2.ZOrderSet = 1
Lb_titlu_alb_b121.Caption = "Situatie operativa lunara "
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 19
Lb_titlu_alb_b121.ZOrderSet = 2
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 756
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 16
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 21
GRIDSORT1.Name = "GRIDSORT1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 8, ;
Left = 694, ;
Name = "But_excel1", ;
TabIndex = 18, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 8, ;
Left = 725, ;
Name = "But_listare1", ;
TabIndex = 17, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 15, ;
BackColor = 255,255,255, ;
ColumnCount = 15, ;
DeleteMark = .F., ;
FontSize = 10, ;
GridLineColor = 128,128,128, ;
Height = 365, ;
Left = 3, ;
Name = "Grid1", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "cursor_raport", ;
RowHeight = 19, ;
TabIndex = 15, ;
Top = 84, ;
Width = 778, ;
ZOrderSet = 6, ;
Column1.Alignment = 1, ;
Column1.BackColor = 255,255,255, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "dataireg", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 10, ;
Column1.Name = "Column2", ;
Column1.ReadOnly = .T., ;
Column1.Width = 64, ;
Column2.Alignment = 0, ;
Column2.BackColor = 255,255,255, ;
Column2.ColumnOrder = 1, ;
Column2.ControlSource = "FEL_DOCument", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 10, ;
Column2.Name = "Column3", ;
Column2.ReadOnly = .T., ;
Column2.Width = 68, ;
Column3.Alignment = 1, ;
Column3.BackColor = 255,255,255, ;
Column3.ColumnOrder = 3, ;
Column3.ControlSource = "dataact", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 10, ;
Column3.Name = "Column4", ;
Column3.ReadOnly = .T., ;
Column3.Width = 62, ;
Column4.Alignment = 1, ;
Column4.BackColor = 255,255,255, ;
Column4.ColumnOrder = 4, ;
Column4.ControlSource = "nract", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 10, ;
Column4.Name = "Column5", ;
Column4.ReadOnly = .T., ;
Column4.Width = 58, ;
Column5.Alignment = 0, ;
Column5.BackColor = 255,255,255, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "nrord", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 10, ;
Column5.Name = "Column6", ;
Column5.ReadOnly = .T., ;
Column5.Width = 102, ;
Column6.Alignment = 1, ;
Column6.BackColor = 255,255,255, ;
Column6.ColumnOrder = 11, ;
Column6.ControlSource = "", ;
Column6.DynamicForeColor = "rgb(0,0,128)", ;
Column6.FontBold = .F., ;
Column6.FontName = "Arial", ;
Column6.FontSize = 10, ;
Column6.ForeColor = 0,0,128, ;
Column6.Name = "Column7", ;
Column6.ReadOnly = .T., ;
Column6.Visible = .F., ;
Column6.Width = 46, ;
Column7.Alignment = 3, ;
Column7.BackColor = 255,255,255, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "debit", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 10, ;
Column7.Format = "R", ;
Column7.InputMask = "99 999 999 999.99", ;
Column7.Name = "Column10", ;
Column7.ReadOnly = .T., ;
Column7.Width = 87, ;
Column8.Alignment = 3, ;
Column8.BackColor = 255,255,255, ;
Column8.ColumnOrder = 9, ;
Column8.ControlSource = "credit", ;
Column8.FontName = "Arial", ;
Column8.FontSize = 10, ;
Column8.Format = "R", ;
Column8.InputMask = "99 999 999 999.99", ;
Column8.Name = "Column11", ;
Column8.ReadOnly = .T., ;
Column8.Width = 90, ;
Column9.BackColor = 255,255,255, ;
Column9.ColumnOrder = 5, ;
Column9.ControlSource = "part", ;
Column9.FontName = "Arial", ;
Column9.FontSize = 10, ;
Column9.Name = "Column1", ;
Column9.ReadOnly = .T., ;
Column9.Width = 131, ;
Column10.BackColor = 255,255,255, ;
Column10.ColumnOrder = 10, ;
Column10.ControlSource = "soldf", ;
Column10.FontName = "Arial", ;
Column10.FontSize = 10, ;
Column10.Format = "R", ;
Column10.InputMask = "99 999 999 999.99", ;
Column10.Name = "Column8", ;
Column10.ReadOnly = .T., ;
Column11.BackColor = 255,255,255, ;
Column11.ColumnOrder = 12, ;
Column11.ControlSource = "perecheX", ;
Column11.FontName = "Arial", ;
Column11.FontSize = 10, ;
Column11.Name = "Column9", ;
Column11.ReadOnly = .T., ;
Column11.Width = 77, ;
Column12.BackColor = 255,255,255, ;
Column12.ColumnOrder = 13, ;
Column12.ControlSource = "partx", ;
Column12.FontName = "Arial", ;
Column12.FontSize = 10, ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column12.Width = 120, ;
Column13.BackColor = 255,255,255, ;
Column13.ColumnOrder = 14, ;
Column13.ControlSource = "contX", ;
Column13.FontName = "Arial", ;
Column13.FontSize = 10, ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column13.Width = 74, ;
Column14.BackColor = 255,255,255, ;
Column14.ColumnOrder = 7, ;
Column14.ControlSource = "contract", ;
Column14.FontName = "Arial", ;
Column14.FontSize = 10, ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column15.BackColor = 255,255,255, ;
Column15.ControlSource = "datascad", ;
Column15.FontName = "Arial", ;
Column15.FontSize = 10, ;
Column15.Name = "Column15", ;
Column15.ReadOnly = .T., ;
Column15.Width = 88
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Debit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Credit", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener ", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont coresp", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Contract", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
Caption = "Data scadenta", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column15.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data Inreg.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data Act", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Lucrare", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
Alignment = 0, ;
BackColor = 255,255,255, ;
BorderColor = 0,0,0, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .F., ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
Visible = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sold", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Doc. coresp.", ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
Left = 45, ;
Name = "Gridextra1", ;
Top = 63
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'Label4' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Credit", ;
FontSize = 10, ;
Height = 18, ;
Left = 596, ;
Name = "Label4", ;
TabIndex = 23, ;
Top = 35, ;
Width = 36, ;
ZOrderSet = 13
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label5' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Debit", ;
FontSize = 10, ;
Height = 18, ;
Left = 469, ;
Name = "Label5", ;
TabIndex = 24, ;
Top = 35, ;
Width = 32, ;
ZOrderSet = 14
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label6' AS label WITH ;
Anchor = 8, ;
AutoSize = .T., ;
BackColor = 255,255,255, ;
Caption = "Sold", ;
FontSize = 10, ;
Height = 18, ;
Left = 734, ;
Name = "Label6", ;
TabIndex = 25, ;
Top = 35, ;
Width = 28, ;
ZOrderSet = 16
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Shape2' AS shape WITH ;
Anchor = 8, ;
BackStyle = 0, ;
Height = 40, ;
Left = 372, ;
Name = "Shape2", ;
SpecialEffect = 0, ;
Top = 43, ;
Width = 407, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Text2' AS textbox WITH ;
Anchor = 8, ;
ControlSource = "thisform.nSumaC", ;
FontSize = 10, ;
Format = "", ;
Height = 25, ;
InputMask = (get_mask(14,gnPa)), ;
Left = 510, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 21, ;
Top = 53, ;
Width = 126, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text3' AS textbox WITH ;
Anchor = 8, ;
ControlSource = "thisform.nSumaD", ;
FontSize = 10, ;
Format = "", ;
Height = 25, ;
InputMask = (get_mask(14,gnPa)), ;
Left = 380, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 20, ;
Top = 53, ;
Width = 126, ;
ZOrderSet = 10
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Text4' AS textbox WITH ;
Anchor = 8, ;
ControlSource = "thisform.nSumaSold", ;
FontSize = 10, ;
Format = "", ;
Height = 25, ;
InputMask = (get_mask(14,gnPa)), ;
Left = 640, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 22, ;
Top = 53, ;
Width = 126, ;
ZOrderSet = 15
*< END OBJECT: BaseClass="textbox" />
PROCEDURE actualizeaza_grid1
LPARAMETERS tcFiltru,tcFiltru2
LOCAL lnSoldi, lnSoldf
THISFORM.MOUSEPOINTER= 11
THISFORM.LOCKSCREEN = .T.
IF lcFiltre != ".t."
save_grid_tag(Thisform.grid1)
SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE
SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE
thisform.grid1.RecordSource = "cursor_raport"
** calculare si inserare sold initial,sold final/fiece partener:
STORE 0 TO lnSold_Initial_Total
STORE 0 TO lnSold_Final_Total
STORE 1 TO j
STORE 0 TO sold_final
STORE 0 TO lnId_part_curent
SELECT cursor_raport
GO TOP
lnId_part_curent = id_part
SCAN
*** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat
IF (id_part != lnId_part_curent)
lnId_part_curent = id_part
lnSold_Initial_Total = lnSold_Initial_Total + soldi
lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part
sold_final = soldi
j = j + 1 && next sold init din vectorul de solduri initiale/parteneri
ENDIF
*sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit)
sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit)
replace soldf WITH sold_final
replace soldi WITH laId_part[j,1]
ENDSCAN
restore_grid_tag(Thisform.grid1)
ELSE
SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE
ENDIF
save_grid_tag(THISFORM.grid1)
pobancasa.ca_baza1.cfiltru=tcFiltru
pobancasa.ca_baza1.afisare()
restore_grid_tag(THISFORM.grid1)
THISFORM.LOCKSCREEN=.F.
THISFORM.MOUSEPOINTER= 0
ENDPROC
PROCEDURE afisactual
*!* EXTERNAL ARRAY laId_part
*!* LOCAL lcFiltre
*!* lcFiltre = ".t."
*!* IF this.Ck_fel_doc.value = 1
*!* lcFiltre = lcFiltre + this.ck_fel_doc.filtru + " " &&" AND " +
*!* ENDIF
*!* IF this.Ck_contract.value = 1
*!* lcFiltre = lcFiltre + this.Ck_contract.filtru + " " &&+ " AND "
*!* ENDIF
*!* IF this.ck_nume.value = 1
*!* lcFiltre = lcFiltre + this.ck_nume.filtru + " " &&+ " AND "
*!* ENDIF
*!* IF this.ck_dataact.value = 1
*!* lcFiltre = lcFiltre + this.ck_dataact.filtru + " " &&+ " AND "
*!* ENDIF
*!* SELECT cursor_raport
*!* **SET FILTER TO &lcFiltre
*!* IF lcFiltre != ".t."
*!* save_grid_tag(Thisform.grid1)
*!* SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE
*!* SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE
*!* thisform.grid1.RecordSource = "cursor_raport"
*!* ** calculare si inserare sold initial,sold final/fiece partener:
*!* STORE 0 TO lnSold_Initial_Total
*!* STORE 0 TO lnSold_Final_Total
*!* STORE 1 TO j
*!* STORE 0 TO sold_final
*!* STORE 0 TO lnId_part_curent
*!* SELECT cursor_raport
*!* GO TOP
*!* lnId_part_curent = id_part
*!* SCAN
*!* *** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat
*!* IF (id_part != lnId_part_curent)
*!* lnId_part_curent = id_part
*!* lnSold_Initial_Total = lnSold_Initial_Total + soldi
*!* lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part
*!* sold_final = soldi
*!* j = j + 1 && next sold init din vectorul de solduri initiale/parteneri
*!* ENDIF
*!* *sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit)
*!* sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit)
*!* replace soldf WITH sold_final
*!* replace soldi WITH laId_part[j,1]
*!* ENDSCAN
*!* restore_grid_tag(Thisform.grid1)
*!* ELSE
*!* SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE
*!* ENDIF
*!* SELE cursor_raport
*!* sum credit to m.suma
*!* SUM DEBIT TO M.SUMA1
*!* m.suma2= pnSemn*(m.suma1-m.suma)
*!* thisform.calcul
*!* THISFORM.GRID1.REFRESH
*!* thisform.text2.REFRESH
*!* thisform.text3.REFRESH
*!* thisform.text4.REFRESH
ENDPROC
PROCEDURE calcul
LOCAL s1
s1=0
SELECT cursor_raport
GO TOP
SCAN
s1=s1 + pnSemn*(debit-credit)
REPLACE soldf WITH s1
ENDSCAN
SELE cursor_raport
SUM credit to thisform.nSumaC
SUM DEBIT TO thisform.nSumaD
LOCATE
thisform.nSumaSold= pnSemn*(thisform.nSumaD-thisform.nSumaC)
thisform.text2.REFRESH
thisform.text3.REFRESH
thisform.text4.REFRESH
ENDPROC
PROCEDURE do_cauta
EXTERNAL ARRAY laId_part
LOCAL lcFiltre, lcFiltru
lcFiltre = [1=1]
IF this.Ck_fel_doc.value = 1
lcFiltre = lcFiltre + this.ck_fel_doc.filtru_vfp
ENDIF
IF this.Ck_nract.value = 1
lcFiltre = lcFiltre + this.ck_nract.filtru_vfp
ENDIF
IF this.Ck_contract.value = 1
lcFiltre = lcFiltre + this.Ck_contract.filtru_vfp
ENDIF
IF this.ck_nume.value = 1
lcFiltre = lcFiltre + this.ck_nume.filtru_vfp
ENDIF
IF this.Ck_dataact.value = 1
lcFiltre = lcFiltre + this.Ck_dataact.filtru_vfp
ENDIF
IF this.ck_dataireg.value = 1
lcFiltre = lcFiltre + this.ck_dataireg.filtru_vfp
ENDIF
IF this.ck_debit.value = 1
lcFiltre = lcFiltre + this.ck_debit.filtru_vfp
ENDIF
IF this.ck_credit.value = 1
lcFiltre = lcFiltre + this.ck_credit.filtru_vfp
ENDIF
IF this.ck_soldf.value = 1
lcFiltre = lcFiltre + this.ck_soldf.filtru_vfp
ENDIF
IF this.ck_perecheX.value = 1
lcFiltre = lcFiltre + this.ck_perecheX.filtru_vfp
ENDIF
SET STEP ON
IF this.ck_docperecheX.value = 1
lcFiltru = ALLTRIM(SUBSTR(this.ck_docperecheX.filtru_vfp, 6))
lcFiltru = " and (" + lcFiltru + " or " + STRTRAN(m.lcFiltru, 'perechex', 'nract',1,5,1) + ")"
lcFiltre = lcFiltre + m.lcFiltru
ENDIF
IF this.ck_partX.value = 1
lcFiltre = lcFiltre + this.ck_partX.filtru_vfp
ENDIF
IF this.ck_contX.value = 1
lcFiltre = lcFiltre + this.ck_contX.filtru_vfp
ENDIF
IF this.ck_doar_cu_rulaje.value = 1
lcFiltre = lcFiltre + [ and !(debit=0 and credit=0)]
ENDIF
SELECT cursor_raport
SET FILTER TO &lcFiltre
thisform.calcul
THISFORM.GRID1.SetFocus
ENDPROC
PROCEDURE do_excel
If !Thisform.lactiv1
Return
Endif
LOCAL lcsel
lcsel = thisform.grid1.RecordSource
lcFiltru = FILTER(lcSel)
IF EMPTY(lcFiltru)
lcFiltru = [1=1]
ENDIF
lcSelect = [SELECT FEL_DOCUMENT,DATAIREG as DATA_INREG,DATAACT AS DATA_ACT,DATASCAD AS DATA_SCAD,NRACT AS NR_ACT,PART AS PARTENER,NRORD AS LUCRARE,CONTRACT,DEBIT, CREDIT,SOLDF AS SOLD,PERECHEX AS DOC_PERECHE ] +;
[FROM ] + LCSEL + [ WHERE ] + lcFiltru + [ INTO CURSOR TEXCEL ]
&lcSelect
lcExcel = gcTempPath + [Situatia_operativa_]+SYS(2)+[.xlsx]
*!* modificare v 2.0.85
goExport.export2xlsx([texcel],lcExcel)
ENDPROC
PROCEDURE do_listare
Local lcFiltru, lcNumeRpt
*:Global pcTitlu, pcdataora
If !Thisform.lactiv2
Return
Endif
** construct report:
pcTitlu = "Titlu"
**cerere titlu:
Do ceretitlu_raport_v2 With 'Titlul Raportului', 'lcTitlu'
pcdataora = Get_Ora(2)
**setare wich raport to do: ( singur sau multiplu partener)
*!* SELECT cursor_raport
*!* IF RECCOUNT()>1
*!* GOTO 2 && prima linie contine soldu init; caut sa vad daca e acelasi id_part in toate inreg.
*!* lnIdFound = id_part
*!* SCAN FOR id_part>0
*!* IF id_part != lnIdFound
*!* lcNumeRpt = "multi_NEgr"
*!* ELSE
*!* lcNumeRpt = "sing"
*!* ENDIF
*!* ENDSCAN
*!* lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1"
*!* SELECT cursor_raport
*!* thisform.AlwaysOnTop = .F.
*!* Report Format &lcNumeRpt To Printer Prompt Noconsole Preview
*!* thisform.AlwaysOnTop = .T.
*!* ENDIF
pcTitlu = lcTitlu
lcNumeRpt = "sing"
lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1"
*sit_oper_multi_NEgr_rpt1
lcNumeRpt = "sit_oper_multi_NEgr_rpt1"
Private pnSoldPrec
Select cursor_raport
lcFiltru = Filter('cursor_raport')
*Set Filter To id_part <> 0
pnSoldPrec = Iif(pnSemn = 1, debit, credit)
Thisform.AlwaysOnTop = .F.
*!* 09.08.2011
*!* Report Format &lcNumeRpt To Printer Prompt Noconsole Preview
goExport.export2frx([cursor_raport], lcNumeRpt, , , , , , .T.)
*!* 09.08.2011 ^
Thisform.AlwaysOnTop = .T.
*Set Filter To (lcFiltru)
ENDPROC
PROCEDURE Init
Parameters laId_part
DODEFAULT()
*!* Public s1
*!* Store "" To M.NUME,M.NUME_2,M.SCD,M.SCC
*!* Store Date() To M.DATAact1,M.DATAact2
*!* Store 0 To M.SUMA,M.SUMA1,m.suma2,s1
*!* *STORE .F. TO bnume,bnume_2,bscd,BSCC
*!* Store .T. To TNUME,TNUME_2,TSCD,TSCC,t16
*!* If !Empty(gcAcces)
*!* && format gcAcces = [optiune1];[optiune2];...;[optiuneN]; &&
*!* Local lcAcces,lnPozitieS,lnPozitieF,N
*!* lnPozitieS=1
*!* For i=1 To Occurs([;],gcAcces)
*!* lnPozitieF=At([;],gcAcces,i)
*!* lcAcces=Substr(gcAcces,lnPozitieS,lnPozitieF-lnPozitieS)
*!* lcProp='thisform.lactiv'+Alltrim(lcAcces)
*!* If Type(lcProp)<>'U'
*!* &lcProp=.T.
*!* *!* lcProp='thisform.cbuton'+Alltrim(lcAcces)
*!* *!* If Type(lcProp)<>'U' And !Empty(&lcProp)
*!* *!* && format lcButoane = [nume_buton1];[nume_buton2];...;[nume_butonN]; &&
*!* *!* lcButoane=&lcProp
*!* *!* lnPS=1
*!* *!* lcButoane=Iif(Substr(lcButoane,Len(lcButoane)-1)=[;],lcButoane,lcButoane+[;])
*!* *!* For j=1 To Occurs([;],lcButoane)
*!* *!* lnPF=At([;],lcButoane,j)
*!* *!* lcButon=Substr(lcButoane,lnPS,lnPF-lnPS)
*!* *!* lcProp='thisform.blocbuton1.'+Alltrim(lcButon)+'.visible'
*!* *!* &lcProp=.T.
*!* *!* lnPS=lnPF+1
*!* *!* Endfor
*!* *!* Endif
*!* Endif
*!* lnPozitieS=lnPozitieF+1
*!* Endfor
*!* Endif
*!* With Thisform.blocbuton1
*!* If Thisform.lactiv2
*!* .list1.Visible=.T.
*!* Endif
*!* Endwith
*!* If Thisform.lactiv1
*!* Thisform.excel1.Visible=.T.
*!* Endif
Thisform.laId_part = laId_part
Thisform.calcul
This.Gridextra1.setup()
ENDPROC
PROCEDURE Grid1.Column10.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column11.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column2.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column3.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column4.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column5.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column6.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Column7.Text1.RightClick
do editscurt.mpr
ENDPROC
PROCEDURE Grid1.Init
SELECT cursor_raport
GO top
ENDPROC
PROCEDURE Gridextra1.applyfilter
DODEFAULT()
thisform.calcul()
ENDPROC
PROCEDURE Gridextra1.clearfilter
DODEFAULT()
thisform.calcul()
ENDPROC
PROCEDURE Text2.Init
THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE Text3.Init
THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
PROCEDURE Text4.Init
THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink