romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a290a51276a7d67dfce3673f27aecdcb6fe397f7
comun/clase/orapoarte_comun.vc2

860 lines
23 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="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 View Git Blame Copy Permalink