Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
859
clase/orapoarte_comun.vc2
Normal file
859
clase/orapoarte_comun.vc2
Normal file
@@ -0,0 +1,859 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_comun.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS frm_cere_cont AS formtermin OF "_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape2" 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="But_renunt1" 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.Name = "_shape1"
|
||||
_shape2.Name = "_shape2"
|
||||
Lb_titlu_alb_b121.Caption = "Selectati contul"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 174
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
GRIDSORT1.Name = "GRIDSORT1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||||
Left = 145, ;
|
||||
Name = "But_renunt1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
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 '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.Valid
|
||||
IF TYPE('eactiv') # 'U'
|
||||
IF this.Value = 2
|
||||
eActiv = .f.
|
||||
ELSE
|
||||
eActiv = .t.
|
||||
ENDIF
|
||||
ENDIF
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_rap_facturi AS _frmbase OF "_frm_base.vcx"
|
||||
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Caut_anluna2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="opt_perioada" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare_cont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Txt_valuta" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Txt_analitic" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="ckContract" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_cautare_ctr" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: do_cautare && face cautarea corespunzatoare butonului de cautare de tip but_cautare
|
||||
*m: do_lansanalitic
|
||||
*m: do_lanscont
|
||||
*m: do_lansctr
|
||||
*m: do_lanspartener
|
||||
*m: do_lansvaluta
|
||||
*p: data_vechime
|
||||
*p: lcacont
|
||||
*p: lccont
|
||||
*p: lcperioada
|
||||
*p: llactiv
|
||||
*p: lnidctr
|
||||
*p: lnidpart
|
||||
*p: lnidvaluta
|
||||
*p: ncu_analitic
|
||||
*p: ncu_contract
|
||||
*p: ncu_valuta
|
||||
*p: ncu_vechime
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 2
|
||||
data_vechime =
|
||||
DoCreate = .T.
|
||||
Height = 429
|
||||
lcacont =
|
||||
lccont =
|
||||
lcperioada =
|
||||
llactiv =
|
||||
lnidctr = 0
|
||||
lnidpart = 0
|
||||
lnidvaluta = 0
|
||||
Name = "frm_rap_facturi"
|
||||
ncu_analitic = 0
|
||||
ncu_contract = 0
|
||||
ncu_valuta = 0
|
||||
ncu_vechime = 0
|
||||
Width = 375
|
||||
_shape1.Name = "_shape1"
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 315
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
_shape2.Width = 61
|
||||
Lb_titlu_alb_b121.Caption = "Facturi "
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 345
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'But_cautare' AS but_cautare WITH ;
|
||||
caction = do_lansPartener, ;
|
||||
Left = 307, ;
|
||||
Name = "But_cautare", ;
|
||||
Top = 76
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_cautare_cont' AS but_cautare WITH ;
|
||||
caction = do_lansCont, ;
|
||||
Left = 307, ;
|
||||
Name = "But_cautare_cont", ;
|
||||
Top = 46
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_cautare_ctr' AS but_cautare WITH ;
|
||||
caction = do_lansCtr, ;
|
||||
Left = 312, ;
|
||||
Name = "But_cautare_ctr", ;
|
||||
Top = 387
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
||||
Left = 316, ;
|
||||
Name = "But_renunt1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
|
||||
Left = 24, ;
|
||||
Name = "Caut_anluna1", ;
|
||||
Top = 185, ;
|
||||
cboan.Name = "cboan", ;
|
||||
cboluna.Name = "cboluna"
|
||||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Caut_anluna2' AS caut_anluna WITH ;
|
||||
Left = 198, ;
|
||||
Name = "Caut_anluna2", ;
|
||||
Top = 185, ;
|
||||
cboan.Name = "cboan", ;
|
||||
cboluna.Name = "cboluna"
|
||||
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Check1' AS checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Sumele pe analitice", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 26, ;
|
||||
Name = "Check1", ;
|
||||
Top = 244, ;
|
||||
Width = 108
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'Check2' AS checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Suma in valuta", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 26, ;
|
||||
Name = "Check2", ;
|
||||
Top = 270, ;
|
||||
Width = 87
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'Check3' AS checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Soldurile facturilor pe vechimi", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 34, ;
|
||||
Left = 26, ;
|
||||
Name = "Check3", ;
|
||||
Top = 304, ;
|
||||
Width = 103, ;
|
||||
WordWrap = .T.
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'ckContract' AS checkbox WITH ;
|
||||
Alignment = 0, ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Grupare dupa contract", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 24, ;
|
||||
Name = "ckContract", ;
|
||||
Top = 366, ;
|
||||
Width = 124
|
||||
*< END OBJECT: BaseClass="checkbox" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
|
||||
Left = 14, ;
|
||||
Name = "Clb_tx_simplu1", ;
|
||||
TabIndex = 10, ;
|
||||
TabStop = .F., ;
|
||||
Top = 47, ;
|
||||
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.FontItalic = .T., ;
|
||||
Text_simplu1.ForeColor = 0,0,0, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 65, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 220, ;
|
||||
Lb_simplu1.Caption = "Cont", ;
|
||||
Lb_simplu1.FontSize = 10, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
|
||||
Left = 14, ;
|
||||
Name = "Clb_tx_simplu2", ;
|
||||
TabIndex = 11, ;
|
||||
TabStop = .F., ;
|
||||
Top = 75, ;
|
||||
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.FontItalic = .T., ;
|
||||
Text_simplu1.ForeColor = 0,0,0, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 65, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 220, ;
|
||||
Lb_simplu1.Caption = "Entitate", ;
|
||||
Lb_simplu1.FontSize = 10, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
|
||||
Left = 19, ;
|
||||
Name = "Clb_tx_simplu3", ;
|
||||
TabIndex = 11, ;
|
||||
TabStop = .F., ;
|
||||
Top = 386, ;
|
||||
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.FontItalic = .T., ;
|
||||
Text_simplu1.ForeColor = 0,0,0, ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 65, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.ReadOnly = .T., ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 220, ;
|
||||
Lb_simplu1.Caption = "Contract", ;
|
||||
Lb_simplu1.FontSize = 10, ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Container1' AS container WITH ;
|
||||
BackStyle = 0, ;
|
||||
BorderColor = 128,128,128, ;
|
||||
BorderWidth = 0, ;
|
||||
Height = 53, ;
|
||||
Left = 137, ;
|
||||
Name = "Container1", ;
|
||||
Top = 296, ;
|
||||
Visible = .F., ;
|
||||
Width = 211
|
||||
*< END OBJECT: BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Container1.Label1' AS label WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
Caption = "Fata de data de:", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 18, ;
|
||||
Left = 10, ;
|
||||
Name = "Label1", ;
|
||||
Top = 5, ;
|
||||
Visible = .F., ;
|
||||
Width = 79
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Container1.Text1' AS textbox WITH ;
|
||||
ControlSource = "thisform.data_vechime", ;
|
||||
FontItalic = .T., ;
|
||||
Height = 20, ;
|
||||
Left = 105, ;
|
||||
Name = "Text1", ;
|
||||
Top = 3, ;
|
||||
Visible = .F., ;
|
||||
Width = 99
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Label1' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Se evidentiaza", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 22, ;
|
||||
Left = 20, ;
|
||||
Name = "Label1", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 221, ;
|
||||
Width = 85, ;
|
||||
ZOrderSet = 15
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Label5' AS label WITH ;
|
||||
Alignment = 2, ;
|
||||
BackColor = 255,255,255, ;
|
||||
Caption = "Afiseaza facturi", ;
|
||||
Comment = "*:OnResize=LT", ;
|
||||
FontName = "Arial Narrow", ;
|
||||
FontSize = 10, ;
|
||||
Height = 22, ;
|
||||
Left = 20, ;
|
||||
Name = "Label5", ;
|
||||
TabIndex = 8, ;
|
||||
Top = 110, ;
|
||||
Width = 85, ;
|
||||
ZOrderSet = 15
|
||||
*< END OBJECT: BaseClass="label" />
|
||||
|
||||
ADD OBJECT 'Line1' AS line WITH ;
|
||||
Height = 0, ;
|
||||
Left = 180, ;
|
||||
Name = "Line1", ;
|
||||
Top = 198, ;
|
||||
Width = 12
|
||||
*< END OBJECT: BaseClass="line" />
|
||||
|
||||
ADD OBJECT 'opt_perioada' AS optiongroup WITH ;
|
||||
AutoSize = .T., ;
|
||||
BackStyle = 0, ;
|
||||
BorderStyle = 0, ;
|
||||
ButtonCount = 2, ;
|
||||
Height = 53, ;
|
||||
Left = 18, ;
|
||||
Name = "opt_perioada", ;
|
||||
SpecialEffect = 1, ;
|
||||
TabIndex = 11, ;
|
||||
Top = 130, ;
|
||||
Value = , ;
|
||||
Width = 132, ;
|
||||
ZOrderSet = 16, ;
|
||||
Option1.AutoSize = .T., ;
|
||||
Option1.BackStyle = 0, ;
|
||||
Option1.Caption = "Cu sold in perioada ...", ;
|
||||
Option1.FontName = "Arial Narrow", ;
|
||||
Option1.FontSize = 10, ;
|
||||
Option1.Height = 18, ;
|
||||
Option1.Left = 5, ;
|
||||
Option1.Name = "Option2", ;
|
||||
Option1.Top = 5, ;
|
||||
Option1.Value = 0, ;
|
||||
Option1.Width = 122, ;
|
||||
Option2.AutoSize = .T., ;
|
||||
Option2.BackStyle = 0, ;
|
||||
Option2.Caption = "Emise in perioada ...", ;
|
||||
Option2.FontName = "Arial Narrow", ;
|
||||
Option2.FontSize = 10, ;
|
||||
Option2.Height = 18, ;
|
||||
Option2.Left = 5, ;
|
||||
Option2.Name = "Option3", ;
|
||||
Option2.Top = 30, ;
|
||||
Option2.Value = 0, ;
|
||||
Option2.Width = 114
|
||||
*< END OBJECT: BaseClass="optiongroup" />
|
||||
|
||||
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 126, ;
|
||||
Left = 12, ;
|
||||
Name = "Shape1", ;
|
||||
Top = 232, ;
|
||||
Width = 350, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Shape3' AS shape WITH ;
|
||||
BackStyle = 0, ;
|
||||
Height = 97, ;
|
||||
Left = 12, ;
|
||||
Name = "Shape3", ;
|
||||
Top = 120, ;
|
||||
Width = 350, ;
|
||||
ZOrderSet = 1
|
||||
*< END OBJECT: BaseClass="shape" />
|
||||
|
||||
ADD OBJECT 'Txt_analitic' AS textbox WITH ;
|
||||
FontItalic = .T., ;
|
||||
Height = 21, ;
|
||||
Left = 137, ;
|
||||
Name = "Txt_analitic", ;
|
||||
ReadOnly = .T., ;
|
||||
Top = 243, ;
|
||||
Width = 86
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'Txt_valuta' AS textbox WITH ;
|
||||
FontItalic = .T., ;
|
||||
Height = 21, ;
|
||||
Left = 137, ;
|
||||
Name = "Txt_valuta", ;
|
||||
ReadOnly = .T., ;
|
||||
Top = 269, ;
|
||||
Width = 86
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE do_cauta
|
||||
&& cautare partener (furnizor/client)
|
||||
|
||||
LOCAL lccont
|
||||
lccont = ALLTRIM(pccont)
|
||||
IF lccont = [401] && furnizori
|
||||
lctitlu = 'Alegeti numele furnizorului'
|
||||
ELSE && clienti
|
||||
lctitlu = 'Alegeti numele clientului'
|
||||
ENDIF
|
||||
|
||||
pocauta=caut_parteneri(lccont,lctitlu,.t.)
|
||||
|
||||
IF !EMPTY(pocauta.nume)
|
||||
thisform._txtpartener.value = pocauta.nume
|
||||
ENDIF
|
||||
|
||||
thisform.refresh
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cautare && face cautarea corespunzatoare butonului de cautare de tip but_cautare
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_lansanalitic
|
||||
pcContIreg = this.lccont
|
||||
lcSql = [select explicatie,cont, acont from VPLCONT_USED_ANALITIC]
|
||||
pcfiltru = [cont = ?pcContIreg]
|
||||
pcschema = []
|
||||
pcorder = [acont]
|
||||
pccoloane = [acont,explicatie]
|
||||
pcTitlu = [Alegeti Contul Analitic]
|
||||
pcTitluColoane = [Cont Analitic,Explicatie cont]
|
||||
locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.t.)
|
||||
this.txt_analitic.Value = locauta.acont
|
||||
IF UPPER(ALLTRIM(locauta.acont)) = [<TOATE INREGISTRARILE>]
|
||||
this.lcacont = []
|
||||
ELSE
|
||||
this.lcAcont = locauta.acont
|
||||
ENDIF
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_lanscont
|
||||
private lcCont,lnEActiv
|
||||
STORE "" TO lcCont
|
||||
STORE .F. TO lnEActiv
|
||||
DO Alege_Cont WITH lcCont,lnEActiv
|
||||
|
||||
IF !EMPTY(lcCont)
|
||||
this.clb_tx_simplu1.text_simplu1.Value = lcCont
|
||||
this.lccont = lcCont
|
||||
this.llactiv = lnEActiv
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_lansctr
|
||||
pcselect = [select id_ctr, contract from vcontracte]
|
||||
pcfiltru = [1=2]
|
||||
pcschema = []
|
||||
pcorder = [contract]
|
||||
pccoloane = [contract]
|
||||
pcTitlu = [Alegeti contractul]
|
||||
IF TYPE('GNPARAMETRU_PROG') = 'U'
|
||||
gnParametru_prog = 0
|
||||
ENDIF
|
||||
|
||||
DO CASE
|
||||
CASE gnParametru_prog = 1
|
||||
pcFiltruOriginal = [substr(tata,2,6)='CLIENT' ]
|
||||
CASE gnParametru_prog = 2
|
||||
pcFiltruOriginal = [substr(tata,2,6)='FURNIZ' ]
|
||||
OTHERWISE
|
||||
pcFiltruOriginal = []
|
||||
ENDCASE
|
||||
locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitlu,[],.T.,pcFiltruOriginal)
|
||||
|
||||
this.clb_tx_simplu3.text_simplu1.Value = locauta.contract
|
||||
|
||||
IF UPPER(ALLTRIM(locauta.contract)) = [<TOATE INREGISTRARILE>]
|
||||
THIS.lnidctr = 0
|
||||
ELSE
|
||||
THIS.lnidctr = locauta.id_ctr
|
||||
ENDIF
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_lanspartener
|
||||
PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj
|
||||
STORE "" TO oRetObj
|
||||
pnbuton=1
|
||||
llToateIreg = .T.
|
||||
llNou = .F.
|
||||
oRetObj=caut_parteneri(this.lccont, [Alegeti partenerul], llToateIreg, llNou)
|
||||
this.clb_tx_simplu2.text_simplu1.Value = oRetObj.nume &&oRetObj.id_part
|
||||
IF UPPER(ALLTRIM(oRetObj.nume)) = [<TOATE INREGISTRARILE>]
|
||||
oRetObj.id_part = 0
|
||||
ENDIF
|
||||
this.lnidpart = oRetObj.id_part
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_lansvaluta
|
||||
lcSql = [select id_valuta, nume_val from vnom_valute]
|
||||
pcfiltru = [1=2]
|
||||
pcschema = []
|
||||
pcorder = [nume_val]
|
||||
pccoloane = [nume_val]
|
||||
pcTitlu = [Alegeti Valuta]
|
||||
pcTitluColoane = [Valuta]
|
||||
locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.f.)
|
||||
this.txt_valuta.Value = locauta.nume_val
|
||||
IF UPPER(ALLTRIM(locauta.nume_val)) = [<TOATE INREGISTRARILE>]
|
||||
this.lnidvaluta = 0
|
||||
ELSE
|
||||
this.lnidvaluta = locauta.id_valuta
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
&& se verifica corectitudinea datelor si completitudinea datelor
|
||||
|
||||
pnani = thisform.Caut_anluna1.nan
|
||||
pnanf = thisform.Caut_anluna2.nan
|
||||
pnlunai = thisform.Caut_anluna1.nluna
|
||||
pnlunaf = thisform.Caut_anluna2.nluna
|
||||
pcPerioada = PADL(pnLunaI,2,'0') + [/] + STR(pnAnI,4) + [-] + PADL(pnLunaF,2,'0') + [/] + STR(pnAnF,4)
|
||||
this.lcperioada = pcPerioada
|
||||
|
||||
DO CASE
|
||||
CASE EMPTY(this.clb_tx_simplu1.text_simplu1.Value)
|
||||
AMessagebox('Nu ati ales contul!',0+48,"Atentie")
|
||||
this.but_cautare_cont.SetFocus
|
||||
plreturn=.F.
|
||||
|
||||
*!* CASE EMPTY(this.clb_tx_simplu2.text_simplu1.Value)
|
||||
*!* AMessagebox('Nu ati ales partenerul/partenerii!',0+48,"Atentie")
|
||||
*!* this.but_cautare.SetFocus
|
||||
*!* plreturn=.F.
|
||||
CASE pnani > pnanf OR (pnani = pnanf AND pnlunai > pnlunaf)
|
||||
amessagebox("Data initiala este mai mare decat data finala!"+;
|
||||
CRLF+"Introduceti date corecte!",0+48,"Atentie")
|
||||
*!* ostop=CREATEOBJECT('stop')
|
||||
*!* ostop.image1.Picture = ADDBS(gcAppPath) + 'grafice\exclam.ico'
|
||||
*!* ostop.label2.caption = 'Data initiala este mai mare decat data finala.'
|
||||
*!* ostop.label2.FontName = 'Arial Narrow'
|
||||
*!* ostop.label3.caption = 'Introduceti date corecte.'
|
||||
*!* ostop.label3.FontName = 'Arial Narrow'
|
||||
*!* ostop.show(1)
|
||||
plreturn=.F.
|
||||
OTHERWISE
|
||||
plreturn=.T.
|
||||
ENDCASE
|
||||
|
||||
RETURN plReturn
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
IF !EMPTY(this.lccont)
|
||||
this.but_cautare_cont.Visible = .F.
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Check1.InteractiveChange
|
||||
IF this.Value = 1
|
||||
thisform.do_lansanalitic
|
||||
thisform.ncu_analitic = 1
|
||||
ELSE
|
||||
thisform.lcacont = []
|
||||
thisform.txt_analitic.Value = []
|
||||
thisform.ncu_analitic = 0
|
||||
ENDIF
|
||||
thisform.txt_analitic.SetFocus
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Check2.InteractiveChange
|
||||
IF this.Value = 1
|
||||
thisform.do_lansvaluta
|
||||
thisform.ncu_valuta = 1
|
||||
ELSE
|
||||
thisform.lnidvaluta = 0
|
||||
thisform.txt_valuta.Value = []
|
||||
thisform.ncu_valuta = 0
|
||||
ENDIF
|
||||
thisform.txt_valuta.SetFocus
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Check3.InteractiveChange
|
||||
IF this.Value = 1
|
||||
thisform.container1.Visible = .t.
|
||||
thisform.ncu_vechime = 1
|
||||
ELSE
|
||||
thisform.container1.Visible = .f.
|
||||
thisform.ncu_vechime = 0
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE ckContract.InteractiveChange
|
||||
IF this.Value = 1
|
||||
thisform.ncu_contract = 1
|
||||
ELSE
|
||||
thisform.ncu_contract = 0
|
||||
ENDIF
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE opt_perioada.InteractiveChange
|
||||
|
||||
WITH thisform
|
||||
*!* IF this.Value = 1
|
||||
*!* .Caut_anluna1.initializare_anluna
|
||||
*!* .Caut_anluna2.initializare_anluna
|
||||
*!* ENDIF
|
||||
*!* .Caut_anluna1.ENABLED = IIF(this.Value = 1,.f.,.t.)
|
||||
*!* .Caut_anluna2.ENABLED = IIF(this.Value = 1,.f.,.t.)
|
||||
plemise = IIF(this.Value = 2,.t.,.f.)
|
||||
.refresh
|
||||
ENDWITH
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user