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

3510 lines
122 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ovanzcump.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_regcump AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_marfa" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_achizitii" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: butapend
*m: butdrept
*m: filtre
*m: incaspl
*m: istoric
*m: ist_deb_cred
*m: notacontab
*m: plati
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 500
Name = "frm_regcump"
Width = 795
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 795
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 672
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 121
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 14
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Left = 765
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 10
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 5
*</PropValue>
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
ColumnCount = 11, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
Height = 372, ;
Left = 12, ;
Name = "_grdbase1", ;
Panel = 1, ;
RecordSource = "actcv", ;
TabIndex = 9, ;
Top = 120, ;
Width = 768, ;
ZOrderSet = 9, ;
Column1.ControlSource = "fdoc", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.Width = 66, ;
Column2.ControlSource = "dataact", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.Width = 53, ;
Column3.ControlSource = "nract", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column3.Width = 67, ;
Column4.ControlSource = "nume", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column4", ;
Column4.Width = 148, ;
Column5.ControlSource = "cod_fiscal", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column5.Width = 66, ;
Column6.ControlSource = "totctva", ;
Column6.FontName = "Arial Narrow", ;
Column6.InputMask = (get_mask(12,gnPA)), ;
Column6.Name = "Column6", ;
Column7.ControlSource = "neimpozab", ;
Column7.FontName = "Arial Narrow", ;
Column7.InputMask = (get_mask(12,gnPA)), ;
Column7.Name = "Column7", ;
Column8.ControlSource = "totftvam", ;
Column8.FontName = "Arial Narrow", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "Column8", ;
Column9.ControlSource = "tvam", ;
Column9.FontName = "Arial Narrow", ;
Column9.InputMask = (get_mask(12,gnPA)), ;
Column9.Name = "Column9", ;
Column10.ControlSource = "totftvai", ;
Column10.FontName = "Arial Narrow", ;
Column10.InputMask = (get_mask(12,gnPA)), ;
Column10.Name = "Column10", ;
Column11.ControlSource = "tvai", ;
Column11.FontName = "Arial Narrow", ;
Column11.InputMask = (get_mask(12,gnPA)), ;
Column11.Name = "Column11"
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Baza imp.9%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA 9%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod fiscal", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total cu TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Neimpozabil", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Baza imp.19%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA 19%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_shape3' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 128,128,128, ;
Height = 48, ;
Left = 232, ;
Name = "_shape3", ;
Top = 60, ;
Width = 552, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shape4' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 128,128,128, ;
Height = 79, ;
Left = 224, ;
Name = "_shape4", ;
Top = 38, ;
Width = 568, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 702, ;
Name = "But_excel1", ;
TabIndex = 12, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 734, ;
Name = "But_listare1", ;
TabIndex = 11, ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 588, ;
Name = "But_modifica1", ;
TabIndex = 13, ;
Top = 0, ;
Visible = .F., ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reface1' AS but_reface WITH ;
Comment = "*:OnResize=RT", ;
Left = 672, ;
Name = "But_reface1", ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_achizitii' AS ck_simplu WITH ;
Alignment = 0, ;
Caption = "Alte achizitii", ;
FontName = "Arial Narrow", ;
Left = 67, ;
Name = "Ck_achizitii", ;
TabIndex = 7, ;
Top = 52, ;
ZOrderSet = 23
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = dataact, ;
Caption = "Data act", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_dataact", ;
TabIndex = 2, ;
tip = D, ;
Top = 52, ;
ZOrderSet = 25
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ;
Alignment = 0, ;
Caption = "Eroare TVA", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_eroare", ;
TabIndex = 5, ;
Top = 101, ;
ZOrderSet = 22
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = fdoc, ;
Caption = "Fel doc.", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_fdoc", ;
TabIndex = 3, ;
Top = 68, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_marfa' AS ck_simplu WITH ;
Alignment = 0, ;
Caption = "Marfa", ;
FontName = "Arial Narrow", ;
Left = 67, ;
Name = "Ck_marfa", ;
TabIndex = 6, ;
Top = 36, ;
ZOrderSet = 20
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = nract, ;
Caption = "Nr. act", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nract", ;
TabIndex = 1, ;
Top = 36, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = nume, ;
Caption = "Numele firmei", ;
FontName = "Arial Narrow", ;
Left = 6, ;
Name = "Ck_nume", ;
TabIndex = 4, ;
Top = 84, ;
ZOrderSet = 21
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 135, ;
Name = "Cmd_cauta1", ;
TabIndex = 8, ;
Top = 43, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ;
Caption = "\<Istoric", ;
Height = 28, ;
Left = 401, ;
Name = "cmd_istoric", ;
TabIndex = 30, ;
Top = 0, ;
Visible = .F., ;
Width = 72
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ;
Caption = "\<Note contabile", ;
Height = 28, ;
Left = 485, ;
Name = "cmd_notacontab", ;
TabIndex = 29, ;
Top = 0, ;
Visible = .F., ;
Width = 96
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Left = 135, ;
Name = "Cmd_reset1", ;
TabIndex = 22, ;
Top = 76, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Total cu TVA", ;
Left = 245, ;
Name = "Lb_simplu1", ;
TabIndex = 23, ;
Top = 53, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Neimpozabil", ;
Left = 335, ;
Name = "Lb_simplu2", ;
TabIndex = 24, ;
Top = 53, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Baza imp. 19%", ;
Left = 420, ;
Name = "Lb_simplu3", ;
TabIndex = 25, ;
Top = 53, ;
ZOrderSet = 28
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "TVA 19%", ;
Left = 529, ;
Name = "Lb_simplu4", ;
TabIndex = 26, ;
Top = 53, ;
ZOrderSet = 29
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Baza imp. 9%", ;
Left = 607, ;
Name = "Lb_simplu5", ;
TabIndex = 27, ;
Top = 53, ;
ZOrderSet = 30
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "TVA 9%", ;
Left = 715, ;
Name = "Lb_simplu6", ;
TabIndex = 28, ;
Top = 53, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
Left = 216, ;
Name = "oMenuShortcut", ;
TabIndex = 15, ;
Top = 7, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" />
ADD OBJECT 'Text1' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotctva", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 234, ;
Name = "Text1", ;
ReadOnly = .T., ;
TabIndex = 16, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text2' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pnneimpozab", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 325, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 17, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text3' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotftvam", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 417, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 18, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text4' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntvam", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 509, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 19, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text5' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotftvai", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 600, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 20, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text6' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntvai", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 692, ;
Name = "Text6", ;
ReadOnly = .T., ;
TabIndex = 21, ;
TabStop = .F., ;
Top = 76, ;
Width = 90, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
PROCEDURE Activate
tw1=Thisform.Width
tl1=Thisform.Height
Thisform.WindowState=2
tw2=Thisform.Width
tl2=Thisform.Height
gw1=Thisform._grdbase1.Width
gl1=Thisform._grdbase1.Height
Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0)
Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0)
** ocont2003
lnlung1=Thisform._shape1.Width
Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0)
lndif=Thisform._shape1.Width-lnlung1
Thisform._shape2.Left=Thisform._shape2.Left+lndif
thisform.but_excel1.left=thisform.but_excel1.left+lndif
thisform.but_listare1.left=thisform.but_listare1.left+lndif
thisform.but_modifica1.left=thisform.but_modifica1.left+lndif
thisform.but_reface1.left=thisform.but_reface1.left+lndif
thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif
Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif
Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif
**
Thisform.Paint
Thisform.Refresh
ENDPROC
PROCEDURE actualizeaza_grid1
LPARAMETERS lcFiltru
IF EMPTY(lcFiltru)
lcFiltru = pocump.ca_baza1.cfiltru
ENDIF
thisform.MousePointer= 11
thisform.LockScreen=.F.
save_grid_tag(thisform._grdbase1)
pocump.ca_baza1.cfiltru=lcFiltru
pocump.ca_baza1.afisare()
restore_grid_tag(thisform._grdbase1)
thisform.LockScreen=.F.
thisform.MousePointer= 0
SELECT actcv
CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ;
pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
GO top
*thisform.Refresh
WITH thisform
.text1.refresh
.text2.refresh
.text3.refresh
.text4.refresh
.text5.refresh
.text6.refresh
._grdbase1.SetFocus
ENDWITH
ENDPROC
PROCEDURE butapend
*!* Local lbMenu[4]
*!* 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
*!* Sele actcv
*!* Set Filter To !Deleted()
*!* Thisform.grid1.ReadOnly=.F.
*!* Thisform.grid1.DeleteMark=.T.
*!* Do umple_log With Thisform.label10.Caption,''
*!* Case Bar()=2
*!* Append Blank
*!* Case Bar()=4
*!* Sele actcv
*!* Set Filter To !Deleted()
*!* Thisform.grid1.ReadOnly=.T.
*!* Thisform.grid1.DeleteMark=.F.
*!* Endcase
ENDPROC
PROCEDURE butdrept
Local laMenu[1]
*!* Scatter Memvar Fields Except an,nl
laMenu=""
laMenu[1]="Note contabile"
*!* laMenu[2]='Plati/Incasari'
*!* laMenu[3]="Istoric Debit-Credit"
Thisform.oMenuShortcut.ShowMenu(@laMenu)
Do Case
Case Bar()=1
Thisform.NOTACONTAB
*!* Case Bar()=2
*!* Thisform.incaspl
*!* Case Bar()=3
*!* Thisform.ist_deb_cred
Endcase
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
lcFiltru=[luna=]+ALLTRIM(STR(gnLuna))+[ and an=]+ALLTRIM(STR(gnAn))
IF thisform.ck_achizitii.Value=1
lcFiltru = lcFiltru + [ AND SUBSTR(scd,1,3)!='371']
ENDIF
IF thisform.ck_dataact.Value=1
lcFiltru = lcFiltru + thisform.ck_dataact.filtru
ENDIF
IF thisform.ck_eroare.Value=1
*!* lcFiltru = lcFiltru + " AND abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100"
lcFiltru = lcFiltru + [ AND (ABS(TOTFTVAM*(]+ALLTRIM(STR(m.ctvam,5,2))+[-1)-TVAM)>100 ]+;
[OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+;
[OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)]
ENDIF
IF thisform.ck_fdoc.Value=1
lcFiltru = lcFiltru + thisform.ck_fdoc.filtru
ENDIF
IF thisform.ck_marfa.Value=1
lcFiltru = lcFiltru + [ AND SUBSTR(scd,1,3)='371']
ENDIF
IF thisform.ck_nract.Value=1
lcFiltru = lcFiltru + thisform.ck_nract.filtru
ENDIF
IF thisform.ck_nume.Value=1
lcFiltru = lcFiltru + thisform.ck_nume.filtru
ENDIF
thisform.actualizeaza_grid1(lcFiltru)
IF RECCOUNT('actcv')=0
MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
thisform.ck_nract.SetFocus()
ENDIF
*!* lcFiltru = ".t."
*!* If this.ck_feldoc.Value = 1
*!* lcFiltru = lcFiltru + this.Ck_feldoc.filtru_vfp
*!* Endif
*!* If this.ck_firma.Value = 1
*!* lcFiltru = lcFiltru + this.Ck_firma.filtru_vfp
*!* Endif
*!* if bnract==.t. then
*!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)"
*!* lcFiltru = lcFiltru + " AND (nract>=m.nract1) and (nract<=m.nract2)"
*!* endif
*!* if this.ck_data.Value = 1
*!* *Tnract="(nract>=m.nract1) and (nract<=m.nract2)"
*!* lcFiltru = lcFiltru + " AND (dataact >= pdData1) and (dataact <= pdData2)"
*!* endif
*!* *!* if Bfirma==.t. then
*!* *!* Tfirma="UPPER(LEFT(nume,LEN(M.nume)))==M.nume"
*!* *!* endif
*!* if BER==.t. then
*!* *TER='abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100'
*!* lcFiltru = lcFiltru + " AND abs(TOTFTVAM*(M.CTVAM-1)-TVAM)>100 OR ABS(TOTFTVAI*(M.CTVAI-1)-TVAI)>100 or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>100"
*!* endif
*!* *!* if Bachitat==.t. then
*!* *!* Tachitat='(abs(totctva-achitat)<1000 or totctva<achitat) and totctva#0'
*!* *!* endif
*!* *!* if Bneachitat==.t. then
*!* *!* Tneachitat='!(abs(totctva-achitat)<1000 or totctva<achitat)'
*!* *!* endif
*!* if thisform.marfa.value=1
*!* *tscd="left(scd,3)='371'"
*!* lcFiltru = lcFiltru + " AND left(scd,3)='371'"
*!* endif
*!* if thisform.alteac.value=1
*!* *tscc="left(scd,3)#'371'"
*!* lcFiltru = lcFiltru + " AND left(scd,3)#'371'"
*!* ENDIF
*!* sele actcv
*!* *SET FILTER TO &TFirma and &TER and &tachitat and &Tneachitat AND &tnract and &tscd and &tscc
*!* SET FILTER TO &lcFiltru
*!* thisform.text1.setfocus
*!* thisform.text2.setfocus
*!* thisform.text3.setfocus
*!* thisform.text4.setfocus
*!* thisform.text5.setfocus
*!* thisform.text6.setfocus
*!* go top
*!* THISFORM.GRID1.REFRESH
ENDPROC
PROCEDURE do_excel
If Used('actcv') And Reccount('actcv')>0
Local i,xlsheet,XLApp,tmpsheet
SET DATE TO DMY
exista_excel=.T.
p1=''
p2=''
With Thisform._grdbase1
For nCol=1 To .ColumnCount
nColumn=.Columns(nCol).ColumnOrder
p1=p1+.Columns(nCol).ControlSource+','
p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+','
Endfor
p1=Substr(p1,1,Len(p1)-1)
p2=Substr(p2,1,Len(p2)-1)
Endwith
On Error Do exportare With thisform._grdbase1.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.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
nRows = 3
With Thisform._grdbase1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
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) = Eval(.Columns(nCol).ControlSource)
Endif
Endfor
Endscan
Endwith
XLApp.Visible = .T.
Endif
Else
Messagebox("Nu aveti date in cautare!",48,"Atentie")
Thisform.ck_nract.SetFocus()
Endif
*!* If Used('actcv') And Reccount('actcv')>0
*!* Private pniesire,pccale
*!* pccale=""
*!* pniesire=0
*!* ofrmexcel=Createobject('frm_cale_f_excel')
*!* ofrmexcel.Show(1)
*!* If pniesire=1
*!* Thisform.MousePointer=11
*!* Thisform.LockScreen=.T.
*!* poExcel = Createobject("Excel.Application")
*!* poExcel.Visible=.F.
*!* poExcel.WorkBooks.Add
*!* Select actcv
*!* Go Top
*!* poExcel.Cells(1,1).Font.Size=16
*!* poExcel.Cells(1,1).Font.Bold=.T.
*!* poExcel.Cells(1,1)=Thisform.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
*!* For i=1 To 6
*!* lcval="thisform.lb_simplu"+Alltrim(Str(i))+".caption"
*!* poExcel.Cells(3,i)=&lcval
*!* poExcel.Cells(3,i).Font.Bold=.T.
*!* lcval="thisform.text"+Alltrim(Str(i))+".value"
*!* poExcel.Cells(4,i)=&lcval
*!* Endfor
*!* nRows = 6
*!* With Thisform._grdbase1
*!* For nCol = 1 To .ColumnCount
*!* nColumn = .Columns(nCol).ColumnOrder
*!* poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
*!* poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
*!* 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) = Eval(.Columns(nCol).ControlSource)
*!* Endif
*!* Endfor
*!* Endscan
*!* Endwith
*!* poExcel.ActiveWorkBook.SaveAs(pccale)
*!* poExcel.ActiveWorkBook.Close
*!* poExcel.Quit
*!* Release poExcel
*!* Go Top
*!* Thisform.LockScreen=.F.
*!* Thisform.MousePointer= 0
*!* Endif
*!* Else
*!* Messagebox("Nu aveti date in cautare!",48,"Atentie")
*!* Thisform.ck_nract.SetFocus()
*!* Endif
ENDPROC
PROCEDURE do_listare
THISFORM.ALWAYSONTOP=.F.
STORE "" TO pctitlu
if thisform.ck_marfa.value=1
pctitlu='JURNAL PENTRU CUMPARARI - ACHIZITII MARFA '
ELSE
if thisform.ck_achizitii.value=1
pctitlu='JURNAL PENTRU CUMPARARI - ALTE ACHIZITII'
ELSE
pctitlu='JURNAL PENTRU CUMPARARI'
ENDIF
ENDIF
SELE ACTCV
ai='19%'
am=ai
*!* SELE ACTCV
*!* REPORT FORMAT registru_cumparari_rpt1 to printer prompt PREVIEW
*!*
x=xmenu("\<Listare Registru Cumparari;Listare Registru Cumparari \<Simplu")
THISFORM.ALWAYSONTOP=.F.
IF x = 1
pcdataora=get_ora()
SELE actcv &&vanz
REPORT FORMAT registru_cumparari_rpt1 to printer prompt PREVIEW
ELSE
pctitlu = [JURNAL PENTRU CUMPARARI]
pcdataora = get_ora(2)
DO listare_registru_tva WITH 'CUMP' IN OPROCEDURI_REGISTRETVA.PRG
ENDIF
THISFORM.ALWAYSONTOP=.T.
ENDPROC
PROCEDURE do_reface
LOCAL tnScrie_Sterge
tnScrie_Sterge = 1
SELECT infisiere
LOCATE FOR CONT = '4426'
lcCorespD = ALLTRIM(coresp_d)
lcCorespC = ALLTRIM(coresp_c)
lcCorespDtva = ALLTRIM(coresp_d) + [,4428]
lcCorespCtva = ALLTRIM(coresp_c)
*lcExceptii = [767]
lcExceptii = [-1]
lcSql = [select distinct cont_c as exceptie from ] + gcs + [.exceptii_ireg where cont in (] + lcCorespD + [) and invers = 1]
lnSucces = goExecutor.oExecute(lcSql,'cont_exceptii')
IF lnSucces > 0
SELECT cont_exceptii
SCAN
lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie)
ENDSCAN
USE IN cont_exceptii
ENDIF
lcListaCampuri = get_lista_Act()
lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'cump', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4426', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
RETURN
ENDIF
THISFORM.actualizeaza_grid1()
*** verificare INAINTE_DE
DO inainte WITH "CUMP" IN oinainte_de.prg
MESSAGEBOX('Refacerea s-a terminat')
ENDPROC
PROCEDURE do_reset
thisform.ck_achizitii.Value=0
thisform.ck_dataact.Value=0
thisform.ck_eroare.Value=0
thisform.ck_fdoc.Value=0
thisform.ck_marfa.Value=0
thisform.ck_nract.Value=0
thisform.ck_nume.Value=0
thisform.Refresh
ENDPROC
PROCEDURE filtre
*!* Store ".T." To tfirma,TER,Tachitat,Tneachitat
*!* Sele actcv
*!* If Bfirma==.T. Then
*!* tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume"
*!* Endif
*!* If Bachitat==.T. Then
*!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0'
*!* Endif
*!* If Bneachitat==.T. Then
*!* Tneachitat='ACTCV.totctva#ACTCV.achitat'
*!* Endif
ENDPROC
PROCEDURE incaspl
Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact,pcTitlu
Store "" To poact
Store .F. To llAfisare
Store 0 To pnlunanan
pnlunanan=gnAn*12+gnLuna
CN='411 '
Thisform.but_teRMIN1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
pcschema=['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)']
pcschema=['']
pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
['from ]+gcS+[.vact where 2=2']
Select actcv
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari
&&deb
pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
[and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]
*!* Select acn2
*!* Sum suma To totsum
*!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI"
*!* If totsum#m.achitat
*!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* Endif
*!* Endif
*!* Select acn2
*!* Otherwise&&vanzari
*!* &&cred
*!* *!* Sele 0
******************* modificare 14.12
*!* &&deb
*!* pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
*!* [and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]
*******************
*!* Select acn2
*!* Sum suma To totsum
*!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI"
*!* If totsum#m.achitat
*!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* Endif
*!* Endif
*!* Endcase
pcorder=[dataact,nract]
gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
ORC=Createobj("frm_debcred")
ORC.lb_titlu_alb_b121.Caption=Proper(pcTitlu)
ORC.lb_titlu1.Caption=pcTitlu
*!* ORC.ali="acn2"
*!* ORC.grid1.column6.Visible=.T.
ORC.Show(1)
pcTitlu=""
Thisform.AlwaysOnTop=.T.
Thisform.but_teRMIN1.Enabled=.T.
If Used('acn1')
Use In acn1
Endif
Release ORC,poact
*!* Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact
*!* Store "" To poact
*!* Store .F. To llAfisare
*!* Store 0 To pnlunanan
*!* pnlunanan=gnAn*12+gnLuna
*!* CN='411 '
*!* Thisform.but_teRMIN1.Enabled=.F.
*!* Thisform.AlwaysOnTop=.F.
*!* pcschema=['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)']
*!* *!* Sele ACTan
*!* *!* Do NRORD With "ACTan"
*!* Select actcv
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari
*!* &&deb
*!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
*!* ['from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
*!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)]
*!* pcorder=[dataact,nract]
*!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poact.ca_baza1.afisare()
*!* *!* Select acn2
*!* *!* Sum suma To totsum
*!* *!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI"
*!* *!* If totsum#m.achitat
*!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* *!* Endif
*!* *!* Endif
*!* *!* Select acn2
*!* TITLU="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC=Createobj("AFincpl")
*!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* Otherwise&&vanzari
*!* &&cred
*!* *!* Sele 0
*!* &&deb
*!* pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
*!* ['from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
*!* [and (perecheC=]+Alltrim(Str(nract))+[ or to_number(nrord)=]+Alltrim(Str(nract))+[)]
*!* pcorder=[dataact,nract]
*!* gencursor("poact","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poact.ca_baza1.afisare()
*!* *!* Select acn2
*!* *!* Sum suma To totsum
*!* *!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI"
*!* *!* If totsum#m.achitat
*!* *!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* *!* Endif
*!* *!* Endif
*!* Select acn2
*!* TITLU="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC=Createobj("AFincpl")
*!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* Endcase
*!* ORC.ali="acn2"
*!* ORC.grid1.column6.Visible=.T.
*!* ORC.Show(1)
*!* TITLU=""
*!* Thisform.AlwaysOnTop=.T.
*!* Thisform.but_teRMIN1.Enabled=.T.
*!* If Used('acn2')
*!* Use In acn2
*!* Endif
*!* Release ORC,poact
ENDPROC
PROCEDURE Init
DODEFAULT()
PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
IF luna_inchisa
thisform.but_modifica1.Visible=.F.
thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width
thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width
ENDIF
thisform.Refresh
ENDPROC
PROCEDURE istoric
*!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2
*!* Store "" To poacn1,poacn2
*!* Store .F. To llAfisare
*!* lunanan=gnAn*12+gnLuna
*!* CN='411 '
*!* Thisform.but_TERMIN1.Enabled=.F.
*!* Thisform.AlwaysOnTop=.F.
*!* *!* Do NRORD With "ACTan"
*!* Select actcv
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scd,1,3)='401']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&cred
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2']
*!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(nume)
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI 4118")&&vanzari4118
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scc,1,4)='4118']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vvanz where 2=2']
*!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* Select acn2
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(nume)
*!* ORC.LABELTITLU.Caption='CREDIT'
*!* ORC.TITLU1.Caption='DEBIT'
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Otherwise&&vanzari
*!* &&cred
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and SUBSTR(scd,1,3)='411']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vvanz where 2=2']
*!* pcfiltru=[nume=']+Alltrim(nume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* Select acn2
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(nume)
*!* ORC.LABELTITLU.Caption='CREDIT'
*!* ORC.TITLU1.Caption='DEBIT'
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Endcase
*!* ORC.grid2.column6.Visible=.T.
*!* ORC.grid2.column7.Visible=.F.
*!* ORC.grid2.column8.Visible=.F.
*!* ORC.grid2.column10.Visible=.F.
*!* ORC.grid2.column11.Visible=.F.
*!* ORC.Show(1)
*!* If Used('acn2')
*!* Use In acn2
*!* Endif
*!* If Used('acn1')
*!* Use In ACn1
*!* Endif
*!* Thisform.but_TERMIN1.Enabled=.T.
*!* Thisform.AlwaysOnTop= .T.
ENDPROC
PROCEDURE ist_deb_cred
Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume
PRIVATE nl,an,pcluna,pcanul,pniesire
Store 0 To pnlunanan,pniesire
Store .F. To llAfisare
Store "" To lul,poacn1,poacn2
pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii
Thisform.but_termin1.Enabled=.F.
Thisform.AlwaysOnTop= .F.
pcanul='00'
pcluna='00'
&&lul=gnLuna && ??
Select calendar
*!* OSE=Crea('SELELUNA')
ose=CREATEOBJECT('frm_seleluna')
OSE.Show(1)
IF pniesire=2
Thisform.but_termin1.Enabled=.T.
Thisform.AlwaysOnTop= .T.
RETURN
ENDIF
pnlunanan=gnAn*12+gnLuna
pnlunaanales=Val(pcanul)*12+Val(pcluna)
Select actcv
pcnume=nume
pcschema=['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)']
pcschema=['']
pcselect=['select * from ]+gcS+[.vact where 2=2']
pcorder=[dataact,nract]
Do Case
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
pcfiltru=[partD=']+Alltrim(pcnume)+[' and ALLTRIM(SUBSTR(scd,1,3))='411' and ALLTRIM(scd)!='4118' and ]+;
[extract(year from dataireg)*12+extract(month from dataireg) between ]+;
ALLTRIM(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and SUBSTR(scd,1,4)='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and (ALLTRIM(SUBSTR(scd,1,3))='401' or ALLTRIM(SUBSTR(scd,1,3))='404') ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
ALLTRIM(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scd,1,3))='462' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scd,1,3))='461' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
*!* otherwise
*!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scd,4)='4118' ;
*!* INTO CURSOR acn1 ORDER BY dataact,nract
Endcase
gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
Do Case
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and (ALLTRIM(SUBSTR(scc,1,3))='401' or ALLTRIM(SUBSTR(scc,1,3))='404') ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,4))='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='411' and ALLTRIM(SUBSTR(scc,1,3))='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='462' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='461' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
*!* otherwise
*!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scc,4)='4118';
*!* INTO CURSOR acn2 ORDER BY dataact, nract
Endcase
gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poacn1.ca_baza1.afisare()
poacn2.ca_baza1.afisare()
orc=CREATEOBJECT("frm_debsicred")
orc.Lb_titlu_alb_b121.caption="Debit - Credit - "+ALLTRIM(pcnume)
orc.show(1)
*!* ORC=Createobj("AFDEBsiCREDb")
*!* ORC.Caption="Debit - Credit - "+pcnume
*!* ORC.text1.Visible=.T.
*!* ORC.text2.Visible=.T.
*!* ORC.Show(1)
If Used('acn1')
Use In acn1
Endif
If Used('acn2')
Use In acn2
Endif
Thisform.but_termin1.Enabled=.T.
Thisform.AlwaysOnTop= .T.
luna=lul && ??
RELEASE orc,poacn1,poacn2
*!* Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume
*!* Store 0 To pnlunanan
*!* Store .F. To llAfisare
*!* Store "" To lul,poacn1,poacn2
*!* pnlunanan=gnAn*12+gnLuna
*!* pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii
*!* Thisform.but_termin1.Enabled=.F.
*!* Thisform.AlwaysOnTop= .F.
*!* lul=gnLuna && ??
*!* Select calendar
*!* OSE=Crea('SELELUNA')
*!* OSE.Show(1)
*!* lunaanales=Val(anul)*12+Val(luna)
*!* Select actcv
*!* pcnume=nume
*!* pcschema=['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)']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcorder=[dataact,nract]
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
*!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='411' and scd!='4118' and ]+;
*!* [extract(year from dataireg)*12+extract(month from dataireg) between ]+;
*!* ALLTRIM(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,4)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and (SUBSTR(scd,1,3)='401' or SUBSTR(scd,1,3)='404') ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
*!* ALLTRIM(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,3)='462' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,3)='461' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* *!* otherwise
*!* *!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scd,4)='4118' ;
*!* *!* INTO CURSOR acn1 ORDER BY dataact,nract
*!* Endcase
*!* gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and (SUBSTR(scc,1,3)='401' or SUBSTR(scc,1,3)='404') ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,4)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='411' and SUBSTR(scc,1,3)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='462' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='461' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* *!* otherwise
*!* *!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scc,4)='4118';
*!* *!* INTO CURSOR acn2 ORDER BY dataact, nract
*!* Endcase
*!* gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* poacn2.ca_baza1.afisare()
*!* ORC=Createobj("AFDEBsiCREDb")
*!* ORC.Caption="Debit - Credit - "+pcnume
*!* ORC.text1.Visible=.T.
*!* ORC.text2.Visible=.T.
*!* ORC.Show(1)
*!* If Used('acn1')
*!* Use In acn1
*!* Endif
*!* If Used('acn2')
*!* Use In acn2
*!* Endif
*!* Thisform.but_termin1.Enabled=.T.
*!* Thisform.AlwaysOnTop= .T.
*!* luna=lul && ??
*!* RELEASE orc,poacn1,poacn2
ENDPROC
PROCEDURE notacontab
If Reccount('actcv')>0
Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume
Store "" To poact
Thisform.but_TERMIN1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
lunanan=gnLuna+gnAn*12
Select actcv
pcnume=nume
pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+;
['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)']
pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+;
['from ]+gcS+[.vact where 2=2']
pcorder=[dataireg]
pcfiltru=[]
llAfisare=.F.
If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI")
pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+;
[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+;
[ and partC=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')]
Else
pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+;
[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+;
[ and partD=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')]
ENDIF
gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
Go Top
ORC=Createobj("frm_debcred")
*!* ORC.alias='ACN1'
orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume)
ORC.lb_titlu1.Caption="NOTA CONTABILA"
orc._grdbase1.removeobject("cUtil")
orc._grdbase1.removeobject("cDataOra")
ORC.Show(1)
Release poact,ORC
Thisform.but_TERMIN1.Enabled=.T.
Thisform.AlwaysOnTop=.T.
Else
Messagebox("Nu aveti date in cautare!",48,"Atentie")
Thisform.ck_nract.SetFocus()
Endif
ENDPROC
PROCEDURE plati
*!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact
*!* Store "" To poact
*!* Store .F. To llAfisare
*!* Select actcv
*!* pcschema=['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)']
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
*!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract))
*!* pcorder=[]
*!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poact.ca_baza1.afisare()
*!* Select act
*!* Do NRORD With "ACT"
*!* Go Top
*!* Thisform.but_termin1.Enabled=.F.
*!* ORC=Createobj("frm_debcred")
*!* orc.lb_titlu_alb_b121.caption="Plati"
*!* orc.lb_titlu1.caption="PLATI"
*!* ORC.Show(1)
*!* Thisform.but_termin1.Enabled=.T.
*!* Release ORC,poact
ENDPROC
PROCEDURE cmd_istoric.Click
thisform.istoric()
ENDPROC
PROCEDURE cmd_notacontab.Click
thisform.notacontab()
ENDPROC
PROCEDURE _grdbase1.Column1.Text1.DblClick
Thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column10.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column11.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column2.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column3.Header1.Init
this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
ENDPROC
PROCEDURE _grdbase1.Column3.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column4.Header1.Init
this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
ENDPROC
PROCEDURE _grdbase1.Column4.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column5.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column6.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column7.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column8.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column9.Text1.DblClick
thisform.butdrept()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_regvanz AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column11.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column12._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column15._checkbox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nract" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmd_notacontab" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_eroare" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_opext" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_fdoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_dataact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Lb_simplu6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmd_istoric" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_scd" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: butapend
*m: butdrept
*m: filtre
*m: incaspl
*m: istoric
*m: ist_deb_cred
*m: notacontab
*m: plati
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 500
Name = "frm_regvanz"
Width = 795
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 795
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 672
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 121
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.Caption = "REGISTRUL VANZARI"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 14
Lb_titlu_alb_b121.ZOrderSet = 4
BUT_TERMIN1.Left = 765
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 10
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 5
*</PropValue>
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
ColumnCount = 14, ;
DeleteMark = .F., ;
FontName = "Arial Narrow", ;
GridLineColor = 192,192,192, ;
HeaderHeight = 34, ;
Height = 372, ;
Left = 12, ;
Name = "_grdbase1", ;
Panel = 1, ;
RecordSource = "actcv", ;
TabIndex = 9, ;
Top = 120, ;
Width = 768, ;
ZOrderSet = 9, ;
Column1.ControlSource = "fdoc", ;
Column1.FontName = "Arial Narrow", ;
Column1.Name = "Column1", ;
Column1.Width = 66, ;
Column2.ControlSource = "dataact", ;
Column2.FontName = "Arial Narrow", ;
Column2.Name = "Column2", ;
Column2.Width = 52, ;
Column3.ControlSource = "nract", ;
Column3.FontName = "Arial Narrow", ;
Column3.Name = "Column3", ;
Column4.ControlSource = "nume", ;
Column4.FontName = "Arial Narrow", ;
Column4.Name = "Column4", ;
Column5.ControlSource = "cod_fiscal", ;
Column5.FontName = "Arial Narrow", ;
Column5.Name = "Column5", ;
Column6.ControlSource = "totctva", ;
Column6.FontName = "Arial Narrow", ;
Column6.InputMask = (get_mask(12,gnPA)), ;
Column6.Name = "Column6", ;
Column7.ControlSource = "neimpozab", ;
Column7.FontName = "Arial Narrow", ;
Column7.InputMask = (get_mask(12,gnPA)), ;
Column7.Name = "Column7", ;
Column8.ControlSource = "totftvam", ;
Column8.FontName = "Arial Narrow", ;
Column8.InputMask = (get_mask(12,gnPA)), ;
Column8.Name = "Column8", ;
Column9.ControlSource = "tvam", ;
Column9.FontName = "Arial Narrow", ;
Column9.InputMask = (get_mask(12,gnPA)), ;
Column9.Name = "Column9", ;
Column10.ControlSource = "totftvai", ;
Column10.FontName = "Arial Narrow", ;
Column10.InputMask = (get_mask(12,gnPA)), ;
Column10.Name = "Column10", ;
Column11.ControlSource = "tvai", ;
Column11.FontName = "Arial Narrow", ;
Column11.InputMask = (get_mask(12,gnPA)), ;
Column11.Name = "Column11", ;
Column12.ControlSource = "scutit", ;
Column12.FontName = "Arial Narrow", ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column12.Sparse = .F., ;
Column12.Width = 63, ;
Column13.ControlSource = "scd", ;
Column13.FontName = "Arial Narrow", ;
Column13.Name = "Column13", ;
Column13.Width = 39, ;
Column14.ControlSource = "ext", ;
Column14.FontName = "Arial Narrow", ;
Column14.Name = "Column15", ;
Column14.ReadOnly = .T., ;
Column14.Sparse = .F., ;
Column14.Width = 50
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdbase1.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel doc.", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column10.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Baza imp.9%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column11.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA 9%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column11.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column12._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
Caption = "", ;
Centered = .T., ;
Left = 41, ;
Name = "_checkbox1", ;
ReadOnly = .T., ;
Top = 47
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_grdbase1.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Scutit cu drept de deducere", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column13.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column15._checkbox1' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .F., ;
Caption = "", ;
Centered = .T., ;
Left = 29, ;
Name = "_checkbox1", ;
ReadOnly = .T., ;
Top = 47
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT '_grdbase1.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Operatiune externa", ;
FontName = "Arial Narrow", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data act", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column3.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. act", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column4.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nume", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cod fiscal", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column6.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Total cu TVA", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column7.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Neimpozabil", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column8.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Baza imp.19%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.Column9.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "TVA 19%", ;
FontName = "Arial Narrow", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial Narrow", ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_shape3' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 128,128,128, ;
Height = 48, ;
Left = 228, ;
Name = "_shape3", ;
Top = 58, ;
Width = 552, ;
ZOrderSet = 1
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT '_shape4' AS _shape WITH ;
BackStyle = 0, ;
BorderColor = 128,128,128, ;
Height = 79, ;
Left = 220, ;
Name = "_shape4", ;
Top = 36, ;
Width = 568, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Left = 703, ;
Name = "But_excel1", ;
TabIndex = 12, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Left = 734, ;
Name = "But_listare1", ;
TabIndex = 11, ;
Top = 1, ;
Visible = .T., ;
ZOrderSet = 7
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 588, ;
Name = "But_modifica1", ;
TabIndex = 13, ;
Top = 0, ;
Visible = .F., ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reface1' AS but_reface WITH ;
Comment = "*:OnResize=RT", ;
Left = 674, ;
Name = "But_reface1", ;
Top = 1
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_dataact' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = dataact, ;
Caption = "Data act", ;
FontName = "Arial Narrow", ;
Left = 3, ;
Name = "Ck_dataact", ;
TabIndex = 2, ;
tip = D, ;
Top = 52, ;
ZOrderSet = 25
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_eroare' AS ck_simplu WITH ;
Alignment = 0, ;
Caption = "Eroare TVA", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_eroare", ;
TabIndex = 7, ;
Top = 52, ;
ZOrderSet = 22
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_fdoc' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = fdoc, ;
Caption = "Fel doc.", ;
FontName = "Arial Narrow", ;
Left = 3, ;
Name = "Ck_fdoc", ;
TabIndex = 3, ;
Top = 68, ;
ZOrderSet = 24
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nract' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = nract, ;
Caption = "Nr. act", ;
FontName = "Arial Narrow", ;
Left = 3, ;
Name = "Ck_nract", ;
TabIndex = 1, ;
Top = 36, ;
ZOrderSet = 19
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = nume, ;
Caption = "Numele firmei", ;
FontName = "Arial Narrow", ;
Left = 3, ;
Name = "Ck_nume", ;
TabIndex = 4, ;
Top = 84, ;
ZOrderSet = 21
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_opext' AS ck_simplu WITH ;
Alignment = 0, ;
Caption = "Operatiune externa", ;
FontName = "Arial Narrow", ;
Left = 3, ;
Name = "Ck_opext", ;
TabIndex = 5, ;
Top = 100, ;
ZOrderSet = 23
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_scd' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = scd, ;
Caption = "Cont", ;
FontName = "Arial Narrow", ;
Left = 63, ;
Name = "Ck_scd", ;
TabIndex = 6, ;
Top = 36
*< END OBJECT: ClassLib="..\..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 132, ;
Name = "Cmd_cauta1", ;
TabIndex = 8, ;
Top = 43, ;
ZOrderSet = 17
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmd_istoric' AS _commandbutton WITH ;
Caption = "\<Istoric", ;
Height = 28, ;
Left = 401, ;
Name = "cmd_istoric", ;
TabIndex = 30, ;
Top = 0, ;
Visible = .F., ;
Width = 72
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmd_notacontab' AS _commandbutton WITH ;
Caption = "\<Note contabile", ;
Height = 28, ;
Left = 485, ;
Name = "cmd_notacontab", ;
TabIndex = 29, ;
Top = 0, ;
Visible = .F., ;
Width = 96
*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Left = 132, ;
Name = "Cmd_reset1", ;
TabIndex = 22, ;
Top = 76, ;
ZOrderSet = 18
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Total cu TVA", ;
Left = 241, ;
Name = "Lb_simplu1", ;
TabIndex = 23, ;
Top = 51, ;
ZOrderSet = 26
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Neimpozabil", ;
Left = 331, ;
Name = "Lb_simplu2", ;
TabIndex = 24, ;
Top = 51, ;
ZOrderSet = 27
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu3' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Baza imp. 19%", ;
Left = 416, ;
Name = "Lb_simplu3", ;
TabIndex = 25, ;
Top = 51, ;
ZOrderSet = 28
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu4' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "TVA 19%", ;
Left = 525, ;
Name = "Lb_simplu4", ;
TabIndex = 26, ;
Top = 51, ;
ZOrderSet = 29
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu5' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "Baza imp. 9%", ;
Left = 603, ;
Name = "Lb_simplu5", ;
TabIndex = 27, ;
Top = 51, ;
ZOrderSet = 30
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Lb_simplu6' AS lb_simplu WITH ;
BackColor = 255,255,255, ;
BackStyle = 1, ;
Caption = "TVA 9%", ;
Left = 711, ;
Name = "Lb_simplu6", ;
TabIndex = 28, ;
Top = 51, ;
ZOrderSet = 31
*< END OBJECT: ClassLib="..\..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
Left = 216, ;
Name = "oMenuShortcut", ;
TabIndex = 15, ;
Top = 7, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\..\comun\clase\utility.vcx" BaseClass="container" />
ADD OBJECT 'Text1' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotctva", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 230, ;
Name = "Text1", ;
ReadOnly = .T., ;
TabIndex = 16, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text2' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pnneimpozab", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 321, ;
Name = "Text2", ;
ReadOnly = .T., ;
TabIndex = 17, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text3' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotftvam", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 413, ;
Name = "Text3", ;
ReadOnly = .T., ;
TabIndex = 18, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text4' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntvam", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 505, ;
Name = "Text4", ;
ReadOnly = .T., ;
TabIndex = 19, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text5' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntotftvai", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 596, ;
Name = "Text5", ;
ReadOnly = .T., ;
TabIndex = 20, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'Text6' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "pntvai", ;
FontName = "Arial Narrow", ;
Format = "R", ;
InputMask = (get_mask(12,gnPA)), ;
Left = 688, ;
Name = "Text6", ;
ReadOnly = .T., ;
TabIndex = 21, ;
TabStop = .F., ;
Top = 74, ;
Width = 90, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
PROCEDURE Activate
tw1=Thisform.Width
tl1=Thisform.Height
Thisform.WindowState=2
tw2=Thisform.Width
tl2=Thisform.Height
gw1=Thisform._grdbase1.Width
gl1=Thisform._grdbase1.Height
Thisform._grdbase1.Width=Round(gw1*tw2/tw1,0)
Thisform._grdbase1.Height=Round(gl1*tl2/tl1,0)
** ocont2003
lnlung1=Thisform._shape1.Width
Thisform._shape1.Width=Round(lnlung1*tw2/tw1,0)
lndif=Thisform._shape1.Width-lnlung1
Thisform._shape2.Left=Thisform._shape2.Left+lndif
thisform.but_excel1.left=thisform.but_excel1.left+lndif
thisform.but_listare1.left=thisform.but_listare1.left+lndif
thisform.but_modifica1.left=thisform.but_modifica1.left+lndif
thisform.but_reface1.left=thisform.but_reface1.left+lndif
thisform.but_TERMIN1.left=thisform.but_TERMIN1.left+lndif
Thisform.cmd_notacontab.Left=Thisform.cmd_notacontab.Left+lndif
Thisform.cmd_istoric.Left=Thisform.cmd_istoric.Left+lndif
**
Thisform.Paint
Thisform.Refresh
ENDPROC
PROCEDURE actualizeaza_grid1
LPARAMETERS lcFiltru
IF EMPTY(lcFiltru)
lcFiltru = povanz.ca_baza1.cfiltru
ENDIF
thisform.MousePointer= 11
thisform.LockScreen=.F.
save_grid_tag(thisform._grdbase1)
povanz.ca_baza1.cfiltru=lcFiltru
povanz.ca_baza1.afisare()
restore_grid_tag(thisform._grdbase1)
thisform.LockScreen=.F.
thisform.MousePointer= 0
SELECT actcv
CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ;
pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
GO top
*thisform.Refresh
WITH thisform
.text1.refresh
.text2.refresh
.text3.refresh
.text4.refresh
.text5.refresh
.text6.refresh
._grdbase1.SetFocus
ENDWITH
ENDPROC
PROCEDURE butapend
*!* LOCAL lbMenu[4]
*!* 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
*!* SELE actcv
*!* SET FILTER TO !DELETED()
*!* thisform.grid1.readonly=.f.
*!* thisform.grid1.DELETEMARK=.T.
*!* DO umple_log WITH thisform.label10.caption,''
*!* CASE BAR()=2
*!* append blank
*!*
*!* CASE BAR()=4
*!* SELE actcv
*!* SET FILTER TO !DELETED()
*!* thisform.grid1.readonly=.T.
*!* thisform.grid1.DELETEMARK=.F.
*!* ENDCASE
ENDPROC
PROCEDURE butdrept
Local laMenu[3]
*!* scatter MEMVAR FIELDS EXCEPT an,nl
laMenu=""
laMenu[1]="Note contabile"
laMenu[2]='Plati/Incasari'
*lamenu[3]='Perechi'
laMenu[3]="Istoric Debit-Credit"
Thisform.oMenuShortcut.ShowMenu(@laMenu)
Do Case
Case Bar()=1
Thisform.NOTACONTAB
Case Bar()=2
Thisform.incaspl
* CASE BAR()=3
*thisform.plati
* thisform.istoric
Case Bar()=3
Thisform.ist_deb_cred
Endcase
*!* Thisform.actualizeaza_grid1()
ENDPROC
PROCEDURE do_cauta
LOCAL lcFiltru
lcFiltru=[luna=]+ALLTRIM(STR(gnLuna))+[ and an=]+ALLTRIM(STR(gnAn))
IF thisform.ck_scd.Value=1
lcFiltru = lcFiltru + thisform.ck_scd.filtru
ENDIF
IF thisform.ck_dataact.Value=1
lcFiltru = lcFiltru + thisform.ck_dataact.filtru
ENDIF
IF thisform.ck_eroare.Value=1
lcFiltru = lcFiltru + [ AND (ABS(TOTFTVAM*(]+ALLTRIM(STR(m.ctvam,5,2))+[-1)-TVAM)>100 ]+;
[OR ABS(TOTFTVAI*(]+ALLTRIM(STR(m.ctvai,5,2))+[-1)-TVAI)>100 ]+;
[OR ABS(TOTFTVAM+TOTFTVAI+NEIMPOZAB+TVAI+TVAM-TOTCTVA)>100)]
ENDIF
IF thisform.ck_fdoc.Value=1
lcFiltru = lcFiltru + thisform.ck_fdoc.filtru
ENDIF
IF thisform.ck_nract.Value=1
lcFiltru = lcFiltru + thisform.ck_nract.filtru
ENDIF
IF thisform.ck_nume.Value=1
lcFiltru = lcFiltru + thisform.ck_nume.filtru
ENDIF
IF thisform.ck_opext.Value=1
lcFiltru = lcFiltru + [ AND EXT=1]
ENDIF
thisform.actualizeaza_grid1(lcFiltru)
IF RECCOUNT('actcv')=0
MESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
thisform.ck_nract.SetFocus()
ENDIF
ENDPROC
PROCEDURE do_excel
If Used('actcv') And Reccount('actcv')>0
Local i,xlsheet,XLApp,tmpsheet
exista_excel=.T.
p1=''
p2=''
With Thisform._grdbase1
For nCol=1 To .ColumnCount
nColumn=.Columns(nCol).ColumnOrder
p1=p1+.Columns(nCol).ControlSource+','
p2=p2+Strtran(.Columns(nCol).header1.Caption,Chr(32),'_')+','
Endfor
p1=Substr(p1,1,Len(p1)-1)
p2=Substr(p2,1,Len(p2)-1)
Endwith
On Error Do exportare With thisform._grdbase1.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.lb_titlu_alb_b121.Caption+" Luna "+Alltrim(Str(gnLuna))+"/"+Alltrim(Str(gnAn))
nRows = 3
With Thisform._grdbase1
For nCol = 1 To .ColumnCount
nColumn = .Columns(nCol).ColumnOrder
poExcel.Columns(nColumn).ColumnWidth = .Columns(nCol).Width/7.5
poExcel.Cells(nRows,nColumn) = .Columns(nCol).header1.Caption
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) = Eval(.Columns(nCol).ControlSource)
Endif
Endfor
Endscan
Endwith
XLApp.Visible = .T.
Endif
Endif
ENDPROC
PROCEDURE do_listare
PUBLIC totftvam,tvam,a1,a2,AI,AM
PRIVATE pctitlu
STORE '' TO pctitlu
PRIVATE pcRegistru, pcContTVA, pcListaContTVA, pcListaContBaza, pcListaContExceptii
x=xmenu("\<Listare Registru Vanzari;Listare Registru Vanzari \<Simplu")
THISFORM.ALWAYSONTOP=.F.
pctitlu = [JURNAL PENTRU VANZARI]
pcdataora = get_ora(2)
IF x = 1
SELE actcv &&vanz
REPORT FORMAT registru_vanzari_rpt1 TO PRINTER PROMPT PREVIEW
ELSE
DO listare_registru_tva WITH 'VANZ' IN OPROCEDURI_REGISTRETVA.PRG
ENDIF
THISFORM.ALWAYSONTOP=.T.
ENDPROC
PROCEDURE do_reface
LOCAL tnScrie_Sterge
tnScrie_Sterge = 1
SELECT infisiere
LOCATE FOR CONT = '4427'
lcCorespD = ALLTRIM(coresp_d)
lcCorespC = ALLTRIM(coresp_c)+ [,5121,5311]
lcCorespDtva = ALLTRIM(coresp_d)
lcCorespCtva = ALLTRIM(coresp_c) + [,4428]
*lcExceptii = [-1]
lcExceptii = [419]
lcSql = [select distinct cont_c as exceptie from ] + gcs + [.exceptii_ireg where cont in (] + lcCorespC + [) and invers = 1]
lnSucces = goExecutor.oExecute(lcSql,'cont_exceptii')
IF lnSucces > 0
SELECT cont_exceptii
SCAN
lcExceptii = lcExceptii + ',' + ALLTRIM(exceptie)
ENDSCAN
USE IN cont_exceptii
ENDIF
lcListaCampuri = get_lista_Act()
lcSql = [begin pack_REFACERI.REFAC_TVA('] + gcS +[', 'vanz', 1.19, 1.09, '] + lcCorespDtva +[', '] + lcCorespD +[', '] + lcCorespCtva +[', '] + lcCorespC +[','4427', '] + lcExceptii +[',] + pcan + [, ] + pcnl + [,] + ALLTRIM(STR(tnScrie_Sterge)) + [,'] + lcListaCampuri + [' ); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
MESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
RETURN
ENDIF
THISFORM.actualizeaza_grid1()
*** verificare INAINTE_DE
lcCoresp = ['411']
lcExceptii = ['667,622']
do inainte WITH "VANZ",,,,lcExceptii,lcCoresp in oinainte_de.prg
MESSAGEBOX('Refacerea s-a terminat')
ENDPROC
PROCEDURE do_reset
thisform.ck_scd.Value=0
thisform.ck_dataact.Value=0
thisform.ck_eroare.Value=0
thisform.ck_fdoc.Value=0
thisform.ck_nract.Value=0
thisform.ck_nume.Value=0
thisform.ck_opext.Value=0
thisform.Refresh
ENDPROC
PROCEDURE filtre
*!* STORE ".T." TO tfirma,TER,Tachitat,Tneachitat
*!* sele actcv
*!* if Bfirma==.t. then
*!* Tfirma="UPPER(LEFT(ACTCV.nume,LEN(M.nume)))==M.nume"
*!* endif
*!* if Bachitat==.t. then
*!* Tachitat='ACTCV.totctva=ACTCV.achitat and totctva#0'
*!* endif
*!* if Bneachitat==.t. then
*!* Tneachitat='ACTCV.totctva#ACTCV.achitat'
*!* endif
ENDPROC
PROCEDURE incaspl
Private pnlunanan,pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact
Store "" To poact
Store .F. To llAfisare
Store 0 To pnlunanan
pnlunanan=gnAn*12+gnLuna
CN='411 '
Thisform.but_teRMIN1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
pcschema=['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)']
pcschema=['']
*!* Sele ACTan
*!* Do NRORD With "ACTan"
pcselect=['select partD,dataact,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
['from ]+gcS+[.vact where 2=2']
pcorder=[dataact,nract]
Select actcv
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")&&cumparari
&&deb
*!* pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* pcfiltru=[partD=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
*!* [and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]
*!* gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poact.ca_baza1.afisare()
*!* Select acn2
*!* Sum suma To totsum
*!* If Thisform.lb_titlu_alb_b121.Caption#"REGISTRUL CUMPARARI"
*!* If totsum#m.achitat
*!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* Endif
*!* Endif
*!* ORC=Createobj("AFincpl")
*!* ORC.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC.LABELTITLU.Caption="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
*!* Otherwise&&vanzari
&&cred
*!* Sele 0
&&deb
pcTitlu="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
pcfiltru=[partC=']+Alltrim(nume)+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
[and (perecheC=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]
gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
*!* Select acn2
*!* Sum suma To totsum
*!* If Thisform.LABEL10.Caption#"REGISTRUL VANZARI"
*!* If totsum#m.achitat
*!* Do mesaj With "Totalul sumelor din notele contabile este diferit ","de suma achitata. Trebuie redeschisa luna!"
*!* Endif
*!* Endif
*!* ORC=Createobj("AFincpl")
*!* ORC.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* ORC.LABELTITLU.Caption="INCASARI LA FACTURA NR. "+Alltrim(Str(nract))
*!* Endcase
*!* ORC.ali="acn2"
*!* ORC.grid1.column6.Visible=.T.
*!* ORC.Show(1)
ORC=Createobj("frm_debcred")
orc.Lb_titlu_alb_b121.caption=pcTitlu
ORC.lb_titlu1.Caption=pcTitlu
ORC.Show(1)
pcTitlu=""
Thisform.AlwaysOnTop=.T.
Thisform.but_teRMIN1.Enabled=.T.
If Used('acn1')
Use In acn1
Endif
Release ORC,poact
ENDPROC
PROCEDURE Init
DODEFAULT()
PRIVATE pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
STORE 0.00 TO pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
IF luna_inchisa
thisform.but_modifica1.Visible=.F.
thisform._shape2.Left=thisform._shape2.Left+thisform.but_modifica1.Width
thisform._shape2.width=thisform._shape2.width-thisform.but_modifica1.Width
ENDIF
thisform.Refresh
ENDPROC
PROCEDURE istoric
*!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poacn1,poacn2,pcnume
*!* Store "" To poacn1,poacn2,pcnume
*!* Store .F. To llAfisare
*!* lunanan=gnAn*12+gnLuna
*!* CN='411 '
*!* Thisform.but_TERMIN1.Enabled=.F.
*!* Thisform.AlwaysOnTop=.F.
*!* *!* Do NRORD With "ACTan"
*!* Select actcv
*!* pcnume=nume
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE FACTURI CUMPARARI")&&cumparari
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='401']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&cred
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vcump where 2=2']
*!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(pcnume)
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI 4118")&&vanzari4118
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scc,1,4)='4118']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vvanz where 2=2']
*!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* Select acn2
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(pcnume)
*!* ORC.LABELTITLU.Caption='CREDIT'
*!* ORC.TITLU1.Caption='DEBIT'
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Otherwise&&vanzari
*!* &&cred
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='411']
*!* pcorder=[dataact,nract]
*!* gencursor('poacn1','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* &&deb
*!* pcschema=['']
*!* pcselect=['select nume,dataact,nract,dataireg,totctva as suma,achitat,achitat as pereche,fdoc,fdoc as scc,fdoc as scd,'+]+;
*!* ['fdoc as partC,fdoc as explicatia from ]+gcS+[.vvanz where 2=2']
*!* pcfiltru=[nume=']+Alltrim(pcnume)+[' and extract(year from dataact)*12+extract(month from dataact)<=]+Alltrim(Str(lunanan))
*!* pcorder=[dataact,nract]
*!* gencursor('poacn2','ACN2',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn2.ca_baza1.afisare()
*!* Select acn2
*!* ORC=Createobj("AFDEBsiCREDA")
*!* ORC.Caption="PERECHI - "+Alltrim(pcnume)
*!* ORC.LABELTITLU.Caption='CREDIT'
*!* ORC.TITLU1.Caption='DEBIT'
*!* ORC.grid2.SetAll("DynamicForeColor", ;
*!* "IIF(abs(suma-achitat)<1000,RGB(0,0,0),iif(suma<achitat,rgb(255,0,0),RGB(0,0,255)))")
*!* Endcase
*!* ORC.grid2.column6.Visible=.T.
*!* ORC.grid2.column7.Visible=.F.
*!* ORC.grid2.column8.Visible=.F.
*!* ORC.grid2.column10.Visible=.F.
*!* ORC.grid2.column11.Visible=.F.
*!* ORC.Show(1)
*!* If Used('acn2')
*!* Use In acn2
*!* Endif
*!* If Used('acn1')
*!* Use In ACn1
*!* Endif
*!* Thisform.but_TERMIN1.Enabled=.T.
*!* Thisform.AlwaysOnTop= .T.
*!* RELEASE orc,poacn1,poacn2
ENDPROC
PROCEDURE ist_deb_cred
Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume,luna,anul,pnlunaanales,pniesire
Store 0 To pnlunanan,pniesire
Store .F. To llAfisare
Store "" To lul,poacn1,poacn2
pnlunanan=gnAn*12+gnLuna
pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii
Thisform.but_termin1.Enabled=.F.
Thisform.AlwaysOnTop= .F.
lul=gnLuna && ??
pcanul="00"
pcluna="00"
Select calendar
*!* OSE=Crea('SELELUNA')
*!* OSE.Show(1)
ose=CREATEOBJECT('frm_seleluna')
OSE.Show(1)
IF pniesire=2
Thisform.but_termin1.Enabled=.T.
Thisform.AlwaysOnTop= .T.
RETURN
ENDIF
pnlunaanales=Val(pcanul)*12+Val(pcluna)
Select actcv
pcnume=nume
pcschema=['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)']
pcschema=['']
pcselect=['select * from ]+gcS+[.vact where 2=2']
pcorder=[dataact,nract]
Do Case
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
pcfiltru=[partD=']+Alltrim(pcnume)+[' and ALLTRIM(SUBSTR(scd,1,3))='411' and ALLTRIM(scd)!='4118' and ]+;
[extract(year from dataireg)*12+extract(month from dataireg) between ]+;
ALLTRIM(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scd,1,4))='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and (ALLTRIM(SUBSTR(scd,1,3))='401' or ALLTRIM(SUBSTR(scd,1,3))='404') ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
ALLTRIM(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scd,1,3))='462' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scd,1,3))='461' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
*!* otherwise
*!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scd,4)='4118' ;
*!* INTO CURSOR acn1 ORDER BY dataact,nract
Endcase
gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
Do Case
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and (ALLTRIM(SUBSTR(scc,1,3))='401' or ALLTRIM(SUBSTR(scc,1,3))='404') ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,4))='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='411' and ALLTRIM(SUBSTR(scc,1,3))='4118' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='462' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
[and ALLTRIM(SUBSTR(scc,1,3))='461' ]+;
[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
[between ]+Alltrim(Str(pnlunaanales))+[ and ]+Alltrim(Str(pnlunanan))
*!* otherwise
*!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scc,4)='4118';
*!* INTO CURSOR acn2 ORDER BY dataact, nract
Endcase
gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poacn1.ca_baza1.afisare()
poacn2.ca_baza1.afisare()
*!* ORC=Createobj("AFDEBsiCREDb")
*!* ORC.Caption="Debit - Credit - "+pcnume
*!* ORC.text1.Visible=.T.
*!* ORC.text2.Visible=.T.
*!* ORC.Show(1)
orc=CREATEOBJECT("frm_debsicred")
orc.Lb_titlu_alb_b121.caption="Debit - Credit - "+ALLTRIM(pcnume)
orc.show(1)
If Used('acn1')
Use In acn1
Endif
If Used('acn2')
Use In acn2
Endif
Thisform.but_termin1.Enabled=.T.
Thisform.AlwaysOnTop= .T.
luna=lul && ??
RELEASE orc,poacn1,poacn2
*!* Private pnlunanan,lul,pcselect,pcschema,pcfiltru,pcorder,llAfisare,poacn1,poacn2,pcdatacrt,pcnume
*!* Store 0 To pnlunanan
*!* Store .F. To llAfisare
*!* Store "" To lul,poacn1,poacn2
*!* pnlunanan=gnAn*12+gnLuna
*!* pcdatacrt=Alltrim(Str(gnAn))+Padl(Alltrim(Str(gnLuna)),2,'0')+[01] && prima zi a lunii
*!* Thisform.but_termin1.Enabled=.F.
*!* Thisform.AlwaysOnTop= .F.
*!* lul=gnLuna && ??
*!* Select calendar
*!* OSE=Crea('SELELUNA')
*!* OSE.Show(1)
*!* lunaanales=Val(anul)*12+Val(luna)
*!* Select actcv
*!* pcnume=nume
*!* pcschema=['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)']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcorder=[dataact,nract]
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
*!* pcfiltru=[partD=']+Alltrim(pcnume)+[' and SUBSTR(scd,1,3)='411' and scd!='4118' and ]+;
*!* [extract(year from dataireg)*12+extract(month from dataireg) between ]+;
*!* ALLTRIM(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,4)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and (SUBSTR(scd,1,3)='401' or SUBSTR(scd,1,3)='404') ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
*!* ALLTRIM(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,3)='462' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scd,1,3)='461' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* *!* otherwise
*!* *!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scd,4)='4118' ;
*!* *!* INTO CURSOR acn1 ORDER BY dataact,nract
*!* Endcase
*!* gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* Do Case
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL CUMPARARI","SITUATIE LUNARA FACTURI CUMPARARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and (SUBSTR(scc,1,3)='401' or SUBSTR(scc,1,3)='404') ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="SITUATIE LUNARA FACTURI VANZARI 4118"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,4)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Inlist(Upper(Thisform.lb_titlu_alb_b121.Caption),"REGISTRUL VANZARI","SITUATIE LUNARA FACTURI VANZARI")
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='411' and SUBSTR(scc,1,3)='4118' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI CREDITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='462' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* Case Upper(Thisform.lb_titlu_alb_b121.Caption)="INREGISTRARI DEBITORI"
*!* pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and partD=']+Alltrim(pcnume)+[' ]+;
*!* [and SUBSTR(scc,1,3)='461' ]+;
*!* [and extract(year from dataireg)*12+extract(month from dataireg) ]+;
*!* [between ]+Alltrim(Str(lunaanales))+[ and ]+Alltrim(Str(lunanan))
*!* *!* otherwise
*!* *!* SELECT * from actan WHERE dataact<datacrt and nume=m.nume AND LEFT(scc,4)='4118';
*!* *!* INTO CURSOR acn2 ORDER BY dataact, nract
*!* Endcase
*!* gencursor("poacn2","acn2",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poacn1.ca_baza1.afisare()
*!* poacn2.ca_baza1.afisare()
*!* ORC=Createobj("AFDEBsiCREDb")
*!* ORC.Caption="Debit - Credit - "+pcnume
*!* ORC.text1.Visible=.T.
*!* ORC.text2.Visible=.T.
*!* ORC.Show(1)
*!* If Used('acn1')
*!* Use In acn1
*!* Endif
*!* If Used('acn2')
*!* Use In acn2
*!* Endif
*!* Thisform.but_termin1.Enabled=.T.
*!* Thisform.AlwaysOnTop= .T.
*!* luna=lul && ??
*!* RELEASE orc,poacn1,poacn2
ENDPROC
PROCEDURE notacontab
If Reccount('actcv')>0
Private pcselect,pcfiltru,pcschema,pcorder,poact,pcnume
Store "" To poact,pcnume
pcschema=['DATAIREG D,DATAACT D,NRACT N(14),PARTD C(50),PARTC C(50),EXPLICATIA C(100),'+]+;
['SUMA N(19,2),SCD C(4),SCC C(4),FDOC C(30),LUNA N(2),AN N(4),COD N(20)']
pcselect=['select dataireg,dataact,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+;
['from ]+gcS+[.vact where 2=2']
pcorder=[dataireg]
llAfisare=.F.
lunanan=gnLuna+gnAn*12
Thisform.but_TERMIN1.Enabled=.F.
Thisform.AlwaysOnTop=.F.
Sele actcv
pcnume=nume
If Inlist(Thisform.lb_titlu_alb_b121.Caption,"REGISTRUL CUMPARARI" ,"REGISTRUL VANZARI")
pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+;
[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+;
[ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')]
*!* Do NRORD With "ACT"
Else
pcfiltru=[extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(lunanan))+;
[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract))+;
[ and partd=']+Alltrim(nume)+[' and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')]
*!* Do NRORD With "ACTAN"
Endif
gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
poact.ca_baza1.afisare()
Go Top
*!* ORC=Createobj("AFDEBCRED")
*!* ORC.ali='ACN1'
*!* ORC.LABELTITLU.Caption="NOTA CONTABILA"
*!* ORC.Show(1)
ORC=Createobj("frm_debcred")
orc.Lb_titlu_alb_b121.caption="Nota contabila "+ALLTRIM(pcnume)
ORC.lb_titlu1.Caption="NOTA CONTABILA"
orc._grdbase1.removeobject("cUtil")
orc._grdbase1.removeobject("cDataOra")
ORC.Show(1)
Release poact,ORC
Thisform.but_TERMIN1.Enabled=.T.
Thisform.AlwaysOnTop=.T.
Else
Messagebox("Nu aveti date in cautare!",48,"Atentie")
Thisform.ck_nract.SetFocus()
Endif
ENDPROC
PROCEDURE plati
*!* Private pcselect,pcfiltru,pcschema,pcorder,llAfisare,poact
*!* Store "" To poact
*!* Store .F. To llAfisare
*!* Select actcv
*!* pcschema=['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)']
*!* pcschema=['']
*!* pcselect=['select * from ]+gcS+[.vact where 2=2']
*!* pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
*!* [ and nume=']+Alltrim(nume)+[' and perecheC=]+Alltrim(Str(nract))
*!* pcorder=[]
*!* gencursor("poact","act",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
*!* poact.ca_baza1.afisare()
*!* Select act
*!* Do NRORD With "ACT"
*!* Go Top
*!* Thisform.but_termin1.Enabled=.F.
*!* ORC=Createobj("AFDEBCRED")
*!* ORC.LABELTITLU.Caption="Plati"
*!* ORC.Show(1)
*!* Thisform.but_termin1.Enabled=.T.
*!* RELEASE orc,poact
ENDPROC
PROCEDURE cmd_istoric.Click
thisform.istoric()
ENDPROC
PROCEDURE cmd_notacontab.Click
thisform.notacontab()
ENDPROC
PROCEDURE _grdbase1.Column1.Text1.DblClick
Thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column10.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column11.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column12._checkbox1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column13.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column15._checkbox1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column2.Header1.Init
this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
ENDPROC
PROCEDURE _grdbase1.Column2.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column3.Header1.Init
this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
ENDPROC
PROCEDURE _grdbase1.Column3.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column4.Header1.Init
this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
ENDPROC
PROCEDURE _grdbase1.Column4.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column5.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column6.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column7.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column8.Text1.DblClick
thisform.butdrept()
ENDPROC
PROCEDURE _grdbase1.Column9.Text1.DblClick
thisform.butdrept()
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink