romfast/roadef
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roadef/Clase/oteste.vc2

1694 lines
50 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oteste.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS afisdebsicred 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="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid2.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid1.Column1.Text1" 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.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.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grid1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_buton1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_buton2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_nract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_nract2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_pereche" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: col4
*p: npereche
*p: sql_act
*p: sql_ireg
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 416
Name = "afisdebsicred"
sql_act = ''
sql_ireg = ''
Width = 749
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 750
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 715
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 34
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "Pereche inregistrari"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Left = 719
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
*</PropValue>
ADD OBJECT '_grid1' AS _grid WITH ;
ColumnCount = 10, ;
DeleteMark = .F., ;
Height = 319, ;
HighlightStyle = 1, ;
Left = 12, ;
Name = "_grid1", ;
Panel = 1, ;
RecordSource = "v_actcd", ;
Top = 57, ;
Width = 363, ;
ZOrderSet = 5, ;
Column1.ControlSource = "dataact", ;
Column1.Name = "Column1", ;
Column1.Width = 64, ;
Column2.ControlSource = "nract", ;
Column2.Name = "Column2", ;
Column2.Width = 71, ;
Column3.ControlSource = "suma", ;
Column3.InputMask = "999 999 999 999.99", ;
Column3.Name = "Column3", ;
Column3.Width = 81, ;
Column4.BackColor = 252,253,200, ;
Column4.ControlSource = "", ;
Column4.Name = "Column4", ;
Column4.Width = 112, ;
Column5.ControlSource = "explicatia", ;
Column5.Name = "Column5", ;
Column5.Width = 96, ;
Column6.ControlSource = "scc", ;
Column6.Name = "Column6", ;
Column7.ControlSource = "scd", ;
Column7.Name = "Column7", ;
Column8.ControlSource = "", ;
Column8.Name = "Column8", ;
Column9.ControlSource = "dataireg", ;
Column9.Name = "Column9", ;
Column10.ControlSource = "fdoc", ;
Column10.Name = "Column10"
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />
ADD OBJECT '_grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.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 '_grid1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.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 '_grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Document pereche", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column4.Text1' AS textbox WITH ;
BackColor = 252,253,200, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont cred", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column7.Header1' AS header WITH ;
Caption = "Cont deb", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column8.Header1' AS header WITH ;
Caption = "Explicatia 2", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data ireg", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid2' AS _grid WITH ;
ColumnCount = 8, ;
DeleteMark = .F., ;
Height = 319, ;
HighlightStyle = 1, ;
Left = 378, ;
Name = "_grid2", ;
Panel = 1, ;
RecordSource = "v_iregcd", ;
Top = 57, ;
Width = 356, ;
ZOrderSet = 5, ;
Column1.ControlSource = "dataact", ;
Column1.Name = "Column1", ;
Column1.Width = 66, ;
Column2.ControlSource = "nract", ;
Column2.Name = "Column2", ;
Column2.Width = 69, ;
Column3.ControlSource = "suma", ;
Column3.InputMask = "999 999 999 999.99", ;
Column3.Name = "Column3", ;
Column3.Width = 92, ;
Column4.ControlSource = "achitat", ;
Column4.InputMask = "999 999 999 999.99", ;
Column4.Name = "Column4", ;
Column4.Width = 91, ;
Column5.ControlSource = "fdoc", ;
Column5.Name = "Column5", ;
Column6.ControlSource = "dataireg", ;
Column6.Name = "Column6", ;
Column7.ControlSource = "explicatia", ;
Column7.Name = "Column7", ;
Column8.ControlSource = "acont", ;
Column8.Name = "Column8"
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />
ADD OBJECT '_grid2.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.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 '_grid2.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.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 '_grid2.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Suma", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid2.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Achitat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.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 '_grid2.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid2.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data ireg", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid2.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grid2.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Acont", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grid2.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_shape3' AS _shape WITH ;
Height = 372, ;
Left = 4, ;
Name = "_shape3", ;
Style = 3, ;
Top = 36, ;
Width = 741, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'ck_nract' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = nract, ;
Caption = "Nr. document", ;
Left = 99, ;
Name = "ck_nract", ;
Top = 40
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_nract2' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = nract, ;
Caption = "Nr. document", ;
Left = 456, ;
Name = "ck_nract2", ;
Top = 40
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_pereche' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = pereche, ;
Caption = "Pereche", ;
Left = 240, ;
Name = "Ck_pereche", ;
Top = 40
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_buton1' AS cmd_buton WITH ;
caction = do_listare, ;
Caption = "\<Listare 1", ;
FontBold = .T., ;
Left = 72, ;
Name = "Cmd_buton1", ;
Top = 379
*< END OBJECT: ClassLib="..\..\comun\clase\_cmd_base.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_buton2' AS cmd_buton WITH ;
caction = do_excel, ;
Caption = "\<Listare 2", ;
FontBold = .T., ;
Left = 528, ;
Name = "Cmd_buton2", ;
Top = 379
*< END OBJECT: ClassLib="..\..\comun\clase\_cmd_base.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Caption = "\<Pereche", ;
Left = 273, ;
Name = "Cmd_executa1", ;
Top = 379
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_1' AS lb_titlu_alb_b12 WITH ;
Left = 23, ;
Name = "Lb_1", ;
Top = 36
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_2' AS lb_titlu_alb_b12 WITH ;
Left = 390, ;
Name = "Lb_2", ;
Top = 36
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
PROCEDURE Destroy
RELEASE pnPereche1,pnPereche2,pctitlu
ENDPROC
PROCEDURE do_cauta
STORE "" TO t1,t2,T3
lcAct = this._grid1.RecordSource
lcIreg = this._grid2.RecordSource
IF thisform.ck_nract.Value=1
T1 = T1 + thisform.ck_nract.filtru_vfp
ENDIF
if this.ck_pereche.Value=1
lcControl = this._grid1.column4.ControlSource
val1 = thisform.ck_pereche.cvaloare1
val2 = thisform.ck_pereche.cvaloare2
T1=t1+" and (" + lcControl + ">=" + val1 + ") and (" + lcCOntrol +"<=" + val2 + ")"
endif
IF thisform.ck_nract2.Value=1
T2 = T2 + thisform.ck_nract2.filtru_vfp
ENDIF
SELECT (lcAct)
IF !EMPTY(t1)
t1=SUBSTR(t1,5)
ELSE
t1=".t."
ENDIF
SELECT (lcAct)
SET FILTER TO &t1
*!* SUM suma TO totsumdeb
*!* GO BOTTOM
SELECT (lcIreg)
IF !EMPTY(t2)
t2=SUBSTR(t2,5)
ELSE
t2=".t."
ENDIF
SELECT (lcIreg)
SET FILTER TO &t2
*!* SUM suma TO totsumcred
*!* GO BOTTOM
thisform.Refresh
ENDPROC
PROCEDURE do_excel
PRIVATE pctitlu
pctitlu = thisform.lb_2.Caption
lcIreg = this._grid2.RecordSource
SELECT (lcIreg)
thisform.AlwaysOnTop=.f.
REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW
thisform.AlwaysOnTop=.t.
ENDPROC
PROCEDURE do_executa
PRIVATE pcPereche
SELECT v_actcd
SCATTER NAME pcPereche
lcPereche = thisform._GRID1.coluMN4.ControlSource
opereche = CREATEOBJECT('cautper')
SELECT v_iregcd
LOCATE FOR nract = pcPereche.&lcPereche
opereche.pereche = lcPereche
*!* opereche.lb._cbbase1.controlsource = 'pcPereche.&lcPereche'
opereche.show(1)
IF buton = 1
thisform.LockScreen = .T.
save_grid(this._grid1)
SAVE_grid(this._grid2)
USE IN v_actcd
lcSql = this.sql_act
lcCursor = [v_actcd] &&Act
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
USE IN v_iregcd
lcSql = this.sql_ireg
lcCursor = [v_iregcd] &&Ireg
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
goExecutor.oReset()
restore_grid(this._grid1)
restore_grid(this._grid2)
thisform.LockScreen = .F.
ENDIF
RELEASE opereche
ENDPROC
PROCEDURE do_listare
PRIVATE pctitlu
pctitlu = thisform.lb_1.Caption
lcAct = this._grid1.RecordSource
SELECT (lcAct)
thisform.AlwaysOnTop=.f.
REPORT FORM ist_deb_cred TO PRINTER PROMPT PREVIEW
thisform.AlwaysOnTop=.t.
ENDPROC
PROCEDURE ck_nract.Click
thisform.do_cauta
ENDPROC
PROCEDURE ck_nract2.Click
thisform.do_cauta
ENDPROC
PROCEDURE Ck_pereche.Click
thisform.do_cauta
ENDPROC
PROCEDURE _grid1.AfterRowColChange
LPARAMETERS nColIndex
thisform._grid1.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column')
thisform._grid1.column4.BackColor =RGB(252,253,200)
lcAct = this.RecordSource
lcIreg = thisform._grid2.RecordSource
thisform.npereche = EVALUATE(this.column4.ControlSource)
SELECT (lcIreg)
thisform._grid2.SetAll('DynamicBackColor','iif(nract=thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column')
SELECT (lcAct)
thisform.Refresh
ENDPROC
PROCEDURE _grid2.AfterRowColChange
LPARAMETERS nColIndex
thisform._grid2.SetAll('DynamicBackColor','IIF(.t.,RGB(255,255,255),RGB(255,255,255))','column')
lcIreg = this.RecordSource
lcAct = thisform._grid1.RecordSource
*!* this.SetAll("DynamicBackColor","IIF(thisform.rec=RECNO(), RGB(191,223,255) , RGB(255,255,255))", "Column")
thisform.npereche = EVALUATE(this.column2.ControlSource)
thisform.col4=thisform._grid1.column4.ControlSource
SELECT (lcAct)
thisform._grid1.SetAll('DynamicBackColor','iif(EVALUATE(thisform.col4) =thisform.npereche,RGB(191,223,255),RGB(255,255,255))','column')
SELECT (lcIreg)
thisform.Refresh
ENDPROC
ENDDEFINE
DEFINE CLASS cautper 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="lb" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: pereche
*p: valoare
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 89
Name = "cautper"
pereche =
valoare = 0
Width = 352
_shape1.BorderStyle = 2
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 351
_shape2.Height = 29
_shape2.Left = 291
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 62
Lb_titlu_alb_b121.Caption = "Pereche"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 4
BUT_TERMIN1.Left = 321
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
*</PropValue>
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 291, ;
Name = "But_renunt1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="..\libs\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'lb' AS cb_tx_simplu WITH ;
Left = 32, ;
Name = "lb", ;
TabIndex = 1, ;
Top = 48, ;
_cbbase1.Name = "_cbbase1", ;
_cbbase1.RowSource = "v_iregcd.nract", ;
_cbbase1.RowSourceType = 2, ;
_lbbase1.Caption = "Pereche", ;
_lbbase1.Name = "_lbbase1"
*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_termin
lcCod = pcPereche.cod
update_actper(lcCod)
lnSucces = sqlsetprop(gnhandle,"Transactions",2)
SELECT actactan
IF lnSucces > 0
lnSucces = oscrie_in_fisiere(2,.t.)
ENDIF
IF lnSucces >0
lcSql = [delete from act_temp]
lnSucces = SQLEXEC(gnHandle,lcSql)
ENDIF
IF lnSucces>0
SELECT actactan
LOCATE FOR id_act = pcPereche.id_act
IF FOUND()
GATHER NAME pcPereche
REPLACE id_util WITH gnidutil
ENDIF
lnSucces = oscrie_in_fisiere(0,.t.)
ENDIF
IF lnSucces < 0
SQLROLLBACK(gnhandle)
llReturn = .f.
ELSE
SQLCOMMIT(gnhandle)
llReturn = .t.
ENDIF
lnSucces = sqlsetprop(gnhandle,"Transactions",1)
IF lnSucces < 0
MESSAGEBOX('Programul a trecut pe tranzactie manuala. Iesiti si intrati din nou!',0,'Atentie!')
ENDIF
RETURN llReturn
ENDPROC
PROCEDURE lb._cbbase1.LostFocus
lcPereche = thisform.pereche
pcPereche.&lcPereche = v_iregcd.nract
ENDPROC
ENDDEFINE
DEFINE CLASS frm_verificare_globala 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="grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column4._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_diferente" UniqueID="" Timestamp="" />
*<PropValue>
DoCreate = .T.
Height = 450
Name = "frm_verificare_globala"
Width = 800
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 800
_shape2.Height = 29
_shape2.Left = 697
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 103
Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 6
BUT_TERMIN1.Left = 768
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 3
BUT_TERMIN1.Top = 1
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 735, ;
Name = "But_listare1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_refacere1' AS but_reface WITH ;
Left = 702, ;
Name = "But_refacere1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ck_diferente' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Doar cu diferente", ;
Left = 24, ;
Name = "ck_diferente", ;
TabIndex = 1, ;
Top = 36
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'grid1' AS _grdrow WITH ;
AllowHeaderSizing = .F., ;
ColumnCount = 4, ;
DeleteMark = .F., ;
GridLines = 1, ;
HeaderHeight = 20, ;
Height = 372, ;
Left = 14, ;
Name = "grid1", ;
Panel = 1, ;
RecordSource = "crsverificari", ;
RowHeight = 55, ;
ScrollBars = 2, ;
TabIndex = 2, ;
Top = 60, ;
Width = 778, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "explicatia", ;
Column1.FontBold = .T., ;
Column1.FontName = "Arial Narrow", ;
Column1.FontSize = 10, ;
Column1.Format = "!", ;
Column1.Name = "Column2", ;
Column1.ReadOnly = .T., ;
Column1.Width = 213, ;
Column2.Alignment = 2, ;
Column2.ColumnOrder = 1, ;
Column2.ControlSource = "", ;
Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ;
Column2.Name = "Column1", ;
Column2.ReadOnly = .T., ;
Column2.Sparse = .F., ;
Column2.Width = 46, ;
Column3.ControlSource = "mesaj", ;
Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Sparse = .F., ;
Column3.Width = 439, ;
Column4.ControlSource = "selectat", ;
Column4.Name = "Column4", ;
Column4.Sparse = .F., ;
Column4.Width = 46
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid1.Column1._image1' AS _image WITH ;
Height = 32, ;
Left = 28, ;
Name = "_image1", ;
Picture = ..\..\comun\graphics\checkmrk.ico, ;
Top = 23, ;
Width = 32
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'grid1.Column1._image2' AS _image WITH ;
Height = 32, ;
Left = 23, ;
Name = "_image2", ;
Picture = ..\..\comun\graphics\pericol.ico, ;
Top = 47, ;
Width = 32
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Rezultat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ;
FontName = "Arial Narrow", ;
Left = 48, ;
Name = "_editbox1", ;
Top = 23
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" />
ADD OBJECT 'grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Mesaj", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column4._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
Caption = "", ;
Centered = .T., ;
Left = 7, ;
Name = "_checkbox1", ;
Top = 35
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Selectat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
PROCEDURE do_listare
If Reccount('crsverificari')>0
Thisform.AlwaysOnTop = .F.
raport_mesaje(Thisform.lb_titlu_alb_b121.Caption+" "+Padl(Alltrim(Str(gnLuna)),2,'0')+"/"+Alltrim(Str(gnAn)))
Thisform.AlwaysOnTop = .T.
Else
Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE do_reface
If Used('crsrefaceri')
Use In crsrefaceri
Endif
Select sursa,Cont,tip From crsverificari Where selectat=1 Into Cursor crsrefaceri
If Reccount('crsrefaceri')>0
*!* orp=Create('parola')
*!* orp.Show(1)
*!* If buton # 3
*!* RETURN
*!* ENDIF
Local lcsursa,lccont,lctip
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.AlwaysOnTop=.F.
save_grid_tag(Thisform.grid1)
Select crsrefaceri
Scan
lcsursa=Upper(Alltrim(sursa))
lccont=Alltrim(Cont)
* lctip=tip
lctip = '1'
Do refacere With lcsursa,lctip,lccont In orefaceri.prg
Select crsrefaceri
Endscan
If Used('crsverificari')
Use In crsverificari
Endif
Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4))
Do VerificareLunaDeschisa In overificari.prg
Select crsverificari
Go Top
restore_grid_tag(Thisform.grid1)
Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere")
Thisform.AlwaysOnTop=.T.
Thisform.LockScreen = .F.
Thisform.MousePointer = 0
Endif
Use In crsrefaceri
Thisform.ck_diferente.Value=0
ENDPROC
PROCEDURE do_sterge
Do CURATARE
Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere")
ENDPROC
PROCEDURE Init
DoDefault()
Select crsverificari
Go Top
If m.nivel > 0
Thisform.but_refacere1.Visible=.F.
Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width
Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width
Endif
ENDPROC
PROCEDURE ck_diferente.Click
If This.Value=1
Select crsverificari
Set Filter To !Empty(mesaj)
Thisform.Refresh
Else
Select crsverificari
Set Filter To
Thisform.Refresh
Endif
ENDPROC
PROCEDURE grid1.Column2.Text1.DblClick
lcExplicatia=Upper(Alltrim(This.Value))
Thisform.AlwaysOnTop=.F.
Do Case
Case lcExplicatia='BALANTA'
Do viz_balanta
Case lcExplicatia='REGISTRUL DE VANZARI'
Do viz_regvanz
Case lcExplicatia='REGISTRUL DE CUMPARARI'
Do viz_regcump
Case Substr(lcExplicatia,1,17)='BALANTA ANALITICA'
Do lans_balanta_parteneri
Case Substr(lcExplicatia,1,12)='INREGISTRARI'
Do lans_ireg_parteneri
Endcase
Thisform.AlwaysOnTop=.T.
ENDPROC
ENDDEFINE
DEFINE CLASS frm_verificare_globala_per 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="grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1._image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column1._image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column3._editbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.Column6._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_refacere1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_explicatia" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: nfinal
*p: ninit
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 450
Name = "frm_verificare_globala_per"
nfinal = 0
ninit = 0
Width = 800
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 828
_shape2.Height = 29
_shape2.Left = 696
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 105
Lb_titlu_alb_b121.Caption = "VERIFICARE GLOBALA"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 768
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 4
BUT_TERMIN1.Top = 1
*</PropValue>
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 736, ;
Name = "But_listare1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_refacere1' AS but_reface WITH ;
Left = 703, ;
Name = "But_refacere1", ;
TabIndex = 6, ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_explicatia' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = explicatia, ;
Caption = "Explicatia", ;
FontName = "Arial Narrow", ;
Left = 24, ;
Name = "Ck_explicatia", ;
TabIndex = 1, ;
Top = 41
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 108, ;
Name = "Cmd_cauta1", ;
TabIndex = 2, ;
Top = 37
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid1' AS _grdrow WITH ;
AllowHeaderSizing = .F., ;
ColumnCount = 6, ;
DeleteMark = .F., ;
GridLines = 1, ;
HeaderHeight = 20, ;
Height = 360, ;
Left = 13, ;
Name = "grid1", ;
Panel = 1, ;
RecordSource = "crsverificari", ;
RowHeight = 41, ;
ScrollBars = 2, ;
TabIndex = 3, ;
Top = 72, ;
Width = 779, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "explicatia", ;
Column1.FontBold = .T., ;
Column1.FontName = "Arial Narrow", ;
Column1.FontSize = 10, ;
Column1.Format = "!", ;
Column1.Name = "Column2", ;
Column1.ReadOnly = .T., ;
Column1.Width = 213, ;
Column2.Alignment = 2, ;
Column2.ColumnOrder = 1, ;
Column2.ControlSource = "", ;
Column2.DynamicCurrentControl = "iif(empty(mesaj),'_image1','_image2')", ;
Column2.Name = "Column1", ;
Column2.ReadOnly = .T., ;
Column2.Sparse = .F., ;
Column2.Width = 46, ;
Column3.ControlSource = "mesaj", ;
Column3.DynamicForeColor = "IIF(selectat=1,RGB(255,0,0),RGB(0,0,0))", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.Sparse = .F., ;
Column3.Width = 392, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "an", ;
Column4.Name = "Column5", ;
Column4.Width = 36, ;
Column5.ColumnOrder = 4, ;
Column5.ControlSource = "luna", ;
Column5.Name = "Column4", ;
Column5.Width = 33, ;
Column6.ControlSource = "selectat", ;
Column6.Name = "Column6", ;
Column6.Sparse = .F., ;
Column6.Width = 47
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid1.Column1._image1' AS _image WITH ;
Height = 32, ;
Left = 28, ;
Name = "_image1", ;
Picture = ..\..\comun\graphics\checkmrk.ico, ;
Top = 23, ;
Width = 32
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'grid1.Column1._image2' AS _image WITH ;
Height = 32, ;
Left = 23, ;
Name = "_image2", ;
Picture = ..\..\comun\graphics\pericol.ico, ;
Top = 47, ;
Width = 32
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="image" />
ADD OBJECT 'grid1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Rezultat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatia", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontBold = .T., ;
FontName = "Arial Narrow", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.Column3._editbox1' AS _editbox WITH ;
FontName = "Arial Narrow", ;
Left = 48, ;
Name = "_editbox1", ;
Top = 23
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="editbox" />
ADD OBJECT 'grid1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Mesaj", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Luna", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.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 'grid1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "An", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.Column6._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
Caption = "", ;
Centered = .T., ;
Left = 14, ;
Name = "_checkbox1", ;
Top = 35
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'grid1.Column6.Header1' AS header WITH ;
Caption = "Selectat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
PROCEDURE do_cauta
Local lcFiltru
Select crsverificari
Replace selectat With 0 All
lcFiltru=[!EMPTY(mesaj)]
If Thisform.ck_explicatia.Value=1
lcFiltru=lcFiltru+Thisform.ck_explicatia.filtru_vfp
Endif
Select crsverificari
Set Filter To &lcFiltru
Replace selectat With 1 For &lcFiltru
Go Top
Thisform.Refresh
ENDPROC
PROCEDURE do_listare
If Reccount('crsverificari')>0
Thisform.AlwaysOnTop = .F.
raport_mesaje(thisform.lb_titlu_alb_b121.Caption)
Thisform.AlwaysOnTop = .T.
Else
Messagebox("Nu sunt inregistrari de listat!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE do_reface
If Used('crsrefaceri')
Use In crsrefaceri
Endif
Select sursa,Cont,tip,luna,an From crsverificari Where selectat=1 Into Cursor crsrefaceri
If Reccount('crsrefaceri')>0
Local lcsursa,lccont,lctip,lnAn,lnLuna
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
Thisform.AlwaysOnTop=.F.
save_grid_tag(Thisform.grid1)
Select crsrefaceri
Scan
lcsursa=Upper(Alltrim(sursa))
lccont=Alltrim(Cont)
lctip = '1'
lnAn=an
lnLuna=luna
Do refacere With lcsursa,lctip,lccont,lnLuna,lnAn In orefaceri.prg
Select crsrefaceri
Endscan
If Used('crsverificari')
Use In crsverificari
Endif
Create Cursor crsverificari (sursa c(20),Cont c(20),tip c(1),mesaj c(200),selectat N(1),explicatia c(50),luna N(2),an N(4))
lnInit=Thisform.ninit
lnFinal=Thisform.nfinal
For k=lnInit To lnFinal
lnLuna=Mod(k,12)
lnAn=Int(k/12)
If lnLuna=0
lnLuna=12
lnAn=lnAn-1
Endif
Do VerificareLunaDeschisa With lnLuna,lnAn,.F. in overificari.prg
Endfor
Select crsverificari
Go Top
restore_grid_tag(Thisform.grid1)
Thisform.do_cauta
Messagebox("Refacerea s-a incheiat!",0+64,"Info refacere")
Thisform.AlwaysOnTop=.T.
Thisform.LockScreen = .F.
Thisform.MousePointer = 0
Endif
Use In crsrefaceri
ENDPROC
PROCEDURE do_sterge
*!* Do CURATARE
*!* Messagebox('Refacerea s-a incheiat!',0+64,"Info refacere")
ENDPROC
PROCEDURE Init
DoDefault()
*!* Select crsverificari
*!* Go Top
*!* If m.nivel > 0
*!* Thisform.but_refacere1.Visible=.F.
*!* Thisform._shape2.Width=Thisform._shape2.Width-Thisform.but_refacere1.Width
*!* Thisform._shape2.Left=Thisform._shape2.Left+Thisform.but_refacere1.Width
*!* Endif
ENDPROC
ENDDEFINE
DEFINE CLASS teste_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="_listbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: init_mesaj
*m: init_test
*m: init_test_inregistrari
*m: istoric
*p: activ
*p: lcont
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 395
Name = "teste_ireg"
Width = 553
_shape1.Height = 29
_shape1.Left = -1
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 565
_shape2.Height = 29
_shape2.Left = 486
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 68
Lb_titlu_alb_b121.Caption = "Test inregistrari"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 522
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
*</PropValue>
ADD OBJECT '_listbox1' AS _listbox WITH ;
AutoHideScrollbar = 1, ;
Height = 315, ;
Left = 12, ;
Name = "_listbox1", ;
ToolTipText = (this.value), ;
Top = 48, ;
Width = 528
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="listbox" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 490, ;
Name = "But_listare1", ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
Caption = "\<Istoric", ;
Left = 456, ;
Name = "Cmd_executa1", ;
Top = 365
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
PROCEDURE Destroy
IF USED('crslistare')
USE IN crslistare
ENDIF
ENDPROC
PROCEDURE do_executa
IF thisform._listbox1.listcount = 0
thisform.Cmd_executa1.Enabled = .f.
ELSE
thisform.Cmd_executa1.Enabled = .t.
IF thisform._listbox1.listindex = 0
ofrm_mes = CREATEOBJECT('frm_mesaj','Atentie','exclam2.ico','Avertizare','Selectati un item din lista!')
ofrm_mes.show(1)
RELEASE ofrm_mes
ELSE
lcId_part = thisform.lam[ceiling(thisform._listbox1.listindex/2),3]
lcCont = thisform.lcont
lcAcont = thisform.lam[ceiling(thisform._listbox1.listindex/2),4]
lcActiv = thisform.activ
*!* WAIT WINDOW "Id : " + lcId_part + " Cont : " + lcCont + " Activ : " + lcActiv
thisform.istoric(lcCont,lcAcont,lcId_part,lcActiv)
ENDIF
ENDIF
ENDPROC
PROCEDURE do_listare
Thisform.AlwaysOnTop=.F.
*!* gofundal.AlwaysOnTop=.F.
pcTitlu = thisform.lb_titlu_alb_b121.Caption
pcDataOra=get_ora(2)
Select crslistare
Report Format rap_teste To Printer Prompt Preview
*!* gofundal.AlwaysOnTop=.T.
Thisform.AlwaysOnTop=.T.
ENDPROC
PROCEDURE Init
LPARAMETERS taMesaje,tcCont,tnActiv
DODEFAULT()
IF !EMPTY(tcCont) AND PCOUNT() > 2
this.init_test_inregistrari(@taMesaje,tcCont,tnActiv)
ELSE
this.init_mesaj(@taMesaje)
ENDIF
ENDPROC
PROCEDURE init_mesaj
PARAMETERS taMesaje
LOCAL ICtr
this.cmd_executa1.Visible = .f.
EXTERNAL ARRAY taMesaje
lnLen = aLEN(taMesaje) &&Lungime array parametru
DIMENSION laM(lnLen,1)
ADDPROPERTY(thisform,'lam(lnLen,1)')
CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100))
FOR ICtr = 1 TO lnLen
lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator
lcMesaj = LEFT(taMesaje[Ictr],lcSeparator-1)
lam[Ictr,1] = lcMesaj
thisform._listbox1.AddItem(laM[Ictr,1])
thisform.lam[Ictr,1] = laM[Ictr,1]
IF '--' $ laM[Ictr,1]
lcmesaj = []
lcExp1 = laM[Ictr,1]
ELSE
lcmesaj = laM[Ictr,1]
lcExp1 = []
ENDIF
INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(lcExp1,'',lcmesaj)
ENDFOR
ENDPROC
PROCEDURE init_test
ENDPROC
PROCEDURE init_test_inregistrari
PARAMETERS taMesaje, tcCont, tnActiv
LOCAL ICtr
EXTERNAL ARRAY taMesaje
thisform.lcont=TcCont
thisform.activ = ALLTRIM(STR(tnActiv))
lnLen = aLEN(taMesaje) &&Lungime array parametru
DIMENSION laM(lnLen,4)
ADDPROPERTY(thisform,'lam(lnLen,4)')
IF USED('crslistare')
USE IN crslistare
ENDIF
*CREATE CURSOR crslistare (nume c(50),acont c(4),mesaj c(100))
CREATE CURSOR crslistare (explicatie1 c(50),explicatie2 c(20),mesaj c(100))
FOR ICtr = 1 TO lnLen
lcSeparator = AT(';',taMesaje[Ictr]) &&Primu separator
lcId_part = LEFT(taMesaje[Ictr],lcSeparator-1) &&Id partener
lcAcont = STREXTRACT(taMesaje[Ictr],';',';',1) &&Analitic
lcSql = [select id_part,nume from ] + gcS + [.vnom_parteneri where id_part = ] + lcId_Part
lcCursor = [crsParteneri]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
IF lnSucces > 0
SELECT crsParteneri
GO top
laM[Ictr,1] = UPPER(ALLTRIM(nume)) && Nume Partener
laM[Ictr,3] = lcId_part
laM[Ictr,4] = lcAcont
ELSE
MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
laM[Ictr,1] = "" && Nume Partener
laM[Ictr,3] = lcId_part
laM[Ictr,4] = lcAcont
ENDIF
IF USED('crsParteneri')
USE IN crsParteneri
ENDIF
lcSoldBal = STREXTRACT(taMesaje[Ictr],';',';',2) &&Sold balanta parteneri
lcSeparator3 = AT(';',taMesaje[Ictr],3) && Al 3-lea separator
lcSoldIreg = STRTRAN(SUBSTR(taMesaje[Ictr],lcSeparator3+1),'*','') &&Sold inregistrari parteneri
lam[Ictr,2] = "Sold balanta : " + lcSoldBal + " Sold inregistrari : " + lcSoldIreg + " Diferenta : " +;
ALLTRIM(STR(VAL(lcSoldBal) - VAL(lcSoldIreg),14,gnPa))
IF !EMPTY(lcAcont) AND ALLTRIM(UPPER(lcAcont)) # 'XXXX'
lcNumesiAna = laM[Ictr,1] + [ - Analitic ] + lcAcont
ELSE
lcNumesiAna = laM[Ictr,1]
ENDIF
* thisform._listbox1.AddItem(laM[Ictr,1])
thisform._listbox1.AddItem(lcNumesiAna)
thisform._listbox1.AddItem(laM[Ictr,2])
thisform.lam[Ictr,1] = laM[Ictr,1]
thisform.lam[Ictr,2] = laM[Ictr,2]
thisform.lam[Ictr,3] = laM[Ictr,3]
thisform.lam[Ictr,4] = laM[Ictr,4]
INSERT INTO crslistare(explicatie1,explicatie2,mesaj) values(laM[Ictr,1],[Analitic - ] + laM[Ictr,4],laM[Ictr,2])
ENDFOR
ENDPROC
PROCEDURE istoric
LPARAMETERS tcCont,tcAnalitic,tnId,tcActiv
lcCont = ALLTRIM(tcCont)
lcAcont = ALLTRIM(tcAnalitic)
IF EMPTY(lcAcont) OR ISNULL(lcAcont)
lcAcont = 'xxxx'
ENDIF
lcId = ALLTRIM(tnId)
lnActiv = VAL(tcActiv)
PRIVATE pnPereche1,pnPereche2
STORE 0 TO pnPereche1,pnPereche2
this.AlwaysOnTop=.f.
do CASE
case lnActiv = 0 &&
PRIVATE pccond
lcSql_i = [select id_part,nume,dataact,nract,dataireg,preccred+credit as suma,precdeb+debit as achitat,acont,fdoc,explicatia from ] +;
gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ;
[ order by dataireg]
lcCursor = [v_iregcd] &&Ireg_parteneri
lnSucces = goExecutor.oExecute(lcSql_i,lcCursor)
goExecutor.oReset()
lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partd,a.pereched from ] + ;
gcS + [.vact a where a.id_partd = ] + lcId + [ and a.scd = '] + lcCont + [' and NVL(a.ascd,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +;
[ order by a.dataact]
lcCursor = [v_actcd] &&Act
lnSucces = goExecutor.oExecute(lcSql_a,lcCursor)
goExecutor.oReset()
pcPereche='pereched'
ORC=CREATEOBJ("AFisDEBsiCRED")
orc._grid1.column4.controlsource = 'pereched'
ORC.lb_2.CAPTION='CREDIT'
ORC.lb_1.CAPTION='DEBIT'
orc.Sql_act = lcSql_A
orc.Sql_ireg = lcSql_i
case lnActiv = 1 &&
PRIVATE pccond
lcSql_i = [select id_part,nume,dataact,nract,dataireg,precdeb+debit as suma,preccred+credit as achitat,acont,fdoc,explicatia from ] +;
gcS + [.vireg_parteneri where id_part=] + lcId + [ and cont = '] + lcCont + [' and NVL(acont,'xxxx') = '] + lcAcont + [' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna)) + ;
[ order by dataireg]
lcCursor = [v_iregcd] &&Ireg_parteneri
lnSucces = goExecutor.oExecute(lcSql_i,lcCursor)
goExecutor.oReset()
lcSql_a = [select a.dataact,a.nract,a.suma,a.explicatia,a.id_act,a.cod,a.scd,a.scc,a.dataireg,a.fdoc,a.partc,a.perechec from ] + ;
gcS + [.vact a where a.id_partc = ] + lcId + [ and a.scc = '] + lcCont + [' and NVL(a.ascc,'xxxx') = '] + lcAcont + [' and a.an = ] + ALLTRIM(STR(gnAn)) + [ and a.luna = ] + ALLTRIM(STR(gnLuna)) +;
[ order by a.dataact]
lcCursor = [v_actcd] &&Act
lnSucces = goExecutor.oExecute(lcSql_a,lcCursor)
goExecutor.oReset()
pcPereche='perechec'
ORC=CREATEOBJ("AFisDEBsiCRED")
orc._grid1.column4.controlsource = 'perechec'
ORC.lb_1.CAPTION='CREDIT'
ORC.lb_2.CAPTION='DEBIT'
orc.Sql_act = lcSql_A
orc.Sql_ireg = lcSql_i
ENDCASE
ORC.SHOW(1)
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink