7284 lines
203 KiB
Plaintext
7284 lines
203 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="obalanta.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_balanta 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="But_listare1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtprecdeb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtpreccred1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtcont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtcont2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ccont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ccont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cdenumire.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cdenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Header3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred.Header4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cruldeb.Header5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cruldeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.crulcred.Header6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.crulcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Header7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotcred.Header8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csoldcred.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csoldcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csolddeb.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csolddeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cacont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cacont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cSucursala.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cSucursala.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cCod.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cCod.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblsld1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lbldebit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lblcredit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cktotal4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ckanalitic" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cktotal2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cktotal1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cktotal3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cksold1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_cont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="cboSucursale" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_acont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ck_denumire" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_modiparam1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: adauga_linie
|
|
*m: afisactual
|
|
*m: butapend
|
|
*m: butdrept
|
|
*m: calculeaza
|
|
*m: calculeaza_orizontal
|
|
*m: calculeaza_vertical
|
|
*m: cfield_assign
|
|
*m: conditieistoricact
|
|
*m: do_situatii_cont
|
|
*m: fisacont
|
|
*m: in_bal
|
|
*m: meniu_as
|
|
*m: reconstruct
|
|
*m: rulcred
|
|
*m: ruldeb
|
|
*m: ruldebcred
|
|
*m: sterge_linie
|
|
*m: totcred
|
|
*m: totdeb
|
|
*m: totdebcred
|
|
*p: calias
|
|
*p: cbal
|
|
*p: ccont
|
|
*p: cfield
|
|
*p: cprocedurainainte
|
|
*p: lcentru
|
|
*p: nan1
|
|
*p: nan2
|
|
*p: nluna1
|
|
*p: nluna2
|
|
*p: nnewvalue
|
|
*p: noldvalue
|
|
*p: oafbalana
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .F.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
calias = TBALANTA
|
|
cbal =
|
|
cbuton4 = but_reface1
|
|
cfield =
|
|
cprocedurainainte = balanta
|
|
DoCreate = .T.
|
|
FontCharSet = 1
|
|
FontName = "Arial"
|
|
FontSize = 10
|
|
Height = 478
|
|
lactiv1 = .F.
|
|
lactiv2 = .F.
|
|
lactiv3 = .F.
|
|
lactiv4 = .F.
|
|
lcentru = .F.
|
|
Name = "frm_balanta"
|
|
nan1 = 2000
|
|
nan2 = 2000
|
|
nluna1 = 1
|
|
nluna2 = 1
|
|
nnewvalue = 0
|
|
noldvalue = 0
|
|
ScrollBars = 0
|
|
Width = 1024
|
|
WindowType = 1
|
|
_shape1.Anchor = 10
|
|
_shape1.BorderStyle = 0
|
|
_shape1.Height = 35
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 1056
|
|
_shape1.ZOrderSet = 1
|
|
_shape2.Comment = "*:OnResize=RT"
|
|
_shape2.Height = 36
|
|
_shape2.Left = 845
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = -1
|
|
_shape2.Width = 177
|
|
_shape2.ZOrderSet = 2
|
|
Lb_titlu_alb_b121.Caption = "Balanta de verificare"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.TabIndex = 18
|
|
Lb_titlu_alb_b121.ZOrderSet = 3
|
|
BUT_TERMIN1.Anchor = 9
|
|
BUT_TERMIN1.Comment = "*:OnResize=RT"
|
|
BUT_TERMIN1.Left = 992
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.TabIndex = 17
|
|
BUT_TERMIN1.Top = 4
|
|
BUT_TERMIN1.ZOrderSet = 5
|
|
Gridsort1.Left = 12
|
|
Gridsort1.Name = "Gridsort1"
|
|
Gridsort1.Top = 252
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_label1' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Rulaje", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 637, ;
|
|
Name = "_label1", ;
|
|
TabIndex = 40, ;
|
|
Top = 48, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_label2' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Total sume", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 765, ;
|
|
Name = "_label2", ;
|
|
TabIndex = 41, ;
|
|
Top = 48, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT '_label3' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Afisare", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .T., ;
|
|
Height = 18, ;
|
|
Left = 183, ;
|
|
Name = "_label3", ;
|
|
TabIndex = 32, ;
|
|
Top = 40, ;
|
|
Width = 46, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 963, ;
|
|
Name = "But_excel1", ;
|
|
TabIndex = 16, ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 933, ;
|
|
Name = "But_listare1", ;
|
|
TabIndex = 15, ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 876, ;
|
|
Name = "But_modifica1", ;
|
|
TabIndex = 13, ;
|
|
Top = 4, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_modiparam1' AS but_modiparam WITH ;
|
|
Anchor = 9, ;
|
|
caction = do_situatii_cont, ;
|
|
Left = 904, ;
|
|
Name = "But_modiparam1", ;
|
|
TabIndex = 14, ;
|
|
ToolTipText = "Situatii cont", ;
|
|
Top = 4
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_reface1' AS but_reface WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 846, ;
|
|
Name = "But_reface1", ;
|
|
TabIndex = 12, ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'cboSucursale' AS _combobox WITH ;
|
|
Alignment = 0, ;
|
|
FontSize = 10, ;
|
|
Height = 24, ;
|
|
Left = 10, ;
|
|
Name = "cboSucursale", ;
|
|
RowSource = "", ;
|
|
RowSourceType = 1, ;
|
|
TabIndex = 5, ;
|
|
ToolTipText = "", ;
|
|
Top = 132, ;
|
|
Visible = .F., ;
|
|
Width = 171
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Sintetice", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontSize = 10, ;
|
|
Height = 19, ;
|
|
Left = 308, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 0, ;
|
|
Style = 1, ;
|
|
TabIndex = 43, ;
|
|
Top = 47, ;
|
|
Visible = .T., ;
|
|
Width = 71
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_acont' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = acont, ;
|
|
Caption = "", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Left = 146, ;
|
|
Name = "Ck_acont", ;
|
|
TabIndex = 45, ;
|
|
ToolTipText = "Selectie analitic", ;
|
|
Top = 87
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_cont' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = cont, ;
|
|
Caption = "", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Left = 146, ;
|
|
Name = "Ck_cont", ;
|
|
TabIndex = 44, ;
|
|
ToolTipText = "Selectie cont", ;
|
|
Top = 60
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ck_denumire' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = denumire, ;
|
|
Caption = "Denumire", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontBold = .T., ;
|
|
FontCharSet = 1, ;
|
|
Left = 10, ;
|
|
Name = "Ck_denumire", ;
|
|
TabIndex = 4, ;
|
|
ToolTipText = "Selectie denumire", ;
|
|
Top = 110
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'ckanalitic' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Analitice", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "ckanalitic", ;
|
|
TabIndex = 7, ;
|
|
Top = 70, ;
|
|
Value = 0, ;
|
|
Width = 69, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'cksold1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Solduri la 1 ian.", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "cksold1", ;
|
|
TabIndex = 8, ;
|
|
Top = 84, ;
|
|
Value = 0, ;
|
|
Width = 109, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'cktotal1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total clase (gr.1)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "cktotal1", ;
|
|
TabIndex = 9, ;
|
|
Top = 98, ;
|
|
Value = 0, ;
|
|
Width = 116, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'cktotal2' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total grupe (gr.2)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "cktotal2", ;
|
|
TabIndex = 10, ;
|
|
Top = 112, ;
|
|
Value = 0, ;
|
|
Width = 117, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'cktotal3' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total conturi (gr.3)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "cktotal3", ;
|
|
TabIndex = 11, ;
|
|
Top = 126, ;
|
|
Value = 0, ;
|
|
Width = 124, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'cktotal4' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Conturi", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 184, ;
|
|
Name = "cktotal4", ;
|
|
TabIndex = 6, ;
|
|
Top = 56, ;
|
|
Value = 1, ;
|
|
Width = 60, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Ct1' AS ct WITH ;
|
|
Height = 25, ;
|
|
Left = 83, ;
|
|
Name = "Ct1", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 3, ;
|
|
Top = 84, ;
|
|
Width = 59, ;
|
|
ZOrderSet = 15, ;
|
|
Shape1.Name = "Shape1", ;
|
|
Text1.Height = 21, ;
|
|
Text1.Left = 1, ;
|
|
Text1.Name = "Text1", ;
|
|
Text1.Top = 1, ;
|
|
Text1.Width = 13, ;
|
|
Text2.Left = 14, ;
|
|
Text2.Name = "Text2", ;
|
|
Text2.Top = 1, ;
|
|
Text3.Left = 26, ;
|
|
Text3.Name = "Text3", ;
|
|
Text3.Top = 1, ;
|
|
Text4.Height = 21, ;
|
|
Text4.Left = 39, ;
|
|
Text4.Name = "Text4", ;
|
|
Text4.Top = 1, ;
|
|
Text4.Width = 14, ;
|
|
Line1.Left = 14, ;
|
|
Line1.Name = "Line1", ;
|
|
Line1.Top = -9, ;
|
|
Line2.Left = 26, ;
|
|
Line2.Name = "Line2", ;
|
|
Line2.Top = -9, ;
|
|
Line3.Left = 39, ;
|
|
Line3.Name = "Line3", ;
|
|
Line3.Top = -9
|
|
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 255,255,255, ;
|
|
ColumnCount = 15, ;
|
|
Comment = "*:OnResize=SS", ;
|
|
DeleteMark = .F., ;
|
|
FontSize = 10, ;
|
|
GridLineColor = 192,192,192, ;
|
|
Height = 311, ;
|
|
Left = 9, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "TBALANTA", ;
|
|
RowHeight = 20, ;
|
|
TabIndex = 19, ;
|
|
Top = 157, ;
|
|
Width = 1007, ;
|
|
ZOrderSet = 21, ;
|
|
Column1.Alignment = 0, ;
|
|
Column1.BackColor = 255,255,255, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "CONT", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Format = "", ;
|
|
Column1.InputMask = "", ;
|
|
Column1.Name = "ccont", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 29, ;
|
|
Column2.Alignment = 0, ;
|
|
Column2.BackColor = 255,255,255, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "DENUMIRE", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Name = "cdenumire", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 141, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 187,235,255, ;
|
|
Column3.ColumnOrder = 6, ;
|
|
Column3.ControlSource = "PRECDEB", ;
|
|
Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.FontSize = 10, ;
|
|
Column3.Format = "r", ;
|
|
Column3.InputMask = (get_mask(16,gnPA)), ;
|
|
Column3.Name = "cprecdeb", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 72, ;
|
|
Column4.Alignment = 1, ;
|
|
Column4.BackColor = 187,235,255, ;
|
|
Column4.ColumnOrder = 7, ;
|
|
Column4.ControlSource = "PRECCRED", ;
|
|
Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.FontSize = 10, ;
|
|
Column4.Format = "r", ;
|
|
Column4.InputMask = (get_mask(16,gnPA)), ;
|
|
Column4.Name = "cpreccred", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 72, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 236,249,255, ;
|
|
Column5.ColumnOrder = 8, ;
|
|
Column5.ControlSource = "RULDEB", ;
|
|
Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.Format = "R", ;
|
|
Column5.InputMask = (get_mask(16,gnPA)), ;
|
|
Column5.Name = "cruldeb", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 72, ;
|
|
Column6.Alignment = 1, ;
|
|
Column6.BackColor = 236,249,255, ;
|
|
Column6.ColumnOrder = 9, ;
|
|
Column6.ControlSource = "RULCRED", ;
|
|
Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.FontSize = 10, ;
|
|
Column6.Format = "R", ;
|
|
Column6.InputMask = (get_mask(16,gnPA)), ;
|
|
Column6.Name = "crulcred", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 73, ;
|
|
Column7.Alignment = 1, ;
|
|
Column7.BackColor = 187,235,255, ;
|
|
Column7.ColumnOrder = 10, ;
|
|
Column7.ControlSource = "TOTDEB", ;
|
|
Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.FontSize = 10, ;
|
|
Column7.Format = "r", ;
|
|
Column7.InputMask = (get_mask(16,gnPA)), ;
|
|
Column7.Name = "ctotdeb", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 83, ;
|
|
Column8.Alignment = 1, ;
|
|
Column8.BackColor = 187,235,255, ;
|
|
Column8.ColumnOrder = 11, ;
|
|
Column8.ControlSource = "TOTCRED", ;
|
|
Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.FontSize = 10, ;
|
|
Column8.Format = "r", ;
|
|
Column8.InputMask = (get_mask(16,gnPA)), ;
|
|
Column8.Name = "ctotcred", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 85, ;
|
|
Column9.Alignment = 1, ;
|
|
Column9.BackColor = 236,249,255, ;
|
|
Column9.ColumnOrder = 13, ;
|
|
Column9.ControlSource = "SOLDCRED", ;
|
|
Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.FontSize = 10, ;
|
|
Column9.Format = "r", ;
|
|
Column9.InputMask = (get_mask(16,gnPA)), ;
|
|
Column9.Name = "csoldcred", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 70, ;
|
|
Column10.Alignment = 1, ;
|
|
Column10.BackColor = 236,249,255, ;
|
|
Column10.ColumnOrder = 12, ;
|
|
Column10.ControlSource = "SOLDDEB", ;
|
|
Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.FontSize = 10, ;
|
|
Column10.Format = "r", ;
|
|
Column10.InputMask = (get_mask(16,gnPA)), ;
|
|
Column10.Name = "csolddeb", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column10.Width = 66, ;
|
|
Column11.BackColor = 255,255,255, ;
|
|
Column11.ColumnOrder = 2, ;
|
|
Column11.ControlSource = "ACONT", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.FontSize = 10, ;
|
|
Column11.Name = "cacont", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 40, ;
|
|
Column12.BackColor = 236,249,255, ;
|
|
Column12.ColumnOrder = 4, ;
|
|
Column12.ControlSource = "precdeb1", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.FontSize = 10, ;
|
|
Column12.Format = "RK", ;
|
|
Column12.InputMask = (get_mask(18,gnPA)), ;
|
|
Column12.Name = "cprecdeb1", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Visible = .T., ;
|
|
Column12.Width = 100, ;
|
|
Column13.BackColor = 236,249,255, ;
|
|
Column13.ColumnOrder = 5, ;
|
|
Column13.ControlSource = "preccred1", ;
|
|
Column13.FontName = "Arial", ;
|
|
Column13.FontSize = 10, ;
|
|
Column13.Format = "RK", ;
|
|
Column13.InputMask = (get_mask(18,gnPA)), ;
|
|
Column13.Name = "cpreccred1", ;
|
|
Column13.ReadOnly = .T., ;
|
|
Column13.Visible = .T., ;
|
|
Column13.Width = 108, ;
|
|
Column14.BackColor = 255,255,255, ;
|
|
Column14.ControlSource = "sucursala", ;
|
|
Column14.FontName = "Arial", ;
|
|
Column14.FontSize = 10, ;
|
|
Column14.Name = "cSucursala", ;
|
|
Column14.ReadOnly = .T., ;
|
|
Column14.Width = 164, ;
|
|
Column15.BackColor = 255,255,255, ;
|
|
Column15.ControlSource = "cod", ;
|
|
Column15.FontSize = 10, ;
|
|
Column15.Name = "cCod", ;
|
|
Column15.ReadOnly = .T., ;
|
|
Column15.Width = 86
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.cacont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cacont.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cCod.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cod", ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cCod.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ccont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ccont.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cdenumire.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cdenumire.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Credit 1 ian. ", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred1.Text1' AS textbox WITH ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Debit 1 ian.", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb1.Text1' AS textbox WITH ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.crulcred.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Rul.Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.crulcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cruldeb.Header5' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Rul.Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cruldeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.csoldcred.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.csoldcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.csolddeb.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.csolddeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cSucursala.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sucursala", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cSucursala.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ctotcred.Header8' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header8"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ctotcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ctotdeb.Header7' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ctotdeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
|
Left = 627, ;
|
|
Name = "Gridextra1", ;
|
|
Top = 269
|
|
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Label1' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Selectie cont", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .T., ;
|
|
FontCharSet = 1, ;
|
|
Height = 18, ;
|
|
Left = 8, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 31, ;
|
|
Top = 38, ;
|
|
Width = 85, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "De la", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
Height = 18, ;
|
|
Left = 9, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 34, ;
|
|
Top = 61, ;
|
|
Width = 32, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Analitic", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .T., ;
|
|
Height = 18, ;
|
|
Left = 9, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 35, ;
|
|
Top = 87, ;
|
|
Width = 50, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "la", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
Height = 18, ;
|
|
Left = 86, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 33, ;
|
|
Top = 61, ;
|
|
Width = 12, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Solduri", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 893, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 42, ;
|
|
Top = 48, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label8' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Total precedente", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 509, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 37, ;
|
|
Top = 48, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblcredit' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Credit", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Height = 17, ;
|
|
Left = 308, ;
|
|
Name = "lblcredit", ;
|
|
TabIndex = 38, ;
|
|
Top = 94, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lbldebit' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Debit", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Height = 17, ;
|
|
Left = 308, ;
|
|
Name = "lbldebit", ;
|
|
TabIndex = 39, ;
|
|
Top = 70, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lblsld1' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Solduri 1 Ian.", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 380, ;
|
|
Name = "lblsld1", ;
|
|
TabIndex = 36, ;
|
|
Top = 48, ;
|
|
Visible = .T., ;
|
|
Width = 123, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
|
|
Left = 264, ;
|
|
Name = "oMenuShortcut", ;
|
|
TabIndex = 22, ;
|
|
Top = 0, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: ClassLib="utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Text1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sprecdeb", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 509, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 23, ;
|
|
Top = 67, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.spreccred", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 509, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 25, ;
|
|
Top = 91, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text3' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.srulcred", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 637, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 27, ;
|
|
Top = 91, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text4' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sruldeb", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 637, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 29, ;
|
|
Top = 67, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text5' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.stotdeb", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 765, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 28, ;
|
|
Top = 67, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text6' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.stotcred", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 765, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 30, ;
|
|
Top = 91, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text7' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.ssolddeb", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 893, ;
|
|
Name = "Text7", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 20, ;
|
|
Top = 67, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text8' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.ssoldcred", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 893, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 26, ;
|
|
Top = 91, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtcont' AS _textbox WITH ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
Height = 25, ;
|
|
Left = 41, ;
|
|
Name = "txtcont", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 1, ;
|
|
Top = 58, ;
|
|
Width = 44, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtcont2' AS _textbox WITH ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
Format = "k", ;
|
|
Height = 25, ;
|
|
Left = 97, ;
|
|
Name = "txtcont2", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 2, ;
|
|
Top = 58, ;
|
|
Width = 44, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtpreccred1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.spreccred1", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,gnPA)), ;
|
|
Left = 380, ;
|
|
Name = "txtpreccred1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 24, ;
|
|
Top = 91, ;
|
|
Visible = .T., ;
|
|
Width = 127, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtprecdeb1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sprecdeb1", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,gnPA)), ;
|
|
Left = 380, ;
|
|
Name = "txtprecdeb1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 21, ;
|
|
Top = 67, ;
|
|
Visible = .T., ;
|
|
Width = 127, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
PROCEDURE adauga_linie
|
|
LOCAL lcIdSucursala, lnIdSucursala, lcSucursala
|
|
Private pcbal,pcCont,pcSCont,pcACont,pnButon
|
|
Store "" To pcbal,pcCont,pcSCont,pcACont
|
|
pnButon=1
|
|
pcbal=This.CALIas
|
|
|
|
STORE "" TO locauta
|
|
lnIdSucursala = NULL
|
|
lcSucursala = ''
|
|
IF glEMama
|
|
llToateIreg = .F.
|
|
llNou = .F.
|
|
llBlank = .T.
|
|
loCauta = caut_sucursala(llToateIreg, llNou, llBlank)
|
|
lnIdSucursala = loCauta.id_sucursala
|
|
lcSucursala = loCauta.sucursala
|
|
ELSE
|
|
lnIdSucursala = gnIdSucursala && pentru o sucursala este id-ul firmei, iar pe firma independenta este null
|
|
ENDIF
|
|
lcIdSucursala = IIF(NVL(lnIdSucursala,0) = 0, 'NULL', ALLTRIM(STR(lnIdSucursala)))
|
|
|
|
pcCont=SELECT_CONT()
|
|
If pnButon=2
|
|
Return
|
|
Endif
|
|
If Empty(pcCont)
|
|
Return
|
|
Endif
|
|
|
|
pcSCont=Left(pcCont,4)
|
|
lnPos=At(".",pcCont)
|
|
If lnPos>0
|
|
pcACont=Padr(Substr(pcCont,lnPos+1),4," ")
|
|
Endif
|
|
|
|
|
|
|
|
pcexec=[begin PACK_INREGISTRARI.balinsproc(]+lcIdSucursala+[,]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+;
|
|
[,']+Alltrim(pcSCont)+[',']+Alltrim(pcACont)+['); end;]
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
If !Empty(pcACont)
|
|
Thisform.ckanalitic.Value=1
|
|
Endif
|
|
|
|
Thisform.MousePointer=11
|
|
Thisform.LockScreen=.T.
|
|
Thisform.reconstruct
|
|
Thisform.afisactual
|
|
Select (pcbal)
|
|
Locate For Cont=pcSCont And acont=pcACont AND NVL(id_sucursala,0) = NVL(lnIdSucursala,0)
|
|
Thisform.LockScreen=.F.
|
|
Thisform.MousePointer= 0
|
|
Thisform.grid1.SetFocus
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE afisactual
|
|
#Define CRLF Chr(13) + Chr(10)
|
|
|
|
|
|
Private lcbal,lcacont && ,lccont1,lccont2 - le-am pus inainte de do form
|
|
lcbal=Thisform.calias
|
|
|
|
Local T1
|
|
T1=""
|
|
T='.t.'
|
|
|
|
lccont1=Alltrim(This.txtcont.Value)
|
|
lccont2=Alltrim(This.txtcont2.Value)
|
|
|
|
If Empty(lccont2)
|
|
lccont2 = lccont1
|
|
Endif
|
|
|
|
*lcacont=ALLTRIM(this.txtacont.value)
|
|
lcacont1=Alltrim(This.ct1.text1.Value)
|
|
lcacont2=Alltrim(This.ct1.text2.Value)
|
|
lcacont3=Alltrim(This.ct1.text3.Value)
|
|
lcacont4=Alltrim(This.ct1.text4.Value)
|
|
|
|
Do Case
|
|
Case Len(lccont1)=1
|
|
*T=[G1="]+LCCONT+["]
|
|
T = T + [ and VAL(LEFT(G1,1))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=2
|
|
*T=[G2="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=3
|
|
*T=[G3="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=4
|
|
*T=[G4="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))>=VAL(lcCont1)]
|
|
Endcase
|
|
|
|
Do Case
|
|
Case Len(lccont2)=1
|
|
*T=[G1="]+LCCONT+["]
|
|
T = T + [ and VAL(LEFT(G1,1))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=2
|
|
*T=[G2="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=3
|
|
*T=[G3="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=4
|
|
*T=[G4="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))<=VAL(lcCont2)]
|
|
Endcase
|
|
|
|
|
|
&& SOLDURI LA 1 IANUARIE
|
|
If This.cksold1.Value=0
|
|
With Thisform.grid1
|
|
.cprecdeb1.Visible=.F.
|
|
.cpreccred1.Visible=.F.
|
|
Endwith
|
|
With Thisform
|
|
.lblsld1.Visible=.F.
|
|
.txtprecdeb1.Visible=.F.
|
|
.txtpreccred1.Visible=.F.
|
|
.lbldebit.Left=.text1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.text2.Left-.lblcredit.Width
|
|
.check1.Left=.label8.Left-.lbldebit.Width
|
|
Endwith
|
|
Else
|
|
|
|
With Thisform.grid1
|
|
.cprecdeb1.Visible=.T.
|
|
.cpreccred1.Visible=.T.
|
|
Endwith
|
|
With Thisform
|
|
.lblsld1.Visible=.T.
|
|
.txtprecdeb1.Visible=.T.
|
|
.txtpreccred1.Visible=.T.
|
|
.lbldebit.Left=.txtprecdeb1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.txtpreccred1.Left-.lblcredit.Width
|
|
.check1.Left=.lblsld1.Left-.lbldebit.Width
|
|
Endwith
|
|
Endif
|
|
&& SOLDURI LA 1 IANUARIE ^
|
|
|
|
|
|
*/-----------------------------------------------------
|
|
&&& conditia de filtrare pt balanta sintetica
|
|
llTotal1=Iif(This.cktotal1.Value=1,.T.,.F.)
|
|
llTotal2=Iif(This.cktotal2.Value=1,.T.,.F.)
|
|
llTotal3=Iif(This.cktotal3.Value=1,.T.,.F.)
|
|
llTotal4=Iif(This.cktotal4.Value=1,.T.,.F.)
|
|
llAnalitic=Iif(This.ckanalitic.Value=1,.T.,.F.)
|
|
|
|
|
|
If glEMama
|
|
lnIdSucursala = crsSucursale.ID_SUCURSALA
|
|
llBalantaCentralizata = lnIdSucursala = -1 && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = lnIdSucursala = -2 && BALANTA DEFALCATA
|
|
llBalantaGrup = lnIdSucursala = -3 && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Else
|
|
lnIdSucursala = Null
|
|
llBalantaCentralizata = .F. && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = .F.
|
|
llBalantaGrup = .F. && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Endif
|
|
|
|
*!* PE MAMA TOTALURILE SUNT CALCULATE DOAR PE CONTURILE CENTRALIZATE
|
|
*!* DEZACTIVEZ BIFELE DE TOTALURI DACA NU ALEG BALANTA CENTRALIZATA
|
|
If glEMama
|
|
With This
|
|
.cktotal1.Enabled = llBalantaCentralizata
|
|
.cktotal2.Enabled = llBalantaCentralizata
|
|
.cktotal3.Enabled = llBalantaCentralizata
|
|
Endwith
|
|
Endif
|
|
|
|
|
|
lclista=[]
|
|
*!* ARAT TOTALURILE PE CLASE/GRUPE DOAR DACA SUNT PE BALANTA CENTRALIZATA SAU PE SUCURSALA/FIRMA INDEPENDENTA
|
|
If llBalantaCentralizata Or !glEMama
|
|
If llTotal1
|
|
lclista=lclista+[,1]
|
|
Endif
|
|
If llTotal2
|
|
lclista=lclista+[,2]
|
|
Endif
|
|
If llTotal3
|
|
lclista=lclista+[,3]
|
|
Endif
|
|
Endif
|
|
If glEMama
|
|
If llTotal4
|
|
If llBalantaCentralizata
|
|
lclista=lclista + [,6] && conturi sintetice din balanta centralizata
|
|
Else
|
|
lclista=lclista + [,4] && conturi sintetice din balanta normala
|
|
Endif
|
|
Endif
|
|
If llAnalitic
|
|
If llBalantaCentralizata
|
|
lclista=lclista + [,7] && conturi analitice din balanta centralizata
|
|
Else
|
|
lclista=lclista + [,5] && conturi analitice din balanta normala
|
|
Endif
|
|
Endif
|
|
|
|
Else
|
|
If llTotal4
|
|
lclista=lclista+[,4]
|
|
Endif
|
|
If llAnalitic
|
|
lclista=lclista+[,5]
|
|
Endif
|
|
Endif
|
|
|
|
|
|
|
|
If !Empty(lclista)
|
|
If Left(lclista,1)=","
|
|
lclista=Substr(lclista,2)
|
|
Endif
|
|
T = T + [ AND INLIST(BNIVEL,]+lclista+[)]
|
|
Else
|
|
T = T + [ AND .F.]
|
|
Endif
|
|
|
|
lccond2=[]
|
|
|
|
If !Empty(lcacont1)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,1,1)="]+lcacont1+["]
|
|
Endif
|
|
If !Empty(lcacont2)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,2,1)="]+lcacont2+["]
|
|
Endif
|
|
If !Empty(lcacont3)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,3,1)="]+lcacont3+["]
|
|
Endif
|
|
If !Empty(lcacont4)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,4,1)="]+lcacont4+["]
|
|
Endif
|
|
|
|
T= T + lccond2
|
|
If Thisform.ck_cont.Value = 1
|
|
T = T + Thisform.ck_cont.filtru_vfp
|
|
Endif
|
|
If Thisform.ck_acont.Value = 1
|
|
T = T + Thisform.ck_acont.filtru_vfp
|
|
Endif
|
|
If Thisform.ck_denumire.Value = 1
|
|
T = T + Thisform.ck_denumire.filtru_vfp
|
|
Endif
|
|
|
|
|
|
*!* 12.02.2008
|
|
*!* ARAT CONTURILE DE PE O SUCURSALA SAU DOAR CONTURILE DE PE MAMA
|
|
lcSucursale = ""
|
|
If glEMama
|
|
Do Case
|
|
Case llBalantaGrup
|
|
lcSucursale = " and Nvl(id_sucursala,0) = 0"
|
|
Case Nvl(lnIdSucursala,0) > 0
|
|
lcSucursale = " and id_sucursala = " + Alltrim(Str(lnIdSucursala))
|
|
Endcase
|
|
Endif
|
|
T = T + lcSucursale
|
|
*!* 12.02.2008 ^
|
|
*!*Messagebox(T + CRLF + CRLF + GETCALLSTACK())
|
|
T=[SET FILT TO ]+T
|
|
Select (lcbal)
|
|
*!* Copy To C:\BAL.Dbf
|
|
&T
|
|
|
|
Local lcFor
|
|
lcFor = [INLIST(bnivel, 4, 6)] && TOTALURI PE CONTURI SINTETICE - 4 = SUCURSALA/FIRMA INDEPENDENTA; 6 = MAMA
|
|
If This.check1.Value = 1 && TOTALURI PE CONTURI ANALITICE - 5 = SUCURSALA/FIRMA INDEPENDENTA; 7 = MAMA
|
|
lcFor = [INLIST(bnivel, 5, 7)]
|
|
Endif
|
|
*!* SELECT * FROM (lcbal) INTO TABLE c:\lcbal.dbf
|
|
Select (lcbal)
|
|
Sum PRECDEB1,PRECCRED1, iif(precdeb>=preccred, abs(precdeb-preccred), 0.00), iif(precdeb<preccred, abs(precdeb-preccred),0.00),;
|
|
precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred For &lcFor ;
|
|
to m.sprecdeb1,m.spreccred1,m.ssoldideb, m.ssoldicred, m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
|
|
|
|
With Thisform
|
|
.text1.Refresh
|
|
.text2.Refresh
|
|
.text3.Refresh
|
|
.text4.Refresh
|
|
.text5.Refresh
|
|
.text6.Refresh
|
|
.text7.Refresh
|
|
.text8.Refresh
|
|
.txtpreccred1.Refresh
|
|
.txtprecdeb1.Refresh
|
|
Endwith
|
|
|
|
Select (lcbal)
|
|
Go Top
|
|
This.grid1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE butapend
|
|
*!* LOCAL lbMenu[4]
|
|
*!* PRIVATE lcbal
|
|
*!* lcbal=THISFORM.calias
|
|
|
|
|
|
*!* lbMenu=""
|
|
*!* lbMenu[1]="\<Deblocare"
|
|
*!* IF THISFORM.grid1.READONLY
|
|
*!* lbMenu[2]="\Adaug Blanc"
|
|
*!* ELSE
|
|
*!* lbMenu[2]="\<Adaug Blanc"
|
|
*!* ENDIF
|
|
*!* lbMenu[3]="\-"
|
|
*!* lbMenu[4]="\<Revenire"
|
|
|
|
|
|
*!* THISFORM.oMenuShortcut.ShowMenu(@lbMenu)
|
|
|
|
*!* DO CASE
|
|
*!* CASE BAR()=1
|
|
|
|
*!* SELECT (lcbal)
|
|
*!* SET FILTER TO !DELETED()
|
|
*!* THISFORM.grid1.READONLY=.F.
|
|
*!* THISFORM.grid1.DELETEMARK=.T.
|
|
|
|
*!* CASE BAR()=2
|
|
*!* this.adauga_linie()
|
|
*!* CASE BAR()=4
|
|
*!* *SELE BAL
|
|
*!* SELECT (lcbal)
|
|
*!* SET FILTER TO !DELETED()
|
|
*!* THISFORM.grid1.READONLY=.T.
|
|
*!* THISFORM.grid1.DELETEMARK=.F.
|
|
*!* ENDCASE
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE butdrept
|
|
*return
|
|
Private lcsel,lccont
|
|
lcsel=This.CALIAS
|
|
|
|
Local laMenu[9]
|
|
Select (lcsel)
|
|
lccont = ALLTRIM(Cont)
|
|
|
|
laMenu=""
|
|
|
|
laMenu[1]="\<Fisa cont "+Alltrim(lccont)
|
|
laMenu[2]="\-"
|
|
laMenu[3]="\<Rulaj Debit"
|
|
laMenu[4]="R\<ulaj Credit"
|
|
laMenu[5]="Ru\<laje Deb&Cred"
|
|
laMenu[6]="\-"
|
|
laMenu[7]="\<Total Debit"
|
|
laMenu[8]="T\<otal Credit"
|
|
laMenu[9]="Tot\<al Deb&Cred"
|
|
|
|
Thisform.oMenuShortcut.ShowMenu(@laMenu)
|
|
|
|
Do Case
|
|
Case Bar()=1
|
|
Thisform.fisacont
|
|
Case Bar()=3
|
|
Thisform.ruldeb
|
|
Case Bar()=4
|
|
Thisform.rulcred
|
|
Case Bar()=5
|
|
Thisform.ruldebcred
|
|
Case Bar()=7
|
|
Thisform.totdeb
|
|
Case Bar()=8
|
|
Thisform.totcred
|
|
Case Bar()=9
|
|
Thisform.totdebcred
|
|
Endcase
|
|
|
|
*laMenu[1]="\<Copiaza"
|
|
*laMenu[2]="Re\<da"
|
|
*laMenu[3]="\-"
|
|
*CASE BAR()=1
|
|
* SYS(1500,'_MED_copy','_MEDIT')
|
|
*CASE BAR()=2
|
|
* SYS(1500,'_MED_paste','_MEDIT')
|
|
|
|
Thisform.txtcont.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza
|
|
*!* nu calculez daca gridul este readonly
|
|
IF THIS.GRId1.ReadOnly
|
|
RETURN
|
|
ENDIF
|
|
LOCAL lnIdSucursala
|
|
Private pcSufix,pcAlias,pnOldValue,pcVar,pnValoare,pnRec,pcOldAlias,pcFiltru,pcAcont
|
|
pcSufix=Thisform.cField
|
|
pcAlias=Thisform.cAlias
|
|
pnOldValue=Thisform.noldvalue
|
|
|
|
Select (pcAlias)
|
|
pcVar=pcAlias+[.]+pcSufix
|
|
pnValoare=Evaluate(pcVar)
|
|
pcAcont=Upper(Alltrim(acont))
|
|
lnIdSucursala = id_sucursala
|
|
|
|
This.nnewvalue=pnValoare
|
|
lnNewValue=This.nnewvalue
|
|
pcFiltru=Filter()
|
|
pnRec=Recno()
|
|
pcField=This.cField
|
|
|
|
If lnNewValue!=pnOldValue
|
|
If Empty(This.ccont) && o linie cu totaluri
|
|
Wait Window "Nu puteti modifica totalul." Timeout 1
|
|
Select (pcAlias)
|
|
Replace &pcVar With pnOldValue
|
|
This.nnewvalue=pnOldValue
|
|
Return
|
|
Endif
|
|
lcDbf=Dbf(pcAlias)
|
|
Use (lcDbf) In 0 Again Shared Alias TBALANTAR
|
|
Select TBALANTAR
|
|
Goto pnRec
|
|
pcOldAlias=This.cAlias
|
|
This.cAlias="TBALANTAR"
|
|
* If Inlist(lcField,"PRECDEB","PRECCRED","RULDEB","RULCRED") && NU CALCULEZ DECAT PT PRECEDENTE SI RULAJE
|
|
Thisform.calculeaza_orizontal() && calculez pentru linia curenta
|
|
* Endif
|
|
If Empty(pcAcont) && cont2003 oracle
|
|
Thisform.calculeaza_vertical() && calculez pentru linia cu totaluri
|
|
Endif
|
|
Use In TBALANTAR
|
|
This.cAlias=pcOldAlias
|
|
Select (pcOldAlias)
|
|
This.in_bal(lnIdSucursala, This.ccont,pcAcont,.T.) && introduc in bal noua valoare si recalculez
|
|
*!* Select (lcAlias)
|
|
*!* Set Filter To &lcFilter
|
|
Endif
|
|
This.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza_orizontal
|
|
PARAMETERS tcAlias
|
|
PRIVATE lcAlias
|
|
|
|
IF EMPTY(tcAlias)
|
|
lcAlias=thisform.calias
|
|
ELSE
|
|
lcAlias=ALLTRIM(tcalias)
|
|
ENDIF
|
|
*WAIT WINDOW 'calculeaza orizontal '+lcalias
|
|
*!* SELECT (lcAlias)
|
|
*!* lcCont=CONT
|
|
*!* lcG1=G1
|
|
*!* lcG2=G2
|
|
*!* lcG3=G3
|
|
*!* lcG4=G4
|
|
*!* lcCond=[left(cont,]+ALLTRIM(STR(LEN(lccont)))+[)=]+lccont+[ AND G1=]+lcG1+[ AND G2=]+lcG2+[ AND G3=]+lcG3+[ AND G4=]+lcG4
|
|
*!* WAIT WINDOW lcCond
|
|
|
|
SELECT (lcAlias)
|
|
IF FLOCK()
|
|
REPLACE totdeb WITH precdeb+ruldeb,totcred WITH preccred+rulcred
|
|
REPLACE solddeb WITH IIF(totdeb-totcred>=0,ABS(totdeb-totcred),0),soldcred WITH IIF(totdeb-totcred<0,ABS(totdeb-totcred),0)
|
|
UNLOCK
|
|
* brow
|
|
ENDIF
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza_vertical
|
|
Private lccont,lcAlias,lnRec,lnDifValue,lcField,lnValoare,laarray
|
|
|
|
lcAlias=This.calias
|
|
Select (lcAlias)
|
|
lnRec=Recno()
|
|
lccont=Alltrim(This.ccont)
|
|
*WAIT WINDOW 'lccont= '+lccont
|
|
lcField=This.cfield
|
|
lnDifValue=This.nnewvalue- This.noldvalue
|
|
*WAIT WINDOW 'lndifvalue = '+STR(lndifValue)
|
|
*WAIT WINDOW 'calculeaza vertical '+lcalias
|
|
|
|
lnlung=4
|
|
Dimension laarray[lnlung]
|
|
Store Space(4) To laarray
|
|
For i=1 To lnlung-1
|
|
* WAIT WINDOW 'i= '+STR(i)
|
|
laarray[i] = Substr(lccont,1,i)
|
|
* WAIT WINDOW laArray[i]
|
|
lcVar="G"+Alltrim(Str(i))
|
|
lcVar1="G"+Alltrim(Str(i+1))
|
|
LCCOND=[LOCATE FOR LEFT(]+lcVar+[,]+Alltrim(Str(i))+[)="]+Left(laarray[I],i)+[" AND EMPTY(]+lcVar1+[)]
|
|
* WAIT WINDOW lccond
|
|
Select (lcAlias)
|
|
&LCCOND
|
|
If Found()
|
|
If Flock()
|
|
lnValoare=Evaluate(lcField)+lnDifValue
|
|
Replace &lcField With lnValoare
|
|
This.calculeaza_orizontal(lcAlias) && calculez pentru liniile cu totaluri
|
|
Unlock
|
|
Endif
|
|
Endif
|
|
Endfor
|
|
|
|
Select (lcAlias)
|
|
Goto lnRec
|
|
ENDPROC
|
|
|
|
PROCEDURE cfield_assign
|
|
LPARAMETERS vNewVal
|
|
*To do: Modify this routine for the Assign method
|
|
THIS.cfield = m.vNewVal
|
|
|
|
PRIVATE lcAlias,lcSufix,lcVar
|
|
lcAlias=thisform.calias
|
|
lcSufix=this.cField
|
|
lcVar=lcAlias+[.]+lcSufix
|
|
lcCont=lcAlias+[.cont]
|
|
THISFORM.nOldValue=EVALUATE(lcVar)
|
|
thisform.ccont=EVALUATE(lcCont)
|
|
*WAIT WINDOW 'ccont '+thisform.ccont
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE conditieistoricact
|
|
Local lcConditie
|
|
lcConditie = ""
|
|
|
|
If glEMama
|
|
lnIdSucursala = crsSucursale.ID_SUCURSALA
|
|
llBalantaCentralizata = lnIdSucursala = -1 && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = lnIdSucursala = -2 && BALANTA DEFALCATA
|
|
llBalantaGrup = lnIdSucursala = -3 && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Do Case
|
|
Case !Empty(Nvl(tbalanta.ID_SUCURSALA,0))
|
|
lcConditie = " and id_sucursala = " + Alltrim(Str(tbalanta.ID_SUCURSALA))
|
|
Case llBalantaDefalcata
|
|
If Empty(Nvl(tbalanta.ID_SUCURSALA,0))
|
|
lcConditie = " and id_sucursala is null"
|
|
Else
|
|
lcConditie = " and id_sucursala = " + Alltrim(Str(tbalanta.ID_SUCURSALA))
|
|
Endif
|
|
Case llBalantaGrup
|
|
lcConditie = " and id_sucursala is null"
|
|
Endcase
|
|
Else
|
|
lcConditie = gcCondSucursala
|
|
Endif
|
|
Return lcConditie
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
USE IN (SELECT('crsSucursale'))
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
If gcNumeProgram = [ROAMANAGER]
|
|
x= xmenu("\<Standard;\<Formatat")
|
|
Else
|
|
x= 1
|
|
Endif
|
|
|
|
Do Case
|
|
Case x=1
|
|
Local i,xlsheet,XLApp,tmpsheet, lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
|
|
lcAlias = This.grid1.RecordSource
|
|
lcFiltru = Filter(lcAlias)
|
|
If Empty(lcFiltru)
|
|
lcFiltru = '.T.'
|
|
Endif
|
|
|
|
exista_excel=.T.
|
|
lcColumnList = ''
|
|
lcHeaderList = ''
|
|
lcSelect = ''
|
|
llSelect = .T.
|
|
lcType = 'CURSOR'
|
|
lcFrom = lcAlias
|
|
lcWhere = lcFiltru
|
|
lcOrder = 'g5,sucursala'
|
|
lcOutput = 'crsBal'
|
|
|
|
get_schema_grid(This.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
|
|
&lcSelect
|
|
*!* MESSAGEBOX(p3)
|
|
If Used(lcOutput)
|
|
Do export_xls With lcOutput In oproceduri_comune.prg
|
|
Use In (lcOutput)
|
|
Endif
|
|
Case x=2
|
|
lcTabel = Thisform.grid1.RecordSource
|
|
|
|
Select (lcTabel)
|
|
lcFiltru = Filter(lcTabel)
|
|
If Empty(lcFiltru)
|
|
lcFiltru = '.T.'
|
|
Endif
|
|
lcFiltru = Filter()
|
|
lcFiltru = Strtran(lcFiltru,'.AND.',' AND ')
|
|
lcFiltru = Substr(lcFiltru,9,Len(lcFiltru)-8)
|
|
|
|
|
|
Select g1, g2, g3, g4, Cont, acont, denumire, precdeb, preccred, ruldeb, rulcred, totdeb, totcred, solddeb, soldcred, ;
|
|
SPACE(9) As cont_acont, sucursala ;
|
|
FROM (lcTabel) ;
|
|
WHERE &lcFiltru Order By g5, sucursala ;
|
|
INTO Cursor cExcel Readwrite
|
|
|
|
Select cExcel
|
|
Replace All cont_acont With Alltrim(Cont)+ Iif(!Empty(acont),"_"+Alltrim(acont),"")
|
|
|
|
Do lanseaza_excel_balanta With "cExcel" In viz_bal.prg
|
|
|
|
If Used("cExcel")
|
|
Use In cExcel
|
|
Endif
|
|
Endcase
|
|
Return
|
|
|
|
*!* On Error Do exportare With Thisform.grid1.RecordSource,p1,p2
|
|
*!* tmpsheet = Getobject('','excel.sheet')
|
|
*!* On Error
|
|
|
|
*!* If exista_excel
|
|
*!* Wait Window "Se transmit datele catre Excel..." Nowait
|
|
|
|
*!* XLApp = tmpsheet.Application
|
|
|
|
*!* XLApp.workbooks.Close()
|
|
*!* XLApp.workbooks.Add()
|
|
*!* poExcel = XLApp.ActiveSheet
|
|
*!* Go Top
|
|
*!* poExcel.Cells(1,1).Font.Size=16
|
|
*!* poExcel.Cells(1,1).Font.Bold=.T.
|
|
*!* poExcel.Cells(1,1)=Thisform.titluFRUMOS1.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
|
|
*!* nRows = 3
|
|
*!* With Thisform.grid1
|
|
*!* For nCol = 1 To .ColumnCount
|
|
*!* nColumn = .Columns(nCol).ColumnOrder
|
|
*!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
|
|
*!* For lnobjcol=1 To .Columns(nCol).Objects.Count
|
|
*!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER'
|
|
*!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption
|
|
*!* Exit
|
|
*!* Endif
|
|
*!* Endfor
|
|
*!* poExcel.Cells(nRows,nColumn).Font.Bold = .T.
|
|
*!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
|
|
*!* Endfor
|
|
*!* Scan
|
|
*!* nRows = nRows + 1
|
|
*!* For nCol = 1 To .ColumnCount
|
|
*!* nColumn = .Columns(nCol).ColumnOrder
|
|
*!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
|
|
*!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
|
|
*!* Else
|
|
*!* poExcel.Cells(nRows,nColumn) = IIF(empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource))
|
|
*!* Endif
|
|
*!* Endfor
|
|
*!* Endscan
|
|
*!* Endwith
|
|
|
|
*!* XLApp.Visible = .T.
|
|
*!* Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
*!* 24.01.2011
|
|
*!* marius.mutu
|
|
*!* balanta cumulata
|
|
|
|
*!* 04.08.2011
|
|
*!* marius.mutu
|
|
*!* listare foxypreview
|
|
|
|
Private pcPerioadaRef &&, pcDataOra
|
|
Local lnOptiuneRaport, Tlist
|
|
|
|
|
|
|
|
lnOptiuneRaport = xmenu('4 egalitati (Total sume precedente/Rulaje curente) ;' + ;
|
|
'4 egalitati (Solduri initiale/Rulaje curente);' + ;
|
|
'4 egalitati (Solduri 1 ianuarie/Total rulaje);' + ;
|
|
'\-;' + ;
|
|
'5 egalitati (A3);' + ;
|
|
'6 egalitati (A3)')
|
|
|
|
If Empty(m.lnOptiuneRaport)
|
|
Return
|
|
Endif
|
|
|
|
*!* pcDataOra = ''
|
|
*!* pcDataOra = get_ora(2)
|
|
*!* 24.01.2011
|
|
If !Empty(This.nAn2)
|
|
pcPerioadaRef = 'Perioada ' + Padl(Alltrim(Str(This.nLuna1)),2,'0') + "/" + Alltrim(Str(This.nAn1)) + " - " + Padl(Alltrim(Str(This.nLuna2)),2,'0') + "/" + Alltrim(Str(This.nAn2))
|
|
Else
|
|
pcPerioadaRef = 'Luna ' + Padl(Alltrim(Str(gnLuna)),2,'0') + "/" + Alltrim(Str(gnAn))
|
|
Endif
|
|
*!* 24.01.2011 ^
|
|
|
|
LNG1=Thisform.cktotal1.Value
|
|
LNG2=Thisform.cktotal3.Value
|
|
LNG3=Thisform.cktotal3.Value
|
|
LNG4=Thisform.cktotal4.Value
|
|
LNG5=Thisform.ckanalitic.Value
|
|
|
|
*!* DACA SUNT PE FIRMA MAMA SI SE LISTEAZA CONTURILE DEFALCATE SAU DOAR DE PE O SUCURSALA
|
|
*!* AFISEZ "TOATE SUCURSALELE" / "SUCURSALA X"
|
|
lcSucursala = ''
|
|
If glEMama
|
|
Do Case
|
|
Case crsSucursale.id_sucursala = -2 && BALANTA CENTRALIZATA
|
|
lcSucursala = ' * TOATE SUCURSALELE * '
|
|
Case crsSucursale.id_sucursala > 0
|
|
lcSucursala = ' * ' + Strtran(Upper(Alltrim(crsSucursale.sucursala)),'BALANTA') + ' * '
|
|
Endcase
|
|
Endif
|
|
LCBAL=Thisform.CALIas
|
|
Select (LCBAL)
|
|
|
|
LCPARTIALA=Iif(!Empty(Thisform.TXTcont.Value)," PARTIALA "," ")
|
|
LCPARTIALA = lcSucursala + LCPARTIALA
|
|
|
|
Do Case
|
|
Case LNG5=1
|
|
m.titlu='- ANALITICA'+LCPARTIALA+'-'
|
|
Select (LCBAL)
|
|
&T
|
|
Replace All bifa With .F.
|
|
|
|
Select Distinct Cont,bnivel,bifa From &LCBAL ;
|
|
WHERE bnivel= 5 ;
|
|
INTO Cursor listbal Readwrite
|
|
|
|
If _Tally # 0
|
|
Do Form frm_list_balana
|
|
|
|
Select listbal
|
|
Scan For bifa
|
|
Scatter Name olist
|
|
Select (LCBAL)
|
|
Replace All bifa With .T. For Cont=olist.Cont And Inlist(bnivel, 5, 7) && total analitice pe firma sucursala/mama
|
|
Select listbal
|
|
Endscan
|
|
Release olist
|
|
|
|
Select (LCBAL)
|
|
Tlist = T + ' and !bifa '
|
|
&Tlist
|
|
Endif
|
|
Use In listbal
|
|
Select (LCBAL)
|
|
|
|
Case LNG4=1 And LNG5=0
|
|
m.titlu='- SINTETICA'+LCPARTIALA+'-'
|
|
Otherwise
|
|
If Empty(LCPARTIALA)
|
|
m.titlu=""
|
|
Else
|
|
m.titlu='-'+LCPARTIALA+'-'
|
|
Endif
|
|
Endcase
|
|
|
|
lcRaport = ""
|
|
Do Case
|
|
Case m.lnOptiuneRaport = 1
|
|
lcRaport="rapbal_a4_4_14_6_30" && A4 4 EGALITATI (TSP, RLC ,TS, SF)
|
|
|
|
Case m.lnOptiuneRaport = 2
|
|
lcRaport="rapbal_a4_4_14_6_30_a" && A4 4 EGALITATI (SI, RLC, TS, SF)
|
|
|
|
Case m.lnOptiuneRaport = 3
|
|
lcRaport="rapbal_a4_4_14_6_30_a1" && A4 4 EGALITATI (SI, TR, TS, SF)
|
|
|
|
Case m.lnOptiuneRaport = 5
|
|
lcRaport="rapbal_a3_5_14_6_30_a" && A3 5 EGALITATI (SI, TSP, RLC, TS, SF)
|
|
|
|
Case m.lnOptiuneRaport = 6
|
|
lcRaport="rapbal_a3_6_14_6_30_b" && A3 6 EGALITATI (SI, TSP, RLC, TR, TS, SF)
|
|
Endcase
|
|
|
|
This.AlwaysOnTop = .F.
|
|
*!* 04.08.2011
|
|
*!* goExport.export2frx(lcbal,lcRaport)
|
|
goExport.export2frx(LCBAL,lcRaport, , , , , , .T.)
|
|
*!* 04.08.2011 ^
|
|
This.AlwaysOnTop = .T.
|
|
*!* If Reccount(LCBAL)>0
|
|
*!* This.AlwaysOnTop = .F.
|
|
*!* Report Format (lcRaport) To Printer Prompt Preview
|
|
*!* This.AlwaysOnTop = .T.
|
|
*!* Else
|
|
*!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
|
|
*!* Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_reface
|
|
x= xmenu('Refacere \<lunara;Refacere cu \<precedente')
|
|
lcSursa = [BALANTA]
|
|
lnLuna = gnLuna
|
|
lnAn = gnAn
|
|
lcCont = []
|
|
|
|
Do Case
|
|
Case x = 1
|
|
lcLunar = [0]
|
|
*lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,0); end;]
|
|
Case x = 2
|
|
lcLunar = [1]
|
|
*lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,1); end;]
|
|
Otherwise
|
|
Return
|
|
Endcase
|
|
|
|
*!* lnSucces = goExecutor.oExecute(lcExec)
|
|
*!* If lnSucces < 0
|
|
*!* Messagebox(goExecutor.cEroare,0+16,'Eroare')
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
lnSucces = refacere(lcSursa,lcLunar,lcCont,lnLuna,lnAn) && IN orefaceri.prg
|
|
IF lnSucces > 0
|
|
aMessagebox('Refacerea s-a terminat!',0+64,"Info refacere")
|
|
Thisform.reconstruct
|
|
Thisform.afisactual
|
|
Do inainte With this.cProceduraInainte In oinainte_de.prg
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE do_situatii_cont
|
|
Local lnOptiune
|
|
Local lcBal, lcCont
|
|
lcBal = Thisform.calias
|
|
Select (m.lcBal)
|
|
lcCont = Alltrim(Nvl(Cont, ''))
|
|
If Empty(m.lcCont)
|
|
AMESSAGEBOX('Alegeti un cont din balanta!', 0 + 48, _Screen.Caption)
|
|
Return
|
|
Endif
|
|
|
|
lnOptiune = xmenu('Fisa cont;\-;Rulaj debit;Rulaj Credit;Rulaje Debit&Credit;\-;Total Debit;Total Credit;Total Debit&Credit')
|
|
If Empty(m.lnOptiune)
|
|
Return
|
|
Endif
|
|
Do Case
|
|
Case m.lnOptiune = 1
|
|
Thisform.fisacont
|
|
Case m.lnOptiune = 3
|
|
Thisform.RULDEB
|
|
Case m.lnOptiune = 4
|
|
Thisform.RULCRED
|
|
Case m.lnOptiune = 5
|
|
Thisform.RULDEBCRED
|
|
Case m.lnOptiune = 7
|
|
Thisform.TOTDEB
|
|
Case m.lnOptiune = 8
|
|
Thisform.TOTCRED
|
|
Case m.lnOptiune = 9
|
|
Thisform.TOTDEBCRED
|
|
Endcase
|
|
ENDPROC
|
|
|
|
PROCEDURE fisacont
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
*!* modificare v 2.0.110
|
|
*!* lcCondSucursala = Thisform.conditieistoricact()
|
|
*!* modificare v 2.0.110 ^
|
|
Select (lcbal)
|
|
Scatter Name locont
|
|
*!* modificare v 2.0.110
|
|
If Empty(Substr(Nvl(locont.Cont,''),1,4))
|
|
amessagebox("Nu exista contul in selectie!",48,"Atentie")
|
|
Else
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
*!* modificare v 2.0.110 ^
|
|
|
|
Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
|
|
Store "" To poact
|
|
*!* pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
|
|
*!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
*!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
*!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
*!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
*!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
*!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
*!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora, explicatie_tva from vact where 1=2']
|
|
*!* modificare v 2.0.110
|
|
*!* pcfiltru1=[(luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[) and (SCD=]+Substr(locont.Cont,1,4)+ lcCondSucursala + [ or scc=]+Substr(locont.Cont,1,4)+[)]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and (SCD=']+ALLTRIM(Substr(locont.Cont,1,4))+[' or scc=']+ALLTRIM(Substr(locont.Cont,1,4))+[')] + lcCondSucursala
|
|
*!* modificare v 2.0.110 ^
|
|
pcorder1=[dataact,serie_act,nract]
|
|
llAfisare=.F.
|
|
*!* gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* SELE ACT
|
|
*!* SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
*!* Do NRORD With "ACT"
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* ORC.LABELTITLU.Caption="FISA CONTULUI "+locont.Cont
|
|
*!* ORC.ALI = 'ACT'
|
|
*!* ORC.Show(1)
|
|
|
|
Do NRORD With "ACN1"
|
|
Select acn1
|
|
Go Top
|
|
ORC=Createobject("frm_debcred")
|
|
ORC.lb_titlu_alb_b121.Caption=Thisform.lb_titlu_alb_b121.Caption+" - FISA CONTULUI "+locont.Cont
|
|
ORC.lb_titlu1.Caption="FISA CONTULUI "+locont.Cont
|
|
ORC._grdbase1.RemoveObject("cUtil")
|
|
ORC._grdbase1.RemoveObject("cDataOra")
|
|
ORC.Show(1)
|
|
|
|
*!* SELECT act
|
|
*!* SET FILTER TO
|
|
Use In acn1
|
|
Release poact
|
|
Select(lcbal)
|
|
*!* modificare v 2.0.110
|
|
Endif
|
|
*!* modificare v 2.0.110 ^
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_excel
|
|
If Thisform.lactiv1
|
|
This.do_excel
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_listare
|
|
If Thisform.lactiv2
|
|
This.do_listare
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_modifica
|
|
*!* NU POT FACE MODIFICARI DACA NU AM DREPT PE MODIFICARE SAU INTR-O LUNA INCHISA
|
|
If !Thisform.lactiv3 Or glLunaInchisa
|
|
Return
|
|
Endif
|
|
|
|
*!* NU POT FACE MODIFICARI PE BALANTA CUMULATA - NU AM ID_BAL
|
|
IF glEMama
|
|
IF crsSucursale.ID_SUCURSALA = -1
|
|
aMessageBox('Nu se pot face modificari pe balanta centralizata!' + CRLF + 'Selectati balanta defalcata pe sucursale',0+64,'Balanta')
|
|
RETURN
|
|
ENDIF
|
|
ENDIF
|
|
|
|
Thisform.meniu_as
|
|
Thisform.grID1.SetFocus
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_reface
|
|
If Thisform.lactiv4 And !glLunaInchisa
|
|
This.do_reface()
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
Thisform.WindowState = 2
|
|
|
|
If .F.
|
|
lnLungimeBanda = Thisform.but_termin1.Width + 10
|
|
lnPozitieButon = Thisform.but_termin1.Left
|
|
lnLungimeButon = Thisform.but_termin1.Width + 1 && 30 + 1 (spatiu)
|
|
lnOffsetBanda = 6 && diferenta dintre _shape2.left si but_termin1.left
|
|
|
|
|
|
If Thisform.lactiv2
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_listare1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv1
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_excel1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv3 And !glLunaInchisa
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_modifica1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv4 And !glLunaInchisa
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.BUT_reface1.Left = lnPozitieButon
|
|
Endif
|
|
With Thisform._shape2
|
|
* With Thisform.banda_alba
|
|
.Width = lnLungimeBanda
|
|
.Left = lnPozitieButon - lnOffsetBanda
|
|
Endwith
|
|
Endif && .F.
|
|
|
|
If This.BUT_reface1.Visible
|
|
This.BUT_reface1.Visible=!glLunaInchisa
|
|
Endif
|
|
If This.but_modifica1.Visible
|
|
This.but_modifica1.Visible=!glLunaInchisa
|
|
Endif
|
|
|
|
Public sz
|
|
This.calias=This.grid1.RecordSource && TBALANTA
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
Select(lcbal)
|
|
Go Top
|
|
|
|
Store 0.0000 To m.sprecdeb1,m.spreccred1,m.ssoldideb, m.ssoldicred, m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
If .F.
|
|
With Thisform.grid1
|
|
.cprecdeb1.Width=0
|
|
.cpreccred1.Width=0
|
|
Endwith
|
|
Endif
|
|
|
|
IF glEMama
|
|
lnSucces = ccsucursale_mama() && IN updateserver.prg && vnom_sucursale_mama
|
|
|
|
CREATE CURSOR crsSucursale (id_sucursala n(5), sucursala c(100))
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-1, 'Balanta centralizata')
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-2, 'Balanta pe sucursale')
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-3, 'Balanta grup')
|
|
SELECT crsSucursale
|
|
APPEND FROM DBF('vnom_sucursale_mama')
|
|
REPLACE ALL sucursala WITH 'Balanta ' + PROPER(ALLTRIM(sucursala)) FOR id_sucursala > 0
|
|
|
|
close_ccsucursale_mama()
|
|
SELECT crsSucursale
|
|
GO TOP
|
|
WITH this.cboSucursale
|
|
.RowSourceType = 6
|
|
.RowSource = "crsSucursale.sucursala"
|
|
.Visible = .T.
|
|
this.cboSucursale.Value = crsSucursale.sucursala
|
|
EndWith
|
|
Else
|
|
this.grid1.cSucursala.Visible = .F.
|
|
ENDIF
|
|
*!* Locale
|
|
*!* goLocale.SetLocale( thisform )
|
|
*!* Locale ^
|
|
this.gridextra1.setup()
|
|
*MESSAGEBOX(this.grid1.cdenumire.text1.FontName + ' ' + TRANSFORM(this.grid1.cdenumire.text1.FontName))
|
|
|
|
Thisform.afisactual
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE in_bal
|
|
Parameters tnIdSucursala, tcCont,tcAcont,tlCalculeaza
|
|
Private lcCont,lcField,lcOldAlias,lcTabela
|
|
LOCAL lcIdSucursala
|
|
|
|
lcOldAlias=Alias()
|
|
lcField=This.cfield
|
|
lnvalue=This.nnewvalue
|
|
lnOldValue=This.noldvalue
|
|
|
|
If lnvalue=lnOldValue
|
|
Return
|
|
Endif
|
|
|
|
If Empty(tcAcont)
|
|
lcAcont=""
|
|
Else
|
|
lcAcont=Upper(Alltrim(tcAcont))
|
|
Endif
|
|
|
|
If Empty(tcCont)
|
|
lcCont=""
|
|
Else
|
|
lcCont=Upper(Alltrim(tcCont))
|
|
Endif
|
|
|
|
lcIdSucursala = ALLTRIM(STR(NVL(tnIdSucursala,0)))
|
|
If !Empty(lcAcont)
|
|
lcTabela = "balana"
|
|
lcCond = [NVL(id_sucursala,0) = ] + lcIdSucursala + [ AND TRIM(UPPER(cont))=']+lcCont+[' and TRIM(UPPER(acont))=']+lcAcont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
|
|
Else
|
|
lcTabela = "bal"
|
|
lcCond = [NVL(id_sucursala,0) = ] + lcIdSucursala + [ AND TRIM(UPPER(cont))=']+lcCont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
|
|
Endif
|
|
|
|
*!* If !EXISTACAMP(lcTabela,lcField) && DACA NU EXISTA CAMPUL NU FAC NIMIC
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
&& setare zecimale
|
|
pcexec=[update ] + ALLTRIM(lcTabela) + [ set ] + ALLTRIM(lcField) + [=] + ALLTRIM(STR(lnvalue,24,4)) + [ ] + ;
|
|
[where ]+lcCond
|
|
|
|
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
If tlCalculeaza
|
|
This.calculeaza_orizontal()
|
|
Endif
|
|
|
|
If !Empty(lcOldAlias)
|
|
Select (lcOldAlias)
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE meniu_as
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
If Thisform.grid1.ReadOnly
|
|
lcText=[\<Deblocare;]
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\Adauga Blanc;]
|
|
lcText=lcText+[\Sterge]
|
|
Else
|
|
lcText=[\<Revenire;]
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\<Adauga Blanc;]
|
|
lcText=lcText+[\<Sterge]
|
|
Endif
|
|
lnOpt=xmenu(lcText)
|
|
Do Case
|
|
Case lnOpt=1
|
|
With Thisform.grid1
|
|
.ReadOnly=!.ReadOnly
|
|
.ccont.ReadOnly=.T.
|
|
.cacont.ReadOnly=.T.
|
|
.cdenumire.ReadOnly=.T.
|
|
&& cont2003 oracle
|
|
.ctotdeb.ReadOnly=.T.
|
|
.ctotcred.ReadOnly=.T.
|
|
.csolddeb.ReadOnly=.T.
|
|
.csoldcred.ReadOnly=.T.
|
|
Endwith
|
|
Case lnOpt=3
|
|
This.adauga_linie()
|
|
Case lnOpt=4
|
|
This.sterge_linie()
|
|
Endcase
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE reconstruct
|
|
*!* LOCAL llsucces
|
|
*!* llSucces=save_grid_tag(this.grid1)
|
|
*!* IF llsucces
|
|
*!* lctabel=make_tbalanta()
|
|
*!* restore_grid_tag(this.grid1)
|
|
*!* ENDIF
|
|
save_grid_tag(This.grid1)
|
|
lcTabel=make_tbalanta(this.lCentru,this.nLuna1,this.nAn1,this.nLuna2,this.nAn2,this.cBal)
|
|
restore_grid_tag(This.grid1)
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
Release m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
Select (lcbal)
|
|
Set Filter To
|
|
DoDefault()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Resize
|
|
*THIS.RESIZER1.ONREsize
|
|
Thisform.Check1.Refresh() && CU ANCHOR SE MUTA LA POZITIA ANTERIOARA
|
|
&& FARA ANCHOR NU SE MAI MUTA DELOC
|
|
&& LE-AM MUTAT MANUAL
|
|
DODEFAULT()
|
|
ENDPROC
|
|
|
|
PROCEDURE rulcred
|
|
Private lcbal
|
|
Local ORC As "frm_debcred"
|
|
Local lcAcont, lcCondSucursala, lcCont, llAfisare
|
|
*:Global LOCONT
|
|
lcbal = Thisform.calias
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop = .F.
|
|
If LOCONT.RULCRED == 0 Then
|
|
AMESSAGEBOX('Rulaj Credit = 0', 0 + 64, _Screen.Caption)
|
|
Else
|
|
Private pcselect1, pcfiltru1, pcorder1, pcschema1, poact
|
|
Store "" To poact
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
|
|
pcschema1 = ['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+] + ;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+] + ;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+] + ;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+] + ;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+] + ;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+] + ;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+] + ;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1 = ['']
|
|
pcselect1 = ["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora, explicatie_tva from vact where 2=2"]
|
|
pcfiltru1 = [luna = ] + Alltrim(Str(gnLuna)) + [ and an = ] + Alltrim(Str(gnAn)) + [ and scc = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascc = '] + m.lcAcont + ['], []) + lcCondSucursala
|
|
pcorder1 = [dataact, serie_act, nract]
|
|
llAfisare = .F.
|
|
gencursor('poact', 'acn1', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
*!* Sele ACT
|
|
*!* Set Filter To SCC=Substr(LOCONT.cont,1,4) And !Deleted()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='act'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ CREDIT"
|
|
*!* Endwith
|
|
ORC = Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.Caption = "SITUATIE ANALITICA - RULAJ CREDIT"
|
|
.lb_titlu1.Caption = "SITUATIE ANALITICA - RULAJ CREDIT"
|
|
._grdbase1.RemoveObject("cUtil")
|
|
._grdbase1.RemoveObject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
Use In acn1
|
|
*!* SELECT ACT
|
|
*!* SET FILTER TO
|
|
*!* Select act
|
|
*!* Use
|
|
Release poact
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop = .T.
|
|
Select (lcbal)
|
|
Release LOCONT
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldeb
|
|
Private lcbal
|
|
Local ORC As "frm_debcred"
|
|
Local lcAcont, lcCondSucursala, lcCont, llAfisare
|
|
*:Global LOCONT
|
|
lcbal = Thisform.calias
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop = .F.
|
|
If LOCONT.RULDEB == 0 Then
|
|
AMESSAGEBOX('Rulaj Debit = 0', 0 + 64, _Screen.Caption)
|
|
Else
|
|
Private pcselect1, pcfiltru1, pcorder1, pcschema1, poact
|
|
Store "" To poact
|
|
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
|
|
pcschema1 = ['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+] + ;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+] + ;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+] + ;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+] + ;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+] + ;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+] + ;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+] + ;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1 = ['']
|
|
pcselect1 = ['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from vact where 2=2']
|
|
pcfiltru1 = [luna=] + Alltrim(Str(gnLuna)) + [ and an=] + Alltrim(Str(gnAn)) + lcCondSucursala + [ and scd = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascd = '] + m.lcAcont + ['], [])
|
|
pcorder1 = [dataact, serie_act, nract]
|
|
llAfisare = .F.
|
|
gencursor('poact', 'acn1', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACT
|
|
*!* Set Filter To SCD=Substr(LOCONT.Cont,1,4) And !Deleted()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='act'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ DEBIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
*!* Select act
|
|
*!* Use
|
|
ORC = Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.Caption = "SITUATIE ANALITICA - RULAJ DEBIT"
|
|
.lb_titlu1.Caption = "SITUATIE ANALITICA - RULAJ DEBIT"
|
|
._grdbase1.RemoveObject("cUtil")
|
|
._grdbase1.RemoveObject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
|
|
Use In acn1
|
|
Release poact
|
|
Endif
|
|
Release ORC
|
|
Thisform.AlwaysOnTop = .T.
|
|
|
|
*!* SELECT ACT
|
|
*!* SET FILTER TO
|
|
|
|
Select(lcbal)
|
|
Release LOCONT
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldebcred
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
If LOCONT.RULCRED=0 And LOCONT.RULDEB=0 Then
|
|
AMESSAGEBOX('Nu exista rulaje in luna.',0+64,_Screen.Caption)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcschema1,poact,poact1,poact2
|
|
Store "" To poact,poact1,poact2
|
|
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
|
|
*!* pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
|
|
*!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
*!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
*!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
*!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
*!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
*!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
*!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
*!* pcschema1=['']
|
|
*!* pcselect1=["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from vact where 2=2"]
|
|
*!* pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn)) + lcCondSucursala
|
|
*!* pcorder1=[dataact, serie_act,nract]
|
|
*!* llAfisare=.F.
|
|
*!* gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
*!* poact.ca_baza1.afisare()
|
|
*!* Sele ACT
|
|
*!* *DO NRORD WITH "ACT"
|
|
*!* Sele 0
|
|
|
|
pcselect1=["select * from vact where 2=2"]
|
|
pcschema1=['']
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and scd = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascd = '] + m.lcAcont + ['], [])+lcCondSucursala
|
|
pcorder1=[dataact, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact1','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact1.ca_baza1.afisare()
|
|
*!* USE &DATE/ACT.DBF;
|
|
*!* AGAIN ALIAS ACn1
|
|
*!* SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
|
|
pcselect1=["select * from vact where 2=2"]
|
|
pcschema1=['']
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and scc = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascc = '] + m.lcAcont + ['], [])+lcCondSucursala
|
|
pcorder1=[dataact, serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact2','acn2',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact2.ca_baza1.afisare()
|
|
*!* SELE 0
|
|
*!* USE &DATE/ACT.DBF;
|
|
*!* AGAIN ALIAS ACn2
|
|
*!* SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
|
|
*!* ORC=Createobj("AFDEBsiCRED")
|
|
*!* ORC.Caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
|
|
*!* ORC.Show(1)
|
|
orc=CREATEOBJECT("frm_debsicred")
|
|
orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
|
|
orc.show(1)
|
|
Sele acn1
|
|
Use
|
|
Sele acn2
|
|
Use
|
|
|
|
*!* modificare
|
|
*!* Select ACT
|
|
USE IN (SELECT('act'))
|
|
Release poact,poact1,poact2,ORC
|
|
*!*
|
|
Endif
|
|
|
|
Select(lcbal)
|
|
Release LOCONT
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE sterge_linie
|
|
LOCAL lcIdSucursala
|
|
Private lcbal,lcContS,lcContA
|
|
lcbal=This.calias
|
|
|
|
Select (lcbal)
|
|
lcContS=Alltrim(Cont)
|
|
lcContA=Alltrim(acont)
|
|
|
|
If Empty(lcContS) And Empty(lcContA)
|
|
aMessagebox("Nu puteti sterge un total!",0+48,"Atentie")
|
|
Return
|
|
Endif
|
|
|
|
lcIdSucursala = IIF(NVL(id_sucursala,0) = 0, 'NULL', ALLTRIM(STR(id_sucursala)))
|
|
pcexec=[begin pack_inregistrari.baldelproc(] + lcIdSucursala + [,] + ALLTRIM(STR(gnLuna)) + [,] + ALLTRIM(STR(gnAn))+ [,']+lcContS+[',']+lcContA+['); end;]
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
If "ORA-20000"$lcTextEroare
|
|
lnPozi=At("ORA-20000",lcTextEroare)+11
|
|
lnPozf=At("ORA",lcTextEroare,2)
|
|
lcTextEroare=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
|
|
Endif
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
Thisform.MousePointer= 11
|
|
Thisform.LockScreen=.T.
|
|
This.reconstruct
|
|
This.afisactual
|
|
Thisform.LockScreen=.F.
|
|
Thisform.MousePointer= 0
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totcred
|
|
Private lcbal
|
|
Local ORC As "frm_debcred"
|
|
Local lcAcont, lcCondSucursala, lcCont, llAfisare
|
|
*:Global LOCONT, pcorder1
|
|
lcbal = Thisform.calias
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
Thisform.AlwaysOnTop = .F.
|
|
|
|
If LOCONT.TOTCRED == 0 Then
|
|
AMESSAGEBOX('Total Credit = 0', 0 + 64, _Screen.Caption)
|
|
Else
|
|
Private pcselect1, pcfiltru1, pcschema1, poact
|
|
Store "" To poact
|
|
pcschema1 = ['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+] + ;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+] + ;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+] + ;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+] + ;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+] + ;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+] + ;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+] + ;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1 = ['']
|
|
pcselect1 = ["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from vact where 2=2"]
|
|
pcfiltru1 = [scc = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascc = '] + m.lcAcont + ['], []) + lcCondSucursala
|
|
|
|
pcorder1 = [dataact, serie_act,nract]
|
|
llAfisare = .F.
|
|
gencursor('poact', 'acn1', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTAN
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* * sum suma to totsum
|
|
*!* SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='actan'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL CREDIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
ORC = Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.Caption = "SITUATIE ANALITICA - TOTAL CREDIT"
|
|
.lb_titlu1.Caption = "SITUATIE ANALITICA - TOTAL CREDIT"
|
|
._grdbase1.RemoveObject("cUtil")
|
|
._grdbase1.RemoveObject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
*!* SELECT ACTAN
|
|
*!* SET FILTER TO
|
|
*!* modificare
|
|
*!* Select ACTAN
|
|
*!* Use
|
|
Use In acn1
|
|
Release poact
|
|
*!*
|
|
Endif
|
|
Release ORC
|
|
Thisform.AlwaysOnTop = .T.
|
|
|
|
Select (lcbal)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totdeb
|
|
Private lcbal
|
|
Local orc As "frm_debcred"
|
|
Local lcAcont, lcCondSucursala, lcCont, llAfisare
|
|
*:Global LOCONT, pcorder1
|
|
lcbal = Thisform.calias
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
Thisform.AlwaysOnTop = .F.
|
|
If LOCONT.TOTDEB == 0 Then
|
|
AMESSAGEBOX('Total Debit = 0', 0 + 64, _Screen.Caption)
|
|
Else
|
|
Private pcselect1, pcfiltru1, pcschema1, poact
|
|
Store "" To poact
|
|
pcschema1 = ['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+] + ;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+] + ;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+] + ;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+] + ;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+] + ;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+] + ;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+] + ;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1 = ['']
|
|
pcselect1 = ["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from vact where 2=2"]
|
|
pcfiltru1 = [scd = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascd = '] + m.lcAcont + ['], []) + lcCondSucursala
|
|
pcorder1 = [dataact, serie_act, nract]
|
|
llAfisare = .F.
|
|
gencursor('poact', 'acn1', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTAN
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* * sum suma to totsum
|
|
*!* SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='actan'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL DEBIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
orc = Createobject("frm_debcred")
|
|
With orc
|
|
.lb_titlu_alb_b121.Caption = "SITUATIE ANALITICA - TOTAL DEBIT"
|
|
.lb_titlu1.Caption = "SITUATIE ANALITICA - TOTAL DEBIT"
|
|
._grdbase1.RemoveObject("cUtil")
|
|
._grdbase1.RemoveObject("cDataOra")
|
|
Endwith
|
|
orc.Show(1)
|
|
*!* SELECT ACTAN
|
|
*!* SET FILTER TO
|
|
|
|
*!* modificare
|
|
*!* Select ACTAN
|
|
*!* Use
|
|
Use In acn1
|
|
Release poact
|
|
*!*
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop = .T.
|
|
Select (lcbal)
|
|
Release LOCONT
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totdebcred
|
|
Private lcbal
|
|
Local orc As "frm_debsicred"
|
|
Local lcAcont, lcCondSucursala, lcCont, llAfisare
|
|
*:Global LOCONT, pcorder1
|
|
lcbal = Thisform.calias
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
lcCont = Alltrim(Nvl(LOCONT.Cont, ''))
|
|
lcAcont = Alltrim(Nvl(LOCONT.acont, ''))
|
|
Thisform.AlwaysOnTop = .F.
|
|
If LOCONT.TOTCRED == 0 And LOCONT.TOTDEB == 0 Then
|
|
AMESSAGEBOX('Contul ' + Alltrim(LOCONT.Cont) + ' este neutilizat!', 0 + 64, _Screen.Caption)
|
|
Else
|
|
Private pcselect1, pcfiltru1, pcschema1, poact, poact1, poact2
|
|
Store "" To poact, poact1, poact2
|
|
*!* pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
|
|
*!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
*!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
*!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
*!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
*!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
*!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
*!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1 = ['']
|
|
*!* pcselect1=["select * from ] + gcS + [.vact where 2=2"]
|
|
*!* pcfiltru1=[2=2]
|
|
*!* pcorder1=[]
|
|
*!* llAfisare=.F.
|
|
*!* gencursor('poact','actan',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
*!* poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTan
|
|
*!* * DO NRORD WITH "ACTan"
|
|
Sele 0
|
|
&& to_char(dataact,'DD/MM/YYYY') as
|
|
pcselect1 = ["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from vact where 2=2"]
|
|
pcfiltru1 = [scd = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascd = '] + m.lcAcont + ['], []) + lcCondSucursala
|
|
pcorder1 = [dataact,serie_act, nract]
|
|
llAfisare = .F.
|
|
gencursor('poact1', 'acn1', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact1.ca_baza1.afisare()
|
|
*!* USE &DATEan/ACTan.DBF;
|
|
*!* AGAIN ALIAS ACn1
|
|
*!* SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
|
|
pcselect1 = ["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from vact where 2=2"]
|
|
pcfiltru1 = [scc = '] + m.lcCont + ['] + Iif(!Empty(m.lcAcont), [ and ascc = '] + m.lcAcont + ['], []) + lcCondSucursala
|
|
pcorder1 = [dataact, serie_act,nract]
|
|
llAfisare = .F.
|
|
gencursor('poact2', 'acn2', pcselect1, pcfiltru1, pcschema1, pcorder1, llAfisare)
|
|
poact2.ca_baza1.afisare()
|
|
*!* SELE 0
|
|
*!* USE &DATEan/ACTan.DBF;
|
|
*!* AGAIN ALIAS ACn2
|
|
*!* SET FILTER TO SCC=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
*!* ORC=Createobj("AFDEBsiCRED")
|
|
*!* ORC.Caption="SITUATIE ANALITICA - Total Cont "+LOCONT.Cont
|
|
*!* ORC.Show(1)
|
|
orc = Createobject("frm_debsicred")
|
|
orc.lb_titlu_alb_b121.Caption = "SITUATIE ANALITICA - Total Cont " + LOCONT.Cont
|
|
orc.Show(1)
|
|
|
|
Sele acn1
|
|
Use
|
|
Sele acn2
|
|
Use
|
|
*!* modificare
|
|
*!* Select ACTan
|
|
*!* Use
|
|
Release poact, poact1, poact2
|
|
Release orc
|
|
*!*
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop = .T.
|
|
Select (lcbal)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cboSucursale.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Refresh
|
|
With Thisform
|
|
If Thisform.Cksold1.Value = 0 && FARA SOLDURI 1 IANUARIE
|
|
.lbldebit.Left=.text1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.text2.Left-.lblcredit.Width
|
|
.check1.Left=.label8.Left-.lbldebit.Width
|
|
Else
|
|
.lbldebit.Left=.txtprecdeb1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.txtpreccred1.Left-.lblcredit.Width
|
|
.check1.Left=.lblsld1.Left-.lbldebit.Width
|
|
Endif
|
|
Endwith
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Check1.Valid
|
|
thisform.afisactual
|
|
IF this.Value = 1
|
|
this.Caption = 'Analitice'
|
|
ELSE
|
|
this.Caption = 'Sintetice'
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE ckanalitic.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE cksold1.Valid
|
|
thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE cktotal1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE cktotal2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE cktotal3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE cktotal4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_acont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_cont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ck_denumire.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.GotFocus
|
|
lcSufix="cont"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.Valid
|
|
thisform.nnewvalue=this.value
|
|
LOCAL lcCont
|
|
lcCont=thisform.noldvalue
|
|
RETURN .T.
|
|
thisform.in_bal(lcCont)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.GotFocus
|
|
lcSufix="denumire"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.Valid
|
|
RETURN .T.
|
|
PRIVATE lcbal
|
|
lcBal=thisform.calias
|
|
LOCAL lcCont,lcAcont
|
|
|
|
|
|
thisform.nnewvalue=this.value
|
|
SELECT (lcBal)
|
|
lcCont=cont
|
|
lcAcont=acont
|
|
|
|
thisform.in_bal(lcCont,lcAcont)
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.GotFocus
|
|
lcSufix="PRECCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred1.Text1.GotFocus
|
|
lcSufix="PRECCRED1"
|
|
thisform.cField=lcSufix
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred1.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.GotFocus
|
|
lcSufix="PRECDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb1.Text1.GotFocus
|
|
lcSufix="PRECDEB1"
|
|
thisform.cField=lcSufix
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb1.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.GotFocus
|
|
lcSufix="RULCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.GotFocus
|
|
lcSufix="RULDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.GotFocus
|
|
lcSufix="SOLDCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.GotFocus
|
|
lcSufix="SOLDDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.GotFocus
|
|
lcSufix="TOTCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.GotFocus
|
|
lcSufix="TOTDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.DblClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
*!* this.SetAll("DynamicForeCOlor",;
|
|
*!* "IIF(!EMPTY(cont),RGB(0,0,0),IIF(nivel=1,RGB(0,0,255),RGB(0,128,128)))","Column")
|
|
|
|
this.SetAll("DynamicForeCOlor","IIF(BNIVEL<3,RGB(0,0,255),RGB(0,0,0))","Column")
|
|
this.SetAll("DynamicForeCOlor","IIF(difana=1,RGB(128,0,255),RGB(0,0,0))","Column")
|
|
|
|
this.SetAll("DynamicFontbold","IIF(INLIST(BNIVEL,1,3),.t.,.f.)","Column")
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Text1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text2.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text3.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text4.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text5.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text6.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE Text7.Init
|
|
sum solddeb to m.ssolddeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE Text8.Init
|
|
sum soldcred to m.ssoldcred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE txtcont.Valid
|
|
thisform.txtcont2.Value = this.Value
|
|
thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtcont2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE txtpreccred1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECCRED1>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE txtprecdeb1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECDEB1>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_balanta_original 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="Optiongroup1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.txtprecdeb1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.txtpreccred1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Text6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Label8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.lblsld1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.lbldebit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p1.lblcredit" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cktotal4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.ckanalitic" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cktotal2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cktotal1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cktotal3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cksold1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.Ck_cont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.cboSucursale" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.Ck_acont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P2.Ck_denumire" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p3.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.p3.Optiongroup1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P4.Shape1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P4.cboRaport" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="pf.P4.Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Resizer1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtcont" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Ct1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtcont2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ccont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ccont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cdenumire.Header2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cdenumire.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Header3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred.Header4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cruldeb.Header5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cruldeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.crulcred.Header6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.crulcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Header7" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotdeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotcred.Header8" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.ctotcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csoldcred.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csoldcred.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csolddeb.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.csolddeb.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cacont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cacont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cprecdeb1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cpreccred1.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cSucursala.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Grid1.cSucursala.Text1" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: adauga_linie
|
|
*m: afisactual
|
|
*m: butapend
|
|
*m: butdrept
|
|
*m: calculeaza
|
|
*m: calculeaza_orizontal
|
|
*m: calculeaza_vertical
|
|
*m: cfield_assign
|
|
*m: conditieistoricact
|
|
*m: fisacont
|
|
*m: in_bal
|
|
*m: meniu_as
|
|
*m: reconstruct
|
|
*m: rulcred
|
|
*m: ruldeb
|
|
*m: ruldebcred
|
|
*m: sterge_linie
|
|
*m: totcred
|
|
*m: totdeb
|
|
*m: totdebcred
|
|
*p: calias
|
|
*p: cbal
|
|
*p: ccont
|
|
*p: cfield
|
|
*p: cprocedurainainte
|
|
*p: lcentru
|
|
*p: nan1
|
|
*p: nan2
|
|
*p: nluna1
|
|
*p: nluna2
|
|
*p: nnewvalue
|
|
*p: noldvalue
|
|
*p: oafbalana
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AlwaysOnTop = .F.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 1
|
|
calias = TBALANTA
|
|
cbal =
|
|
cbuton4 = but_reface1
|
|
cfield =
|
|
cprocedurainainte = balanta
|
|
DoCreate = .T.
|
|
FontCharSet = 238
|
|
FontName = "Segoe UI"
|
|
FontSize = 10
|
|
Height = 478
|
|
lactiv1 = .F.
|
|
lactiv2 = .F.
|
|
lactiv3 = .F.
|
|
lactiv4 = .F.
|
|
lcentru = .F.
|
|
Name = "frm_balanta"
|
|
nan1 = 2000
|
|
nan2 = 2000
|
|
nluna1 = 1
|
|
nluna2 = 1
|
|
nnewvalue = 0
|
|
noldvalue = 0
|
|
ScrollBars = 0
|
|
Width = 806
|
|
WindowType = 1
|
|
_shape1.Anchor = 10
|
|
_shape1.BorderStyle = 0
|
|
_shape1.Height = 35
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 828
|
|
_shape1.ZOrderSet = 1
|
|
_shape2.Comment = "*:OnResize=RT"
|
|
_shape2.Height = 36
|
|
_shape2.Left = 648
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = -1
|
|
_shape2.Width = 153
|
|
_shape2.ZOrderSet = 2
|
|
Lb_titlu_alb_b121.Caption = "Balanta de verificare"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
Lb_titlu_alb_b121.ZOrderSet = 3
|
|
BUT_TERMIN1.Anchor = 9
|
|
BUT_TERMIN1.Comment = "*:OnResize=RT"
|
|
BUT_TERMIN1.Left = 768
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 4
|
|
BUT_TERMIN1.ZOrderSet = 5
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 739, ;
|
|
Name = "But_excel1", ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 9
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 709, ;
|
|
Name = "But_listare1", ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 7
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 679, ;
|
|
Name = "But_modifica1", ;
|
|
Top = 4, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_reface1' AS but_reface WITH ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Left = 649, ;
|
|
Name = "But_reface1", ;
|
|
Top = 4, ;
|
|
Visible = .F., ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Ct1' AS ct WITH ;
|
|
Height = 25, ;
|
|
Left = 67, ;
|
|
Name = "Ct1", ;
|
|
SpecialEffect = 0, ;
|
|
TabIndex = 3, ;
|
|
Top = 113, ;
|
|
Width = 59, ;
|
|
ZOrderSet = 15, ;
|
|
Shape1.Name = "Shape1", ;
|
|
Text1.Height = 21, ;
|
|
Text1.Left = 1, ;
|
|
Text1.Name = "Text1", ;
|
|
Text1.Top = 1, ;
|
|
Text1.Width = 13, ;
|
|
Text2.Left = 14, ;
|
|
Text2.Name = "Text2", ;
|
|
Text2.Top = 1, ;
|
|
Text3.Left = 26, ;
|
|
Text3.Name = "Text3", ;
|
|
Text3.Top = 1, ;
|
|
Text4.Height = 21, ;
|
|
Text4.Left = 39, ;
|
|
Text4.Name = "Text4", ;
|
|
Text4.Top = 1, ;
|
|
Text4.Width = 14, ;
|
|
Line1.Left = 14, ;
|
|
Line1.Name = "Line1", ;
|
|
Line1.Top = -9, ;
|
|
Line2.Left = 26, ;
|
|
Line2.Name = "Line2", ;
|
|
Line2.Top = -9, ;
|
|
Line3.Left = 39, ;
|
|
Line3.Name = "Line3", ;
|
|
Line3.Top = -9
|
|
*< END OBJECT: ClassLib="ferestre_cere_date.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Grid1' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
BackColor = 255,255,255, ;
|
|
ColumnCount = 14, ;
|
|
Comment = "*:OnResize=SS", ;
|
|
DeleteMark = .F., ;
|
|
FontSize = 10, ;
|
|
GridLineColor = 192,192,192, ;
|
|
Height = 322, ;
|
|
Left = 0, ;
|
|
Name = "Grid1", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordSource = "TBALANTA", ;
|
|
RowHeight = 20, ;
|
|
TabIndex = 4, ;
|
|
Top = 143, ;
|
|
Width = 799, ;
|
|
ZOrderSet = 21, ;
|
|
Column1.Alignment = 0, ;
|
|
Column1.BackColor = 255,255,255, ;
|
|
Column1.ColumnOrder = 1, ;
|
|
Column1.ControlSource = "CONT", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Format = "", ;
|
|
Column1.InputMask = "", ;
|
|
Column1.Name = "ccont", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 29, ;
|
|
Column2.Alignment = 0, ;
|
|
Column2.BackColor = 255,255,255, ;
|
|
Column2.ColumnOrder = 3, ;
|
|
Column2.ControlSource = "DENUMIRE", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Name = "cdenumire", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 141, ;
|
|
Column3.Alignment = 1, ;
|
|
Column3.BackColor = 187,235,255, ;
|
|
Column3.ColumnOrder = 6, ;
|
|
Column3.ControlSource = "PRECDEB", ;
|
|
Column3.DynamicForeColor = "IIF(PRECDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.FontSize = 10, ;
|
|
Column3.Format = "r", ;
|
|
Column3.InputMask = (get_mask(16,gnPA)), ;
|
|
Column3.Name = "cprecdeb", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 72, ;
|
|
Column4.Alignment = 1, ;
|
|
Column4.BackColor = 187,235,255, ;
|
|
Column4.ColumnOrder = 7, ;
|
|
Column4.ControlSource = "PRECCRED", ;
|
|
Column4.DynamicForeColor = "IIF(PRECCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.FontSize = 10, ;
|
|
Column4.Format = "r", ;
|
|
Column4.InputMask = (get_mask(16,gnPA)), ;
|
|
Column4.Name = "cpreccred", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 72, ;
|
|
Column5.Alignment = 1, ;
|
|
Column5.BackColor = 236,249,255, ;
|
|
Column5.ColumnOrder = 8, ;
|
|
Column5.ControlSource = "RULDEB", ;
|
|
Column5.DynamicForeColor = "IIF(RULDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.Format = "R", ;
|
|
Column5.InputMask = (get_mask(16,gnPA)), ;
|
|
Column5.Name = "cruldeb", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 72, ;
|
|
Column6.Alignment = 1, ;
|
|
Column6.BackColor = 236,249,255, ;
|
|
Column6.ColumnOrder = 9, ;
|
|
Column6.ControlSource = "RULCRED", ;
|
|
Column6.DynamicForeColor = "IIF(RULCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.FontSize = 10, ;
|
|
Column6.Format = "R", ;
|
|
Column6.InputMask = (get_mask(16,gnPA)), ;
|
|
Column6.Name = "crulcred", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 73, ;
|
|
Column7.Alignment = 1, ;
|
|
Column7.BackColor = 187,235,255, ;
|
|
Column7.ColumnOrder = 10, ;
|
|
Column7.ControlSource = "TOTDEB", ;
|
|
Column7.DynamicForeColor = "IIF(TOTDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.FontSize = 10, ;
|
|
Column7.Format = "r", ;
|
|
Column7.InputMask = (get_mask(16,gnPA)), ;
|
|
Column7.Name = "ctotdeb", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 83, ;
|
|
Column8.Alignment = 1, ;
|
|
Column8.BackColor = 187,235,255, ;
|
|
Column8.ColumnOrder = 11, ;
|
|
Column8.ControlSource = "TOTCRED", ;
|
|
Column8.DynamicForeColor = "IIF(TOTCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.FontSize = 10, ;
|
|
Column8.Format = "r", ;
|
|
Column8.InputMask = (get_mask(16,gnPA)), ;
|
|
Column8.Name = "ctotcred", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 85, ;
|
|
Column9.Alignment = 1, ;
|
|
Column9.BackColor = 236,249,255, ;
|
|
Column9.ColumnOrder = 13, ;
|
|
Column9.ControlSource = "SOLDCRED", ;
|
|
Column9.DynamicForeColor = "IIF(SOLDCRED>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.FontSize = 10, ;
|
|
Column9.Format = "r", ;
|
|
Column9.InputMask = (get_mask(16,gnPA)), ;
|
|
Column9.Name = "csoldcred", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 70, ;
|
|
Column10.Alignment = 1, ;
|
|
Column10.BackColor = 236,249,255, ;
|
|
Column10.ColumnOrder = 12, ;
|
|
Column10.ControlSource = "SOLDDEB", ;
|
|
Column10.DynamicForeColor = "IIF(SOLDDEB>=0, RGB(0,0,0), RGB(255,0,0))", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.FontSize = 10, ;
|
|
Column10.Format = "r", ;
|
|
Column10.InputMask = (get_mask(16,gnPA)), ;
|
|
Column10.Name = "csolddeb", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column10.Width = 66, ;
|
|
Column11.BackColor = 255,255,255, ;
|
|
Column11.ColumnOrder = 2, ;
|
|
Column11.ControlSource = "ACONT", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.FontSize = 10, ;
|
|
Column11.Name = "cacont", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 40, ;
|
|
Column12.BackColor = 236,249,255, ;
|
|
Column12.ColumnOrder = 4, ;
|
|
Column12.ControlSource = "precdeb1", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.FontSize = 10, ;
|
|
Column12.Format = "RK", ;
|
|
Column12.InputMask = (get_mask(18,gnPA)), ;
|
|
Column12.Name = "cprecdeb1", ;
|
|
Column12.ReadOnly = .T., ;
|
|
Column12.Visible = .F., ;
|
|
Column12.Width = 0, ;
|
|
Column13.BackColor = 236,249,255, ;
|
|
Column13.ColumnOrder = 5, ;
|
|
Column13.ControlSource = "preccred1", ;
|
|
Column13.FontName = "Arial", ;
|
|
Column13.FontSize = 10, ;
|
|
Column13.Format = "RK", ;
|
|
Column13.InputMask = (get_mask(18,gnPA)), ;
|
|
Column13.Name = "cpreccred1", ;
|
|
Column13.ReadOnly = .T., ;
|
|
Column13.Visible = .F., ;
|
|
Column13.Width = 0, ;
|
|
Column14.BackColor = 255,255,255, ;
|
|
Column14.ControlSource = "sucursala", ;
|
|
Column14.FontName = "Arial", ;
|
|
Column14.FontSize = 10, ;
|
|
Column14.Name = "cSucursala", ;
|
|
Column14.ReadOnly = .T., ;
|
|
Column14.Width = 164
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'Grid1.cacont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cacont.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ccont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ccont.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cdenumire.Header2' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Denumire", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header2"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cdenumire.Text1' AS textbox WITH ;
|
|
Alignment = 0, ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred.Header4' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header4"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Credit 1 ian. ", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cpreccred1.Text1' AS textbox WITH ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb.Header3' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Prec.Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header3"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb1.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Debit 1 ian.", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cprecdeb1.Text1' AS textbox WITH ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
Visible = .F.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.crulcred.Header6' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Rul.Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header6"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.crulcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderColor = 0,0,0, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cruldeb.Header5' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Rul.Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header5"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cruldeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.csoldcred.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.csoldcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.csolddeb.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.csolddeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.cSucursala.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sucursala", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.cSucursala.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ctotcred.Header8' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Credit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header8"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ctotcred.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Grid1.ctotdeb.Header7' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Total Debit", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header7"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'Grid1.ctotdeb.Text1' AS textbox WITH ;
|
|
Alignment = 1, ;
|
|
BackColor = 187,235,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
|
|
Left = 627, ;
|
|
Name = "Gridextra1", ;
|
|
Top = 377
|
|
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
|
|
|
|
ADD OBJECT 'Label1' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Selectie cont", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Segoe UI", ;
|
|
FontSize = 10, ;
|
|
Height = 19, ;
|
|
Left = 8, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 13, ;
|
|
Top = 67, ;
|
|
Width = 75, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "De la", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
Height = 18, ;
|
|
Left = 9, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 13, ;
|
|
Top = 90, ;
|
|
Width = 32, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Analitic", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
Height = 18, ;
|
|
Left = 9, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 13, ;
|
|
Top = 116, ;
|
|
Width = 45, ;
|
|
ZOrderSet = 19
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS _label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "la", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
FontBold = .F., ;
|
|
Height = 18, ;
|
|
Left = 89, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 13, ;
|
|
Top = 90, ;
|
|
Width = 12, ;
|
|
ZOrderSet = 20
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
|
|
Left = 264, ;
|
|
Name = "oMenuShortcut", ;
|
|
TabIndex = 6, ;
|
|
Top = 0, ;
|
|
ZOrderSet = 8
|
|
*< END OBJECT: ClassLib="utility.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 10, ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
Height = 79, ;
|
|
Left = 396, ;
|
|
Name = "Optiongroup1", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 11, ;
|
|
Top = 60, ;
|
|
Value = 1, ;
|
|
Width = 203, ;
|
|
ZOrderSet = 4, ;
|
|
Option1.AutoSize = .T., ;
|
|
Option1.BackStyle = 0, ;
|
|
Option1.Caption = "\<Balanta", ;
|
|
Option1.ControlSource = "", ;
|
|
Option1.FontName = "Courier New", ;
|
|
Option1.FontSize = 8, ;
|
|
Option1.Height = 16, ;
|
|
Option1.Left = 5, ;
|
|
Option1.Name = "Option1", ;
|
|
Option1.Top = 5, ;
|
|
Option1.Value = 1, ;
|
|
Option1.Width = 71, ;
|
|
Option2.AutoSize = .T., ;
|
|
Option2.BackStyle = 0, ;
|
|
Option2.Caption = "\<Rulaj Debit", ;
|
|
Option2.ControlSource = "", ;
|
|
Option2.Enabled = .F., ;
|
|
Option2.FontName = "Courier New", ;
|
|
Option2.FontSize = 8, ;
|
|
Option2.Height = 16, ;
|
|
Option2.Left = 5, ;
|
|
Option2.Name = "Option2", ;
|
|
Option2.Top = 18, ;
|
|
Option2.Width = 99, ;
|
|
Option3.AutoSize = .T., ;
|
|
Option3.BackStyle = 0, ;
|
|
Option3.Caption = "R\<ulaj Credit", ;
|
|
Option3.ControlSource = "", ;
|
|
Option3.Enabled = .F., ;
|
|
Option3.FontName = "Courier New", ;
|
|
Option3.FontSize = 8, ;
|
|
Option3.Height = 16, ;
|
|
Option3.Left = 5, ;
|
|
Option3.Name = "Option3", ;
|
|
Option3.Top = 31, ;
|
|
Option3.Width = 106, ;
|
|
Option4.AutoSize = .T., ;
|
|
Option4.BackStyle = 0, ;
|
|
Option4.Caption = "Tota\<l Debit", ;
|
|
Option4.ControlSource = "", ;
|
|
Option4.Enabled = .F., ;
|
|
Option4.FontName = "Courier New", ;
|
|
Option4.FontSize = 8, ;
|
|
Option4.Height = 16, ;
|
|
Option4.Left = 5, ;
|
|
Option4.Name = "Option4", ;
|
|
Option4.Top = 44, ;
|
|
Option4.Width = 99, ;
|
|
Option5.AutoSize = .T., ;
|
|
Option5.BackStyle = 0, ;
|
|
Option5.Caption = "T\<otal Credit", ;
|
|
Option5.ControlSource = "", ;
|
|
Option5.Enabled = .F., ;
|
|
Option5.FontName = "Courier New", ;
|
|
Option5.FontSize = 8, ;
|
|
Option5.Height = 16, ;
|
|
Option5.Left = 5, ;
|
|
Option5.Name = "Option5", ;
|
|
Option5.Top = 58, ;
|
|
Option5.Width = 106, ;
|
|
Option6.AutoSize = .T., ;
|
|
Option6.BackStyle = 0, ;
|
|
Option6.Caption = "Option6", ;
|
|
Option6.FontName = "Courier New", ;
|
|
Option6.FontSize = 8, ;
|
|
Option6.Height = 16, ;
|
|
Option6.Left = 120, ;
|
|
Option6.Name = "Option6", ;
|
|
Option6.Top = 5, ;
|
|
Option6.Width = 71, ;
|
|
Option7.AutoSize = .T., ;
|
|
Option7.BackStyle = 0, ;
|
|
Option7.Caption = "Option7", ;
|
|
Option7.FontName = "Courier New", ;
|
|
Option7.FontSize = 8, ;
|
|
Option7.Height = 16, ;
|
|
Option7.Left = 120, ;
|
|
Option7.Name = "Option7", ;
|
|
Option7.Top = 18, ;
|
|
Option7.Width = 71, ;
|
|
Option8.AutoSize = .T., ;
|
|
Option8.BackStyle = 0, ;
|
|
Option8.Caption = "Option8", ;
|
|
Option8.FontName = "Courier New", ;
|
|
Option8.FontSize = 8, ;
|
|
Option8.Height = 16, ;
|
|
Option8.Left = 120, ;
|
|
Option8.Name = "Option8", ;
|
|
Option8.Top = 31, ;
|
|
Option8.Width = 71, ;
|
|
Option9.AutoSize = .T., ;
|
|
Option9.BackStyle = 0, ;
|
|
Option9.Caption = "Option9", ;
|
|
Option9.FontName = "Courier New", ;
|
|
Option9.FontSize = 8, ;
|
|
Option9.Height = 16, ;
|
|
Option9.Left = 120, ;
|
|
Option9.Name = "Option9", ;
|
|
Option9.Top = 44, ;
|
|
Option9.Width = 71, ;
|
|
Option10.AutoSize = .T., ;
|
|
Option10.BackStyle = 0, ;
|
|
Option10.Caption = "Option10", ;
|
|
Option10.FontName = "Courier New", ;
|
|
Option10.FontSize = 8, ;
|
|
Option10.Height = 16, ;
|
|
Option10.Left = 120, ;
|
|
Option10.Name = "Option10", ;
|
|
Option10.Top = 58, ;
|
|
Option10.Width = 78
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'pf' AS pageframe WITH ;
|
|
Anchor = 15, ;
|
|
Comment = "*:OnResize=ST", ;
|
|
ErasePage = .T., ;
|
|
Height = 111, ;
|
|
Left = 1, ;
|
|
Name = "pf", ;
|
|
PageCount = 4, ;
|
|
TabIndex = 5, ;
|
|
Top = 35, ;
|
|
Width = 800, ;
|
|
ZOrderSet = 11, ;
|
|
Page1.BackColor = 255,255,255, ;
|
|
Page1.Caption = "Total sume", ;
|
|
Page1.FontBold = .T., ;
|
|
Page1.FontCharSet = 238, ;
|
|
Page1.FontSize = 10, ;
|
|
Page1.Name = "p1", ;
|
|
Page2.BackColor = 255,255,255, ;
|
|
Page2.Caption = "Selectii", ;
|
|
Page2.FontBold = .T., ;
|
|
Page2.FontCharSet = 238, ;
|
|
Page2.FontSize = 10, ;
|
|
Page2.Name = "P2", ;
|
|
Page3.BackColor = 255,255,255, ;
|
|
Page3.Caption = "Fise de cont ", ;
|
|
Page3.FontBold = .T., ;
|
|
Page3.FontCharSet = 238, ;
|
|
Page3.FontSize = 10, ;
|
|
Page3.Name = "p3", ;
|
|
Page4.BackColor = 255,255,255, ;
|
|
Page4.Caption = "Listare", ;
|
|
Page4.FontBold = .T., ;
|
|
Page4.FontCharSet = 238, ;
|
|
Page4.FontSize = 10, ;
|
|
Page4.Name = "P4"
|
|
*< END OBJECT: BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'pf.p1.Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
BackStyle = 0, ;
|
|
Caption = "Sintetice", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontSize = 10, ;
|
|
Height = 19, ;
|
|
Left = 199, ;
|
|
Name = "Check1", ;
|
|
SpecialEffect = 0, ;
|
|
Style = 1, ;
|
|
Top = 6, ;
|
|
Visible = .T., ;
|
|
Width = 71
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Label2' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Rulaje", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 405, ;
|
|
Name = "Label2", ;
|
|
Top = 7, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 31
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.Label4' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Total sume", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 533, ;
|
|
Name = "Label4", ;
|
|
Top = 7, ;
|
|
Width = 126, ;
|
|
ZOrderSet = 32
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.Label5' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Solduri", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 661, ;
|
|
Name = "Label5", ;
|
|
Top = 7, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 34
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.Label8' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Total precedente", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 277, ;
|
|
Name = "Label8", ;
|
|
TabIndex = 19, ;
|
|
Top = 7, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.lblcredit' AS _label WITH ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Credit", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Height = 17, ;
|
|
Left = 199, ;
|
|
Name = "lblcredit", ;
|
|
TabIndex = 20, ;
|
|
Top = 53, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 18
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.lbldebit' AS _label WITH ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Debit", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
Height = 17, ;
|
|
Left = 199, ;
|
|
Name = "lbldebit", ;
|
|
TabIndex = 20, ;
|
|
Top = 29, ;
|
|
Width = 71, ;
|
|
ZOrderSet = 17
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.lblsld1' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackColor = 255,255,255, ;
|
|
BackStyle = 1, ;
|
|
BorderStyle = 1, ;
|
|
Caption = " Solduri 1 Ian.", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 148, ;
|
|
Name = "lblsld1", ;
|
|
TabIndex = 19, ;
|
|
Top = 7, ;
|
|
Visible = .F., ;
|
|
Width = 123, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.p1.Shape1' AS shape WITH ;
|
|
Anchor = 10, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 3, ;
|
|
Comment = "*:OnResize=ST", ;
|
|
Height = 76, ;
|
|
Left = 2, ;
|
|
Name = "Shape1", ;
|
|
Top = 1, ;
|
|
Width = 790
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'pf.p1.Text1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sprecdeb", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 277, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 6, ;
|
|
Top = 26, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text2' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.spreccred", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 277, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 7, ;
|
|
Top = 50, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text3' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.srulcred", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 405, ;
|
|
Name = "Text3", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 8, ;
|
|
Top = 50, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 12
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text4' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sruldeb", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 405, ;
|
|
Name = "Text4", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 10, ;
|
|
Top = 26, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text5' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.stotdeb", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 533, ;
|
|
Name = "Text5", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 9, ;
|
|
Top = 26, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text6' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.stotcred", ;
|
|
DisabledBackColor = 187,235,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 533, ;
|
|
Name = "Text6", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 11, ;
|
|
Top = 50, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 15
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text7' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.ssolddeb", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 661, ;
|
|
Name = "Text7", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 6, ;
|
|
Top = 26, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 21
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.Text8' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.ssoldcred", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(15,gnPA)), ;
|
|
Left = 661, ;
|
|
Name = "Text8", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 7, ;
|
|
Top = 50, ;
|
|
Width = 127, ;
|
|
ZOrderSet = 22
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.txtpreccred1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.spreccred1", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,gnPA)), ;
|
|
Left = 148, ;
|
|
Name = "txtpreccred1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 7, ;
|
|
Top = 50, ;
|
|
Visible = .F., ;
|
|
Width = 127, ;
|
|
ZOrderSet = 11
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.p1.txtprecdeb1' AS _textbox WITH ;
|
|
Alignment = 1, ;
|
|
Anchor = 9, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "m.sprecdeb1", ;
|
|
DisabledBackColor = 236,249,255, ;
|
|
Enabled = .T., ;
|
|
FontSize = 10, ;
|
|
Format = "r", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,gnPA)), ;
|
|
Left = 148, ;
|
|
Name = "txtprecdeb1", ;
|
|
ReadOnly = .T., ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 6, ;
|
|
Top = 26, ;
|
|
Visible = .F., ;
|
|
Width = 127, ;
|
|
ZOrderSet = 10
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cboSucursale' AS _combobox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
FontSize = 10, ;
|
|
Height = 24, ;
|
|
Left = 134, ;
|
|
Name = "cboSucursale", ;
|
|
RowSource = "", ;
|
|
RowSourceType = 1, ;
|
|
TabIndex = 15, ;
|
|
ToolTipText = "", ;
|
|
Top = 23, ;
|
|
Visible = .F., ;
|
|
Width = 193
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'pf.P2.Ck_acont' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = acont, ;
|
|
Caption = "Selectie analitic", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Left = 651, ;
|
|
Name = "Ck_acont", ;
|
|
Top = 41
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.Ck_cont' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = cont, ;
|
|
Caption = "Selectie cont", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Left = 651, ;
|
|
Name = "Ck_cont", ;
|
|
Top = 25
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.Ck_denumire' AS ck_filtru_text WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
camp_nume = denumire, ;
|
|
Caption = "Selectie denumire", ;
|
|
Comment = "*:OnResize=ST", ;
|
|
FontCharSet = 1, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Left = 651, ;
|
|
Name = "Ck_denumire", ;
|
|
Top = 56
|
|
*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.ckanalitic' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Conturi analitice", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 501, ;
|
|
Name = "ckanalitic", ;
|
|
TabIndex = 4, ;
|
|
Top = 25, ;
|
|
Value = 0, ;
|
|
Width = 112, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cksold1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "\<Solduri la 1 ian.", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 651, ;
|
|
Name = "cksold1", ;
|
|
TabIndex = 4, ;
|
|
Top = 10, ;
|
|
Value = 0, ;
|
|
Width = 109, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cktotal1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total clase (gr.1)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 336, ;
|
|
Name = "cktotal1", ;
|
|
TabIndex = 2, ;
|
|
Top = 10, ;
|
|
Value = 0, ;
|
|
Width = 116, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cktotal2' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total grupe (gr.2)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 336, ;
|
|
Name = "cktotal2", ;
|
|
TabIndex = 3, ;
|
|
Top = 25, ;
|
|
Value = 0, ;
|
|
Width = 117, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cktotal3' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Total conturi (gr.3)", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 336, ;
|
|
Name = "cktotal3", ;
|
|
TabIndex = 5, ;
|
|
Top = 41, ;
|
|
Value = 0, ;
|
|
Width = 124, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.cktotal4' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Conturi", ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 501, ;
|
|
Name = "cktotal4", ;
|
|
TabIndex = 6, ;
|
|
Top = 10, ;
|
|
Value = 1, ;
|
|
Width = 60, ;
|
|
ZOrderSet = 37
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'pf.P2.Shape1' AS shape WITH ;
|
|
Anchor = 10, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 3, ;
|
|
Comment = "*:OnResize=ST", ;
|
|
Height = 76, ;
|
|
Left = 2, ;
|
|
Name = "Shape1", ;
|
|
Top = 1, ;
|
|
Width = 790
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'pf.p3.Optiongroup1' AS optiongroup WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .F., ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ButtonCount = 8, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
ControlSource = "", ;
|
|
Height = 61, ;
|
|
Left = 377, ;
|
|
Name = "Optiongroup1", ;
|
|
SpecialEffect = 1, ;
|
|
Top = 12, ;
|
|
Value = 8, ;
|
|
Width = 385, ;
|
|
ZOrderSet = 3, ;
|
|
Option1.AutoSize = .F., ;
|
|
Option1.BackStyle = 0, ;
|
|
Option1.Caption = "\<Rulaj Debit", ;
|
|
Option1.ControlSource = "", ;
|
|
Option1.Enabled = .T., ;
|
|
Option1.FontCharSet = 1, ;
|
|
Option1.FontName = "Arial", ;
|
|
Option1.FontSize = 10, ;
|
|
Option1.Height = 19, ;
|
|
Option1.Left = 112, ;
|
|
Option1.Name = "Option3", ;
|
|
Option1.TabIndex = 3, ;
|
|
Option1.Top = 5, ;
|
|
Option1.Value = 0, ;
|
|
Option1.Width = 99, ;
|
|
Option2.AutoSize = .F., ;
|
|
Option2.BackStyle = 0, ;
|
|
Option2.Caption = "R\<ulaj Credit", ;
|
|
Option2.ControlSource = "", ;
|
|
Option2.Enabled = .T., ;
|
|
Option2.FontCharSet = 1, ;
|
|
Option2.FontName = "Arial", ;
|
|
Option2.FontSize = 10, ;
|
|
Option2.Height = 19, ;
|
|
Option2.Left = 112, ;
|
|
Option2.Name = "Option4", ;
|
|
Option2.TabIndex = 4, ;
|
|
Option2.Top = 24, ;
|
|
Option2.Value = 0, ;
|
|
Option2.Width = 106, ;
|
|
Option3.AutoSize = .F., ;
|
|
Option3.BackStyle = 0, ;
|
|
Option3.Caption = "Tota\<l Debit", ;
|
|
Option3.ControlSource = "", ;
|
|
Option3.Enabled = .T., ;
|
|
Option3.FontCharSet = 1, ;
|
|
Option3.FontName = "Arial", ;
|
|
Option3.FontSize = 10, ;
|
|
Option3.Height = 19, ;
|
|
Option3.Left = 257, ;
|
|
Option3.Name = "Option6", ;
|
|
Option3.TabIndex = 6, ;
|
|
Option3.Top = 5, ;
|
|
Option3.Width = 99, ;
|
|
Option4.AutoSize = .F., ;
|
|
Option4.BackStyle = 0, ;
|
|
Option4.Caption = "T\<otal Credit", ;
|
|
Option4.ControlSource = "", ;
|
|
Option4.Enabled = .T., ;
|
|
Option4.FontCharSet = 1, ;
|
|
Option4.FontName = "Arial", ;
|
|
Option4.FontSize = 10, ;
|
|
Option4.Height = 19, ;
|
|
Option4.Left = 257, ;
|
|
Option4.Name = "Option7", ;
|
|
Option4.TabIndex = 7, ;
|
|
Option4.Top = 24, ;
|
|
Option4.Value = 0, ;
|
|
Option4.Width = 106, ;
|
|
Option5.AutoSize = .F., ;
|
|
Option5.BackStyle = 0, ;
|
|
Option5.Caption = "Ru\<laje Deb&Cred", ;
|
|
Option5.FontCharSet = 1, ;
|
|
Option5.FontName = "Arial", ;
|
|
Option5.FontSize = 10, ;
|
|
Option5.Height = 19, ;
|
|
Option5.Left = 112, ;
|
|
Option5.Name = "Option5", ;
|
|
Option5.TabIndex = 5, ;
|
|
Option5.Top = 43, ;
|
|
Option5.Value = 0, ;
|
|
Option5.Width = 120, ;
|
|
Option6.AutoSize = .F., ;
|
|
Option6.BackStyle = 0, ;
|
|
Option6.Caption = "Tot\<al Deb&Cred", ;
|
|
Option6.FontCharSet = 1, ;
|
|
Option6.FontName = "Arial", ;
|
|
Option6.FontSize = 10, ;
|
|
Option6.Height = 19, ;
|
|
Option6.Left = 257, ;
|
|
Option6.Name = "Option8", ;
|
|
Option6.TabIndex = 8, ;
|
|
Option6.Top = 43, ;
|
|
Option6.Value = 0, ;
|
|
Option6.Width = 114, ;
|
|
Option7.AutoSize = .F., ;
|
|
Option7.BackStyle = 0, ;
|
|
Option7.Caption = "\<Fisa cont", ;
|
|
Option7.FontCharSet = 1, ;
|
|
Option7.FontName = "Arial", ;
|
|
Option7.FontSize = 10, ;
|
|
Option7.Height = 19, ;
|
|
Option7.Left = 12, ;
|
|
Option7.Name = "Option2", ;
|
|
Option7.TabIndex = 2, ;
|
|
Option7.Top = 25, ;
|
|
Option7.Value = 0, ;
|
|
Option7.Width = 70, ;
|
|
Option8.AutoSize = .F., ;
|
|
Option8.BackStyle = 0, ;
|
|
Option8.Caption = "Balanta", ;
|
|
Option8.FontCharSet = 1, ;
|
|
Option8.FontName = "Arial", ;
|
|
Option8.FontSize = 10, ;
|
|
Option8.Height = 19, ;
|
|
Option8.Left = 12, ;
|
|
Option8.Name = "Option1", ;
|
|
Option8.TabIndex = 1, ;
|
|
Option8.Top = 5, ;
|
|
Option8.Value = 1, ;
|
|
Option8.Width = 61
|
|
*< END OBJECT: BaseClass="optiongroup" />
|
|
|
|
ADD OBJECT 'pf.p3.Shape1' AS shape WITH ;
|
|
Anchor = 10, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 3, ;
|
|
Comment = "*:OnResize=ST", ;
|
|
Height = 76, ;
|
|
Left = 2, ;
|
|
Name = "Shape1", ;
|
|
Top = 1, ;
|
|
Width = 786
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'pf.P4.cboRaport' AS combobox WITH ;
|
|
Anchor = 9, ;
|
|
BoundTo = .T., ;
|
|
ColumnCount = 1, ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontSize = 10, ;
|
|
Height = 24, ;
|
|
Left = 578, ;
|
|
Name = "cboRaport", ;
|
|
RowSource = "4 egalitati 14-6-30 (A4),4 egalitati 14-6-30/A (A4),4 egalitati special (A4),5 egalitati 14-6-30/a (A3),6 egalitati 14-6-30/b (A3)", ;
|
|
RowSourceType = 1, ;
|
|
Style = 2, ;
|
|
Top = 20, ;
|
|
Width = 200
|
|
*< END OBJECT: BaseClass="combobox" />
|
|
|
|
ADD OBJECT 'pf.P4.Label2' AS _label WITH ;
|
|
Anchor = 9, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Raport balanta", ;
|
|
Comment = "*:OnResize=RT", ;
|
|
FontBold = .F., ;
|
|
FontCharSet = 238, ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 479, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 13, ;
|
|
Top = 25, ;
|
|
Width = 86, ;
|
|
ZOrderSet = 14
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'pf.P4.Shape1' AS shape WITH ;
|
|
Anchor = 10, ;
|
|
BackColor = 236,249,255, ;
|
|
BorderStyle = 3, ;
|
|
Comment = "*:OnResize=ST", ;
|
|
Height = 76, ;
|
|
Left = 2, ;
|
|
Name = "Shape1", ;
|
|
Top = 1, ;
|
|
Width = 786
|
|
*< END OBJECT: BaseClass="shape" />
|
|
|
|
ADD OBJECT 'Resizer1' AS resizer WITH ;
|
|
Left = 792, ;
|
|
Name = "Resizer1", ;
|
|
TabIndex = 16, ;
|
|
Top = 405, ;
|
|
ZOrderSet = 12, ;
|
|
Label1.Name = "Label1"
|
|
*< END OBJECT: ClassLib="resizer.vcx" BaseClass="control" />
|
|
|
|
ADD OBJECT 'txtcont' AS _textbox WITH ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
Height = 25, ;
|
|
Left = 44, ;
|
|
Name = "txtcont", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 1, ;
|
|
Top = 87, ;
|
|
Width = 44, ;
|
|
ZOrderSet = 13
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtcont2' AS _textbox WITH ;
|
|
Comment = "*:OnResize=LT", ;
|
|
ControlSource = "", ;
|
|
Format = "k", ;
|
|
Height = 25, ;
|
|
Left = 100, ;
|
|
Name = "txtcont2", ;
|
|
SpecialEffect = 1, ;
|
|
TabIndex = 2, ;
|
|
Top = 87, ;
|
|
Width = 44, ;
|
|
ZOrderSet = 16
|
|
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="textbox" />
|
|
|
|
PROCEDURE adauga_linie
|
|
LOCAL lcIdSucursala, lnIdSucursala, lcSucursala
|
|
Private pcbal,pcCont,pcSCont,pcACont,pnButon
|
|
Store "" To pcbal,pcCont,pcSCont,pcACont
|
|
pnButon=1
|
|
pcbal=This.CALIas
|
|
|
|
STORE "" TO locauta
|
|
lnIdSucursala = NULL
|
|
lcSucursala = ''
|
|
IF glEMama
|
|
llToateIreg = .F.
|
|
llNou = .F.
|
|
llBlank = .T.
|
|
loCauta = caut_sucursala(llToateIreg, llNou, llBlank)
|
|
lnIdSucursala = loCauta.id_sucursala
|
|
lcSucursala = loCauta.sucursala
|
|
ELSE
|
|
lnIdSucursala = gnIdSucursala && pentru o sucursala este id-ul firmei, iar pe firma independenta este null
|
|
ENDIF
|
|
lcIdSucursala = IIF(NVL(lnIdSucursala,0) = 0, 'NULL', ALLTRIM(STR(lnIdSucursala)))
|
|
|
|
pcCont=SELECT_CONT()
|
|
If pnButon=2
|
|
Return
|
|
Endif
|
|
If Empty(pcCont)
|
|
Return
|
|
Endif
|
|
|
|
pcSCont=Left(pcCont,4)
|
|
lnPos=At(".",pcCont)
|
|
If lnPos>0
|
|
pcACont=Padr(Substr(pcCont,lnPos+1),4," ")
|
|
Endif
|
|
|
|
|
|
|
|
pcexec=[begin PACK_INREGISTRARI.balinsproc(]+lcIdSucursala+[,]+Alltrim(Str(gnAn))+[,]+Alltrim(Str(gnLuna))+;
|
|
[,']+Alltrim(pcSCont)+[',']+Alltrim(pcACont)+['); end;]
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
If !Empty(pcACont)
|
|
Thisform.pf.p2.ckanalitic.Value=1
|
|
Endif
|
|
|
|
Thisform.MousePointer=11
|
|
Thisform.LockScreen=.T.
|
|
Thisform.reconstruct
|
|
Thisform.afisactual
|
|
Select (pcbal)
|
|
Locate For Cont=pcSCont And acont=pcACont AND NVL(id_sucursala,0) = NVL(lnIdSucursala,0)
|
|
Thisform.LockScreen=.F.
|
|
Thisform.MousePointer= 0
|
|
Thisform.grid1.SetFocus
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE afisactual
|
|
#Define CRLF Chr(13) + Chr(10)
|
|
|
|
|
|
Private lcbal,lcacont && ,lccont1,lccont2 - le-am pus inainte de do form
|
|
lcbal=Thisform.calias
|
|
|
|
Local T1
|
|
T1=""
|
|
T='.t.'
|
|
|
|
lccont1=Alltrim(This.txtcont.Value)
|
|
lccont2=Alltrim(This.txtcont2.Value)
|
|
|
|
If Empty(lccont2)
|
|
lccont2 = lccont1
|
|
Endif
|
|
|
|
*lcacont=ALLTRIM(this.txtacont.value)
|
|
lcacont1=Alltrim(This.ct1.text1.Value)
|
|
lcacont2=Alltrim(This.ct1.text2.Value)
|
|
lcacont3=Alltrim(This.ct1.text3.Value)
|
|
lcacont4=Alltrim(This.ct1.text4.Value)
|
|
|
|
Do Case
|
|
Case Len(lccont1)=1
|
|
*T=[G1="]+LCCONT+["]
|
|
T = T + [ and VAL(LEFT(G1,1))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=2
|
|
*T=[G2="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=3
|
|
*T=[G3="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))>=VAL(lcCont1)]
|
|
Case Len(lccont1)=4
|
|
*T=[G4="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))>=VAL(lcCont1)]
|
|
Endcase
|
|
|
|
Do Case
|
|
Case Len(lccont2)=1
|
|
*T=[G1="]+LCCONT+["]
|
|
T = T + [ and VAL(LEFT(G1,1))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=2
|
|
*T=[G2="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G2),2,'0'))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=3
|
|
*T=[G3="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G3),3,'0'))<=VAL(lcCont2)]
|
|
Case Len(lccont2)=4
|
|
*T=[G4="]+LCCONT+["]
|
|
T = T + [ and VAL(PADR(ALLTRIM(G4),4,'0'))<=VAL(lcCont2)]
|
|
Endcase
|
|
|
|
|
|
&& SOLDURI LA 1 IANUARIE
|
|
If This.pf.p2.cksold1.Value=0
|
|
With Thisform.grid1
|
|
.cprecdeb1.Visible=.F.
|
|
.cpreccred1.Visible=.F.
|
|
Endwith
|
|
With Thisform.pf.p1
|
|
.lblsld1.Visible=.F.
|
|
.txtprecdeb1.Visible=.F.
|
|
.txtpreccred1.Visible=.F.
|
|
.lbldebit.Left=.text1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.text2.Left-.lblcredit.Width
|
|
.check1.Left=.label8.Left-.lbldebit.Width
|
|
Endwith
|
|
Else
|
|
|
|
With Thisform.grid1
|
|
.cprecdeb1.Visible=.T.
|
|
.cpreccred1.Visible=.T.
|
|
Endwith
|
|
With Thisform.pf.p1
|
|
.lblsld1.Visible=.T.
|
|
.txtprecdeb1.Visible=.T.
|
|
.txtpreccred1.Visible=.T.
|
|
.lbldebit.Left=.txtprecdeb1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.txtpreccred1.Left-.lblcredit.Width
|
|
.check1.Left=.lblsld1.Left-.lbldebit.Width
|
|
Endwith
|
|
Endif
|
|
&& SOLDURI LA 1 IANUARIE ^
|
|
|
|
*/-----------------------------------------------------
|
|
&&& conditia de filtrare pt balanta sintetica
|
|
llTotal1=Iif(This.pf.p2.cktotal1.Value=1,.T.,.F.)
|
|
llTotal2=Iif(This.pf.p2.cktotal2.Value=1,.T.,.F.)
|
|
llTotal3=Iif(This.pf.p2.cktotal3.Value=1,.T.,.F.)
|
|
llTotal4=Iif(This.pf.p2.cktotal4.Value=1,.T.,.F.)
|
|
llAnalitic=Iif(This.pf.p2.ckanalitic.Value=1,.T.,.F.)
|
|
|
|
|
|
If glEMama
|
|
lnIdSucursala = crsSucursale.ID_SUCURSALA
|
|
llBalantaCentralizata = lnIdSucursala = -1 && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = lnIdSucursala = -2 && BALANTA DEFALCATA
|
|
llBalantaGrup = lnIdSucursala = -3 && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Else
|
|
lnIdSucursala = Null
|
|
llBalantaCentralizata = .F. && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = .F.
|
|
llBalantaGrup = .F. && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Endif
|
|
|
|
*!* PE MAMA TOTALURILE SUNT CALCULATE DOAR PE CONTURILE CENTRALIZATE
|
|
*!* DEZACTIVEZ BIFELE DE TOTALURI DACA NU ALEG BALANTA CENTRALIZATA
|
|
If glEMama
|
|
With This.pf.p2
|
|
.cktotal1.Enabled = llBalantaCentralizata
|
|
.cktotal2.Enabled = llBalantaCentralizata
|
|
.cktotal3.Enabled = llBalantaCentralizata
|
|
Endwith
|
|
Endif
|
|
|
|
|
|
lclista=[]
|
|
*!* ARAT TOTALURILE PE CLASE/GRUPE DOAR DACA SUNT PE BALANTA CENTRALIZATA SAU PE SUCURSALA/FIRMA INDEPENDENTA
|
|
If llBalantaCentralizata Or !glEMama
|
|
If llTotal1
|
|
lclista=lclista+[,1]
|
|
Endif
|
|
If llTotal2
|
|
lclista=lclista+[,2]
|
|
Endif
|
|
If llTotal3
|
|
lclista=lclista+[,3]
|
|
Endif
|
|
Endif
|
|
If glEMama
|
|
If llTotal4
|
|
If llBalantaCentralizata
|
|
lclista=lclista + [,6] && conturi sintetice din balanta centralizata
|
|
Else
|
|
lclista=lclista + [,4] && conturi sintetice din balanta normala
|
|
Endif
|
|
Endif
|
|
If llAnalitic
|
|
If llBalantaCentralizata
|
|
lclista=lclista + [,7] && conturi analitice din balanta centralizata
|
|
Else
|
|
lclista=lclista + [,5] && conturi analitice din balanta normala
|
|
Endif
|
|
Endif
|
|
|
|
Else
|
|
If llTotal4
|
|
lclista=lclista+[,4]
|
|
Endif
|
|
If llAnalitic
|
|
lclista=lclista+[,5]
|
|
Endif
|
|
Endif
|
|
|
|
|
|
|
|
If !Empty(lclista)
|
|
If Left(lclista,1)=","
|
|
lclista=Substr(lclista,2)
|
|
Endif
|
|
T = T + [ AND INLIST(BNIVEL,]+lclista+[)]
|
|
Else
|
|
T = T + [ AND .F.]
|
|
Endif
|
|
|
|
lccond2=[]
|
|
|
|
If !Empty(lcacont1)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,1,1)="]+lcacont1+["]
|
|
Endif
|
|
If !Empty(lcacont2)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,2,1)="]+lcacont2+["]
|
|
Endif
|
|
If !Empty(lcacont3)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,3,1)="]+lcacont3+["]
|
|
Endif
|
|
If !Empty(lcacont4)
|
|
lccond2= lccond2 + [ and SUBSTR(acont,4,1)="]+lcacont4+["]
|
|
Endif
|
|
|
|
T= T + lccond2
|
|
If Thisform.pf.p2.ck_cont.Value = 1
|
|
T = T + Thisform.pf.p2.ck_cont.filtru_vfp
|
|
Endif
|
|
If Thisform.pf.p2.ck_acont.Value = 1
|
|
T = T + Thisform.pf.p2.ck_acont.filtru_vfp
|
|
Endif
|
|
If Thisform.pf.p2.ck_denumire.Value = 1
|
|
T = T + Thisform.pf.p2.ck_denumire.filtru_vfp
|
|
Endif
|
|
|
|
|
|
*!* 12.02.2008
|
|
*!* ARAT CONTURILE DE PE O SUCURSALA SAU DOAR CONTURILE DE PE MAMA
|
|
lcSucursale = ""
|
|
If glEMama
|
|
Do Case
|
|
Case llBalantaGrup
|
|
lcSucursale = " and Nvl(id_sucursala,0) = 0"
|
|
Case Nvl(lnIdSucursala,0) > 0
|
|
lcSucursale = " and id_sucursala = " + Alltrim(Str(lnIdSucursala))
|
|
Endcase
|
|
Endif
|
|
T = T + lcSucursale
|
|
*!* 12.02.2008 ^
|
|
*!*Messagebox(T + CRLF + CRLF + GETCALLSTACK())
|
|
T=[SET FILT TO ]+T
|
|
Select (lcbal)
|
|
*!* Copy To C:\BAL.Dbf
|
|
&T
|
|
|
|
Local lcFor
|
|
lcFor = [INLIST(bnivel, 4, 6)] && TOTALURI PE CONTURI SINTETICE - 4 = SUCURSALA/FIRMA INDEPENDENTA; 6 = MAMA
|
|
If This.pf.p1.check1.Value = 1 && TOTALURI PE CONTURI ANALITICE - 5 = SUCURSALA/FIRMA INDEPENDENTA; 7 = MAMA
|
|
lcFor = [INLIST(bnivel, 5, 7)]
|
|
Endif
|
|
*!* SELECT * FROM (lcbal) INTO TABLE c:\lcbal.dbf
|
|
Select (lcbal)
|
|
Sum PRECDEB1,PRECCRED1,precdeb,preccred,ruldeb,rulcred,totdeb,totcred,solddeb,soldcred For &lcFor ;
|
|
to m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
|
|
|
|
With Thisform.pf.p1
|
|
.text1.Refresh
|
|
.text2.Refresh
|
|
.text3.Refresh
|
|
.text4.Refresh
|
|
.text5.Refresh
|
|
.text6.Refresh
|
|
.text7.Refresh
|
|
.text8.Refresh
|
|
.txtpreccred1.Refresh
|
|
.txtprecdeb1.Refresh
|
|
Endwith
|
|
|
|
Select (lcbal)
|
|
Go Top
|
|
This.grid1.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE butapend
|
|
*!* LOCAL lbMenu[4]
|
|
*!* PRIVATE lcbal
|
|
*!* lcbal=THISFORM.calias
|
|
|
|
|
|
*!* lbMenu=""
|
|
*!* lbMenu[1]="\<Deblocare"
|
|
*!* IF THISFORM.grid1.READONLY
|
|
*!* lbMenu[2]="\Adaug Blanc"
|
|
*!* ELSE
|
|
*!* lbMenu[2]="\<Adaug Blanc"
|
|
*!* ENDIF
|
|
*!* lbMenu[3]="\-"
|
|
*!* lbMenu[4]="\<Revenire"
|
|
|
|
|
|
*!* THISFORM.oMenuShortcut.ShowMenu(@lbMenu)
|
|
|
|
*!* DO CASE
|
|
*!* CASE BAR()=1
|
|
|
|
*!* SELECT (lcbal)
|
|
*!* SET FILTER TO !DELETED()
|
|
*!* THISFORM.grid1.READONLY=.F.
|
|
*!* THISFORM.grid1.DELETEMARK=.T.
|
|
|
|
*!* CASE BAR()=2
|
|
*!* this.adauga_linie()
|
|
*!* CASE BAR()=4
|
|
*!* *SELE BAL
|
|
*!* SELECT (lcbal)
|
|
*!* SET FILTER TO !DELETED()
|
|
*!* THISFORM.grid1.READONLY=.T.
|
|
*!* THISFORM.grid1.DELETEMARK=.F.
|
|
*!* ENDCASE
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE butdrept
|
|
*return
|
|
Private lcsel,lccont
|
|
lcsel=This.CALIAS
|
|
|
|
Local laMenu[9]
|
|
Select (lcsel)
|
|
lccont=Cont
|
|
|
|
laMenu=""
|
|
|
|
laMenu[1]="\<Fisa cont "+Alltrim(lccont)
|
|
laMenu[2]="\-"
|
|
laMenu[3]="\<Rulaj Debit"
|
|
laMenu[4]="R\<ulaj Credit"
|
|
laMenu[5]="Ru\<laje Deb&Cred"
|
|
laMenu[6]="\-"
|
|
laMenu[7]="\<Total Debit"
|
|
laMenu[8]="T\<otal Credit"
|
|
laMenu[9]="Tot\<al Deb&Cred"
|
|
|
|
Thisform.oMenuShortcut.ShowMenu(@laMenu)
|
|
|
|
Do Case
|
|
Case Bar()=1
|
|
Thisform.fisacont
|
|
Case Bar()=3
|
|
Thisform.ruldeb
|
|
Case Bar()=4
|
|
Thisform.rulcred
|
|
Case Bar()=5
|
|
Thisform.ruldebcred
|
|
Case Bar()=7
|
|
Thisform.totdeb
|
|
Case Bar()=8
|
|
Thisform.totcred
|
|
Case Bar()=9
|
|
Thisform.totdebcred
|
|
Endcase
|
|
|
|
*laMenu[1]="\<Copiaza"
|
|
*laMenu[2]="Re\<da"
|
|
*laMenu[3]="\-"
|
|
*CASE BAR()=1
|
|
* SYS(1500,'_MED_copy','_MEDIT')
|
|
*CASE BAR()=2
|
|
* SYS(1500,'_MED_paste','_MEDIT')
|
|
|
|
Thisform.txtcont.Refresh
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza
|
|
*!* nu calculez daca gridul este readonly
|
|
IF THIS.GRId1.ReadOnly
|
|
RETURN
|
|
ENDIF
|
|
LOCAL lnIdSucursala
|
|
Private pcSufix,pcAlias,pnOldValue,pcVar,pnValoare,pnRec,pcOldAlias,pcFiltru,pcAcont
|
|
pcSufix=Thisform.cField
|
|
pcAlias=Thisform.cAlias
|
|
pnOldValue=Thisform.noldvalue
|
|
|
|
Select (pcAlias)
|
|
pcVar=pcAlias+[.]+pcSufix
|
|
pnValoare=Evaluate(pcVar)
|
|
pcAcont=Upper(Alltrim(acont))
|
|
lnIdSucursala = id_sucursala
|
|
|
|
This.nnewvalue=pnValoare
|
|
lnNewValue=This.nnewvalue
|
|
pcFiltru=Filter()
|
|
pnRec=Recno()
|
|
pcField=This.cField
|
|
|
|
If lnNewValue!=pnOldValue
|
|
If Empty(This.ccont) && o linie cu totaluri
|
|
Wait Window "Nu puteti modifica totalul." Timeout 1
|
|
Select (pcAlias)
|
|
Replace &pcVar With pnOldValue
|
|
This.nnewvalue=pnOldValue
|
|
Return
|
|
Endif
|
|
lcDbf=Dbf(pcAlias)
|
|
Use (lcDbf) In 0 Again Shared Alias TBALANTAR
|
|
Select TBALANTAR
|
|
Goto pnRec
|
|
pcOldAlias=This.cAlias
|
|
This.cAlias="TBALANTAR"
|
|
* If Inlist(lcField,"PRECDEB","PRECCRED","RULDEB","RULCRED") && NU CALCULEZ DECAT PT PRECEDENTE SI RULAJE
|
|
Thisform.calculeaza_orizontal() && calculez pentru linia curenta
|
|
* Endif
|
|
If Empty(pcAcont) && cont2003 oracle
|
|
Thisform.calculeaza_vertical() && calculez pentru linia cu totaluri
|
|
Endif
|
|
Use In TBALANTAR
|
|
This.cAlias=pcOldAlias
|
|
Select (pcOldAlias)
|
|
This.in_bal(lnIdSucursala, This.ccont,pcAcont,.T.) && introduc in bal noua valoare si recalculez
|
|
*!* Select (lcAlias)
|
|
*!* Set Filter To &lcFilter
|
|
Endif
|
|
This.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza_orizontal
|
|
PARAMETERS tcAlias
|
|
PRIVATE lcAlias
|
|
|
|
IF EMPTY(tcAlias)
|
|
lcAlias=thisform.calias
|
|
ELSE
|
|
lcAlias=ALLTRIM(tcalias)
|
|
ENDIF
|
|
*WAIT WINDOW 'calculeaza orizontal '+lcalias
|
|
*!* SELECT (lcAlias)
|
|
*!* lcCont=CONT
|
|
*!* lcG1=G1
|
|
*!* lcG2=G2
|
|
*!* lcG3=G3
|
|
*!* lcG4=G4
|
|
*!* lcCond=[left(cont,]+ALLTRIM(STR(LEN(lccont)))+[)=]+lccont+[ AND G1=]+lcG1+[ AND G2=]+lcG2+[ AND G3=]+lcG3+[ AND G4=]+lcG4
|
|
*!* WAIT WINDOW lcCond
|
|
|
|
SELECT (lcAlias)
|
|
IF FLOCK()
|
|
REPLACE totdeb WITH precdeb+ruldeb,totcred WITH preccred+rulcred
|
|
REPLACE solddeb WITH IIF(totdeb-totcred>=0,ABS(totdeb-totcred),0),soldcred WITH IIF(totdeb-totcred<0,ABS(totdeb-totcred),0)
|
|
UNLOCK
|
|
* brow
|
|
ENDIF
|
|
|
|
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE calculeaza_vertical
|
|
Private lccont,lcAlias,lnRec,lnDifValue,lcField,lnValoare,laarray
|
|
|
|
lcAlias=This.calias
|
|
Select (lcAlias)
|
|
lnRec=Recno()
|
|
lccont=Alltrim(This.ccont)
|
|
*WAIT WINDOW 'lccont= '+lccont
|
|
lcField=This.cfield
|
|
lnDifValue=This.nnewvalue- This.noldvalue
|
|
*WAIT WINDOW 'lndifvalue = '+STR(lndifValue)
|
|
*WAIT WINDOW 'calculeaza vertical '+lcalias
|
|
|
|
lnlung=4
|
|
Dimension laarray[lnlung]
|
|
Store Space(4) To laarray
|
|
For i=1 To lnlung-1
|
|
* WAIT WINDOW 'i= '+STR(i)
|
|
laarray[i] = Substr(lccont,1,i)
|
|
* WAIT WINDOW laArray[i]
|
|
lcVar="G"+Alltrim(Str(i))
|
|
lcVar1="G"+Alltrim(Str(i+1))
|
|
LCCOND=[LOCATE FOR LEFT(]+lcVar+[,]+Alltrim(Str(i))+[)="]+Left(laarray[I],i)+[" AND EMPTY(]+lcVar1+[)]
|
|
* WAIT WINDOW lccond
|
|
Select (lcAlias)
|
|
&LCCOND
|
|
If Found()
|
|
If Flock()
|
|
lnValoare=Evaluate(lcField)+lnDifValue
|
|
Replace &lcField With lnValoare
|
|
This.calculeaza_orizontal(lcAlias) && calculez pentru liniile cu totaluri
|
|
Unlock
|
|
Endif
|
|
Endif
|
|
Endfor
|
|
|
|
Select (lcAlias)
|
|
Goto lnRec
|
|
ENDPROC
|
|
|
|
PROCEDURE cfield_assign
|
|
LPARAMETERS vNewVal
|
|
*To do: Modify this routine for the Assign method
|
|
THIS.cfield = m.vNewVal
|
|
|
|
PRIVATE lcAlias,lcSufix,lcVar
|
|
lcAlias=thisform.calias
|
|
lcSufix=this.cField
|
|
lcVar=lcAlias+[.]+lcSufix
|
|
lcCont=lcAlias+[.cont]
|
|
THISFORM.nOldValue=EVALUATE(lcVar)
|
|
thisform.ccont=EVALUATE(lcCont)
|
|
*WAIT WINDOW 'ccont '+thisform.ccont
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE conditieistoricact
|
|
Local lcConditie
|
|
lcConditie = ""
|
|
|
|
If glEMama
|
|
lnIdSucursala = crsSucursale.ID_SUCURSALA
|
|
llBalantaCentralizata = lnIdSucursala = -1 && BALANTA CENTRALIZATA
|
|
llBalantaDefalcata = lnIdSucursala = -2 && BALANTA DEFALCATA
|
|
llBalantaGrup = lnIdSucursala = -3 && BALANTA GRUP (FARA ID SUCURSALA)
|
|
Do Case
|
|
Case !Empty(Nvl(tbalanta.ID_SUCURSALA,0))
|
|
lcConditie = " and id_sucursala = " + Alltrim(Str(tbalanta.ID_SUCURSALA))
|
|
Case llBalantaDefalcata
|
|
If Empty(Nvl(tbalanta.ID_SUCURSALA,0))
|
|
lcConditie = " and id_sucursala is null"
|
|
Else
|
|
lcConditie = " and id_sucursala = " + Alltrim(Str(tbalanta.ID_SUCURSALA))
|
|
Endif
|
|
Case llBalantaGrup
|
|
lcConditie = " and id_sucursala is null"
|
|
Endcase
|
|
Else
|
|
lcConditie = gcCondSucursala
|
|
Endif
|
|
Return lcConditie
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Destroy
|
|
USE IN (SELECT('crsSucursale'))
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
If gcNumeProgram = [ROAMANAGER]
|
|
x= xmenu("\<Standard;\<Formatat")
|
|
Else
|
|
x= 1
|
|
Endif
|
|
|
|
Do Case
|
|
Case x=1
|
|
Local i,xlsheet,XLApp,tmpsheet, lcAlias, lcFiltru, lcColumnList, lcHeaderList, lcSelect, lcOutput, lcFrom, lcWhere, lcOrder
|
|
lcAlias = This.grid1.RecordSource
|
|
lcFiltru = Filter(lcAlias)
|
|
If Empty(lcFiltru)
|
|
lcFiltru = '.T.'
|
|
Endif
|
|
|
|
exista_excel=.T.
|
|
lcColumnList = ''
|
|
lcHeaderList = ''
|
|
lcSelect = ''
|
|
llSelect = .T.
|
|
lcType = 'CURSOR'
|
|
lcFrom = lcAlias
|
|
lcWhere = lcFiltru
|
|
lcOrder = 'g5,sucursala'
|
|
lcOutput = 'crsBal'
|
|
|
|
get_schema_grid(This.grid1,@lcColumnList, @lcHeaderList, @lcSelect, llSelect, lcType, lcFrom, lcWhere, lcOrder, lcOutput)
|
|
&lcSelect
|
|
*!* MESSAGEBOX(p3)
|
|
If Used(lcOutput)
|
|
Do export_xls With lcOutput In oproceduri_comune.prg
|
|
Use In (lcOutput)
|
|
Endif
|
|
Case x=2
|
|
lcTabel = Thisform.grid1.RecordSource
|
|
|
|
Select (lcTabel)
|
|
lcFiltru = Filter(lcTabel)
|
|
If Empty(lcFiltru)
|
|
lcFiltru = '.T.'
|
|
Endif
|
|
lcFiltru = Filter()
|
|
lcFiltru = Strtran(lcFiltru,'.AND.',' AND ')
|
|
lcFiltru = Substr(lcFiltru,9,Len(lcFiltru)-8)
|
|
|
|
|
|
Select g1, g2, g3, g4, Cont, acont, denumire, precdeb, preccred, ruldeb, rulcred, totdeb, totcred, solddeb, soldcred, ;
|
|
SPACE(9) As cont_acont, sucursala ;
|
|
FROM (lcTabel) ;
|
|
WHERE &lcFiltru Order By g5, sucursala ;
|
|
INTO Cursor cExcel Readwrite
|
|
|
|
Select cExcel
|
|
Replace All cont_acont With Alltrim(Cont)+ Iif(!Empty(acont),"_"+Alltrim(acont),"")
|
|
|
|
Do lanseaza_excel_balanta With "cExcel" In viz_bal.prg
|
|
|
|
If Used("cExcel")
|
|
Use In cExcel
|
|
Endif
|
|
Endcase
|
|
Return
|
|
|
|
*!* On Error Do exportare With Thisform.grid1.RecordSource,p1,p2
|
|
*!* tmpsheet = Getobject('','excel.sheet')
|
|
*!* On Error
|
|
|
|
*!* If exista_excel
|
|
*!* Wait Window "Se transmit datele catre Excel..." Nowait
|
|
|
|
*!* XLApp = tmpsheet.Application
|
|
|
|
*!* XLApp.workbooks.Close()
|
|
*!* XLApp.workbooks.Add()
|
|
*!* poExcel = XLApp.ActiveSheet
|
|
*!* Go Top
|
|
*!* poExcel.Cells(1,1).Font.Size=16
|
|
*!* poExcel.Cells(1,1).Font.Bold=.T.
|
|
*!* poExcel.Cells(1,1)=Thisform.titluFRUMOS1.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
|
|
*!* nRows = 3
|
|
*!* With Thisform.grid1
|
|
*!* For nCol = 1 To .ColumnCount
|
|
*!* nColumn = .Columns(nCol).ColumnOrder
|
|
*!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
|
|
*!* For lnobjcol=1 To .Columns(nCol).Objects.Count
|
|
*!* If Upper(.Columns(nCol).Objects(lnobjcol).BaseClass)='HEADER'
|
|
*!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).Objects(lnobjcol).Caption
|
|
*!* Exit
|
|
*!* Endif
|
|
*!* Endfor
|
|
*!* poExcel.Cells(nRows,nColumn).Font.Bold = .T.
|
|
*!* poExcel.Cells(nRows,nColumn).Interior.ColorIndex = 16
|
|
*!* Endfor
|
|
*!* Scan
|
|
*!* nRows = nRows + 1
|
|
*!* For nCol = 1 To .ColumnCount
|
|
*!* nColumn = .Columns(nCol).ColumnOrder
|
|
*!* If At('CHECK',Upper(.Columns(nCol).CurrentControl))>0
|
|
*!* poExcel.Cells(nRows,nColumn)=Iif(Eval(.Columns(nCol).ControlSource)==0,'NU','DA')
|
|
*!* Else
|
|
*!* poExcel.Cells(nRows,nColumn) = IIF(empty(Eval(.Columns(nCol).ControlSource)),'',Eval(.Columns(nCol).ControlSource))
|
|
*!* Endif
|
|
*!* Endfor
|
|
*!* Endscan
|
|
*!* Endwith
|
|
|
|
*!* XLApp.Visible = .T.
|
|
*!* Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE do_listare
|
|
*!* 24.01.2011
|
|
*!* marius.mutu
|
|
*!* balanta cumulata
|
|
|
|
*!* 04.08.2011
|
|
*!* marius.mutu
|
|
*!* listare foxypreview
|
|
|
|
Private pcPerioadaRef &&, pcDataOra
|
|
Local Tlist
|
|
|
|
*!* pcDataOra = ''
|
|
*!* pcDataOra = get_ora(2)
|
|
*!* 24.01.2011
|
|
IF !EMPTY(this.nAn2)
|
|
pcPerioadaRef = 'Perioada ' + Padl(Alltrim(Str(this.nLuna1)),2,'0') + "/" + Alltrim(Str(this.nAn1)) + " - " + Padl(Alltrim(Str(this.nLuna2)),2,'0') + "/" + Alltrim(Str(this.nAn2))
|
|
ELSE
|
|
pcPerioadaRef = 'Luna ' + Padl(Alltrim(Str(gnLuna)),2,'0') + "/" + Alltrim(Str(gnAn))
|
|
ENDIF
|
|
*!* 24.01.2011 ^
|
|
Local lcOptiuneRaport
|
|
Local Tlist
|
|
lcOptiuneRaport = Upper(Alltrim(Thisform.pf.p4.cboRaport.Value))
|
|
|
|
LNG1=Thisform.pf.p2.cktotal1.Value
|
|
LNG2=Thisform.pf.p2.cktotal3.Value
|
|
LNG3=Thisform.pf.p2.cktotal3.Value
|
|
LNG4=Thisform.pf.p2.cktotal4.Value
|
|
LNG5=Thisform.pf.p2.ckanalitic.Value
|
|
|
|
*!* DACA SUNT PE FIRMA MAMA SI SE LISTEAZA CONTURILE DEFALCATE SAU DOAR DE PE O SUCURSALA
|
|
*!* AFISEZ "TOATE SUCURSALELE" / "SUCURSALA X"
|
|
lcSucursala = ''
|
|
IF glEMama
|
|
DO CASE
|
|
CASE crsSucursale.id_sucursala = -2 && BALANTA CENTRALIZATA
|
|
lcSucursala = ' * TOATE SUCURSALELE * '
|
|
CASE crsSucursale.id_sucursala > 0
|
|
lcSucursala = ' * ' + Strtran(UPPER(Alltrim(crsSucursale.sucursala)),'BALANTA') + ' * '
|
|
ENDCASE
|
|
ENDIF
|
|
LCBAL=Thisform.CALIas
|
|
Select (LCBAL)
|
|
|
|
LCPARTIALA=Iif(!Empty(Thisform.TXTcont.Value)," PARTIALA "," ")
|
|
LCPARTIALA = lcSucursala + LCPARTIALA
|
|
|
|
Do Case
|
|
Case LNG5=1
|
|
m.titlu='- ANALITICA'+LCPARTIALA+'-'
|
|
Select (LCBAL)
|
|
&T
|
|
Replace All bifa With .F.
|
|
|
|
Select Distinct Cont,bnivel,bifa From &LCBAL ;
|
|
WHERE bnivel= 5 ;
|
|
INTO Cursor listbal Readwrite
|
|
|
|
If _Tally # 0
|
|
Do Form frm_list_balana
|
|
|
|
Select listbal
|
|
Scan For bifa
|
|
Scatter Name olist
|
|
Select (LCBAL)
|
|
Replace All bifa With .T. For Cont=olist.Cont AND INLIST(bnivel, 5, 7) && total analitice pe firma sucursala/mama
|
|
Select listbal
|
|
Endscan
|
|
Release olist
|
|
|
|
Select (LCBAL)
|
|
Tlist = T + ' and !bifa '
|
|
&Tlist
|
|
Endif
|
|
Use In listbal
|
|
Select (LCBAL)
|
|
|
|
Case LNG4=1 And LNG5=0
|
|
m.titlu='- SINTETICA'+LCPARTIALA+'-'
|
|
Otherwise
|
|
If Empty(LCPARTIALA)
|
|
m.titlu=""
|
|
Else
|
|
m.titlu='-'+LCPARTIALA+'-'
|
|
Endif
|
|
Endcase
|
|
|
|
lcRaport = ""
|
|
Do Case
|
|
Case lcOptiuneRaport = Upper("4 Egalitati 14-6-30 (A4)")
|
|
lcRaport="rapbal_a4_4_14_6_30" && A4 4 EGALITATI (TSP, RLC ,TS, SF)
|
|
|
|
Case lcOptiuneRaport = Upper("4 Egalitati 14-6-30/A (A4)")
|
|
lcRaport="rapbal_a4_4_14_6_30_a" && A4 4 EGALITATI (SI, RLC, TS, SF)
|
|
|
|
Case lcOptiuneRaport = Upper("4 egalitati special (A4)")
|
|
lcRaport="rapbal_a4_4_14_6_30_a1" && A4 4 EGALITATI (SI, TR, TS, SF)
|
|
|
|
Case lcOptiuneRaport = Upper("5 Egalitati 14-6-30/a (A3)")
|
|
lcRaport="rapbal_a3_5_14_6_30_a" && A3 5 EGALITATI (SI, TSP, RLC, TS, SF)
|
|
|
|
Case lcOptiuneRaport = Upper("6 Egalitati 14-6-30/b (A3)")
|
|
lcRaport="rapbal_a3_6_14_6_30_b" && A3 6 EGALITATI (SI, TSP, RLC, TR, TS, SF)
|
|
Endcase
|
|
|
|
This.AlwaysOnTop = .F.
|
|
*!* 04.08.2011
|
|
*!* goExport.export2frx(lcbal,lcRaport)
|
|
goExport.export2frx(lcbal,lcRaport, , , , , , .T.)
|
|
*!* 04.08.2011 ^
|
|
This.AlwaysOnTop = .T.
|
|
*!* If Reccount(LCBAL)>0
|
|
*!* This.AlwaysOnTop = .F.
|
|
*!* Report Format (lcRaport) To Printer Prompt Preview
|
|
*!* This.AlwaysOnTop = .T.
|
|
*!* Else
|
|
*!* amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
|
|
*!* Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE do_reface
|
|
x= xmenu('Refacere \<lunara;Refacere cu \<precedente')
|
|
lcSursa = [BALANTA]
|
|
lnLuna = gnLuna
|
|
lnAn = gnAn
|
|
lcCont = []
|
|
|
|
Do Case
|
|
Case x = 1
|
|
lcLunar = [0]
|
|
*lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,0); end;]
|
|
Case x = 2
|
|
lcLunar = [1]
|
|
*lcExec = [begin pack_refaceri.refac_balanta('] + gcS + [',] + Alltrim(Str(gnAn)) + [,] + Alltrim(Str(gnLuna)) + [,1); end;]
|
|
Otherwise
|
|
Return
|
|
Endcase
|
|
|
|
*!* lnSucces = goExecutor.oExecute(lcExec)
|
|
*!* If lnSucces < 0
|
|
*!* Messagebox(goExecutor.cEroare,0+16,'Eroare')
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
lnSucces = refacere(lcSursa,lcLunar,lcCont,lnLuna,lnAn) && IN orefaceri.prg
|
|
IF lnSucces > 0
|
|
aMessagebox('Refacerea s-a terminat!',0+64,"Info refacere")
|
|
Thisform.reconstruct
|
|
Thisform.afisactual
|
|
Do inainte With this.cProceduraInainte In oinainte_de.prg
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE fisacont
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
*!* modificare v 2.0.110
|
|
*!* lcCondSucursala = Thisform.conditieistoricact()
|
|
*!* modificare v 2.0.110 ^
|
|
Select (lcbal)
|
|
Scatter Name locont
|
|
*!* modificare v 2.0.110
|
|
If Empty(Substr(Nvl(locont.Cont,''),1,4))
|
|
amessagebox("Nu exista contul in selectie!",48,"Atentie")
|
|
Else
|
|
lcCondSucursala = Thisform.conditieistoricact()
|
|
*!* modificare v 2.0.110 ^
|
|
|
|
Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
|
|
Store "" To poact
|
|
*!* pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
|
|
*!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
*!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
*!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
*!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
*!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
*!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
*!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora, explicatie_tva from ] + gcS + [.vact where 1=2']
|
|
*!* modificare v 2.0.110
|
|
*!* pcfiltru1=[(luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[) and (SCD=]+Substr(locont.Cont,1,4)+ lcCondSucursala + [ or scc=]+Substr(locont.Cont,1,4)+[)]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and (SCD=']+Substr(locont.Cont,1,4)+[' or scc=']+Substr(locont.Cont,1,4)+[')] + lcCondSucursala
|
|
*!* modificare v 2.0.110 ^
|
|
pcorder1=[dataact,serie_act,nract]
|
|
llAfisare=.F.
|
|
*!* gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* SELE ACT
|
|
*!* SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
*!* Do NRORD With "ACT"
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* ORC.LABELTITLU.Caption="FISA CONTULUI "+locont.Cont
|
|
*!* ORC.ALI = 'ACT'
|
|
*!* ORC.Show(1)
|
|
|
|
Do NRORD With "ACN1"
|
|
Select acn1
|
|
Go Top
|
|
ORC=Createobject("frm_debcred")
|
|
ORC.lb_titlu_alb_b121.Caption=Thisform.lb_titlu_alb_b121.Caption+" - FISA CONTULUI "+locont.Cont
|
|
ORC.lb_titlu1.Caption="FISA CONTULUI "+locont.Cont
|
|
ORC._grdbase1.RemoveObject("cUtil")
|
|
ORC._grdbase1.RemoveObject("cDataOra")
|
|
ORC.Show(1)
|
|
|
|
*!* SELECT act
|
|
*!* SET FILTER TO
|
|
Use In acn1
|
|
Release poact
|
|
Select(lcbal)
|
|
*!* modificare v 2.0.110
|
|
Endif
|
|
*!* modificare v 2.0.110 ^
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_excel
|
|
If Thisform.lactiv1
|
|
This.do_excel
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_listare
|
|
If Thisform.lactiv2
|
|
This.do_listare
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_modifica
|
|
*!* NU POT FACE MODIFICARI DACA NU AM DREPT PE MODIFICARE SAU INTR-O LUNA INCHISA
|
|
If !Thisform.lactiv3 Or glLunaInchisa
|
|
Return
|
|
Endif
|
|
|
|
*!* NU POT FACE MODIFICARI PE BALANTA CUMULATA - NU AM ID_BAL
|
|
IF glEMama
|
|
IF crsSucursale.ID_SUCURSALA = -1
|
|
aMessageBox('Nu se pot face modificari pe balanta centralizata!' + CRLF + 'Selectati balanta defalcata pe sucursale',0+64,'Balanta')
|
|
RETURN
|
|
ENDIF
|
|
ENDIF
|
|
|
|
Thisform.meniu_as
|
|
Thisform.grID1.SetFocus
|
|
ENDPROC
|
|
|
|
PROCEDURE inainte_de_do_reface
|
|
If Thisform.lactiv4 And !glLunaInchisa
|
|
This.do_reface()
|
|
Endif
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
DoDefault()
|
|
Thisform.WindowState = 2
|
|
|
|
If .F.
|
|
lnLungimeBanda = Thisform.but_termin1.Width + 10
|
|
lnPozitieButon = Thisform.but_termin1.Left
|
|
lnLungimeButon = Thisform.but_termin1.Width + 1 && 30 + 1 (spatiu)
|
|
lnOffsetBanda = 6 && diferenta dintre _shape2.left si but_termin1.left
|
|
|
|
|
|
If Thisform.lactiv2
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_listare1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv1
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_excel1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv3 And !glLunaInchisa
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.but_modifica1.Left = lnPozitieButon
|
|
Endif
|
|
If Thisform.lactiv4 And !glLunaInchisa
|
|
lnPozitieButon = lnPozitieButon - lnLungimeButon
|
|
lnLungimeBanda = lnLungimeBanda + lnLungimeButon
|
|
Thisform.BUT_reface1.Left = lnPozitieButon
|
|
Endif
|
|
With Thisform._shape2
|
|
* With Thisform.banda_alba
|
|
.Width = lnLungimeBanda
|
|
.Left = lnPozitieButon - lnOffsetBanda
|
|
Endwith
|
|
Endif && .F.
|
|
|
|
If This.BUT_reface1.Visible
|
|
This.BUT_reface1.Visible=!glLunaInchisa
|
|
Endif
|
|
If This.but_modifica1.Visible
|
|
This.but_modifica1.Visible=!glLunaInchisa
|
|
Endif
|
|
|
|
Public sz
|
|
This.calias=This.grid1.RecordSource && TBALANTA
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
Select(lcbal)
|
|
Go Top
|
|
|
|
Store 0.0000 To m.sprecdeb1,m.spreccred1,m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
If .F.
|
|
With Thisform.grid1
|
|
.cprecdeb1.Width=0
|
|
.cpreccred1.Width=0
|
|
Endwith
|
|
Endif
|
|
|
|
IF glEMama
|
|
lnSucces = ccsucursale_mama() && IN updateserver.prg && vnom_sucursale_mama
|
|
|
|
CREATE CURSOR crsSucursale (id_sucursala n(5), sucursala c(100))
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-1, 'Balanta centralizata')
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-2, 'Balanta pe sucursale')
|
|
INSERT INTO crsSucursale (id_sucursala, sucursala) VALUES (-3, 'Balanta grup')
|
|
SELECT crsSucursale
|
|
APPEND FROM DBF('vnom_sucursale_mama')
|
|
REPLACE ALL sucursala WITH 'Balanta ' + PROPER(ALLTRIM(sucursala)) FOR id_sucursala > 0
|
|
|
|
close_ccsucursale_mama()
|
|
SELECT crsSucursale
|
|
GO TOP
|
|
WITH this.pf.p2.cboSucursale
|
|
.RowSourceType = 6
|
|
.RowSource = "crsSucursale.sucursala"
|
|
.Visible = .T.
|
|
this.pf.p2.cboSucursale.Value = crsSucursale.sucursala
|
|
EndWith
|
|
Else
|
|
this.grid1.cSucursala.Visible = .F.
|
|
ENDIF
|
|
*!* Locale
|
|
*!* goLocale.SetLocale( thisform )
|
|
*!* Locale ^
|
|
this.gridextra1.setup()
|
|
*MESSAGEBOX(this.grid1.cdenumire.text1.FontName + ' ' + TRANSFORM(this.grid1.cdenumire.text1.FontName))
|
|
|
|
Thisform.afisactual
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE in_bal
|
|
Parameters tnIdSucursala, tcCont,tcAcont,tlCalculeaza
|
|
Private lcCont,lcField,lcOldAlias,lcTabela
|
|
LOCAL lcIdSucursala
|
|
|
|
lcOldAlias=Alias()
|
|
lcField=This.cfield
|
|
lnvalue=This.nnewvalue
|
|
lnOldValue=This.noldvalue
|
|
|
|
If lnvalue=lnOldValue
|
|
Return
|
|
Endif
|
|
|
|
If Empty(tcAcont)
|
|
lcAcont=""
|
|
Else
|
|
lcAcont=Upper(Alltrim(tcAcont))
|
|
Endif
|
|
|
|
If Empty(tcCont)
|
|
lcCont=""
|
|
Else
|
|
lcCont=Upper(Alltrim(tcCont))
|
|
Endif
|
|
|
|
lcIdSucursala = ALLTRIM(STR(NVL(tnIdSucursala,0)))
|
|
If !Empty(lcAcont)
|
|
lcTabela = "balana"
|
|
lcCond = [NVL(id_sucursala,0) = ] + lcIdSucursala + [ AND TRIM(UPPER(cont))=']+lcCont+[' and TRIM(UPPER(acont))=']+lcAcont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
|
|
Else
|
|
lcTabela = "bal"
|
|
lcCond = [NVL(id_sucursala,0) = ] + lcIdSucursala + [ AND TRIM(UPPER(cont))=']+lcCont+[' and an = ] + ALLTRIM(STR(gnAn)) + [ and luna = ] + ALLTRIM(STR(gnLuna))
|
|
Endif
|
|
|
|
*!* If !EXISTACAMP(lcTabela,lcField) && DACA NU EXISTA CAMPUL NU FAC NIMIC
|
|
*!* Return
|
|
*!* Endif
|
|
|
|
&& setare zecimale
|
|
pcexec=[update ] + ALLTRIM(lcTabela) + [ set ] + ALLTRIM(lcField) + [=] + ALLTRIM(STR(lnvalue,24,4)) + [ ] + ;
|
|
[where ]+lcCond
|
|
|
|
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
If tlCalculeaza
|
|
This.calculeaza_orizontal()
|
|
Endif
|
|
|
|
If !Empty(lcOldAlias)
|
|
Select (lcOldAlias)
|
|
Endif
|
|
ENDPROC
|
|
|
|
PROCEDURE meniu_as
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
If Thisform.grid1.ReadOnly
|
|
lcText=[\<Deblocare;]
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\Adauga Blanc;]
|
|
lcText=lcText+[\Sterge]
|
|
Else
|
|
lcText=[\<Revenire;]
|
|
lcText=lcText+[\-;]
|
|
lcText=lcText+[\<Adauga Blanc;]
|
|
lcText=lcText+[\<Sterge]
|
|
Endif
|
|
lnOpt=xmenu(lcText)
|
|
Do Case
|
|
Case lnOpt=1
|
|
With Thisform.grid1
|
|
.ReadOnly=!.ReadOnly
|
|
.ccont.ReadOnly=.T.
|
|
.cacont.ReadOnly=.T.
|
|
.cdenumire.ReadOnly=.T.
|
|
&& cont2003 oracle
|
|
.ctotdeb.ReadOnly=.T.
|
|
.ctotcred.ReadOnly=.T.
|
|
.csolddeb.ReadOnly=.T.
|
|
.csoldcred.ReadOnly=.T.
|
|
Endwith
|
|
Case lnOpt=3
|
|
This.adauga_linie()
|
|
Case lnOpt=4
|
|
This.sterge_linie()
|
|
Endcase
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE reconstruct
|
|
*!* LOCAL llsucces
|
|
*!* llSucces=save_grid_tag(this.grid1)
|
|
*!* IF llsucces
|
|
*!* lctabel=make_tbalanta()
|
|
*!* restore_grid_tag(this.grid1)
|
|
*!* ENDIF
|
|
save_grid_tag(This.grid1)
|
|
lcTabel=make_tbalanta(this.lCentru,this.nLuna1,this.nAn1,this.nLuna2,this.nAn2,this.cBal)
|
|
restore_grid_tag(This.grid1)
|
|
ENDPROC
|
|
|
|
PROCEDURE Release
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
|
|
Release m.sprecdeb,m.spreccred,m.sruldeb,m.srulcred,m.stotdeb,m.stotcred,m.ssolddeb,m.ssoldcred
|
|
|
|
Select (lcbal)
|
|
Set Filter To
|
|
DoDefault()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Resize
|
|
*THIS.RESIZER1.ONREsize
|
|
Thisform.pf.p1.Check1.Refresh() && CU ANCHOR SE MUTA LA POZITIA ANTERIOARA
|
|
&& FARA ANCHOR NU SE MAI MUTA DELOC
|
|
&& LE-AM MUTAT MANUAL
|
|
DODEFAULT()
|
|
ENDPROC
|
|
|
|
PROCEDURE rulcred
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop= .F.
|
|
If LOCONT.RULCRED==0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
|
|
OST.LABEL3.Caption="Rulaj Credit = 0"
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
|
|
Store "" To poact
|
|
pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora, explicatie_tva from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+['] + lcCondSucursala
|
|
pcorder1=[dataact, serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
*!* Sele ACT
|
|
*!* Set Filter To SCC=Substr(LOCONT.cont,1,4) And !Deleted()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='act'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ CREDIT"
|
|
*!* Endwith
|
|
ORC=Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - RULAJ CREDIT"
|
|
.lb_titlu1.caption="SITUATIE ANALITICA - RULAJ CREDIT"
|
|
._grdbase1.removeobject("cUtil")
|
|
._grdbase1.removeobject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
USE IN acn1
|
|
*!* SELECT ACT
|
|
*!* SET FILTER TO
|
|
*!* Select act
|
|
*!* Use
|
|
Release poact
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop= .T.
|
|
Select (lcbal)
|
|
Release LOCONT
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldeb
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop= .F.
|
|
If LOCONT.RULDEB==0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
|
|
OST.LABEL3.Caption="Rulaj Debit = 0"
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcorder1,pcschema1,poact
|
|
Store "" To poact
|
|
pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from ] + gcS + [.vact where 2=2']
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ lcCondSucursala + [ and SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']
|
|
pcorder1=[dataact, serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACT
|
|
*!* Set Filter To SCD=Substr(LOCONT.Cont,1,4) And !Deleted()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='act'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - RULAJ DEBIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
*!* Select act
|
|
*!* Use
|
|
ORC=Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - RULAJ DEBIT"
|
|
.lb_titlu1.caption="SITUATIE ANALITICA - RULAJ DEBIT"
|
|
._grdbase1.removeobject("cUtil")
|
|
._grdbase1.removeobject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
|
|
USE IN acn1
|
|
Release poact
|
|
Endif
|
|
Release ORC
|
|
Thisform.AlwaysOnTop= .T.
|
|
|
|
*!* SELECT ACT
|
|
*!* SET FILTER TO
|
|
|
|
Select(lcbal)
|
|
Release LOCONT
|
|
ENDPROC
|
|
|
|
PROCEDURE ruldebcred
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
If LOCONT.RULCRED=0 And LOCONT.RULDEB=0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
|
|
OST.LABEL3.Caption="Nu exista rulaje in luna."
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcschema1,poact,poact1,poact2
|
|
Store "" To poact,poact1,poact2
|
|
pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn)) + lcCondSucursala
|
|
pcorder1=[dataact, serie_act,nract]
|
|
llAfisare=.F.
|
|
gencursor('poact','act',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
Sele ACT
|
|
*DO NRORD WITH "ACT"
|
|
Sele 0
|
|
|
|
pcselect1=["select dataact,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']+lcCondSucursala
|
|
pcorder1=[dataact, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact1','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact1.ca_baza1.afisare()
|
|
*!* USE &DATE/ACT.DBF;
|
|
*!* AGAIN ALIAS ACn1
|
|
*!* SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
|
|
pcselect1=["select * from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+[ and SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+[']+lcCondSucursala
|
|
pcorder1=[dataact, serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact2','acn2',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact2.ca_baza1.afisare()
|
|
*!* SELE 0
|
|
*!* USE &DATE/ACT.DBF;
|
|
*!* AGAIN ALIAS ACn2
|
|
*!* SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
|
|
*!* ORC=Createobj("AFDEBsiCRED")
|
|
*!* ORC.Caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
|
|
*!* ORC.Show(1)
|
|
orc=CREATEOBJECT("frm_debsicred")
|
|
orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - Rulaje Cont "+LOCONT.Cont
|
|
orc.show(1)
|
|
Sele acn1
|
|
Use
|
|
Sele acn2
|
|
Use
|
|
|
|
*!* modificare
|
|
Select ACT
|
|
Use
|
|
Release poact,poact1,poact2,ORC
|
|
*!*
|
|
Endif
|
|
|
|
Select(lcbal)
|
|
Release LOCONT
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE sterge_linie
|
|
LOCAL lcIdSucursala
|
|
Private lcbal,lcContS,lcContA
|
|
lcbal=This.calias
|
|
|
|
Select (lcbal)
|
|
lcContS=Alltrim(Cont)
|
|
lcContA=Alltrim(acont)
|
|
|
|
If Empty(lcContS) And Empty(lcContA)
|
|
aMessagebox("Nu puteti sterge un total!",0+48,"Atentie")
|
|
Return
|
|
Endif
|
|
|
|
lcIdSucursala = IIF(NVL(id_sucursala,0) = 0, 'NULL', ALLTRIM(STR(id_sucursala)))
|
|
pcexec=[begin pack_inregistrari.baldelproc(] + lcIdSucursala + [,] + ALLTRIM(STR(gnLuna)) + [,] + ALLTRIM(STR(gnAn))+ [,']+lcContS+[',']+lcContA+['); end;]
|
|
lnSucces=goExecutor.oexecute(pcexec)
|
|
If lnSucces < 0
|
|
lcTextEroare = goExecutor.cEroare
|
|
If "ORA-20000"$lcTextEroare
|
|
lnPozi=At("ORA-20000",lcTextEroare)+11
|
|
lnPozf=At("ORA",lcTextEroare,2)
|
|
lcTextEroare=Substr(lcTextEroare,lnPozi,lnPozf-lnPozi)
|
|
Endif
|
|
aMessagebox(lcTextEroare,48,"Eroare")
|
|
Return
|
|
Endif
|
|
|
|
Thisform.MousePointer= 11
|
|
Thisform.LockScreen=.T.
|
|
This.reconstruct
|
|
This.afisactual
|
|
Thisform.LockScreen=.F.
|
|
Thisform.MousePointer= 0
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totcred
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop= .F.
|
|
|
|
If LOCONT.TOTCRED==0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
|
|
OST.LABEL3.Caption="Total Credit = 0"
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcschema1,poact
|
|
Store "" To poact
|
|
pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+['] + lcCondSucursala
|
|
pcorder1=[dataact, serie_act,nract]
|
|
llAfisare=.F.
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTAN
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* * sum suma to totsum
|
|
*!* SET FILTER TO SCC=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='actan'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL CREDIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
ORC=Createobj("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - TOTAL CREDIT"
|
|
.lb_titlu1.caption="SITUATIE ANALITICA - TOTAL CREDIT"
|
|
._grdbase1.removeobject("cUtil")
|
|
._grdbase1.removeobject("cDataOra")
|
|
Endwith
|
|
ORC.Show(1)
|
|
*!* SELECT ACTAN
|
|
*!* SET FILTER TO
|
|
*!* modificare
|
|
*!* Select ACTAN
|
|
*!* Use
|
|
USE IN acn1
|
|
Release poact
|
|
*!*
|
|
Endif
|
|
Release ORC
|
|
Thisform.AlwaysOnTop= .T.
|
|
|
|
Select (lcbal)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totdeb
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop= .F.
|
|
If LOCONT.TOTDEB==0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont+":"
|
|
OST.LABEL3.Caption="Total Debit = 0"
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcschema1,poact
|
|
Store "" To poact
|
|
pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
|
|
['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
pcselect1=["select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,ascd,scc,ascc,fdoc,util,dataora,explicatie_tva from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+['] + lcCondSucursala
|
|
pcorder1=[dataact, serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTAN
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* * sum suma to totsum
|
|
*!* SET FILTER TO SCD=SUBSTR(LOCONT.CONT,1,4) AND !DELETED()
|
|
*!* * DO NRORD WITH "ACTAN"
|
|
*!* ORC=Createobj("AFDEBCRED")
|
|
*!* With ORC
|
|
*!* .ali='actan'
|
|
*!* .LABELTITLU.Caption="SITUATIE ANALITICA - TOTAL DEBIT"
|
|
*!* Endwith
|
|
*!* ORC.Show(1)
|
|
orc=CREATEOBJECT("frm_debcred")
|
|
With ORC
|
|
.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - TOTAL DEBIT"
|
|
.lb_titlu1.caption="SITUATIE ANALITICA - TOTAL DEBIT"
|
|
._grdbase1.removeobject("cUtil")
|
|
._grdbase1.removeobject("cDataOra")
|
|
ENDWITH
|
|
orc.show(1)
|
|
*!* SELECT ACTAN
|
|
*!* SET FILTER TO
|
|
|
|
*!* modificare
|
|
*!* Select ACTAN
|
|
*!* Use
|
|
USE IN acn1
|
|
Release poact
|
|
*!*
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop= .T.
|
|
Select (lcbal)
|
|
Release LOCONT
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE totdebcred
|
|
Private lcbal
|
|
lcbal=Thisform.calias
|
|
lcCondSucursala = thisform.conditieistoricact()
|
|
Select (lcbal)
|
|
Local c
|
|
Scatter Name LOCONT
|
|
Thisform.AlwaysOnTop= .F.
|
|
If LOCONT.TOTCRED==0 And LOCONT.TOTDEB==0 Then
|
|
OST=Createobj("stop")
|
|
OST.LABEL2.Caption="Contul "+LOCONT.Cont
|
|
OST.LABEL3.Caption="este neutilizat!"
|
|
OST.Show(1)
|
|
Else
|
|
Private pcselect1,pcfiltru1,pcschema1,poact,poact1,poact2
|
|
Store "" To poact,poact1,poact2
|
|
*!* pcschema1=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,NRACT N(14),DATAACT D,'+]+;
|
|
*!* ['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
|
|
*!* ['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
|
|
*!* ['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
|
|
*!* ['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
|
|
*!* ['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
|
|
*!* ['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
|
|
*!* ['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
|
|
pcschema1=['']
|
|
*!* pcselect1=["select * from ] + gcS + [.vact where 2=2"]
|
|
*!* pcfiltru1=[2=2]
|
|
*!* pcorder1=[]
|
|
*!* llAfisare=.F.
|
|
*!* gencursor('poact','actan',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
*!* poact.ca_baza1.afisare()
|
|
|
|
*!* Sele ACTan
|
|
*!* * DO NRORD WITH "ACTan"
|
|
Sele 0
|
|
&& to_char(dataact,'DD/MM/YYYY') as
|
|
pcselect1=["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[SCD=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+['] + lcCondSucursala
|
|
pcorder1=[dataact,serie_act, nract]
|
|
llAfisare=.F.
|
|
gencursor('poact1','acn1',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact1.ca_baza1.afisare()
|
|
*!* USE &DATEan/ACTan.DBF;
|
|
*!* AGAIN ALIAS ACn1
|
|
*!* SET FILTER TO SCD=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
|
|
pcselect1=["select dataact,serie_act,nract,suma,explicatia,scd,ascd,scc,ascc,partd,partc,dataireg,fdoc from ] + gcS + [.vact where 2=2"]
|
|
pcfiltru1=[SCC=']+ALLTRIM(Substr(LOCONT.Cont,1,4))+['] + lcCondSucursala
|
|
pcorder1=[dataact, serie_act,nract]
|
|
llAfisare=.F.
|
|
gencursor('poact2','acn2',pcselect1,pcfiltru1,pcschema1,pcorder1,llAfisare)
|
|
poact2.ca_baza1.afisare()
|
|
*!* SELE 0
|
|
*!* USE &DATEan/ACTan.DBF;
|
|
*!* AGAIN ALIAS ACn2
|
|
*!* SET FILTER TO SCC=SUBSTR(locont.CONT,1,4) AND !DELETED()
|
|
*!* ORC=Createobj("AFDEBsiCRED")
|
|
*!* ORC.Caption="SITUATIE ANALITICA - Total Cont "+LOCONT.Cont
|
|
*!* ORC.Show(1)
|
|
orc=CREATEOBJECT("frm_debsicred")
|
|
orc.lb_titlu_alb_b121.caption="SITUATIE ANALITICA - Total Cont "+LOCONT.Cont
|
|
orc.show(1)
|
|
|
|
Sele acn1
|
|
Use
|
|
Sele acn2
|
|
Use
|
|
*!* modificare
|
|
*!* Select ACTan
|
|
*!* Use
|
|
Release poact,poact1,poact2
|
|
Release ORC
|
|
*!*
|
|
Endif
|
|
|
|
Thisform.AlwaysOnTop= .T.
|
|
Select (lcbal)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Ct1.Text4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.GotFocus
|
|
lcSufix="cont"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ccont.Text1.Valid
|
|
thisform.nnewvalue=this.value
|
|
LOCAL lcCont
|
|
lcCont=thisform.noldvalue
|
|
RETURN .T.
|
|
thisform.in_bal(lcCont)
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.GotFocus
|
|
lcSufix="denumire"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cdenumire.Text1.Valid
|
|
RETURN .T.
|
|
PRIVATE lcbal
|
|
lcBal=thisform.calias
|
|
LOCAL lcCont,lcAcont
|
|
|
|
|
|
thisform.nnewvalue=this.value
|
|
SELECT (lcBal)
|
|
lcCont=cont
|
|
lcAcont=acont
|
|
|
|
thisform.in_bal(lcCont,lcAcont)
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.GotFocus
|
|
lcSufix="PRECCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred1.Text1.GotFocus
|
|
lcSufix="PRECCRED1"
|
|
thisform.cField=lcSufix
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cpreccred1.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.GotFocus
|
|
lcSufix="PRECDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb1.Text1.GotFocus
|
|
lcSufix="PRECDEB1"
|
|
thisform.cField=lcSufix
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cprecdeb1.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.GotFocus
|
|
lcSufix="RULCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.crulcred.Text1.Valid
|
|
thisform.calculeaza
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.GotFocus
|
|
lcSufix="RULDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.cruldeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.GotFocus
|
|
lcSufix="SOLDCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csoldcred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.GotFocus
|
|
lcSufix="SOLDDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.csolddeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.GotFocus
|
|
lcSufix="TOTCRED"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotcred.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.DblClick
|
|
thisform.butdrept
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.GotFocus
|
|
lcSufix="TOTDEB"
|
|
thisform.cField=lcSufix
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.RightClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.ctotdeb.Text1.Valid
|
|
thisform.calculeaza
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.DblClick
|
|
do editscurt.mpr
|
|
ENDPROC
|
|
|
|
PROCEDURE Grid1.Init
|
|
*!* this.SetAll("DynamicForeCOlor",;
|
|
*!* "IIF(!EMPTY(cont),RGB(0,0,0),IIF(nivel=1,RGB(0,0,255),RGB(0,128,128)))","Column")
|
|
|
|
this.SetAll("DynamicForeCOlor","IIF(BNIVEL<3,RGB(0,0,255),RGB(0,0,0))","Column")
|
|
this.SetAll("DynamicForeCOlor","IIF(difana=1,RGB(128,0,255),RGB(0,0,0))","Column")
|
|
|
|
this.SetAll("DynamicFontbold","IIF(INLIST(BNIVEL,1,3),.t.,.f.)","Column")
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option1.Click
|
|
PRIVATE lcbal
|
|
lcbal=thisform.calias
|
|
|
|
THIS.PARENT.OPTION2.ENABLED=.F.
|
|
THIS.PARENT.OPTION3.ENABLED=.F.
|
|
THIS.PARENT.OPTION4.ENABLED=.F.
|
|
THIS.PARENT.OPTION5.ENABLED=.F.
|
|
|
|
SELECT(LCBAL)
|
|
SET FILTER TO !DELETED()
|
|
THISFORM.GRID1.ACTIVATECELL(1,1)
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option2.Click
|
|
THISFORM.RULDEB
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option3.Click
|
|
THISFORM.RULCRED
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option4.Click
|
|
THISFORM.TOTDEB
|
|
ENDPROC
|
|
|
|
PROCEDURE Optiongroup1.Option5.Click
|
|
THISFORM.TOTCRED
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Check1.Refresh
|
|
With Thisform.pf.p1
|
|
If Thisform.pf.p2.Cksold1.Value = 0 && FARA SOLDURI 1 IANUARIE
|
|
.lbldebit.Left=.text1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.text2.Left-.lblcredit.Width
|
|
.check1.Left=.label8.Left-.lbldebit.Width
|
|
Else
|
|
.lbldebit.Left=.txtprecdeb1.Left-.lbldebit.Width
|
|
.lblcredit.Left=.txtpreccred1.Left-.lblcredit.Width
|
|
.check1.Left=.lblsld1.Left-.lbldebit.Width
|
|
Endif
|
|
Endwith
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Check1.Valid
|
|
thisform.afisactual
|
|
IF this.Value = 1
|
|
this.Caption = 'Analitice'
|
|
ELSE
|
|
this.Caption = 'Sintetice'
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Click
|
|
WITH THIS
|
|
.text1.Refresh
|
|
.text2.Refresh
|
|
.text3.Refresh
|
|
.text4.Refresh
|
|
.text5.Refresh
|
|
.text6.Refresh
|
|
.text7.Refresh
|
|
.text8.Refresh
|
|
ENDWITH
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text2.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text3.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text4.Refresh
|
|
THIS.FORECOLOR=IIF(M.SRULDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text5.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTDEB>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text6.Refresh
|
|
THIS.FORECOLOR=IIF(M.STOTCRED>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text7.Init
|
|
sum solddeb to m.ssolddeb
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.Text8.Init
|
|
sum soldcred to m.ssoldcred
|
|
this.refresh
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.txtpreccred1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECCRED1>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p1.txtprecdeb1.Refresh
|
|
THIS.FORECOLOR=IIF(M.SPRECDEB1>=0, RGB(0,0,0), RGB(255,0,0))
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cboSucursale.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.ckanalitic.Click
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.ckanalitic.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cksold1.Valid
|
|
thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cktotal1.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cktotal2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cktotal3.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.cktotal4.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.Ck_acont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.Ck_cont.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P2.Ck_denumire.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option1.Click
|
|
*!* lcbal=thisform.calias
|
|
|
|
*!* THIS.PARENT.OPTION2.ENABLED=.F.
|
|
*!* THIS.PARENT.OPTION3.ENABLED=.F.
|
|
*!* THIS.PARENT.OPTION4.ENABLED=.F.
|
|
*!* THIS.PARENT.OPTION5.ENABLED=.F.
|
|
|
|
*!* SELECT(LCBAL)
|
|
*!* SET FILTER TO !DELETED()
|
|
THISFORM.GRID1.SetFocus
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option2.Click
|
|
thisform.fisacont
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option3.Click
|
|
THISFORM.RULDEB
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option4.Click
|
|
THISFORM.RULCRED
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option5.Click
|
|
THISFORM.RULDEBCRED
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option6.Click
|
|
THISFORM.TOTDEB
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option7.Click
|
|
THISFORM.TOTCRED
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.p3.Optiongroup1.Option8.Click
|
|
THISFORM.TOTDEBCRED
|
|
THIS.parent.Value=8 && balanta
|
|
ENDPROC
|
|
|
|
PROCEDURE pf.P4.cboRaport.Init
|
|
this.Value = '4 egalitati 14-6-30 (A4)'
|
|
ENDPROC
|
|
|
|
PROCEDURE txtcont.Valid
|
|
thisform.txtcont2.Value = this.Value
|
|
thisform.afisactual
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE txtcont2.Valid
|
|
thisform.afisactual
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|