*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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