*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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 cnt_facturi_dupa_inspectie AS container 
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />

	*<PropValue>
		Height = 74
		Name = "cnt_facturi_dupa_inspectie"
		Width = 416
	*</PropValue>

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Facturi emise dupa inspectia tehnica, cf. art. 159 alin. (3) din Codul Fiscal ", ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label1", ;
		TabIndex = 4, ;
		Top = 4, ;
		Width = 405
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Numar total facturi emise", ;
		Height = 17, ;
		Left = 7, ;
		Name = "Label2", ;
		TabIndex = 5, ;
		Top = 24, ;
		Width = 140
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Total baza de impozitare", ;
		Height = 17, ;
		Left = 152, ;
		Name = "Label3", ;
		TabIndex = 6, ;
		Top = 25, ;
		Width = 135
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		Caption = "Total TVA aferenta", ;
		Height = 17, ;
		Left = 297, ;
		Name = "Label4", ;
		TabIndex = 7, ;
		Top = 24, ;
		Width = 101
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		Height = 46, ;
		Left = 4, ;
		Name = "Shape1", ;
		Top = 22, ;
		Width = 408
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "pnNr_facturi", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "999 999 999", ;
		Left = 18, ;
		Name = "Text1", ;
		TabIndex = 1, ;
		Top = 40, ;
		Width = 119
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		ControlSource = "pnBaza", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "999 999 999", ;
		Left = 160, ;
		Name = "Text2", ;
		TabIndex = 2, ;
		Top = 40, ;
		Width = 119
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		ControlSource = "pnTVA", ;
		Format = "rk", ;
		Height = 23, ;
		InputMask = "999 999 999", ;
		Left = 289, ;
		Name = "Text3", ;
		TabIndex = 3, ;
		Top = 40, ;
		Width = 119
		*< END OBJECT: BaseClass="textbox" />

ENDDEFINE

DEFINE CLASS frm_dateidentificare 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="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCodi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDeni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAdr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtTelf" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboCaen" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtIntocmitf" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label18" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCalintoc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtBanca" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccaen
		*p: ccalintoc
		*p: cfpropr
		*p: cjudet
		*p: ctip
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		ccaen = 
		ccalintoc = 
		cfpropr = 
		cjudet = 
		ctip = 
		DoCreate = .T.
		Height = 330
		Name = "frm_dateidentificare"
		Width = 599
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 600
		_shape2.Height = 29
		_shape2.Left = 537
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 63
		Lb_titlu_alb_b121.Caption = "Date de identificare"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 12
		BUT_TERMIN1.Left = 569
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 216
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 8
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 539, ;
		Name = "But_renunt1", ;
		TabIndex = 11, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cboCaen' AS combobox WITH ;
		ControlSource = "thisform.cCaen", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 23, ;
		Left = 170, ;
		Name = "cboCaen", ;
		RowSource = "crsCodCaen.codCaen", ;
		RowSourceType = 2, ;
		Style = 2, ;
		TabIndex = 7, ;
		Top = 233, ;
		Width = 415
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod de identificare fiscala", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label1", ;
		TabIndex = 13, ;
		Top = 41, ;
		Width = 143
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Tel., Fax, E-mail", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label12", ;
		TabIndex = 17, ;
		Top = 158, ;
		Width = 89
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Grupa CAEN", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label15", ;
		TabIndex = 20, ;
		Top = 235, ;
		Width = 73
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label17' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nume, prenume", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label17", ;
		TabIndex = 21, ;
		Top = 278, ;
		Width = 85
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label18' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Functia", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label18", ;
		TabIndex = 23, ;
		Top = 303, ;
		Width = 42
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 213, ;
		Name = "Label2", ;
		TabIndex = 22, ;
		Top = 135, ;
		Width = 328
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumire / Nume,  prenume", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label3", ;
		TabIndex = 14, ;
		Top = 72, ;
		Width = 154, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Banca", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label4", ;
		TabIndex = 16, ;
		Top = 184, ;
		Width = 36
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Domiciliu fiscal", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label5", ;
		TabIndex = 15, ;
		Top = 116, ;
		Width = 89
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cont", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label6", ;
		TabIndex = 18, ;
		Top = 209, ;
		Width = 28
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Declarant", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 9, ;
		Name = "Label7", ;
		TabIndex = 19, ;
		Top = 260, ;
		Width = 56
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'txtAdr' AS textbox WITH ;
		ControlSource = "pounitate.adr", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtAdr", ;
		TabIndex = 3, ;
		Top = 114, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtBanca' AS textbox WITH ;
		ControlSource = "pounitate.banca", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtBanca", ;
		TabIndex = 5, ;
		Top = 182, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtCalintoc' AS textbox WITH ;
		ControlSource = "pounitate.calIntoc", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtCalintoc", ;
		TabIndex = 9, ;
		Top = 301, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtCodi' AS textbox WITH ;
		ControlSource = "pounitate.codi", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "kr", ;
		Height = 23, ;
		InputMask = "9999999999", ;
		Left = 170, ;
		Name = "txtCodi", ;
		TabIndex = 1, ;
		Top = 39, ;
		Width = 129
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtCont' AS textbox WITH ;
		ControlSource = "pounitate.cont", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtCont", ;
		TabIndex = 6, ;
		Top = 207, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDeni' AS textbox WITH ;
		ControlSource = "pounitate.deni", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!k", ;
		Height = 46, ;
		Left = 170, ;
		Name = "txtDeni", ;
		TabIndex = 2, ;
		Top = 65, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtIntocmitf' AS textbox WITH ;
		ControlSource = "pounitate.intocmitf", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtIntocmitf", ;
		TabIndex = 8, ;
		Top = 276, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtTelf' AS textbox WITH ;
		ControlSource = "pounitate.telf", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "k", ;
		Height = 23, ;
		Left = 170, ;
		Name = "txtTelf", ;
		TabIndex = 4, ;
		Top = 156, ;
		Width = 415
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE inainte_de_do_termin
		pounitate.caen = Left(crsCodCaen.codCaen,4)
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl100_102 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="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdDeschidPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF102" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_mesaj
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xml
		*m: getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 593
		ltrim = .F.
		Name = "frm_decl100_102"
		ndecl = 0
		noldvalue = 0
		Width = 744
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="getnrevidenta" display="GetNrEvidenta"/>
		</VFPData>
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "Declaratiile 100, 102 privind obligatiile de plata la BS si BASFS"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 448, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecl", ;
		TabIndex = 1, ;
		Top = 34, ;
		Width = 725, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ControlSource = "datorat", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 116, ;
		Column4.ControlSource = "recuperat", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 102, ;
		Column5.ControlSource = "datascad", ;
		Column5.Name = "cDataScad", ;
		Column5.Width = 91, ;
		Column6.ControlSource = "nr_evidenta", ;
		Column6.Name = "cNrEvidenta", ;
		Column6.Width = 202
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. Evidenta a platii", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "De recuperat", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Datorata", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Enabled = .F., ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdDeschidPDF' AS cmd_executa WITH ;
		Anchor = 0, ;
		Caption = "Deschide PDF", ;
		Enabled = .F., ;
		FontBold = .F., ;
		FontSize = 8, ;
		ForeColor = 0,0,255, ;
		Height = 39, ;
		Left = 636, ;
		Name = "cmdDeschidPDF", ;
		Top = 492, ;
		Visible = .F., ;
		Width = 72, ;
		WordWrap = .T., ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent Decl. 100", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 368, ;
		Name = "cmdPDF100", ;
		Top = 485, ;
		Width = 180, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF102' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent Decl. 102", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 554, ;
		Name = "cmdPDF102", ;
		Top = 485, ;
		Width = 180, ;
		WordWrap = .T., ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 4, ;
		Caption = "Datele de identificare ale firmei", ;
		Height = 27, ;
		Left = 13, ;
		Name = "Command1", ;
		TabIndex = 2, ;
		Top = 485, ;
		Visible = .F., ;
		Width = 188, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 4, ;
		Caption = "Export in fisiere text", ;
		ForeColor = 0,0,255, ;
		Height = 27, ;
		Left = 72, ;
		Name = "Command3", ;
		TabIndex = 3, ;
		Top = 485, ;
		Visible = .F., ;
		Width = 146, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 15, ;
		Height = 75, ;
		Left = 9, ;
		Name = "edtInfo", ;
		Top = 515, ;
		Width = 725, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" />
	
	PROCEDURE afiseaza_mesaj
		Lparameters tcMesaj,tnButoane
		Local lnReturn,lcTitlu
		lcTitlu = [Declaratia 112]
		If gcAppName = "CONSAL"
			lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu)
		Else
			lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu)
		Endif
		Return lnReturn
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!* d100_201201.pdf
		
		Lparameters tnMenu, tnDecl
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		lcCaleFisier = ""
		Local lnDecl
		lnDecl = tnDecl
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		Try
			lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare))
			Do Case
				Case lnDecl = 100
					lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\
				Case lnDecl = 102
					lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\
			Endcase
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case lnDecl = 100
				Do Case
					Case gnAn*12 + gnLuna >= 2013*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2012*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2011*12 + 11
						lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf
					Otherwise
						lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf
				Endcase
			Case lnDecl = 102
				lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf
		Endcase
		
		*!* 18.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 18.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		Do Case
			Case lnDecl = 100
				lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
			Case lnDecl = 102
				lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		Endcase
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 2
				This.UpdateInfo("Se exporta datele in format PDF")
				Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 3
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				*!*			Thisform.do_genereaza_xml(lcFisierXML)
				*!*			This.UpdateInfo(REPLICATE('-', 100))
				If gnAn*12 + gnLuna >= 2011*12 + 11
					Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
					This.UpdateInfo(Replicate('-', 100))
				Else
					Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
					This.UpdateInfo(Replicate('-', 100))
				Endif
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
		
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl, lcFirma
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
		\  <codF2>100</codF2>
			Case lnDecl = 102
		\  <codF2>102</codF2>
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		Select cDecl100_102
		Scan
		\ <htitle_B><<denumire>><pdips_show/>
		\  </htitle_B>
		\  <subform_impSalarii/>
		\ <subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\ <COD_IMP><<cod_imp>></COD_IMP>
		\ <SCADENTA></SCADENTA>
		\ <SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\ <SUMA02 />
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\ </subform_B>
			Select cDecl100_102
		Endscan
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<subform5>
		\<_numePrenume><<Alltrim(gofirma.declarant)>></_numePrenume>
		\<_functia><<Alltrim(gofirma.functie)>></_functia>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		\<checkExclusionsValid></checkExclusionsValid>
		\<checkRestrictionsValid></checkRestrictionsValid>
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
			\  <codF2>100</codF2>
		
			Case lnDecl = 102
			\  <codF2>102</codF2>
		
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<d_rec>0</d_rec>
		\<gol1>1</gol1>
		
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		Endif
		\<cif><<lcCod_fiscal>></cif>
		
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl <= 26
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\</subform_B>
		
		
			Select cDecl100_102
		Endscan
		
		\<htitle_B>
		\<pdips_show/>
		\</htitle_B>
		
		\<subform_B_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\</subform_B_buttons>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B1>
		\<td_nrCrt><<lnIndicatori>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<scadentaOptions>31/12</scadentaOptions>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subform_B1>
		
			Select cDecl100_102
		Endscan
		
		\<subform_B1_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\<totalPlata_A></totalPlata_A>
		\</subform_B1_buttons>
		
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		
		\<subform5>
		\<Nume><<m.lcNumeDeclarant>></Nume>
		\<Functia><<Alltrim(gofirma.functie)>></Functia>
		\<stare_semnatura/>
		\<Prenume><<m.lcPrenumeDeclarant>></Prenume>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		
		\<checkExclusionsValid_B>1</checkExclusionsValid_B>
		\<checkRestrictionsValid_B>1</checkRestrictionsValid_B>
		\<checkExclusionsValid_B1>1</checkExclusionsValid_B1>
		\<checkRestrictionsValid_B1>1</checkRestrictionsValid_B1>
		
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xml
		LPARAMETERS tcFisierXML
		Local lcXML, lcXmlFile, loAsigurat
		Local lcDateStyle, lcMark
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Dmy
		Set Mark To '.'
		
		
		
		Set Textmerge On To Memvar lcXML NOSHOW 
		\<?xml version="1.0"?>
		Select cDeclaratie
		\<declaratieUnica luna_r="<<luna_r>>" an_r="<<an_r>>" d_rec="<<d_rec>>" nume_declar="<<nume_declar>>" prenume_declar="<<prenume_declar>>" functie_declar="<<functie_declar>>" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="mfp:anaf:dgti:declaratie_unica:declaratie:v1" xsi:schemaLocation="mfp:anaf:dgti:declaratie_unica:declaratie:v1 F:\DUK\Docs\DecUnica.xsd">
		Select cPlatitor
		\	<angajator cif="<<cif>>" <<IIF(!EMPTY(rgCom), [rgCom="] + ALLTRIM(rgCom) + ["], [])>> caen="<<caen>>" den="<<den>>" <<IIF(!EMPTY(adrSoc),[adrSoc="] + adrSoc + ["], "")>> <<IIF(!EMPTY(telSoc),[telSoc="] + telSoc + ["], "")>> <<IIF(!EMPTY(faxSoc),[faxSoc="] + faxSoc + ["], "")>> <<IIF(!EMPTY(mailSoc),[mailSoc="] + mailSoc + ["], "")>> <<IIF(!EMPTY(adrFisc),[adrFisc="] + adrFisc + ["], "")>> <<IIF(!EMPTY(telFisc),[telFisc="] + telFisc + ["], "")>> <<IIF(!EMPTY(faxFisc),[faxFisc="] + faxFisc + ["], "")>> <<IIF(!EMPTY(mailFisc),[mailFisc="] + mailFisc + ["], "")>> casaAng="<<casaAng>>" tRisc="<<tRisc>>" dat="<<dat>>" totalPlata_A="<<totalPlata_A>>">
		Select cAngajatorA
		Scan
		\		<angajatorA A_codOblig="<<A_codOblig>>" A_codBugetar="<<A_codBugetar>>" A_datorat="<<A_datorat>>" A_deductibil="<<A_deductibil>>" A_plata="<<A_plata>>"/>
		Endscan
		Select cAngajatorB
		Scan
		\		<angajatorB B_cnp="<<B_cnp>>" B_sanatate="<<B_sanatate>>" B_pensie="<<B_pensie>>" B_brutSalarii="<<B_brutSalarii>>"/>
		Endscan
		Select cAngajatorC1
		Scan
		\		<angajatorC1 C1_11="<<C1_11>>" C1_12="<<C1_12>>" C1_13="<<C1_13>>" C1_21="<<C1_21>>" C1_22="<<C1_22>>" C1_23="<<C1_23>>" C1_31="<<C1_31>>" C1_32="<<C1_32>>" C1_33="<<C1_33>>" C1_T1="<<C1_T1>>" C1_T2="<<C1_T2>>" C1_T="<<C1_T>>" C1_T3="<<C1_T3>>" C1_5="<<C1_5>>" C1_6="<<C1_6>>" C1_7="<<C1_7>>"/>
		Endscan
		Select cAngajatorC2
		Scan
		\	    <angajatorC2 C2_11="<<C2_11>>" C2_12="<<C2_12>>" C2_13="<<C2_13>>" C2_14="<<C2_14>>" C2_15="<<C2_15>>" C2_16="<<C2_16>>" C2_21="<<C2_21>>" C2_22="<<C2_22>>" C2_24="<<C2_24>>" C2_26="<<C2_26>>" C2_31="<<C2_31>>" C2_32="<<C2_32>>" C2_34="<<C2_34>>" C2_36="<<C2_36>>" C2_41="<<C2_41>>" C2_42="<<C2_42>>" C2_44="<<C2_44>>" C2_46="<<C2_46>>" C2_51="<<C2_51>>" C2_52="<<C2_52>>" C2_54="<<C2_54>>" C2_56="<<C2_56>>" C2_T6="<<C2_T6>>" C2_7="<<C2_7>>" C2_8="<<C2_8>>" C2_9="<<C2_9>>" C2_10="<<C2_10>>" C2_110="<<C2_110>>" C2_120="<<C2_120>>" C2_130="<<C2_130>>"/>
		Endscan
		Select cAngajatorC3
		Scan
		\	   <angajatorC3 C3_11="<<C3_11>>" C3_12="<<C3_12>>" C3_13="<<C3_13>>" C3_14="<<C3_14>>" C3_21="<<C3_21>>" C3_22="<<C3_22>>" C3_23="<<C3_23>>" C3_24="<<C3_24>>" C3_31="<<C3_31>>" C3_32="<<C3_32>>" C3_33="<<C3_33>>" C3_34="<<C3_34>>" C3_41="<<C3_41>>" C3_42="<<C3_42>>" C3_43="<<C3_43>>" C3_44="<<C3_44>>" C3_total="<<C3_TOTAL>>" C3_suma="<<C3_suma>>" C3_aj_nr="<<C3_aj_nr>>" C3_aj_suma="<<C3_aj_suma>>"/>
		Endscan
		Select cAngajatorC4
		Scan
		\	   <angajatorC4 C4_scutitaSo="<<C4_scutitaSo>>"/>
		Endscan
		Select cAngajatorC5
		*!* 02.05.2011
		SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0)))
		\	   <angajatorC5 C5_subv="<<C5_subv>>" C5_recuperat="<<C5_recuperat>>" C5_restituit="<<C5_restituit>>"/>
		Endscan
		*!* 02.05.2011 ^
		Select cAngajatorC6
		Scan
		\	   <angajatorC6 C6_baza="<<C6_baza>>" C6_ct="<<C6_CT>>"/>
		Endscan
		Select cAngajatorC7
		Scan
		\	   <angajatorC7 C7_baza="<<C7_BAZA>>" C7_ct="<<C7_CT>>"/>
		Endscan
		Select cAngajatorD
		Scan
		\	   <angajatorD D1="<<D1>>" D2="<<D2>>" D3="<<D3>>" D4="<<D4>>" />
		Endscan
		Select cAngajatorE1
		Scan
		\	   <angajatorE1 E1_venit="<<E1_venit>>" E1_baza="<<E1_baza>>" E1_ct="<<E1_ct>>"/>
		ENDSCAN
		Select cAngajatorE2
		Scan
		\	   <angajatorE2 E2_11="<<E2_11>>", E2_12="<<E2_12>>", E2_14="<<E2_14>>", E2_16="<<E2_16>>", E2_21="<<E2_21>>", E2_22="<<E2_22>>", E2_24="<<E2_24>>", E2_26="<<E2_26>>", E2_31="<<E2_31>>", E2_32="<<E2_32>>", E2_34="<<E2_34>>", E2_36="<<E2_36>>",	E2_41="<<E2_41>>", E2_42="<<E2_42>>", E2_44="<<E2_44>>", E2_46="<<E2_46>>", E2_51="<<E2_51>>", E2_52="<<E2_52>>", E2_54="<<E2_54>>", E2_56="<<E2_56>>", E2_66="<<E2_66>>", E2_7="<<E2_7>>", E2_8="<<E2_8>>", E2_9="<<E2_9>>", E2_10="<<E2_10>>", E2_110="<<E2_110>>", E2_120="<<E2_120>>", E2_130="<<E2_130>>" />
		ENDSCAN
		Select cAngajatorE3
		Scan
		\	   <angajatorE3 E3_11="<<E3_11>>", E3_12="<<E3_12>>", E3_13="<<E3_13>>", E3_14="<<E3_14>>", E3_21="<<E3_21>>", E3_22="<<E3_22>>", E3_23="<<E3_23>>", E3_24="<<E3_24>>", E3_31="<<E3_31>>", E3_32="<<E3_32>>", E3_33="<<E3_33>>", E3_34="<<E3_34>>",	E3_41="<<E3_41>>", E3_42="<<E3_42>>", E3_43="<<E3_43>>", E3_44="<<E3_44>>", E3_total="<<E3_total>>", E3_suma="<<E3_suma>>" />
		Endscan
		Select cAngajatorF1
		Scan
		\	   <angajatorF1 F1_suma="<<F1_SUMA>>"/>
		Endscan
		Select cAngajatorF2
		Scan
		\	   <angajatorF2 F2_cif="<<F2_CIF>>" F2_id="<<F2_ID>>" F2_suma="<<F2_SUMA>>"/>
		Endscan
		\	</angajator>
		
		Select cAsigurati
		Scan
			Scatter Name loAsigurat
		\	<asigurat cnpAsig="<<CNPASIG>>" numeAsig="<<NUMEASIG>>" prenAsig="<<PRENASIG>>" idAsig="<<IDASIG>>" dataAng="<<DATAANG>>" <<IIF(!EMPTY(dataSf), [dataSf="] + DTOC(DATASF) + ["], "")>> casaSn="<<CASASN>>" asigCI="<<ASIGCI>>" asigSO="<<ASIGSO>>"<<IIF(!EMPTY(NVL(cnpant,'')),[ cnpAnt="] + CNPANT + ["],[])+IIF(!EMPTY(NVL(numeant,'')),[ numeAnt="] + NUMEANT + ["],[])+IIF(!EMPTY(NVL(prenant,'')),[ prenAnt="] + PRENANT +["],[])>>>
			Select cCoasigurati
			Scan For marca = loAsigurat.marca
		\		<coAsigurati tip="<<TIP>>" cnp="<<CNP>>" nume="<<NUME>>" prenume="<<PRENUME>>"/>
			Endscan
			Select cAsiguratiA
			Scan For marca = loAsigurat.marca
		\		<asiguratA A_1="<<A_1>>" A_2="<<A_2>>" A_3="<<A_3>>" A_4="<<A_4>>" A_5="<<A_5>>" A_6="<<A_6>>" A_7="<<A_7>>" A_8="<<A_8>>" A_9="<<A_9>>" A_10="<<A_10>>" A_11="<<A_11>>" A_12="<<A_12>>" A_13="<<A_13>>" A_14="<<A_14>>" A_20="<<A_20>>"/>
			Endscan
			Select cAsiguratiB1
			Scan For marca = loAsigurat.marca
		\		<asiguratB1 B1_1="<<B1_1>>" B1_2="<<B1_2>>" B1_3="<<B1_3>>" B1_4="<<B1_4>>" B1_5="<<B1_5>>" B1_6="<<B1_6>>" B1_7="<<B1_7>>" B1_8="<<B1_8>>" B1_9="<<B1_9>>" B1_10="<<B1_10>>" B1_15="<<B1_15>>">
				Select cAsiguratiB11
				Scan For marca = loAsigurat.marca
		\		<asiguratB11 B11_1="<<B11_1>>" B11_2="<<B11_2>>" B11_3="<<B11_3>>" B11_41="<<B11_41>>" B11_42="<<B11_42>>" B11_43="<<B11_43>>" B11_5="<<B11_5>>" B11_6="<<B11_6>>" B11_71="<<B11_71>>" B11_72="<<B11_72>>" B11_73="<<B11_73>>"/>
				Endscan
		\		</asiguratB1>
			Endscan
			Select cAsiguratiB2
			Scan For marca = loAsigurat.marca
		\		<asiguratB2 B2_1="<<B2_1>>" B2_2="<<B2_2>>" B2_3="<<B2_3>>" B2_4="<<B2_4>>" B2_5="<<B2_5>>" B2_6="<<B2_6>>" B2_7="<<B2_7>>"/>
			Endscan
			Select cAsiguratiB3
			Scan For marca = loAsigurat.marca
		\		<asiguratB3 B3_1="<<B3_1>>" B3_2="<<B3_2>>" B3_3="<<B3_3>>" B3_4="<<B3_4>>" B3_5="<<B3_5>>" B3_6="<<B3_6>>" B3_7="<<B3_7>>" B3_8="<<B3_8>>" B3_9="<<B3_9>>" B3_10="<<B3_10>>" B3_11="<<B3_11>>" B3_12="<<B3_12>>" B3_13="<<B3_13>>"/>
			Endscan
			Select cAsiguratiB4
			Scan For marca = loAsigurat.marca
		\		<asiguratB4 B4_1="<<B4_1>>" B4_2="<<B4_2>>" B4_3="<<B4_3>>" B4_4="<<B4_4>>" B4_5="<<B4_5>>" B4_6="<<B4_6>>" B4_7="<<B4_7>>" B4_8="<<B4_8>>" B4_14="<<B4_14>>"/>
			ENDSCAN
			Select cAsiguratiC
			Scan For marca = loAsigurat.marca
		\		<asiguratC C_1="<<C_1>>" C_2="<<C_2>>" C_3="<<C_3>>" C_4="<<C_4>>" C_5="<<C_5>>" C_6="<<C_6>>" C_7="<<C_7>>" C_8="<<C_8>>" C_9="<<C_9>>" C_10="<<C_10>>" C_11="<<C_11>>" C_17="<<C_17>>" C_18="<<C_18>>" C_19="<<C_19>>"/>
			Endscan	
			Select cAsiguratiD
			Scan For marca = loAsigurat.marca
		\		<asiguratD D_1="<<D_1>>" D_2="<<D_2>>" <<IIF(!EMPTY(D_3), [D_3="]+ D_3 + ["], [])>> <<IIF(!EMPTY(D_4), [D_4="] + D_4 + ["], [])>> D_5="<<D_5>>" D_6="<<D_6>>" D_7="<<D_7>>" <<IIF(!EMPTY(NVL(D_8,0)), [D_8="] + ALLTRIM(STR(D_8,13)) + ["], [])>> D_9="<<D_9>>" D_10="<<D_10>>" <<IIF(!EMPTY(D_11), [D_11="] + D_11 + ["], [])>> <<IIF(!EMPTY(D_12), [D_12="] + D_12 + ["], [])>> <<IIF(!EMPTY(D_13), [D_13="] + D_13 + ["], [])>> D_14="<<D_14>>" D_15="<<D_15>>" D_16="<<D_16>>" D_17="<<D_17>>" D_18="<<D_18>>" D_19="<<D_19>>" D_20="<<D_20>>" D_21="<<D_21>>"/>
			Endscan
		\	</asigurat>
		Endscan
		\</declaratieUnica>
		Set Textmerge To
		
		Strtofile(lcXML, m.tcFisierXML)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		 
	ENDPROC

	PROCEDURE getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie
		* tcCodObligatie: 601
		* tnAn, tnLuna: sfarsitul perioadei de raportare
		* tdDataScad: data scadenta a obligatiei
		* tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) 
		
		Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i
		
		lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX
		lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA
		lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '')
		lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA
		lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0')
		
		Text To lcText Noshow
		Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35
		
		Verificare componenta si suma de control
		pentru
		nr_evid :
		Poz.1-2
		 :10
		Poz.3-5
		 : cod obligatie (nomenclator)
		Poz.6-7
		 :01
		Poz.8-11
		 : LLAA (sf.per.de raportare)
		Poz.12-17
		 : ZZLLAA (scadenta platii)
		Poz.18:
		 1 daca tip_oblig=1
		 0 daca tip_oblig=2
		
		Poz.19
		 : 0
		Poz.20-21
		 : 00
		Poz.22-23
		: suma de control = suma
		primelor 21 pozitii (se iau ultimele 2 cifre
		ale sumei)
		
		Endtext
		
		
		lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00'
		lnSuma = 0
		For i = 1 To Len(m.lcNrEvidenta)
			lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1)))
		Endfor
		lcSumaControl = Right(Alltrim(Str(lnSuma)), 2)
		lcNrEvidenta = lcNrEvidenta + m.lcSumaControl
		
		Return m.lcNrEvidenta
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		PARAMETERS tnDecl, tlTrim
		
		DODEFAULT()
		thisform.nDecl= tnDecl
		thisform.lTrim = tlTrim
		this.cmdPDF100.Visible = INLIST(tnDecl, 0, 100)
		this.cmdPDF102.Visible = INLIST(tnDecl, 0, 102)
		
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		
		
		Thisform.totaluri("datorat")
		Thisform.totaluri("recuperat")
		
		DODEFAULT(nStyle)
	ENDPROC

	PROCEDURE totaluri
		Lparameters tcColoana
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "datorat"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		SELECT (lcTabel)
		GO TOP 
		
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE cmdDeschidPDF.Click
		Local lcFisierXDP
		lcFisierXDP = Thisform.cD100PDF 
		IF !EMPTY(lcFisierXDP) AND FILE(lcFisierXDP)
			Thisform.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
			open_default_app(lcFisierXDP)
		ENDIF  
	ENDPROC

	PROCEDURE cmdPDF100.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		
		*** Generare Nr evidenta a platii
		SELECT cDecl
		SCAN FOR (datorat <> 0 OR recuperat <> 0)
			lcCodObligatie = ALLTRIM(cod_imp)
			IF EMPTY(m.lcCodObligatie)
				loop	
			ENDIF 
			lnAn = m.gnAn
			lnLuna = m.gnLuna
			ldDataScadenta = datascad	
			m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul)
			
			lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie)
			SELECT cDecl 
			REPLACE nr_evidenta WITH m.lcNrEvidenta
		ENDSCAN 
		
		Thisform.do_executa(3,100) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE cmdPDF102.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		SELECT cDecl
		SCAN FOR (datorat <> 0 OR recuperat <> 0)
			lcCodObligatie = ALLTRIM(cod_imp)
			IF EMPTY(m.lcCodObligatie)
				loop	
			ENDIF 
			lnAn = m.gnAn
			lnLuna = m.gnLuna
			ldDataScadenta = datascad	
			m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul)
			
			lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie)
			SELECT cDecl 
			REPLACE nr_evidenta WITH m.lcNrEvidenta
		ENDSCAN 
		
		Thisform.do_executa(3, 102) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decl WITH (lcTabel), thisform.nDecl, thisform.lTrim IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("recuperat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivR = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("datorat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivD = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl100_102_setacont 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="Cb_tx_604_1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_612_1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_810_1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_810" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_612" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_604" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_628_1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_628" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccont
		*p: ccursoracont
		*p: ccursoracont2
		*p: ccursoracont3
		*p: ccursorcont
		*p: ccursorcont2
		*p: ccursorcont3
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		ccont = 
		ccursoracont = 
		ccursoracont2 = 
		ccursoracont3 = 
		ccursorcont = 
		ccursorcont2 = 
		ccursorcont3 = 
		DoCreate = .T.
		Height = 291
		Name = "frm_decl100_102_setacont"
		Width = 488
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 509
		_shape2.Height = 29
		_shape2.Left = 455
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Setare conturi analitice - declaratia 100 lunara"
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 10
		Lb_titlu_alb_b121.Top = 6
		BUT_TERMIN1.Left = 457
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 9
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 132
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 0
	*</PropValue>

	ADD OBJECT 'Cb_tx_604' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Cb_tx_604", ;
		TabIndex = 1, ;
		Top = 93, ;
		Width = 142, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 53, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crs446_447_604", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 85, ;
		_lbbase1.Caption = "Cont", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_604_1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 154, ;
		Name = "Cb_tx_604_1", ;
		TabIndex = 2, ;
		Top = 93, ;
		Width = 327, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsAcont_604.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 222, ;
		_lbbase1.Caption = "Cont analitic", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_612' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Cb_tx_612", ;
		TabIndex = 3, ;
		Top = 147, ;
		Width = 142, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 53, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crs446_447_612", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 85, ;
		_lbbase1.Caption = "Cont", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_612_1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 154, ;
		Name = "Cb_tx_612_1", ;
		TabIndex = 4, ;
		Top = 147, ;
		Width = 327, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsAcont_612.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Width = 222, ;
		_lbbase1.Caption = "Cont analitic", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_628' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Cb_tx_628", ;
		TabIndex = 5, ;
		Top = 200, ;
		Width = 142, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 53, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crs446_447_628", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 85, ;
		_lbbase1.Caption = "Cont", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_628_1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 154, ;
		Name = "Cb_tx_628_1", ;
		TabIndex = 6, ;
		Top = 200, ;
		Width = 327, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsAcont_628.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Width = 222, ;
		_lbbase1.Caption = "Cont analitic", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_810' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Cb_tx_810", ;
		TabIndex = 7, ;
		Top = 250, ;
		Width = 142, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 53, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crs446_447_810", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 85, ;
		_lbbase1.Caption = "Cont", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_810_1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 154, ;
		Name = "Cb_tx_810_1", ;
		TabIndex = 8, ;
		Top = 250, ;
		Width = 327, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 101, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsAcont_810.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 222, ;
		_lbbase1.Caption = "Cont analitic", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "Alegeti conturile si conturile analitice corespunzatoare obligatiilor 604, 612, 628, 810 in declaratia 100 lunara", ;
		Height = 31, ;
		Left = 6, ;
		Name = "Label1", ;
		TabIndex = 11, ;
		Top = 35, ;
		Width = 429, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "(604)Imp.pe ven.-dividende distribuite la PF", ;
		Left = 6, ;
		Name = "Label2", ;
		TabIndex = 12, ;
		Top = 76, ;
		Width = 239
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		BackStyle = 0, ;
		Caption = "(612)Imp.pe ven.obt.din Romania de nerezidenti - PF                                                                                                                                                                                                       .", ;
		Left = 6, ;
		Name = "Label3", ;
		TabIndex = 14, ;
		Top = 130, ;
		Width = 890
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		BackStyle = 0, ;
		Caption = "(810)Varsam.de la PJ pt.pers.cu handicap neincadrate                                                                                                                                                                                                      ", ;
		Left = 6, ;
		Name = "Label4", ;
		TabIndex = 15, ;
		Top = 233, ;
		Width = 894
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		BackStyle = 0, ;
		Caption = "(628)Imp. chirii catre PF platite de PJ ", ;
		Left = 6, ;
		Name = "Label5", ;
		TabIndex = 13, ;
		Top = 183, ;
		Width = 890
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Destroy
		lcCursorAcont = ALLTRIM(thisform.cCursorAcont) 
		lcCursorCont = ALLTRIM(thisform.cCursorCont) 
		
		IF USED(lcCursorCont)
			USE IN (lcCursorCont)
		ENDIF 	
		
		IF USED(lcCursorAcont)
			USE IN (lcCursorAcont)
		ENDIF 
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lcSql, llSucces
		
		lcSql = [update optiuni set varvalue = ?gcCONTD100_604 where varname = 'CONTD100_604']
		
		llSucces = goExecutor.oExecuta(lcSql)
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcCONTD100_612 where varname = 'CONTD100_612']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcCONTD100_628 where varname = 'CONTD100_628']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcCONTD100_810 where varname = 'CONTD100_810']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcACONTD100_604 where varname = 'ACONTD100_604']
		
			llSucces = goExecutor.oExecuta(lcSql)
		ENDIF 
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcACONTD100_612 where varname = 'ACONTD100_612']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcACONTD100_628 where varname = 'ACONTD100_628']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		
		If m.llSucces
			lcSql = [update optiuni set varvalue = ?gcACONTD100_810 where varname = 'ACONTD100_810']
		
			llSucces = goExecutor.oExecuta(lcSql)
		Endif
		 
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		LOCAL lcDenumire14, lcDenumire23, lcDenumire25  
		
		
		This.cb_tx_604._cbbase1.Value = gcCONTD100_604
		Select crsAcont_604
		Locate For acont = gcAcontD100_604
		If Found()
			This.cb_tx_604_1._cbbase1.Value = ALLTRIM(denumire)
		ENDIF
		
		This.Cb_tx_612._cbbase1.Value = gcCONTD100_612
		Select crsAcont_612
		Locate For acont = gcAcontD100_612
		If Found()
			This.Cb_tx_612_1._cbbase1.Value = ALLTRIM(denumire)
		Endif
		
		This.Cb_tx_628._cbbase1.Value = gcCONTD100_628
		Select crsAcont_628
		Locate For acont = gcAcontD100_628
		If Found()
			This.Cb_tx_628_1._cbbase1.Value = ALLTRIM(denumire)
		ENDIF
		
		This.Cb_tx_810._cbbase1.Value = gcCONTD100_810
		Select crsAcont_810
		Locate For acont = gcAcontD100_810
		If Found()
			This.Cb_tx_810_1._cbbase1.Value = ALLTRIM(denumire)
		Endif
		
		
	ENDPROC

	PROCEDURE Cb_tx_604._cbbase1.Valid
		LOCAL lcCont, lnSucces, lcCursorAcont
		lcCursorAcont = ""
		lnSucces = 1
		lcCont = ALLTRIM(THIS.VALUE)
		
		IF EMPTY(lcCont) 
			lnSucces = -1
		ELSE 
			THISFORM.cb_tx_simplu1._cbbase1.ROWSOURCE=''
				lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg
				SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont
				
				SELECT crsAcont
				LOCATE FOR acont = gcACONTDECL100_RD14
				IF !FOUND()
					LOCATE FOR ALLTRIM(acont) = '-1'
				ENDIF 
		ENDIF 
		
		IF lnSucces = -1
			RETURN 
		ENDIF 
		
		WITH THISFORM.cb_tx_simplu1._cbbase1
			.ROWSOURCETYPE= 2
			.ROWSOURCE = 'crsAcont.denumire'
		ENDWITH
		
		gcCONTDECL100_RD14 = crs446_447.cont
		
		
		
	ENDPROC

	PROCEDURE Cb_tx_604_1._cbbase1.Valid
		gcAcontD100_604 = crsAcont_604.acont
	ENDPROC

	PROCEDURE Cb_tx_612._cbbase1.Valid
		LOCAL lcCont, lnSucces, lcCursorAcont
		lcCursorAcont = ""
		lnSucces = 1
		lcCont = ALLTRIM(THIS.VALUE)
		
		IF EMPTY(lcCont) 
			lnSucces = -1
		ELSE 
			THISFORM.cb_tx_simplu3._cbbase1.ROWSOURCE=''
				lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg
				SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_2
				
				SELECT crsAcont_2
				LOCATE FOR acont = gcACONTDECL100_RD23
				IF !FOUND()
					LOCATE FOR ALLTRIM(acont) = '-1'
				ENDIF
		ENDIF 
		
		IF lnSucces = -1
			RETURN 
		ENDIF 
		
		WITH THISFORM.cb_tx_simplu3._cbbase1
			.ROWSOURCETYPE= 2
			.ROWSOURCE = 'crsAcont_2.denumire'
		ENDWITH
		
		gcCONTDECL100_RD23 = crs446_447_2.cont
		
		
		
	ENDPROC

	PROCEDURE Cb_tx_612_1._cbbase1.Valid
		gcAcontD100_612 = crsAcont_612.acont
		
	ENDPROC

	PROCEDURE Cb_tx_628._cbbase1.Valid
		LOCAL lcCont, lnSucces, lcCursorAcont
		lcCursorAcont = ""
		lnSucces = 1
		lcCont = ALLTRIM(THIS.VALUE)
		
		IF EMPTY(lcCont) 
			lnSucces = -1
		ELSE 
			THISFORM.cb_tx_simplu3._cbbase1.ROWSOURCE=''
				lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg
				SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_2
				
				SELECT crsAcont_2
				LOCATE FOR acont = gcACONTDECL100_RD23
				IF !FOUND()
					LOCATE FOR ALLTRIM(acont) = '-1'
				ENDIF
		ENDIF 
		
		IF lnSucces = -1
			RETURN 
		ENDIF 
		
		WITH THISFORM.cb_tx_simplu3._cbbase1
			.ROWSOURCETYPE= 2
			.ROWSOURCE = 'crsAcont_2.denumire'
		ENDWITH
		
		gcCONTDECL100_RD23 = crs446_447_2.cont
		
		
		
	ENDPROC

	PROCEDURE Cb_tx_628_1._cbbase1.Valid
		gcAcontD100_628 = crsAcont_628.acont
	ENDPROC

	PROCEDURE Cb_tx_810._cbbase1.Valid
		LOCAL lcCont, lnSucces, lcCursorAcont
		lcCursorAcont = ""
		lnSucces = 1
		lcCont = ALLTRIM(THIS.VALUE)
		
		IF EMPTY(lcCont) 
			lnSucces = -1
		ELSE 
			THISFORM.cb_tx_simplu5._cbbase1.ROWSOURCE=''
				lcCursorAcont = update_plAcont(lcCont, gnAn) && updateserver.prg
				SELECT * FROM (lcCursorAcont) INTO CURSOR crsAcont_3
				
				SELECT crsAcont_3
				LOCATE FOR acont = gcACONTDECL100_RD25
				IF !FOUND()
					LOCATE FOR ALLTRIM(acont) = '-1'
				ENDIF
		ENDIF 
		
		IF lnSucces = -1
			RETURN 
		ENDIF 
		
		WITH THISFORM.cb_tx_simplu5._cbbase1
			.ROWSOURCETYPE= 2
			.ROWSOURCE = 'crsAcont_3.denumire'
		ENDWITH
		
		gcCONTDECL100_RD25 = crs446_447_3.cont
		
		
		
	ENDPROC

	PROCEDURE Cb_tx_810_1._cbbase1.Valid
		gcAcontD100_810 = crsAcont_810.acont
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl100_2016 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="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_mesaj
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201601
		*m: do_genereaza_xml
		*m: getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 593
		ltrim = .F.
		Name = "frm_decl100_2016"
		ndecl = 0
		noldvalue = 0
		Width = 744
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="getnrevidenta" display="GetNrEvidenta"/>
		</VFPData>
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 448, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecl", ;
		TabIndex = 1, ;
		Top = 34, ;
		Width = 725, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ControlSource = "datorat", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 116, ;
		Column4.ControlSource = "recuperat", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 102, ;
		Column5.ControlSource = "datascad", ;
		Column5.Name = "cDataScad", ;
		Column5.Width = 91, ;
		Column6.ControlSource = "nr_evidenta", ;
		Column6.Name = "cNrEvidenta", ;
		Column6.Width = 202
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. Evidenta a platii", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "De recuperat", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Datorata", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Enabled = .F., ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent Decl. 100", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 552, ;
		Name = "cmdPDF100", ;
		Top = 485, ;
		Width = 180, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 15, ;
		Height = 75, ;
		Left = 9, ;
		Name = "edtInfo", ;
		Top = 515, ;
		Width = 725, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" />
	
	PROCEDURE afiseaza_mesaj
		Lparameters tcMesaj,tnButoane
		Local lnReturn,lcTitlu
		lcTitlu = [Declaratia 112]
		If gcAppName = "CONSAL"
			lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu)
		Else
			lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu)
		Endif
		Return lnReturn
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!* d100_201201.pdf
		
		*!* 15.02.2018
		*!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf
		*!* la d101 trebuie actualizati indicatorii!
		
		Lparameters tnMenu, tnDecl
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		lcCaleFisier = ""
		Local lnDecl
		lnDecl = tnDecl
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		Try
			lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare))
			Do Case
				Case lnDecl = 100
					lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\
				Case lnDecl = 102
					lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\
			Endcase
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case lnDecl = 100
				Do Case
					Case gnAn*12 + gnLuna >= 2020*12 + 3
						lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf"
					Case gnAn*12 + gnLuna >= 2018*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf"
					Case gnAn*12 + gnLuna >= 2017*12 + 2
						lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf"
					Case gnAn*12 + gnLuna >= 2016*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf"
					Case gnAn*12 + gnLuna >= 2013*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2012*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2011*12 + 11
						lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf
					Otherwise
						lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf
				Endcase
			Case lnDecl = 102
				lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf
		Endcase
		
		*!* 18.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 18.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		Do Case
			Case lnDecl = 100
				lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
			Case lnDecl = 102
				lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		Endcase
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 2
				This.UpdateInfo("Se exporta datele in format PDF")
				Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 3
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				*!*			Thisform.do_genereaza_xml(lcFisierXML)
				*!*			This.UpdateInfo(REPLICATE('-', 100))
				DO CASE 
					CASE  gnAn*12 + gnLuna >= 2016*12 + 1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2011*12 + 11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
				ENDCASE 
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
		
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl, lcFirma
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
		\  <codF2>100</codF2>
			Case lnDecl = 102
		\  <codF2>102</codF2>
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		Select cDecl100_102
		Scan
		\ <htitle_B><<denumire>><pdips_show/>
		\  </htitle_B>
		\  <subform_impSalarii/>
		\ <subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\ <COD_IMP><<cod_imp>></COD_IMP>
		\ <SCADENTA></SCADENTA>
		\ <SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\ <SUMA02 />
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\ </subform_B>
			Select cDecl100_102
		Endscan
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<subform5>
		\<_numePrenume><<Alltrim(gofirma.declarant)>></_numePrenume>
		\<_functia><<Alltrim(gofirma.functie)>></_functia>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		\<checkExclusionsValid></checkExclusionsValid>
		\<checkRestrictionsValid></checkRestrictionsValid>
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
			\  <codF2>100</codF2>
		
			Case lnDecl = 102
			\  <codF2>102</codF2>
		
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<d_rec>0</d_rec>
		\<gol1>1</gol1>
		
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		Endif
		\<cif><<lcCod_fiscal>></cif>
		
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl <= 26
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\</subform_B>
		
		
			Select cDecl100_102
		Endscan
		
		\<htitle_B>
		\<pdips_show/>
		\</htitle_B>
		
		\<subform_B_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\</subform_B_buttons>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B1>
		\<td_nrCrt><<lnIndicatori>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<scadentaOptions>31/12</scadentaOptions>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subform_B1>
		
			Select cDecl100_102
		Endscan
		
		\<subform_B1_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\<totalPlata_A></totalPlata_A>
		\</subform_B1_buttons>
		
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		
		\<subform5>
		\<Nume><<m.lcNumeDeclarant>></Nume>
		\<Functia><<Alltrim(gofirma.functie)>></Functia>
		\<stare_semnatura/>
		\<Prenume><<m.lcPrenumeDeclarant>></Prenume>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		
		\<checkExclusionsValid_B>1</checkExclusionsValid_B>
		\<checkRestrictionsValid_B>1</checkRestrictionsValid_B>
		\<checkExclusionsValid_B1>1</checkExclusionsValid_B1>
		\<checkRestrictionsValid_B1>1</checkRestrictionsValid_B1>
		
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I/>
		\<SUMA03I><<ALLTRIM(STR(datorat,9,0))>></SUMA03I>
		\<SUMA04I><<ALLTRIM(STR(recuperat,9,0))>></SUMA04I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xml
		LPARAMETERS tcFisierXML
		Local lcXML, lcXmlFile, loAsigurat
		Local lcDateStyle, lcMark
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Dmy
		Set Mark To '.'
		
		
		
		Set Textmerge On To Memvar lcXML NOSHOW 
		\<?xml version="1.0"?>
		Select cDeclaratie
		\<declaratieUnica luna_r="<<luna_r>>" an_r="<<an_r>>" d_rec="<<d_rec>>" nume_declar="<<nume_declar>>" prenume_declar="<<prenume_declar>>" functie_declar="<<functie_declar>>" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="mfp:anaf:dgti:declaratie_unica:declaratie:v1" xsi:schemaLocation="mfp:anaf:dgti:declaratie_unica:declaratie:v1 F:\DUK\Docs\DecUnica.xsd">
		Select cPlatitor
		\	<angajator cif="<<cif>>" <<IIF(!EMPTY(rgCom), [rgCom="] + ALLTRIM(rgCom) + ["], [])>> caen="<<caen>>" den="<<den>>" <<IIF(!EMPTY(adrSoc),[adrSoc="] + adrSoc + ["], "")>> <<IIF(!EMPTY(telSoc),[telSoc="] + telSoc + ["], "")>> <<IIF(!EMPTY(faxSoc),[faxSoc="] + faxSoc + ["], "")>> <<IIF(!EMPTY(mailSoc),[mailSoc="] + mailSoc + ["], "")>> <<IIF(!EMPTY(adrFisc),[adrFisc="] + adrFisc + ["], "")>> <<IIF(!EMPTY(telFisc),[telFisc="] + telFisc + ["], "")>> <<IIF(!EMPTY(faxFisc),[faxFisc="] + faxFisc + ["], "")>> <<IIF(!EMPTY(mailFisc),[mailFisc="] + mailFisc + ["], "")>> casaAng="<<casaAng>>" tRisc="<<tRisc>>" dat="<<dat>>" totalPlata_A="<<totalPlata_A>>">
		Select cAngajatorA
		Scan
		\		<angajatorA A_codOblig="<<A_codOblig>>" A_codBugetar="<<A_codBugetar>>" A_datorat="<<A_datorat>>" A_deductibil="<<A_deductibil>>" A_plata="<<A_plata>>"/>
		Endscan
		Select cAngajatorB
		Scan
		\		<angajatorB B_cnp="<<B_cnp>>" B_sanatate="<<B_sanatate>>" B_pensie="<<B_pensie>>" B_brutSalarii="<<B_brutSalarii>>"/>
		Endscan
		Select cAngajatorC1
		Scan
		\		<angajatorC1 C1_11="<<C1_11>>" C1_12="<<C1_12>>" C1_13="<<C1_13>>" C1_21="<<C1_21>>" C1_22="<<C1_22>>" C1_23="<<C1_23>>" C1_31="<<C1_31>>" C1_32="<<C1_32>>" C1_33="<<C1_33>>" C1_T1="<<C1_T1>>" C1_T2="<<C1_T2>>" C1_T="<<C1_T>>" C1_T3="<<C1_T3>>" C1_5="<<C1_5>>" C1_6="<<C1_6>>" C1_7="<<C1_7>>"/>
		Endscan
		Select cAngajatorC2
		Scan
		\	    <angajatorC2 C2_11="<<C2_11>>" C2_12="<<C2_12>>" C2_13="<<C2_13>>" C2_14="<<C2_14>>" C2_15="<<C2_15>>" C2_16="<<C2_16>>" C2_21="<<C2_21>>" C2_22="<<C2_22>>" C2_24="<<C2_24>>" C2_26="<<C2_26>>" C2_31="<<C2_31>>" C2_32="<<C2_32>>" C2_34="<<C2_34>>" C2_36="<<C2_36>>" C2_41="<<C2_41>>" C2_42="<<C2_42>>" C2_44="<<C2_44>>" C2_46="<<C2_46>>" C2_51="<<C2_51>>" C2_52="<<C2_52>>" C2_54="<<C2_54>>" C2_56="<<C2_56>>" C2_T6="<<C2_T6>>" C2_7="<<C2_7>>" C2_8="<<C2_8>>" C2_9="<<C2_9>>" C2_10="<<C2_10>>" C2_110="<<C2_110>>" C2_120="<<C2_120>>" C2_130="<<C2_130>>"/>
		Endscan
		Select cAngajatorC3
		Scan
		\	   <angajatorC3 C3_11="<<C3_11>>" C3_12="<<C3_12>>" C3_13="<<C3_13>>" C3_14="<<C3_14>>" C3_21="<<C3_21>>" C3_22="<<C3_22>>" C3_23="<<C3_23>>" C3_24="<<C3_24>>" C3_31="<<C3_31>>" C3_32="<<C3_32>>" C3_33="<<C3_33>>" C3_34="<<C3_34>>" C3_41="<<C3_41>>" C3_42="<<C3_42>>" C3_43="<<C3_43>>" C3_44="<<C3_44>>" C3_total="<<C3_TOTAL>>" C3_suma="<<C3_suma>>" C3_aj_nr="<<C3_aj_nr>>" C3_aj_suma="<<C3_aj_suma>>"/>
		Endscan
		Select cAngajatorC4
		Scan
		\	   <angajatorC4 C4_scutitaSo="<<C4_scutitaSo>>"/>
		Endscan
		Select cAngajatorC5
		*!* 02.05.2011
		SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0)))
		\	   <angajatorC5 C5_subv="<<C5_subv>>" C5_recuperat="<<C5_recuperat>>" C5_restituit="<<C5_restituit>>"/>
		Endscan
		*!* 02.05.2011 ^
		Select cAngajatorC6
		Scan
		\	   <angajatorC6 C6_baza="<<C6_baza>>" C6_ct="<<C6_CT>>"/>
		Endscan
		Select cAngajatorC7
		Scan
		\	   <angajatorC7 C7_baza="<<C7_BAZA>>" C7_ct="<<C7_CT>>"/>
		Endscan
		Select cAngajatorD
		Scan
		\	   <angajatorD D1="<<D1>>" D2="<<D2>>" D3="<<D3>>" D4="<<D4>>" />
		Endscan
		Select cAngajatorE1
		Scan
		\	   <angajatorE1 E1_venit="<<E1_venit>>" E1_baza="<<E1_baza>>" E1_ct="<<E1_ct>>"/>
		ENDSCAN
		Select cAngajatorE2
		Scan
		\	   <angajatorE2 E2_11="<<E2_11>>", E2_12="<<E2_12>>", E2_14="<<E2_14>>", E2_16="<<E2_16>>", E2_21="<<E2_21>>", E2_22="<<E2_22>>", E2_24="<<E2_24>>", E2_26="<<E2_26>>", E2_31="<<E2_31>>", E2_32="<<E2_32>>", E2_34="<<E2_34>>", E2_36="<<E2_36>>",	E2_41="<<E2_41>>", E2_42="<<E2_42>>", E2_44="<<E2_44>>", E2_46="<<E2_46>>", E2_51="<<E2_51>>", E2_52="<<E2_52>>", E2_54="<<E2_54>>", E2_56="<<E2_56>>", E2_66="<<E2_66>>", E2_7="<<E2_7>>", E2_8="<<E2_8>>", E2_9="<<E2_9>>", E2_10="<<E2_10>>", E2_110="<<E2_110>>", E2_120="<<E2_120>>", E2_130="<<E2_130>>" />
		ENDSCAN
		Select cAngajatorE3
		Scan
		\	   <angajatorE3 E3_11="<<E3_11>>", E3_12="<<E3_12>>", E3_13="<<E3_13>>", E3_14="<<E3_14>>", E3_21="<<E3_21>>", E3_22="<<E3_22>>", E3_23="<<E3_23>>", E3_24="<<E3_24>>", E3_31="<<E3_31>>", E3_32="<<E3_32>>", E3_33="<<E3_33>>", E3_34="<<E3_34>>",	E3_41="<<E3_41>>", E3_42="<<E3_42>>", E3_43="<<E3_43>>", E3_44="<<E3_44>>", E3_total="<<E3_total>>", E3_suma="<<E3_suma>>" />
		Endscan
		Select cAngajatorF1
		Scan
		\	   <angajatorF1 F1_suma="<<F1_SUMA>>"/>
		Endscan
		Select cAngajatorF2
		Scan
		\	   <angajatorF2 F2_cif="<<F2_CIF>>" F2_id="<<F2_ID>>" F2_suma="<<F2_SUMA>>"/>
		Endscan
		\	</angajator>
		
		Select cAsigurati
		Scan
			Scatter Name loAsigurat
		\	<asigurat cnpAsig="<<CNPASIG>>" numeAsig="<<NUMEASIG>>" prenAsig="<<PRENASIG>>" idAsig="<<IDASIG>>" dataAng="<<DATAANG>>" <<IIF(!EMPTY(dataSf), [dataSf="] + DTOC(DATASF) + ["], "")>> casaSn="<<CASASN>>" asigCI="<<ASIGCI>>" asigSO="<<ASIGSO>>"<<IIF(!EMPTY(NVL(cnpant,'')),[ cnpAnt="] + CNPANT + ["],[])+IIF(!EMPTY(NVL(numeant,'')),[ numeAnt="] + NUMEANT + ["],[])+IIF(!EMPTY(NVL(prenant,'')),[ prenAnt="] + PRENANT +["],[])>>>
			Select cCoasigurati
			Scan For marca = loAsigurat.marca
		\		<coAsigurati tip="<<TIP>>" cnp="<<CNP>>" nume="<<NUME>>" prenume="<<PRENUME>>"/>
			Endscan
			Select cAsiguratiA
			Scan For marca = loAsigurat.marca
		\		<asiguratA A_1="<<A_1>>" A_2="<<A_2>>" A_3="<<A_3>>" A_4="<<A_4>>" A_5="<<A_5>>" A_6="<<A_6>>" A_7="<<A_7>>" A_8="<<A_8>>" A_9="<<A_9>>" A_10="<<A_10>>" A_11="<<A_11>>" A_12="<<A_12>>" A_13="<<A_13>>" A_14="<<A_14>>" A_20="<<A_20>>"/>
			Endscan
			Select cAsiguratiB1
			Scan For marca = loAsigurat.marca
		\		<asiguratB1 B1_1="<<B1_1>>" B1_2="<<B1_2>>" B1_3="<<B1_3>>" B1_4="<<B1_4>>" B1_5="<<B1_5>>" B1_6="<<B1_6>>" B1_7="<<B1_7>>" B1_8="<<B1_8>>" B1_9="<<B1_9>>" B1_10="<<B1_10>>" B1_15="<<B1_15>>">
				Select cAsiguratiB11
				Scan For marca = loAsigurat.marca
		\		<asiguratB11 B11_1="<<B11_1>>" B11_2="<<B11_2>>" B11_3="<<B11_3>>" B11_41="<<B11_41>>" B11_42="<<B11_42>>" B11_43="<<B11_43>>" B11_5="<<B11_5>>" B11_6="<<B11_6>>" B11_71="<<B11_71>>" B11_72="<<B11_72>>" B11_73="<<B11_73>>"/>
				Endscan
		\		</asiguratB1>
			Endscan
			Select cAsiguratiB2
			Scan For marca = loAsigurat.marca
		\		<asiguratB2 B2_1="<<B2_1>>" B2_2="<<B2_2>>" B2_3="<<B2_3>>" B2_4="<<B2_4>>" B2_5="<<B2_5>>" B2_6="<<B2_6>>" B2_7="<<B2_7>>"/>
			Endscan
			Select cAsiguratiB3
			Scan For marca = loAsigurat.marca
		\		<asiguratB3 B3_1="<<B3_1>>" B3_2="<<B3_2>>" B3_3="<<B3_3>>" B3_4="<<B3_4>>" B3_5="<<B3_5>>" B3_6="<<B3_6>>" B3_7="<<B3_7>>" B3_8="<<B3_8>>" B3_9="<<B3_9>>" B3_10="<<B3_10>>" B3_11="<<B3_11>>" B3_12="<<B3_12>>" B3_13="<<B3_13>>"/>
			Endscan
			Select cAsiguratiB4
			Scan For marca = loAsigurat.marca
		\		<asiguratB4 B4_1="<<B4_1>>" B4_2="<<B4_2>>" B4_3="<<B4_3>>" B4_4="<<B4_4>>" B4_5="<<B4_5>>" B4_6="<<B4_6>>" B4_7="<<B4_7>>" B4_8="<<B4_8>>" B4_14="<<B4_14>>"/>
			ENDSCAN
			Select cAsiguratiC
			Scan For marca = loAsigurat.marca
		\		<asiguratC C_1="<<C_1>>" C_2="<<C_2>>" C_3="<<C_3>>" C_4="<<C_4>>" C_5="<<C_5>>" C_6="<<C_6>>" C_7="<<C_7>>" C_8="<<C_8>>" C_9="<<C_9>>" C_10="<<C_10>>" C_11="<<C_11>>" C_17="<<C_17>>" C_18="<<C_18>>" C_19="<<C_19>>"/>
			Endscan	
			Select cAsiguratiD
			Scan For marca = loAsigurat.marca
		\		<asiguratD D_1="<<D_1>>" D_2="<<D_2>>" <<IIF(!EMPTY(D_3), [D_3="]+ D_3 + ["], [])>> <<IIF(!EMPTY(D_4), [D_4="] + D_4 + ["], [])>> D_5="<<D_5>>" D_6="<<D_6>>" D_7="<<D_7>>" <<IIF(!EMPTY(NVL(D_8,0)), [D_8="] + ALLTRIM(STR(D_8,13)) + ["], [])>> D_9="<<D_9>>" D_10="<<D_10>>" <<IIF(!EMPTY(D_11), [D_11="] + D_11 + ["], [])>> <<IIF(!EMPTY(D_12), [D_12="] + D_12 + ["], [])>> <<IIF(!EMPTY(D_13), [D_13="] + D_13 + ["], [])>> D_14="<<D_14>>" D_15="<<D_15>>" D_16="<<D_16>>" D_17="<<D_17>>" D_18="<<D_18>>" D_19="<<D_19>>" D_20="<<D_20>>" D_21="<<D_21>>"/>
			Endscan
		\	</asigurat>
		Endscan
		\</declaratieUnica>
		Set Textmerge To
		
		Strtofile(lcXML, m.tcFisierXML)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		 
	ENDPROC

	PROCEDURE getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie
		* tcCodObligatie: 601
		* tnAn, tnLuna: sfarsitul perioadei de raportare
		* tdDataScad: data scadenta a obligatiei
		* tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) 
		
		Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i
		
		lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX
		lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA
		lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '')
		lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA
		lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0')
		
		Text To lcText Noshow
		Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35
		
		Verificare componenta si suma de control
		pentru
		nr_evid :
		Poz.1-2
		 :10
		Poz.3-5
		 : cod obligatie (nomenclator)
		Poz.6-7
		 :01
		Poz.8-11
		 : LLAA (sf.per.de raportare)
		Poz.12-17
		 : ZZLLAA (scadenta platii)
		Poz.18:
		 1 daca tip_oblig=1
		 0 daca tip_oblig=2
		
		Poz.19
		 : 0
		Poz.20-21
		 : 00
		Poz.22-23
		: suma de control = suma
		primelor 21 pozitii (se iau ultimele 2 cifre
		ale sumei)
		
		Endtext
		
		
		lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00'
		lnSuma = 0
		For i = 1 To Len(m.lcNrEvidenta)
			lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1)))
		Endfor
		lcSumaControl = Right(Alltrim(Str(lnSuma)), 2)
		lcNrEvidenta = lcNrEvidenta + m.lcSumaControl
		
		Return m.lcNrEvidenta
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		PARAMETERS tnDecl, tlTrim
		
		DODEFAULT()
		thisform.nDecl= tnDecl
		thisform.lTrim = tlTrim
		
		
		
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		
		
		Thisform.totaluri("datorat")
		Thisform.totaluri("recuperat")
		
		DODEFAULT(nStyle)
	ENDPROC

	PROCEDURE totaluri
		Lparameters tcColoana
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "datorat"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		SELECT (lcTabel)
		GO TOP 
		
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE cmdPDF100.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		
		*** Generare Nr evidenta a platii
		SELECT cDecl
		SCAN FOR (datorat <> 0 OR recuperat <> 0)
			lcCodObligatie = ALLTRIM(cod_imp)
			IF EMPTY(m.lcCodObligatie)
				loop	
			ENDIF 
			lnAn = m.gnAn
			lnLuna = m.gnLuna
			ldDataScadenta = datascad	
			m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul)
			
			lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie)
			SELECT cDecl 
			REPLACE nr_evidenta WITH m.lcNrEvidenta
		ENDSCAN 
		
		Thisform.do_executa(3,100) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("recuperat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivR = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("datorat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivD = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl100_2020 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="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cBonificatie.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cBonificatie.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cCostAMEF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cCostAMEF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_mesaj
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201601
		*m: do_genereaza_xdp_202003
		*m: do_genereaza_xdp_202012
		*m: do_genereaza_xdp_202112
		*m: do_genereaza_xdp_202401
		*m: do_genereaza_xml
		*m: getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 593
		ltrim = .F.
		Name = "frm_decl100_2020"
		ndecl = 0
		noldvalue = 0
		Width = 744
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="getnrevidenta" display="GetNrEvidenta"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 9, ;
		DeleteMark = .F., ;
		Height = 448, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecl", ;
		TabIndex = 1, ;
		Top = 34, ;
		Width = 725, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "datorat", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 90, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "deductibil", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 159, ;
		Column5.ColumnOrder = 8, ;
		Column5.ControlSource = "datascad", ;
		Column5.Name = "cDataScad", ;
		Column5.Width = 91, ;
		Column6.ColumnOrder = 9, ;
		Column6.ControlSource = "nr_evidenta", ;
		Column6.Name = "cNrEvidenta", ;
		Column6.Width = 202, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "bonificatie", ;
		Column7.Format = "RK", ;
		Column7.InputMask = "999 999 999", ;
		Column7.Name = "cBonificatie", ;
		Column8.ColumnOrder = 5, ;
		Column8.ControlSource = "sponsorizari", ;
		Column8.Format = "RK", ;
		Column8.InputMask = "999 999 999", ;
		Column8.Name = "cSponsorizari", ;
		Column8.Width = 100, ;
		Column9.ColumnOrder = 6, ;
		Column9.ControlSource = "costamef", ;
		Column9.Format = "RK", ;
		Column9.InputMask = "999 999 999", ;
		Column9.Name = "cCostAMEF", ;
		Column9.Width = 105
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cBonificatie.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bonificatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cBonificatie.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cCostAMEF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cost AMEF", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cCostAMEF.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. Evidenta a platii", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cSponsorizari.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sponsorizari", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cSponsorizari.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Deductibila/datorata anterior", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Datorata", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Enabled = .F., ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent Decl. 100", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 552, ;
		Name = "cmdPDF100", ;
		Top = 485, ;
		Width = 180, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 75, ;
		Left = 9, ;
		Name = "edtInfo", ;
		Top = 515, ;
		Width = 725, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" />
	
	PROCEDURE afiseaza_mesaj
		Lparameters tcMesaj,tnButoane
		Local lnReturn,lcTitlu
		lcTitlu = [Declaratia 112]
		If gcAppName = "CONSAL"
			lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu)
		Else
			lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu)
		Endif
		Return lnReturn
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!* d100_201201.pdf
		
		*!* 15.02.2018
		*!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf
		*!* la d101 trebuie actualizati indicatorii!
		
		Lparameters tnMenu, tnDecl
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		lcCaleFisier = ""
		Local lnDecl
		lnDecl = tnDecl
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		Try
			lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare))
			Do Case
				Case lnDecl = 100
					lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\
				Case lnDecl = 102
					lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\
			Endcase
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case lnDecl = 100
				Do Case
					Case gnAn*12 + gnLuna >= 2024*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_202401.pdf"
					Case gnAn*12 + gnLuna >= 2021*12 + 12
						lcFisierPDFOriginal = lcComunPath + "d100_202112.pdf"
					Case gnAn*12 + gnLuna >= 2020*12 + 12
						lcFisierPDFOriginal = lcComunPath + "d100_202012.pdf"
					Case gnAn*12 + gnLuna >= 2020*12 + 3
						lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf"
					Case gnAn*12 + gnLuna >= 2018*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf"
					Case gnAn*12 + gnLuna >= 2017*12 + 2
						lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf"
					Case gnAn*12 + gnLuna >= 2016*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf"
					Case gnAn*12 + gnLuna >= 2013*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2012*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2011*12 + 11
						lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf
					Otherwise
						lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf
				Endcase
			Case lnDecl = 102
				lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf
		Endcase
		
		*!* 18.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 18.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		Do Case
			Case lnDecl = 100
				lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
			Case lnDecl = 102
				lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		Endcase
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 2
				This.UpdateInfo("Se exporta datele in format PDF")
				Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 3
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				*!*			Thisform.do_genereaza_xml(lcFisierXML)
				*!*			This.UpdateInfo(REPLICATE('-', 100))
				DO CASE 
					CASE  gnAn*12 + gnLuna >= 2024*12 + 1
						Thisform.do_genereaza_xdp_202401(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
		
					CASE  gnAn*12 + gnLuna >= 2021*12 + 12
						Thisform.do_genereaza_xdp_202112(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
		
					CASE  gnAn*12 + gnLuna >= 2020*12 + 12
						Thisform.do_genereaza_xdp_202012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2020*12 + 3
						Thisform.do_genereaza_xdp_202003(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2016*12 + 1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2011*12 + 11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
				ENDCASE 
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
		
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl, lcFirma
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
		\  <codF2>100</codF2>
			Case lnDecl = 102
		\  <codF2>102</codF2>
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		Select cDecl100_102
		Scan
		\ <htitle_B><<denumire>><pdips_show/>
		\  </htitle_B>
		\  <subform_impSalarii/>
		\ <subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\ <COD_IMP><<cod_imp>></COD_IMP>
		\ <SCADENTA></SCADENTA>
		\ <SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\ <SUMA02 />
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\ </subform_B>
			Select cDecl100_102
		Endscan
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<subform5>
		\<_numePrenume><<Alltrim(gofirma.declarant)>></_numePrenume>
		\<_functia><<Alltrim(gofirma.functie)>></_functia>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		\<checkExclusionsValid></checkExclusionsValid>
		\<checkRestrictionsValid></checkRestrictionsValid>
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
			\  <codF2>100</codF2>
		
			Case lnDecl = 102
			\  <codF2>102</codF2>
		
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<d_rec>0</d_rec>
		\<gol1>1</gol1>
		
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		Endif
		\<cif><<lcCod_fiscal>></cif>
		
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl <= 26
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\</subform_B>
		
		
			Select cDecl100_102
		Endscan
		
		\<htitle_B>
		\<pdips_show/>
		\</htitle_B>
		
		\<subform_B_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\</subform_B_buttons>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B1>
		\<td_nrCrt><<lnIndicatori>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<scadentaOptions>31/12</scadentaOptions>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subform_B1>
		
			Select cDecl100_102
		Endscan
		
		\<subform_B1_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\<totalPlata_A></totalPlata_A>
		\</subform_B1_buttons>
		
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		
		\<subform5>
		\<Nume><<m.lcNumeDeclarant>></Nume>
		\<Functia><<Alltrim(gofirma.functie)>></Functia>
		\<stare_semnatura/>
		\<Prenume><<m.lcPrenumeDeclarant>></Prenume>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		
		\<checkExclusionsValid_B>1</checkExclusionsValid_B>
		\<checkRestrictionsValid_B>1</checkRestrictionsValid_B>
		\<checkExclusionsValid_B1>1</checkExclusionsValid_B1>
		\<checkRestrictionsValid_B1>1</checkRestrictionsValid_B1>
		
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I/>
		\<SUMA03I><<ALLTRIM(STR(datorat,9,0))>></SUMA03I>
		\<SUMA04I><<ALLTRIM(STR(recuperat,9,0))>></SUMA04I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202003
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202012
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-sponsorizari-costamef-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<SUMA06I><<ALLTRIM(STR(sponsorizari,9,0))>></SUMA06I>
		\<SUMA07I><<ALLTRIM(STR(costamef,9,0))>></SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202112
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-sponsorizari-costamef-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<SUMA06I><<ALLTRIM(STR(sponsorizari,9,0))>></SUMA06I>
		\<SUMA07I><<ALLTRIM(STR(costamef,9,0))>></SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202401
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-sponsorizari-costamef-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<SUMA06I><<ALLTRIM(STR(sponsorizari,9,0))>></SUMA06I>
		\<SUMA07I><<ALLTRIM(STR(costamef,9,0))>></SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xml
		LPARAMETERS tcFisierXML
		Local lcXML, lcXmlFile, loAsigurat
		Local lcDateStyle, lcMark
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Dmy
		Set Mark To '.'
		
		
		
		Set Textmerge On To Memvar lcXML NOSHOW 
		\<?xml version="1.0"?>
		Select cDeclaratie
		\<declaratieUnica luna_r="<<luna_r>>" an_r="<<an_r>>" d_rec="<<d_rec>>" nume_declar="<<nume_declar>>" prenume_declar="<<prenume_declar>>" functie_declar="<<functie_declar>>" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="mfp:anaf:dgti:declaratie_unica:declaratie:v1" xsi:schemaLocation="mfp:anaf:dgti:declaratie_unica:declaratie:v1 F:\DUK\Docs\DecUnica.xsd">
		Select cPlatitor
		\	<angajator cif="<<cif>>" <<IIF(!EMPTY(rgCom), [rgCom="] + ALLTRIM(rgCom) + ["], [])>> caen="<<caen>>" den="<<den>>" <<IIF(!EMPTY(adrSoc),[adrSoc="] + adrSoc + ["], "")>> <<IIF(!EMPTY(telSoc),[telSoc="] + telSoc + ["], "")>> <<IIF(!EMPTY(faxSoc),[faxSoc="] + faxSoc + ["], "")>> <<IIF(!EMPTY(mailSoc),[mailSoc="] + mailSoc + ["], "")>> <<IIF(!EMPTY(adrFisc),[adrFisc="] + adrFisc + ["], "")>> <<IIF(!EMPTY(telFisc),[telFisc="] + telFisc + ["], "")>> <<IIF(!EMPTY(faxFisc),[faxFisc="] + faxFisc + ["], "")>> <<IIF(!EMPTY(mailFisc),[mailFisc="] + mailFisc + ["], "")>> casaAng="<<casaAng>>" tRisc="<<tRisc>>" dat="<<dat>>" totalPlata_A="<<totalPlata_A>>">
		Select cAngajatorA
		Scan
		\		<angajatorA A_codOblig="<<A_codOblig>>" A_codBugetar="<<A_codBugetar>>" A_datorat="<<A_datorat>>" A_deductibil="<<A_deductibil>>" A_plata="<<A_plata>>"/>
		Endscan
		Select cAngajatorB
		Scan
		\		<angajatorB B_cnp="<<B_cnp>>" B_sanatate="<<B_sanatate>>" B_pensie="<<B_pensie>>" B_brutSalarii="<<B_brutSalarii>>"/>
		Endscan
		Select cAngajatorC1
		Scan
		\		<angajatorC1 C1_11="<<C1_11>>" C1_12="<<C1_12>>" C1_13="<<C1_13>>" C1_21="<<C1_21>>" C1_22="<<C1_22>>" C1_23="<<C1_23>>" C1_31="<<C1_31>>" C1_32="<<C1_32>>" C1_33="<<C1_33>>" C1_T1="<<C1_T1>>" C1_T2="<<C1_T2>>" C1_T="<<C1_T>>" C1_T3="<<C1_T3>>" C1_5="<<C1_5>>" C1_6="<<C1_6>>" C1_7="<<C1_7>>"/>
		Endscan
		Select cAngajatorC2
		Scan
		\	    <angajatorC2 C2_11="<<C2_11>>" C2_12="<<C2_12>>" C2_13="<<C2_13>>" C2_14="<<C2_14>>" C2_15="<<C2_15>>" C2_16="<<C2_16>>" C2_21="<<C2_21>>" C2_22="<<C2_22>>" C2_24="<<C2_24>>" C2_26="<<C2_26>>" C2_31="<<C2_31>>" C2_32="<<C2_32>>" C2_34="<<C2_34>>" C2_36="<<C2_36>>" C2_41="<<C2_41>>" C2_42="<<C2_42>>" C2_44="<<C2_44>>" C2_46="<<C2_46>>" C2_51="<<C2_51>>" C2_52="<<C2_52>>" C2_54="<<C2_54>>" C2_56="<<C2_56>>" C2_T6="<<C2_T6>>" C2_7="<<C2_7>>" C2_8="<<C2_8>>" C2_9="<<C2_9>>" C2_10="<<C2_10>>" C2_110="<<C2_110>>" C2_120="<<C2_120>>" C2_130="<<C2_130>>"/>
		Endscan
		Select cAngajatorC3
		Scan
		\	   <angajatorC3 C3_11="<<C3_11>>" C3_12="<<C3_12>>" C3_13="<<C3_13>>" C3_14="<<C3_14>>" C3_21="<<C3_21>>" C3_22="<<C3_22>>" C3_23="<<C3_23>>" C3_24="<<C3_24>>" C3_31="<<C3_31>>" C3_32="<<C3_32>>" C3_33="<<C3_33>>" C3_34="<<C3_34>>" C3_41="<<C3_41>>" C3_42="<<C3_42>>" C3_43="<<C3_43>>" C3_44="<<C3_44>>" C3_total="<<C3_TOTAL>>" C3_suma="<<C3_suma>>" C3_aj_nr="<<C3_aj_nr>>" C3_aj_suma="<<C3_aj_suma>>"/>
		Endscan
		Select cAngajatorC4
		Scan
		\	   <angajatorC4 C4_scutitaSo="<<C4_scutitaSo>>"/>
		Endscan
		Select cAngajatorC5
		*!* 02.05.2011
		SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0)))
		\	   <angajatorC5 C5_subv="<<C5_subv>>" C5_recuperat="<<C5_recuperat>>" C5_restituit="<<C5_restituit>>"/>
		Endscan
		*!* 02.05.2011 ^
		Select cAngajatorC6
		Scan
		\	   <angajatorC6 C6_baza="<<C6_baza>>" C6_ct="<<C6_CT>>"/>
		Endscan
		Select cAngajatorC7
		Scan
		\	   <angajatorC7 C7_baza="<<C7_BAZA>>" C7_ct="<<C7_CT>>"/>
		Endscan
		Select cAngajatorD
		Scan
		\	   <angajatorD D1="<<D1>>" D2="<<D2>>" D3="<<D3>>" D4="<<D4>>" />
		Endscan
		Select cAngajatorE1
		Scan
		\	   <angajatorE1 E1_venit="<<E1_venit>>" E1_baza="<<E1_baza>>" E1_ct="<<E1_ct>>"/>
		ENDSCAN
		Select cAngajatorE2
		Scan
		\	   <angajatorE2 E2_11="<<E2_11>>", E2_12="<<E2_12>>", E2_14="<<E2_14>>", E2_16="<<E2_16>>", E2_21="<<E2_21>>", E2_22="<<E2_22>>", E2_24="<<E2_24>>", E2_26="<<E2_26>>", E2_31="<<E2_31>>", E2_32="<<E2_32>>", E2_34="<<E2_34>>", E2_36="<<E2_36>>",	E2_41="<<E2_41>>", E2_42="<<E2_42>>", E2_44="<<E2_44>>", E2_46="<<E2_46>>", E2_51="<<E2_51>>", E2_52="<<E2_52>>", E2_54="<<E2_54>>", E2_56="<<E2_56>>", E2_66="<<E2_66>>", E2_7="<<E2_7>>", E2_8="<<E2_8>>", E2_9="<<E2_9>>", E2_10="<<E2_10>>", E2_110="<<E2_110>>", E2_120="<<E2_120>>", E2_130="<<E2_130>>" />
		ENDSCAN
		Select cAngajatorE3
		Scan
		\	   <angajatorE3 E3_11="<<E3_11>>", E3_12="<<E3_12>>", E3_13="<<E3_13>>", E3_14="<<E3_14>>", E3_21="<<E3_21>>", E3_22="<<E3_22>>", E3_23="<<E3_23>>", E3_24="<<E3_24>>", E3_31="<<E3_31>>", E3_32="<<E3_32>>", E3_33="<<E3_33>>", E3_34="<<E3_34>>",	E3_41="<<E3_41>>", E3_42="<<E3_42>>", E3_43="<<E3_43>>", E3_44="<<E3_44>>", E3_total="<<E3_total>>", E3_suma="<<E3_suma>>" />
		Endscan
		Select cAngajatorF1
		Scan
		\	   <angajatorF1 F1_suma="<<F1_SUMA>>"/>
		Endscan
		Select cAngajatorF2
		Scan
		\	   <angajatorF2 F2_cif="<<F2_CIF>>" F2_id="<<F2_ID>>" F2_suma="<<F2_SUMA>>"/>
		Endscan
		\	</angajator>
		
		Select cAsigurati
		Scan
			Scatter Name loAsigurat
		\	<asigurat cnpAsig="<<CNPASIG>>" numeAsig="<<NUMEASIG>>" prenAsig="<<PRENASIG>>" idAsig="<<IDASIG>>" dataAng="<<DATAANG>>" <<IIF(!EMPTY(dataSf), [dataSf="] + DTOC(DATASF) + ["], "")>> casaSn="<<CASASN>>" asigCI="<<ASIGCI>>" asigSO="<<ASIGSO>>"<<IIF(!EMPTY(NVL(cnpant,'')),[ cnpAnt="] + CNPANT + ["],[])+IIF(!EMPTY(NVL(numeant,'')),[ numeAnt="] + NUMEANT + ["],[])+IIF(!EMPTY(NVL(prenant,'')),[ prenAnt="] + PRENANT +["],[])>>>
			Select cCoasigurati
			Scan For marca = loAsigurat.marca
		\		<coAsigurati tip="<<TIP>>" cnp="<<CNP>>" nume="<<NUME>>" prenume="<<PRENUME>>"/>
			Endscan
			Select cAsiguratiA
			Scan For marca = loAsigurat.marca
		\		<asiguratA A_1="<<A_1>>" A_2="<<A_2>>" A_3="<<A_3>>" A_4="<<A_4>>" A_5="<<A_5>>" A_6="<<A_6>>" A_7="<<A_7>>" A_8="<<A_8>>" A_9="<<A_9>>" A_10="<<A_10>>" A_11="<<A_11>>" A_12="<<A_12>>" A_13="<<A_13>>" A_14="<<A_14>>" A_20="<<A_20>>"/>
			Endscan
			Select cAsiguratiB1
			Scan For marca = loAsigurat.marca
		\		<asiguratB1 B1_1="<<B1_1>>" B1_2="<<B1_2>>" B1_3="<<B1_3>>" B1_4="<<B1_4>>" B1_5="<<B1_5>>" B1_6="<<B1_6>>" B1_7="<<B1_7>>" B1_8="<<B1_8>>" B1_9="<<B1_9>>" B1_10="<<B1_10>>" B1_15="<<B1_15>>">
				Select cAsiguratiB11
				Scan For marca = loAsigurat.marca
		\		<asiguratB11 B11_1="<<B11_1>>" B11_2="<<B11_2>>" B11_3="<<B11_3>>" B11_41="<<B11_41>>" B11_42="<<B11_42>>" B11_43="<<B11_43>>" B11_5="<<B11_5>>" B11_6="<<B11_6>>" B11_71="<<B11_71>>" B11_72="<<B11_72>>" B11_73="<<B11_73>>"/>
				Endscan
		\		</asiguratB1>
			Endscan
			Select cAsiguratiB2
			Scan For marca = loAsigurat.marca
		\		<asiguratB2 B2_1="<<B2_1>>" B2_2="<<B2_2>>" B2_3="<<B2_3>>" B2_4="<<B2_4>>" B2_5="<<B2_5>>" B2_6="<<B2_6>>" B2_7="<<B2_7>>"/>
			Endscan
			Select cAsiguratiB3
			Scan For marca = loAsigurat.marca
		\		<asiguratB3 B3_1="<<B3_1>>" B3_2="<<B3_2>>" B3_3="<<B3_3>>" B3_4="<<B3_4>>" B3_5="<<B3_5>>" B3_6="<<B3_6>>" B3_7="<<B3_7>>" B3_8="<<B3_8>>" B3_9="<<B3_9>>" B3_10="<<B3_10>>" B3_11="<<B3_11>>" B3_12="<<B3_12>>" B3_13="<<B3_13>>"/>
			Endscan
			Select cAsiguratiB4
			Scan For marca = loAsigurat.marca
		\		<asiguratB4 B4_1="<<B4_1>>" B4_2="<<B4_2>>" B4_3="<<B4_3>>" B4_4="<<B4_4>>" B4_5="<<B4_5>>" B4_6="<<B4_6>>" B4_7="<<B4_7>>" B4_8="<<B4_8>>" B4_14="<<B4_14>>"/>
			ENDSCAN
			Select cAsiguratiC
			Scan For marca = loAsigurat.marca
		\		<asiguratC C_1="<<C_1>>" C_2="<<C_2>>" C_3="<<C_3>>" C_4="<<C_4>>" C_5="<<C_5>>" C_6="<<C_6>>" C_7="<<C_7>>" C_8="<<C_8>>" C_9="<<C_9>>" C_10="<<C_10>>" C_11="<<C_11>>" C_17="<<C_17>>" C_18="<<C_18>>" C_19="<<C_19>>"/>
			Endscan	
			Select cAsiguratiD
			Scan For marca = loAsigurat.marca
		\		<asiguratD D_1="<<D_1>>" D_2="<<D_2>>" <<IIF(!EMPTY(D_3), [D_3="]+ D_3 + ["], [])>> <<IIF(!EMPTY(D_4), [D_4="] + D_4 + ["], [])>> D_5="<<D_5>>" D_6="<<D_6>>" D_7="<<D_7>>" <<IIF(!EMPTY(NVL(D_8,0)), [D_8="] + ALLTRIM(STR(D_8,13)) + ["], [])>> D_9="<<D_9>>" D_10="<<D_10>>" <<IIF(!EMPTY(D_11), [D_11="] + D_11 + ["], [])>> <<IIF(!EMPTY(D_12), [D_12="] + D_12 + ["], [])>> <<IIF(!EMPTY(D_13), [D_13="] + D_13 + ["], [])>> D_14="<<D_14>>" D_15="<<D_15>>" D_16="<<D_16>>" D_17="<<D_17>>" D_18="<<D_18>>" D_19="<<D_19>>" D_20="<<D_20>>" D_21="<<D_21>>"/>
			Endscan
		\	</asigurat>
		Endscan
		\</declaratieUnica>
		Set Textmerge To
		
		Strtofile(lcXML, m.tcFisierXML)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		 
	ENDPROC

	PROCEDURE getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie
		* tcCodObligatie: 601
		* tnAn, tnLuna: sfarsitul perioadei de raportare
		* tdDataScad: data scadenta a obligatiei
		* tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) 
		
		Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i
		
		lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX
		lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA
		lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '')
		lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA
		lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0')
		
		Text To lcText Noshow
		Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35
		
		Verificare componenta si suma de control
		pentru
		nr_evid :
		Poz.1-2
		 :10
		Poz.3-5
		 : cod obligatie (nomenclator)
		Poz.6-7
		 :01
		Poz.8-11
		 : LLAA (sf.per.de raportare)
		Poz.12-17
		 : ZZLLAA (scadenta platii)
		Poz.18:
		 1 daca tip_oblig=1
		 0 daca tip_oblig=2
		
		Poz.19
		 : 0
		Poz.20-21
		 : 00
		Poz.22-23
		: suma de control = suma
		primelor 21 pozitii (se iau ultimele 2 cifre
		ale sumei)
		
		Endtext
		
		
		lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00'
		lnSuma = 0
		For i = 1 To Len(m.lcNrEvidenta)
			lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1)))
		Endfor
		lcSumaControl = Right(Alltrim(Str(lnSuma)), 2)
		lcNrEvidenta = lcNrEvidenta + m.lcSumaControl
		
		Return m.lcNrEvidenta
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		PARAMETERS tnDecl, tlTrim
		
		DODEFAULT()
		thisform.nDecl= tnDecl
		thisform.lTrim = tlTrim
		
		
		
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		
		
		Thisform.totaluri("datorat")
		Thisform.totaluri("recuperat")
		
		DODEFAULT(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		Lparameters tcColoana
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "datorat"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		SELECT (lcTabel)
		GO TOP 
		
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE cmdPDF100.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		
		*** Generare Nr evidenta a platii
		SELECT cDecl
		SCAN FOR (datorat <> 0 OR recuperat <> 0)
			lcCodObligatie = ALLTRIM(cod_imp)
			IF EMPTY(m.lcCodObligatie)
				loop	
			ENDIF 
			lnAn = m.gnAn
			lnLuna = m.gnLuna
			ldDataScadenta = datascad	
			m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul)
			
			lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie)
			SELECT cDecl 
			REPLACE nr_evidenta WITH m.lcNrEvidenta
		ENDSCAN 
		
		Thisform.do_executa(3,100) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("recuperat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivR = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("datorat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivD = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl100_2024 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="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDataScad.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cNrEvidenta.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSponsorizari.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF100" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afiseaza_mesaj
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201601
		*m: do_genereaza_xdp_202003
		*m: do_genereaza_xdp_202012
		*m: do_genereaza_xdp_202112
		*m: do_genereaza_xdp_202401
		*m: do_genereaza_xml
		*m: getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 593
		ltrim = .F.
		Name = "frm_decl100_2024"
		ndecl = 0
		noldvalue = 0
		Width = 744
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="getnrevidenta" display="GetNrEvidenta"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "Declaratia 100 privind obligatiile de plata la BS"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 5
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 6
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 7, ;
		DeleteMark = .F., ;
		Height = 448, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecl", ;
		TabIndex = 1, ;
		Top = 34, ;
		Width = 725, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "datorat", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 90, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "deductibil", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 159, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "datascad", ;
		Column5.Name = "cDataScad", ;
		Column5.Width = 91, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "nr_evidenta", ;
		Column6.Name = "cNrEvidenta", ;
		Column6.Width = 202, ;
		Column7.ColumnOrder = 5, ;
		Column7.ControlSource = "reducere", ;
		Column7.Format = "RK", ;
		Column7.InputMask = "999 999 999", ;
		Column7.Name = "cSponsorizari", ;
		Column7.Width = 100
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cDataScad.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cDataScad.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. Evidenta a platii", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cNrEvidenta.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cSponsorizari.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Reducere (121,130)", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cSponsorizari.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Deductibila/datorata anterior", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Datorata", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Enabled = .F., ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF100' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent Decl. 100", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 552, ;
		Name = "cmdPDF100", ;
		Top = 485, ;
		Width = 180, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 75, ;
		Left = 9, ;
		Name = "edtInfo", ;
		Top = 515, ;
		Width = 725, ;
		ZOrderSet = 2
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" />
	
	PROCEDURE afiseaza_mesaj
		Lparameters tcMesaj,tnButoane
		Local lnReturn,lcTitlu
		lcTitlu = [Declaratia 112]
		If gcAppName = "CONSAL"
			lnReturn = Messagebox(tcMesaj,tnButoane,lcTitlu)
		Else
			lnReturn = amessagebox(tcMesaj,tnButoane,lcTitlu)
		Endif
		Return lnReturn
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!* d100_201201.pdf
		
		*!* 15.02.2018
		*!* d100_201801.pdf, d101_201801.pdf, d394_201801.pdf
		*!* la d101 trebuie actualizati indicatorii!
		
		Lparameters tnMenu, tnDecl
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		lcCaleFisier = ""
		Local lnDecl
		lnDecl = tnDecl
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = lcComunPath + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		Try
			lcTempPath = Iif(gcAppName = "CONCONT", Addbs(m.dirgen),Addbs(gcDirMare))
			Do Case
				Case lnDecl = 100
					lcCaleFisier = m.lcTempPath + "D100\" && c:\temp\D112\
				Case lnDecl = 102
					lcCaleFisier = m.lcTempPath + "D102\" && c:\temp\D112\
			Endcase
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case lnDecl = 100
				Do Case
					Case gnAn*12 + gnLuna >= 2024*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_202401.pdf"
					Case gnAn*12 + gnLuna >= 2021*12 + 12
						lcFisierPDFOriginal = lcComunPath + "d100_202112.pdf"
					Case gnAn*12 + gnLuna >= 2020*12 + 12
						lcFisierPDFOriginal = lcComunPath + "d100_202012.pdf"
					Case gnAn*12 + gnLuna >= 2020*12 + 3
						lcFisierPDFOriginal = lcComunPath + "d100_202003.pdf"
					Case gnAn*12 + gnLuna >= 2018*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201801.pdf"
					Case gnAn*12 + gnLuna >= 2017*12 + 2
						lcFisierPDFOriginal = lcComunPath + "d100_201702.pdf"
					Case gnAn*12 + gnLuna >= 2016*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201601.pdf"
					Case gnAn*12 + gnLuna >= 2013*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201301.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2012*12 + 1
						lcFisierPDFOriginal = lcComunPath + "d100_201201.pdf" && d:\contafin\comuncontafin\d112.pdf
					Case gnAn*12 + gnLuna >= 2011*12 + 11
						lcFisierPDFOriginal = lcComunPath + "d100_201111.pdf" && d:\contafin\comuncontafin\d112.pdf
					Otherwise
						lcFisierPDFOriginal = lcComunPath + "d100.pdf" && d:\contafin\comuncontafin\d112.pdf
				Endcase
			Case lnDecl = 102
				lcFisierPDFOriginal = lcComunPath + "d102.pdf" && d:\contafin\comuncontafin\d112.pdf
		Endcase
		
		*!* 18.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 18.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		Do Case
			Case lnDecl = 100
				lcNumeFisier = "d100_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
			Case lnDecl = 102
				lcNumeFisier = "d102_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		Endcase
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 2
				This.UpdateInfo("Se exporta datele in format PDF")
				Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 3
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				*!*			Thisform.do_genereaza_xml(lcFisierXML)
				*!*			This.UpdateInfo(REPLICATE('-', 100))
				DO CASE 
					CASE  gnAn*12 + gnLuna >= 2024*12 + 1
						Thisform.do_genereaza_xdp_202401(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
		
					CASE  gnAn*12 + gnLuna >= 2021*12 + 12
						Thisform.do_genereaza_xdp_202112(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
		
					CASE  gnAn*12 + gnLuna >= 2020*12 + 12
						Thisform.do_genereaza_xdp_202012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2020*12 + 3
						Thisform.do_genereaza_xdp_202003(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2016*12 + 1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					CASE  gnAn*12 + gnLuna >= 2011*12 + 11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou, lnDecl)
						This.UpdateInfo(Replicate('-', 100))
				ENDCASE 
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/" + ALLTRIM(STR(m.lnDecl)) + ".html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D' + ALLTRIM(STR(m.lnDecl)) + ' de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
		
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl, lcFirma
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
		\  <codF2>100</codF2>
			Case lnDecl = 102
		\  <codF2>102</codF2>
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		Select cDecl100_102
		Scan
		\ <htitle_B><<denumire>><pdips_show/>
		\  </htitle_B>
		\  <subform_impSalarii/>
		\ <subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\ <COD_IMP><<cod_imp>></COD_IMP>
		\ <SCADENTA></SCADENTA>
		\ <SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\ <SUMA02 />
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\ </subform_B>
			Select cDecl100_102
		Endscan
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<subform5>
		\<_numePrenume><<Alltrim(gofirma.declarant)>></_numePrenume>
		\<_functia><<Alltrim(gofirma.functie)>></_functia>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		\<checkExclusionsValid></checkExclusionsValid>
		\<checkRestrictionsValid></checkRestrictionsValid>
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		Do Case
			Case lnDecl = 100
			\  <codF2>100</codF2>
		
			Case lnDecl = 102
			\  <codF2>102</codF2>
		
		Endcase
		
		\ </codF1>
		\ <bodyPage1>
		\ <subform1>
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<d_rec>0</d_rec>
		\<gol1>1</gol1>
		
		\ </subform1>
		\ <subform_A>
		\  <RO1>RO</RO1>
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		Endif
		\<cif><<lcCod_fiscal>></cif>
		
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<text_Judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_Judet>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\</subform_A>
		
		Do Case
			Case lnDecl = 100
				Select * From cDecl Where id_decl < 33 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
			Case lnDecl = 102
				Select * From cDecl Where id_decl >= 34 And (datorat<>0 Or recuperat<>0) ;
					INTO Cursor cDecl100_102
		Endcase
		
		\<container_B>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl <= 26
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B>
		\<td_nrCrt><<RECNO()>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\</subform_B>
		
		
			Select cDecl100_102
		Endscan
		
		\<htitle_B>
		\<pdips_show/>
		\</htitle_B>
		
		\<subform_B_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\</subform_B_buttons>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100_102
		Scan For id_decl >= 28 && Impozite si taxe care nu se platesc in contul unic
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
			
		\<htitle_B><<denumire>><pdips_show/>
		\</htitle_B>
		\<subform_impSalarii xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		
		\<subform_B1>
		\<td_nrCrt><<lnIndicatori>></td_nrCrt>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<CheckTotal><<ALLTRIM(STR((datorat+recuperat),9,0))>></CheckTotal>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SUMA01><<ALLTRIM(STR(datorat,9,0))>></SUMA01>
		\<SUMA02/>
		\<SUMA03><<ALLTRIM(STR(datorat,9,0))>></SUMA03>
		\<SUMA04><<ALLTRIM(STR(recuperat,9,0))>></SUMA04>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<scadentaOptions>31/12</scadentaOptions>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subform_B1>
		
			Select cDecl100_102
		Endscan
		
		\<subform_B1_buttons>
		\<Table1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Table2>
		\<Row1>
		\<Cell2><<lnIndicatori>></Cell2>
		\<Cell3><<ALLTRIM(STR(lnSumaTotala,9,0))>></Cell3>
		\</Row1>
		\</Table2>
		\<CHECK_AMOUNT></CHECK_AMOUNT>
		\<totalPlata_A></totalPlata_A>
		\</subform_B1_buttons>
		
		\</container_B>
		
		If Used('cDecl100_102')
			Use In cDecl100_102
		Endif
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		
		\<subform5>
		\<Nume><<m.lcNumeDeclarant>></Nume>
		\<Functia><<Alltrim(gofirma.functie)>></Functia>
		\<stare_semnatura/>
		\<Prenume><<m.lcPrenumeDeclarant>></Prenume>
		\</subform5>
		\<subform_end>
		
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\<formValid></formValid>
		
		\<checkExclusionsValid_B>1</checkExclusionsValid_B>
		\<checkRestrictionsValid_B>1</checkRestrictionsValid_B>
		\<checkExclusionsValid_B1>1</checkExclusionsValid_B1>
		\<checkRestrictionsValid_B1>1</checkRestrictionsValid_B1>
		
		\<numeFisier></numeFisier>
		\<sir_CB></sir_CB>
		\</subform_end>
		\</bodyPage1>
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = LEFT(m.lcScadenta,4) + '-' + SUBSTR(m.lcScadenta,5,2) + '-' + SUBSTR(m.lcScadenta, 7,2)
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I/>
		\<SUMA03I><<ALLTRIM(STR(datorat,9,0))>></SUMA03I>
		\<SUMA04I><<ALLTRIM(STR(recuperat,9,0))>></SUMA04I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202003
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202012
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-sponsorizari-costamef-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<SUMA06I><<ALLTRIM(STR(sponsorizari,9,0))>></SUMA06I>
		\<SUMA07I><<ALLTRIM(STR(costamef,9,0))>></SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202112
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-sponsorizari-costamef-bonificatie,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(bonificatie,9,0))>></SUMA05I>
		\<SUMA06I><<ALLTRIM(STR(sponsorizari,9,0))>></SUMA06I>
		\<SUMA07I><<ALLTRIM(STR(costamef,9,0))>></SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202401
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP, lcNumePrenumeDeclarant, lcNumeDeclarant, lcPrenumeDeclarant, lcFirma
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Substr(lcCodFiscal,1,2)='RO'
			lcCod_fiscal = Alltrim(Substr(lcCodFiscal,3))
		ENDIF
		
		lcFirma = XmlSpecialCharacters(RemoveCharacters(Alltrim(Upper(Nvl(gofirma.antet,''))),.T.)) && oproceduri_comune.prg
		
		Select * From cDecl Where (datorat<>0 Or recuperat<>0) INTO Cursor cDecl100Temp
		
		Set Textmerge On To Memvar lcXDP Noshow
		\<?xml version="1.0" encoding="UTF-8"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\<sub1>
		\<formType>100</formType>
		
		\<luna_r><<gnLuna>></luna_r>
		\<an_r><<gnAn>></an_r>
		\<luna_w><<gnLuna>></luna_w>
		\<an_w><<gnAn>></an_w>
		\<bloc_modif>0</bloc_modif>
		\<RO1>RO</RO1>
		\<cif_retras/>
		\<d_anulare>0</d_anulare>
		\<temei/>
		\<d_rec>0</d_rec>
		\<d_retras>0</d_retras>
		\<cota_micro/>
		\<an_modif>0</an_modif>
		\</sub1>
		\<subA>
		\<RO1>RO</RO1><cif><<lcCod_fiscal>></cif>
		\<DENUMIRE><<lcFirma>></DENUMIRE>
		\<ADRESA><<XmlSpecialCharacters(RemoveCharacters(Nvl(Alltrim(gofirma.adresa),''),.T.))>></ADRESA>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<totalPlata_A></totalPlata_A>
		\</subA>
		
		\<sub2>
		\<Functia><<XmlSpecialCharacters(RemoveCharacters(ALLTRIM(goFirma.functie), .T.))>></Functia>
		\<Prenume><<XmlSpecialCharacters(RemoveCharacters(m.lcPrenumeDeclarant, .T.))>></Prenume>
		\<Nume><<XmlSpecialCharacters(RemoveCharacters(m.lcNumeDeclarant, .T.))>></Nume>
		\</sub2>
		
		lnIndicatori = 0
		lnSumaTotala = 0
		
		Select cDecl100Temp
		Scan
			lnIndicatori = lnIndicatori + 1
			lnSumaTotala = lnSumaTotala + datorat
			lcScadenta = DTOS(datascad)
			lcScadenta = SUBSTR(m.lcScadenta, 7,2) + '.' + SUBSTR(m.lcScadenta,5,2) + '.' + LEFT(m.lcScadenta,4) && 25.04.2020
		
		\<subB>
		\<SUMA01I><<ALLTRIM(STR(datorat,9,0))>></SUMA01I>
		\<SUMA02I><<ALLTRIM(STR(deductibil,9,0))>></SUMA02I>
		\<SUMA03I><<ALLTRIM(STR(datorat-deductibil-reducere,9,0))>></SUMA03I>
		\<SUMA04I>0</SUMA04I>
		\<SUMA05I><<ALLTRIM(STR(reducere,9,0))>></SUMA05I>
		\<SUMA06I>0</SUMA06I>
		\<SUMA07I>0</SUMA07I>
		\<SUMA01C>0</SUMA01C>
		\<SUMA02C>0</SUMA02C>
		\<SUMA03C>0</SUMA03C>
		\<SUMA04C>0</SUMA04C>
		\<SUMA05C>0</SUMA05C>
		\<SUMA06C>0</SUMA06C>
		\<SUMA07C>0</SUMA07C>
		\<seq1><<RECNO()>></seq1>
		*<S1>Suma (lei)</S1>
		*<S2>Suma corectata (lei)</S2>
		\<COD_IMP><<cod_imp>></COD_IMP>
		\<SCADENTA><<m.lcScadenta>></SCADENTA>
		\<COD_BUGETAR><<cod_bugetar>></COD_BUGETAR>
		\<NR_JUSTIFICATIV><<ALLTRIM(nr_evidenta)>></NR_JUSTIFICATIV>
		\<SCADENTA2><<m.lcScadenta>></SCADENTA2>
		\<Scad_JN_AC>0</Scad_JN_AC>
		\</subB>
		*<SUMA1>1000</SUMA1>
		*<SUMA2>100</SUMA2>
		Endscan
		\</form1>
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		Use In (SELECT('cDecl100Temp'))
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xml
		LPARAMETERS tcFisierXML
		Local lcXML, lcXmlFile, loAsigurat
		Local lcDateStyle, lcMark
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Dmy
		Set Mark To '.'
		
		
		
		Set Textmerge On To Memvar lcXML NOSHOW 
		\<?xml version="1.0"?>
		Select cDeclaratie
		\<declaratieUnica luna_r="<<luna_r>>" an_r="<<an_r>>" d_rec="<<d_rec>>" nume_declar="<<nume_declar>>" prenume_declar="<<prenume_declar>>" functie_declar="<<functie_declar>>" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="mfp:anaf:dgti:declaratie_unica:declaratie:v1" xsi:schemaLocation="mfp:anaf:dgti:declaratie_unica:declaratie:v1 F:\DUK\Docs\DecUnica.xsd">
		Select cPlatitor
		\	<angajator cif="<<cif>>" <<IIF(!EMPTY(rgCom), [rgCom="] + ALLTRIM(rgCom) + ["], [])>> caen="<<caen>>" den="<<den>>" <<IIF(!EMPTY(adrSoc),[adrSoc="] + adrSoc + ["], "")>> <<IIF(!EMPTY(telSoc),[telSoc="] + telSoc + ["], "")>> <<IIF(!EMPTY(faxSoc),[faxSoc="] + faxSoc + ["], "")>> <<IIF(!EMPTY(mailSoc),[mailSoc="] + mailSoc + ["], "")>> <<IIF(!EMPTY(adrFisc),[adrFisc="] + adrFisc + ["], "")>> <<IIF(!EMPTY(telFisc),[telFisc="] + telFisc + ["], "")>> <<IIF(!EMPTY(faxFisc),[faxFisc="] + faxFisc + ["], "")>> <<IIF(!EMPTY(mailFisc),[mailFisc="] + mailFisc + ["], "")>> casaAng="<<casaAng>>" tRisc="<<tRisc>>" dat="<<dat>>" totalPlata_A="<<totalPlata_A>>">
		Select cAngajatorA
		Scan
		\		<angajatorA A_codOblig="<<A_codOblig>>" A_codBugetar="<<A_codBugetar>>" A_datorat="<<A_datorat>>" A_deductibil="<<A_deductibil>>" A_plata="<<A_plata>>"/>
		Endscan
		Select cAngajatorB
		Scan
		\		<angajatorB B_cnp="<<B_cnp>>" B_sanatate="<<B_sanatate>>" B_pensie="<<B_pensie>>" B_brutSalarii="<<B_brutSalarii>>"/>
		Endscan
		Select cAngajatorC1
		Scan
		\		<angajatorC1 C1_11="<<C1_11>>" C1_12="<<C1_12>>" C1_13="<<C1_13>>" C1_21="<<C1_21>>" C1_22="<<C1_22>>" C1_23="<<C1_23>>" C1_31="<<C1_31>>" C1_32="<<C1_32>>" C1_33="<<C1_33>>" C1_T1="<<C1_T1>>" C1_T2="<<C1_T2>>" C1_T="<<C1_T>>" C1_T3="<<C1_T3>>" C1_5="<<C1_5>>" C1_6="<<C1_6>>" C1_7="<<C1_7>>"/>
		Endscan
		Select cAngajatorC2
		Scan
		\	    <angajatorC2 C2_11="<<C2_11>>" C2_12="<<C2_12>>" C2_13="<<C2_13>>" C2_14="<<C2_14>>" C2_15="<<C2_15>>" C2_16="<<C2_16>>" C2_21="<<C2_21>>" C2_22="<<C2_22>>" C2_24="<<C2_24>>" C2_26="<<C2_26>>" C2_31="<<C2_31>>" C2_32="<<C2_32>>" C2_34="<<C2_34>>" C2_36="<<C2_36>>" C2_41="<<C2_41>>" C2_42="<<C2_42>>" C2_44="<<C2_44>>" C2_46="<<C2_46>>" C2_51="<<C2_51>>" C2_52="<<C2_52>>" C2_54="<<C2_54>>" C2_56="<<C2_56>>" C2_T6="<<C2_T6>>" C2_7="<<C2_7>>" C2_8="<<C2_8>>" C2_9="<<C2_9>>" C2_10="<<C2_10>>" C2_110="<<C2_110>>" C2_120="<<C2_120>>" C2_130="<<C2_130>>"/>
		Endscan
		Select cAngajatorC3
		Scan
		\	   <angajatorC3 C3_11="<<C3_11>>" C3_12="<<C3_12>>" C3_13="<<C3_13>>" C3_14="<<C3_14>>" C3_21="<<C3_21>>" C3_22="<<C3_22>>" C3_23="<<C3_23>>" C3_24="<<C3_24>>" C3_31="<<C3_31>>" C3_32="<<C3_32>>" C3_33="<<C3_33>>" C3_34="<<C3_34>>" C3_41="<<C3_41>>" C3_42="<<C3_42>>" C3_43="<<C3_43>>" C3_44="<<C3_44>>" C3_total="<<C3_TOTAL>>" C3_suma="<<C3_suma>>" C3_aj_nr="<<C3_aj_nr>>" C3_aj_suma="<<C3_aj_suma>>"/>
		Endscan
		Select cAngajatorC4
		Scan
		\	   <angajatorC4 C4_scutitaSo="<<C4_scutitaSo>>"/>
		Endscan
		Select cAngajatorC5
		*!* 02.05.2011
		SCAN FOR !(EMPTY(NVL(C5_recuperat,0)) AND EMPTY(NVL(C5_restituit,0)))
		\	   <angajatorC5 C5_subv="<<C5_subv>>" C5_recuperat="<<C5_recuperat>>" C5_restituit="<<C5_restituit>>"/>
		Endscan
		*!* 02.05.2011 ^
		Select cAngajatorC6
		Scan
		\	   <angajatorC6 C6_baza="<<C6_baza>>" C6_ct="<<C6_CT>>"/>
		Endscan
		Select cAngajatorC7
		Scan
		\	   <angajatorC7 C7_baza="<<C7_BAZA>>" C7_ct="<<C7_CT>>"/>
		Endscan
		Select cAngajatorD
		Scan
		\	   <angajatorD D1="<<D1>>" D2="<<D2>>" D3="<<D3>>" D4="<<D4>>" />
		Endscan
		Select cAngajatorE1
		Scan
		\	   <angajatorE1 E1_venit="<<E1_venit>>" E1_baza="<<E1_baza>>" E1_ct="<<E1_ct>>"/>
		ENDSCAN
		Select cAngajatorE2
		Scan
		\	   <angajatorE2 E2_11="<<E2_11>>", E2_12="<<E2_12>>", E2_14="<<E2_14>>", E2_16="<<E2_16>>", E2_21="<<E2_21>>", E2_22="<<E2_22>>", E2_24="<<E2_24>>", E2_26="<<E2_26>>", E2_31="<<E2_31>>", E2_32="<<E2_32>>", E2_34="<<E2_34>>", E2_36="<<E2_36>>",	E2_41="<<E2_41>>", E2_42="<<E2_42>>", E2_44="<<E2_44>>", E2_46="<<E2_46>>", E2_51="<<E2_51>>", E2_52="<<E2_52>>", E2_54="<<E2_54>>", E2_56="<<E2_56>>", E2_66="<<E2_66>>", E2_7="<<E2_7>>", E2_8="<<E2_8>>", E2_9="<<E2_9>>", E2_10="<<E2_10>>", E2_110="<<E2_110>>", E2_120="<<E2_120>>", E2_130="<<E2_130>>" />
		ENDSCAN
		Select cAngajatorE3
		Scan
		\	   <angajatorE3 E3_11="<<E3_11>>", E3_12="<<E3_12>>", E3_13="<<E3_13>>", E3_14="<<E3_14>>", E3_21="<<E3_21>>", E3_22="<<E3_22>>", E3_23="<<E3_23>>", E3_24="<<E3_24>>", E3_31="<<E3_31>>", E3_32="<<E3_32>>", E3_33="<<E3_33>>", E3_34="<<E3_34>>",	E3_41="<<E3_41>>", E3_42="<<E3_42>>", E3_43="<<E3_43>>", E3_44="<<E3_44>>", E3_total="<<E3_total>>", E3_suma="<<E3_suma>>" />
		Endscan
		Select cAngajatorF1
		Scan
		\	   <angajatorF1 F1_suma="<<F1_SUMA>>"/>
		Endscan
		Select cAngajatorF2
		Scan
		\	   <angajatorF2 F2_cif="<<F2_CIF>>" F2_id="<<F2_ID>>" F2_suma="<<F2_SUMA>>"/>
		Endscan
		\	</angajator>
		
		Select cAsigurati
		Scan
			Scatter Name loAsigurat
		\	<asigurat cnpAsig="<<CNPASIG>>" numeAsig="<<NUMEASIG>>" prenAsig="<<PRENASIG>>" idAsig="<<IDASIG>>" dataAng="<<DATAANG>>" <<IIF(!EMPTY(dataSf), [dataSf="] + DTOC(DATASF) + ["], "")>> casaSn="<<CASASN>>" asigCI="<<ASIGCI>>" asigSO="<<ASIGSO>>"<<IIF(!EMPTY(NVL(cnpant,'')),[ cnpAnt="] + CNPANT + ["],[])+IIF(!EMPTY(NVL(numeant,'')),[ numeAnt="] + NUMEANT + ["],[])+IIF(!EMPTY(NVL(prenant,'')),[ prenAnt="] + PRENANT +["],[])>>>
			Select cCoasigurati
			Scan For marca = loAsigurat.marca
		\		<coAsigurati tip="<<TIP>>" cnp="<<CNP>>" nume="<<NUME>>" prenume="<<PRENUME>>"/>
			Endscan
			Select cAsiguratiA
			Scan For marca = loAsigurat.marca
		\		<asiguratA A_1="<<A_1>>" A_2="<<A_2>>" A_3="<<A_3>>" A_4="<<A_4>>" A_5="<<A_5>>" A_6="<<A_6>>" A_7="<<A_7>>" A_8="<<A_8>>" A_9="<<A_9>>" A_10="<<A_10>>" A_11="<<A_11>>" A_12="<<A_12>>" A_13="<<A_13>>" A_14="<<A_14>>" A_20="<<A_20>>"/>
			Endscan
			Select cAsiguratiB1
			Scan For marca = loAsigurat.marca
		\		<asiguratB1 B1_1="<<B1_1>>" B1_2="<<B1_2>>" B1_3="<<B1_3>>" B1_4="<<B1_4>>" B1_5="<<B1_5>>" B1_6="<<B1_6>>" B1_7="<<B1_7>>" B1_8="<<B1_8>>" B1_9="<<B1_9>>" B1_10="<<B1_10>>" B1_15="<<B1_15>>">
				Select cAsiguratiB11
				Scan For marca = loAsigurat.marca
		\		<asiguratB11 B11_1="<<B11_1>>" B11_2="<<B11_2>>" B11_3="<<B11_3>>" B11_41="<<B11_41>>" B11_42="<<B11_42>>" B11_43="<<B11_43>>" B11_5="<<B11_5>>" B11_6="<<B11_6>>" B11_71="<<B11_71>>" B11_72="<<B11_72>>" B11_73="<<B11_73>>"/>
				Endscan
		\		</asiguratB1>
			Endscan
			Select cAsiguratiB2
			Scan For marca = loAsigurat.marca
		\		<asiguratB2 B2_1="<<B2_1>>" B2_2="<<B2_2>>" B2_3="<<B2_3>>" B2_4="<<B2_4>>" B2_5="<<B2_5>>" B2_6="<<B2_6>>" B2_7="<<B2_7>>"/>
			Endscan
			Select cAsiguratiB3
			Scan For marca = loAsigurat.marca
		\		<asiguratB3 B3_1="<<B3_1>>" B3_2="<<B3_2>>" B3_3="<<B3_3>>" B3_4="<<B3_4>>" B3_5="<<B3_5>>" B3_6="<<B3_6>>" B3_7="<<B3_7>>" B3_8="<<B3_8>>" B3_9="<<B3_9>>" B3_10="<<B3_10>>" B3_11="<<B3_11>>" B3_12="<<B3_12>>" B3_13="<<B3_13>>"/>
			Endscan
			Select cAsiguratiB4
			Scan For marca = loAsigurat.marca
		\		<asiguratB4 B4_1="<<B4_1>>" B4_2="<<B4_2>>" B4_3="<<B4_3>>" B4_4="<<B4_4>>" B4_5="<<B4_5>>" B4_6="<<B4_6>>" B4_7="<<B4_7>>" B4_8="<<B4_8>>" B4_14="<<B4_14>>"/>
			ENDSCAN
			Select cAsiguratiC
			Scan For marca = loAsigurat.marca
		\		<asiguratC C_1="<<C_1>>" C_2="<<C_2>>" C_3="<<C_3>>" C_4="<<C_4>>" C_5="<<C_5>>" C_6="<<C_6>>" C_7="<<C_7>>" C_8="<<C_8>>" C_9="<<C_9>>" C_10="<<C_10>>" C_11="<<C_11>>" C_17="<<C_17>>" C_18="<<C_18>>" C_19="<<C_19>>"/>
			Endscan	
			Select cAsiguratiD
			Scan For marca = loAsigurat.marca
		\		<asiguratD D_1="<<D_1>>" D_2="<<D_2>>" <<IIF(!EMPTY(D_3), [D_3="]+ D_3 + ["], [])>> <<IIF(!EMPTY(D_4), [D_4="] + D_4 + ["], [])>> D_5="<<D_5>>" D_6="<<D_6>>" D_7="<<D_7>>" <<IIF(!EMPTY(NVL(D_8,0)), [D_8="] + ALLTRIM(STR(D_8,13)) + ["], [])>> D_9="<<D_9>>" D_10="<<D_10>>" <<IIF(!EMPTY(D_11), [D_11="] + D_11 + ["], [])>> <<IIF(!EMPTY(D_12), [D_12="] + D_12 + ["], [])>> <<IIF(!EMPTY(D_13), [D_13="] + D_13 + ["], [])>> D_14="<<D_14>>" D_15="<<D_15>>" D_16="<<D_16>>" D_17="<<D_17>>" D_18="<<D_18>>" D_19="<<D_19>>" D_20="<<D_20>>" D_21="<<D_21>>"/>
			Endscan
		\	</asigurat>
		Endscan
		\</declaratieUnica>
		Set Textmerge To
		
		Strtofile(lcXML, m.tcFisierXML)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		 
	ENDPROC

	PROCEDURE getnrevidenta		&& Generare nr evidenta a platii pentru un impozit
		Lparameters tcCodObligatie, tnAn, tnLuna, tdDataScadenta, tnTipObligatie
		* tcCodObligatie: 601
		* tnAn, tnLuna: sfarsitul perioadei de raportare
		* tdDataScad: data scadenta a obligatiei
		* tnTipObligatie: 1(care se platesc în CONT UNIC ), 2 (restul) 
		
		Local lcNrEvidenta, lcSumaControl, lcText, lnSuma, i
		
		lcCodObligatie = Alltrim(NVL(tcCodObligatie, '')) && XXX
		lcPerioadaRaportare = PADL(INT(m.tnLuna), 2, '0') + RIGHT(ALLTRIM(STR(INT(m.tnAn))), 2) && LLAA
		lcDataScadenta = IIF(TYPE('tdDataScadenta') = 'D', DTOS(tdDataScadenta), '')
		lcDataScadenta = RIGHT(m.lcDataScadenta,2) + SUBSTR(m.lcDataScadenta,5,2) + SUBSTR(m.lcDataScadenta, 3, 2) && ZZLLAA
		lcTipObligatie = IIF(tnTipObligatie = 1, '1', '0')
		
		Text To lcText Noshow
		Ex.nr.evid.a platii : 10 602 01 0611 250711 0 0 00 35
		
		Verificare componenta si suma de control
		pentru
		nr_evid :
		Poz.1-2
		 :10
		Poz.3-5
		 : cod obligatie (nomenclator)
		Poz.6-7
		 :01
		Poz.8-11
		 : LLAA (sf.per.de raportare)
		Poz.12-17
		 : ZZLLAA (scadenta platii)
		Poz.18:
		 1 daca tip_oblig=1
		 0 daca tip_oblig=2
		
		Poz.19
		 : 0
		Poz.20-21
		 : 00
		Poz.22-23
		: suma de control = suma
		primelor 21 pozitii (se iau ultimele 2 cifre
		ale sumei)
		
		Endtext
		
		
		lcNrEvidenta = '10' + lcCodObligatie + '01' + lcPerioadaRaportare + lcDataScadenta + lcTipObligatie + '0' + '00'
		lnSuma = 0
		For i = 1 To Len(m.lcNrEvidenta)
			lnSuma = lnSuma + Int(Val(Substr(m.lcNrEvidenta, i, 1)))
		Endfor
		lcSumaControl = Right(Alltrim(Str(lnSuma)), 2)
		lcNrEvidenta = lcNrEvidenta + m.lcSumaControl
		
		Return m.lcNrEvidenta
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		PARAMETERS tnDecl, tlTrim
		
		DODEFAULT()
		thisform.nDecl= tnDecl
		thisform.lTrim = tlTrim
		
		
		
		
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		
		
		Thisform.totaluri("datorat")
		Thisform.totaluri("recuperat")
		
		DODEFAULT(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		Lparameters tcColoana
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "datorat"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		SELECT (lcTabel)
		GO TOP 
		
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE cmdPDF100.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		
		*** Generare Nr evidenta a platii
		SELECT cDecl
		SCAN FOR (datorat <> 0 OR recuperat <> 0)
			lcCodObligatie = ALLTRIM(cod_imp)
			IF EMPTY(m.lcCodObligatie)
				loop	
			ENDIF 
			lnAn = m.gnAn
			lnLuna = m.gnLuna
			ldDataScadenta = datascad	
			m.lnTipObligatie = IIF(LEFT(cod_bugetar, 4) <> '5502', 1, 2) && 1(care se platesc în CONT UNIC ), 2 (restul)
			
			lcNrEvidenta = Thisform.GetNrEvidenta(lcCodObligatie, lnAn, lnLuna, ldDataScadenta, lnTipObligatie)
			SELECT cDecl 
			REPLACE nr_evidenta WITH m.lcNrEvidenta
		ENDSCAN 
		
		Thisform.do_executa(3,100) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("recuperat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivR = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("datorat")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivD = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=1,RGB(180,180,180),IIF(tip=5,RGB(230,244,255),RGB(255,255,255)))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivD=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivR=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=1,RGB(180,180,180),rgb(255,255,255))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivD=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		this.cTVA.DynamicForeColor = [iif(inactivR=1,rgb(225,225,225),IIF(antet=1,RGB(180,180,180),rgb(0,0,0)))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl101 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="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cL1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cL1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cL2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cL2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_2011
		*m: do_genereaza_xdp_2012
		*m: do_genereaza_xdp_2014
		*m: do_genereaza_xdp_2015
		*m: do_genereaza_xdp_2016
		*m: do_genereaza_xdp_2018
		*m: do_genereaza_xdp_2020
		*m: do_genereaza_xdp_2021
		*m: do_genereaza_xdp_2022
		*m: do_genereaza_xdp_2024
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 592
		ltrim = .F.
		Name = "frm_decl101"
		ndecl = 0
		noldvalue = 0
		Width = 744
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		Lb_titlu_alb_b121.Caption = "Declaratia 101 - Impozitul pe profit"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 0
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		Height = 469, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecl", ;
		TabIndex = 1, ;
		Top = 35, ;
		Width = 725, ;
		Column1.ControlSource = "nrcrt", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 454, ;
		Column3.ControlSource = "suma", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 116, ;
		Column4.ControlSource = "l1", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999 999", ;
		Column4.Name = "cL1", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 110, ;
		Column5.ControlSource = "l2", ;
		Column5.Format = "rk", ;
		Column5.InputMask = "999 999 999 999", ;
		Column5.Name = "cL2", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 105
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cL1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "LL1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cL1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cL2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "LL2", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cL2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. crt.", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 658, ;
		Name = "But_excel1", ;
		TabIndex = 5, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Enabled = .F., ;
		Left = 629, ;
		Name = "But_listare1", ;
		TabIndex = 6, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 686, ;
		Name = "But_renunt1", ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cmdPDF' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		Caption = "Export \<PDF inteligent", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 606, ;
		Name = "cmdPDF", ;
		Top = 506, ;
		Width = 128, ;
		WordWrap = .T., ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 4, ;
		Caption = "\<Datele de identificare ale firmei", ;
		Height = 27, ;
		Left = 8, ;
		Name = "Command1", ;
		TabIndex = 2, ;
		Top = 506, ;
		Visible = .F., ;
		Width = 188, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 4, ;
		Caption = "Export in fisiere \<text", ;
		FontBold = .T., ;
		Height = 27, ;
		Left = 468, ;
		Name = "Command3", ;
		TabIndex = 3, ;
		Top = 506, ;
		Visible = .F., ;
		Width = 128, ;
		ZOrderSet = 21
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 55, ;
		Left = 9, ;
		Name = "edtInfo", ;
		Top = 534, ;
		Visible = .T., ;
		Width = 726, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\..\roadecl\comun\clase\_baza.vcx" BaseClass="editbox" />
	
	PROCEDURE do_executa
		Lparameters tnMenu
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		Local lcCod_fiscal
		lcCaleFisier = ""
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = lcComunPath + Iif(Inlist(gcAppName, "CONSAL","CONCONT"), "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		
		Try
			lcTempPath = Iif(Inlist(gcAppName, "CONSAL","CONCONT"), Addbs(m.dirgen),Addbs(gcDirMare))
		
			lcCaleFisier = m.lcTempPath + "D101\" && c:\temp\D112\
		
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case m.gnAn >= 2024
				lcFisierPDFOriginal = m.lcComunPath + "d101_202412.pdf"
			Case m.gnAn >= 2022
				lcFisierPDFOriginal = m.lcComunPath + "d101_202212.pdf"
			Case m.gnAn >= 2021
				lcFisierPDFOriginal = m.lcComunPath + "d101_202112.pdf"
			Case m.gnAn >= 2020
				lcFisierPDFOriginal = m.lcComunPath + "d101_202012.pdf"
			Case m.gnAn >= 2018
				lcFisierPDFOriginal = m.lcComunPath + "d101_201901.pdf"
			Case m.gnAn >= 2017
				lcFisierPDFOriginal = m.lcComunPath + "d101_201801.pdf"
			Case m.gnAn = 2017 AND m.gnLuna = 1
				lcFisierPDFOriginal = m.lcComunPath + "d101_201701.pdf"
			Case m.gnAn >= 2016
				lcFisierPDFOriginal = m.lcComunPath + "d101_2016.pdf"
			Case m.gnAn >= 2015
				lcFisierPDFOriginal = m.lcComunPath + "d101_2015.pdf"
			Case m.gnAn >= 2014
				lcFisierPDFOriginal = m.lcComunPath + "d101_2014.pdf"
			Case m.gnAn >= 2012
				lcFisierPDFOriginal = m.lcComunPath + "d101_2013.pdf"
			Case m.gnAn >= 2011
				lcFisierPDFOriginal = m.lcComunPath + "d101_2012.pdf"
			Otherwise
				lcFisierPDFOriginal = m.lcComunPath + "d101.pdf"
		Endcase
		*!* 18.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 18.01.2012 ^
		
		lcCod_fiscal = Alltrim(NVL(gofirma.codfiscalfro,''))
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		lcNumeFisier = "d101_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 2
				This.UpdateInfo("Se exporta datele in format PDF")
				Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				This.UpdateInfo(Replicate('-', 100))
			Case lnMenu = 3
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				Do Case
					Case m.gnAn >= 2024
						Thisform.do_genereaza_xdp_2024(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2022
						Thisform.do_genereaza_xdp_2022(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2021
						Thisform.do_genereaza_xdp_2021(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2020
						Thisform.do_genereaza_xdp_2020(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2018
						Thisform.do_genereaza_xdp_2018(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2016
						Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn = 2017 AND m.gnLuna = 1
						Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case m.gnAn >= 2016
						Thisform.do_genereaza_xdp_2016(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case gnAn >=2015
						Thisform.do_genereaza_xdp_2015(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case gnAn >=2014
						Thisform.do_genereaza_xdp_2014(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case gnAn >=2012
						Thisform.do_genereaza_xdp_2012(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Case gnAn >=2011
						Thisform.do_genereaza_xdp_2011(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
					Otherwise
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				Endcase
				This.UpdateInfo(Replicate('-', 100))
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				Messagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D101 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/101.html")
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\ <form1>
		\ <codF1>
		
		\  <codF2>101</codF2>
		\<TDD_AN><<gnAn>></TDD_AN>	
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\ </codF1>
		
		\<pag1>
		\<subform1>
		\<rectif1></rectif1>
		\<anul1><<gnAn>></anul1>
		\<per1>AN</per1>
		
		\<defexf1></defexf1>
		\<oblig1>103</oblig1>
		\<lichid1> </lichid1>
		\</subform1>
		
		\<subform2>
		\<RO1>RO</RO1>
		
		
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		ENDIF
		
		
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_judet><<Nvl(Alltrim(gofirma.adresa),'')>></text_judet>
		\<DENUMIRE><<Nvl(Alltrim(gofirma.antet),'')>></DENUMIRE>
		\<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		\</subform2>
		
		\<subform3>
		\<titlu xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<zona_text xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Sume_box>
		
			
		
		Select cDecl
		SCAN FOR ordine <= 24
		\<P<<ALLTRIM(STR(VAL(rand)))>>><<ALLTRIM(STR(suma,9,0))>></P<<ALLTRIM(STR(VAL(rand)))>>>
			Select cDecl
		Endscan
		\</Sume_box>
		\</subform3>
		\</pag1>
		
		\<pag2>
		\<subform4>
		\<zona_text xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/><Sume_box>
		
		Select cDecl
		SCAN FOR ordine > 24 AND ordine <= 52
		\<P<<ALLTRIM(STR(VAL(rand)))>>><<ALLTRIM(STR(suma,9,0))>></P<<ALLTRIM(STR(VAL(rand)))>>>
		SELECT cDecl
		ENDSCAN
		\</Sume_box>
		
		Select cDecl
		SCAN FOR ordine >= 54
		\<C<<SUBSTR(rand,2,LEN(rand)-1)>>><<ALLTRIM(STR(suma,9,0))>></C<<SUBSTR(rand,2,LEN(rand)-1)>>>
		SELECT cDecl
		ENDSCAN
		\</subform4>
		\</pag2>
		
		\<pag3>
		\<subform41>
		\<subform5>
		\<scadenta></scadenta>
		\<codbug>20470101XX</codbug>
		\<nrevid>11103011210250411000024</nrevid>
		\<suma_control>29653</suma_control>
		\<numeFisier></numeFisier>
		
		\<nume><<Alltrim(gofirma.declarant)>></nume>
		\<functia><<Alltrim(gofirma.functie)>></functia>
		
		\<sir_CB></sir_CB>
		\</subform5>
		\</subform41>
		\</pag3>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2011
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
			IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
			ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\<form1>
		\<codF1><codF2>101</codF2></codF1>
		\<subform1>
		\<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r><TDD_AN><<gnAn>></TDD_AN><TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<defexf1/>
		\<oblig1>103</oblig1><lichid1>00</lichid1><CON_ID><<m.lcCodFiscalF>></CON_ID>
		\</subform1>
		\<subform2>
		\<cif_r><<m.lcCodFiscalF>></cif_r><text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet><DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE><CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN><RO>RO</RO>
		\</subform2>
		***************
		\<Table4>
		\<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R01><C1><<m.ln01>></C1></R01><R02><C1><<m.ln02>></C1></R02><R03><C1></C1></R03><R04><C1><<m.ln04>></C1></R04><R05><C1><<m.ln05>></C1></R05>
		\<R06><C1></C1></R06><R07><C1><<m.ln07>></C1></R07><R08><C1><<m.ln08>></C1></R08><R09><C1></C1></R09><R10><C1></C1></R10>
		\<R11><C1><<m.ln11>></C1></R11><R12><C1><<m.ln12>></C1></R12><R13><C1></C1></R13><R14><C1><<m.ln14>></C1></R14><R15><C1><<m.ln15>></C1></R15><R16><C1><<m.ln16>></C1></R16>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R17><C1><<m.ln17>></C1></R17><R18><C1><<m.ln18>></C1></R18><R181><C1><<m.ln18_1>></C1></R181><R19><C1></C1></R19><R20><C1><<m.ln20>></C1></R20>
		\<R21><C1><<m.ln21>></C1></R21><R22><C1></C1></R22><R23><C1></C1></R23><R24><C1><<m.ln24>></C1></R24><R25><C1><<m.ln25>></C1></R25><R26><C1><<m.ln26>></C1></R26>
		\<R27><C1><<m.ln27>></C1></R27><R28><C1><<m.ln28>></C1></R28><R29><C1><<m.ln29>></C1></R29><R30><C1><<m.ln30>></C1></R30><R31><C1><<m.ln31>></C1></R31><R32><C1><<m.ln32>></C1></R32>
		\<R33><C1><<m.ln33>></C1></R33><R34><C1><<m.ln34>></C1></R34><R35><C1></C1></R35><R36><C1></C1></R36><R37><C1><<m.ln37>></C1></R37><R38><C1><<m.ln38>></C1></R38>
		\<R39><C1></C1></R39><R40><C1></C1></R40><R401><C1><<m.ln40_1>></C1></R401><R402><C1><<m.ln40_2>></C1></R402><R41><C1></C1></R41>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R411><C1><<m.ln41_1>></C1></R411><R412><C1><<m.ln41_2>></C1></R412><R4121><C1><<m.ln41_2_1>></C1></R4121><R413><C1><<m.ln41_3>></C1></R413><R42><C1></C1></R42>
		\<R43><C1><<m.ln43>></C1></R43><R44><C1></C1></R44><R45><C1><<m.ln45>></C1></R45><R46><C1><<m.ln46>></C1></R46><R47><C1><<m.ln47>></C1></R47><R48><C1></C1></R48><R49><C1></C1></R49>
		\</Table4>
		\<subform5>
		\<nume><<Alltrim(Nvl(gofirma.declarant,''))>></nume>
		\<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		\</subform5>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2012
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\<form1>
		\<subform1>
		\<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		\<oblig1>103</oblig1><lichid1>00</lichid1><CON_ID><<m.lcCodFiscalF>></CON_ID><d_micro>0</d_micro>
		\</subform1>
		\<subform2>
		\<cif_r><<m.lcCodFiscalF>></cif_r><text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet><DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE><CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN><RO>RO</RO><cif><<m.lcCodFiscalF>></cif>
		\</subform2>
		***************
		\<Table4>
		\<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R01><C1><<m.ln01>></C1></R01><R02><C1><<m.ln02>></C1></R02><R03><C1></C1></R03><R04><C1><<m.ln04>></C1></R04><R05><C1><<m.ln05>></C1></R05>
		\<R06><C1></C1></R06><R07><C1><<m.ln07>></C1></R07><R08><C1><<m.ln08>></C1></R08><R09><C1></C1></R09><R10><C1></C1></R10>
		\<R11><C1><<m.ln11>></C1></R11><R111><C1><<m.ln11_1>></C1></R111><R112><C1><<m.ln11_2>></C1></R112><R113><C1><<m.ln11_3>></C1></R113>
		\<R12><C1><<m.ln12>></C1></R12><R121><<m.ln12_1>></R121><R122><<m.ln12_2>></R122><R13><C1></C1></R13><R14><C1><<m.ln14>></C1></R14><R15><C1><<m.ln15>></C1></R15><R16><C1><<m.ln16>></C1></R16>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R17><C1><<m.ln17>></C1></R17><R171><<m.ln17_1>></R171><R18><C1><<m.ln18>></C1></R18><R181><C1><<m.ln18_1>></C1></R181><R19><C1></C1></R19><R20><C1><<m.ln20>></C1></R20>
		\<R21><C1><<m.ln21>></C1></R21><R22><C1></C1></R22><R23><C1></C1></R23><R24><C1><<m.ln24>></C1></R24><R25><C1><<m.ln25>></C1></R25><R26><C1><<m.ln26>></C1></R26>
		\<R27><C1><<m.ln27>></C1></R27><R28><C1><<m.ln28>></C1></R28><R29><C1><<m.ln29>></C1></R29><R30><C1><<m.ln30>></C1></R30><R31><C1><<m.ln31>></C1></R31><R32><C1><<m.ln32>></C1></R32>
		\<R33><C1><<m.ln33>></C1></R33><R34><C1><<m.ln34>></C1></R34><R35><C1></C1></R35><R36><C1></C1></R36><R37><C1><<m.ln37>></C1></R37><R38><C1><<m.ln38>></C1></R38>
		\<R39><C1><<m.ln39>></C1></R39><R40><C1><<m.ln40>></C1></R40><R41><C1></C1></R41>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R42><C1></C1></R42><R421><C1><<m.ln42_1>></C1></R421><R422><C1><<m.ln42_2>></C1></R422>
		\<R43><C1></C1></R43><R431><C1><<m.ln43_1>></C1></R431><R432><C1><<m.ln43_2>></C1></R432><R4321><C1><<m.ln43_2_1>></C1></R4321><R433><C1><<m.ln43_3>></C1></R433><R44><C1></C1></R44>
		\<R45><C1><<m.ln45>></C1></R45><R46><C1></C1></R46><R47><C1><<m.ln47>></C1></R47><R48><C1><<m.ln48>></C1></R48><R49><C1><<m.ln49>></C1></R49><R50><C1></C1></R50><R51><C1></C1></R51>
		\</Table4>
		\<subform5>
		\<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume><prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
		\<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		\</subform5>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2014
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\<form1>
		\<subform1>
		\<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		\<oblig1>103</oblig1><lichid1>00</lichid1><CON_ID><<m.lcCodFiscalF>></CON_ID><d_micro>0</d_micro>
		\</subform1>
		\<subform2>
		\<cif_r><<m.lcCodFiscalF>></cif_r><text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet><DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE><CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN><RO>RO</RO><cif><<m.lcCodFiscalF>></cif>
		\</subform2>
		***************
		\<Table4>
		\<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R01><C1><<m.ln01>></C1></R01><R02><C1><<m.ln02>></C1></R02><R03><C1></C1></R03><R04><C1><<m.ln04>></C1></R04><R05><C1><<m.ln05>></C1></R05>
		\<R06><C1></C1></R06><R07><C1><<m.ln07>></C1></R07><R08><C1><<m.ln08>></C1></R08><R09><C1></C1></R09><R10><C1></C1></R10>
		\<R11><C1><<m.ln11>></C1></R11><R111><C1><<m.ln11_1>></C1></R111><R112><C1><<m.ln11_2>></C1></R112><R113><C1><<m.ln11_3>></C1></R113>
		\<R12><C1><<m.ln12>></C1></R12><R121><<m.ln12_1>></R121><R122><<m.ln12_2>></R122><R13><C1></C1></R13><R14><C1><<m.ln14>></C1></R14><R15><C1><<m.ln15>></C1></R15><R16><C1><<m.ln16>></C1></R16>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R17><C1><<m.ln17>></C1></R17><R171><<m.ln17_1>></R171><R18><C1><<m.ln18>></C1></R18><R181><C1><<m.ln18_1>></C1></R181><R19><C1></C1></R19>
		
		\<R20><C1/></R20><R201><C1><<m.ln20_1>></C1></R201><R202><C1><<m.ln20_2>></C1></R202><R203><C1><<m.ln20_3>></C1></R203>
		
		\<R21><C1><<m.ln21>></C1></R21><R22><C1></C1></R22>
		
		\<R23><C1><<m.ln23>></C1></R23><R24><C1></C1></R24><R25><C1></C1></R25><R26><C1><<m.ln26>></C1></R26><R27><C1><<m.ln27>></C1></R27><R28><C1><<m.ln28>></C1></R28>
		\<R29><C1><<m.ln29>></C1></R29><R30><C1><<m.ln30>></C1></R30><R31><C1><<m.ln31>></C1></R31><R32><C1><<m.ln32>></C1></R32><R33><C1><<m.ln33>></C1></R33><R34><C1><<m.ln34>></C1></R34>
		\<R35><C1><<m.ln35>></C1></R35><R36><C1><<m.ln36>></C1></R36><R37><C1></C1></R37><R38><C1></C1></R38><R39><C1><<m.ln39>></C1></R39><R40><C1><<m.ln40>></C1></R40>
		\<R41><C1><<m.ln41>></C1></R41><R42><C1><<m.ln42>></C1></R42><R43><C1></C1></R43>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R44><C1></C1></R44><R441><C1><<m.ln44_1>></C1></R441><R442><C1><<m.ln44_2>></C1></R442>
		\<R45><C1></C1></R45><R451><C1><<m.ln45_1>></C1></R451><R452><C1><<m.ln45_2>></C1></R452><R4521><C1><<m.ln45_2_1>></C1></R4521><R453><C1><<m.ln45_3>></C1></R453><R46><C1></C1></R46>
		\<R47><C1><<m.ln47>></C1></R47><R48><C1></C1></R48><R49><C1><<m.ln49>></C1></R49><R50><C1><<m.ln50>></C1></R50><R51><C1><<m.ln51>></C1></R51><R52><C1></C1></R52><R53><C1></C1></R53>
		\</Table4>
		\<subform5>
		\<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume><prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
		\<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		\</subform5>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2015
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		\<form1>
		\<subform1>
		\<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		\<oblig1>103</oblig1><lichid1>00</lichid1><CON_ID><<m.lcCodFiscalF>></CON_ID><d_micro>0</d_micro>
		\</subform1>
		\<subform2>
		\<cif_r><<m.lcCodFiscalF>></cif_r><text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet><DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE><CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN><RO>RO</RO><cif><<m.lcCodFiscalF>></cif>
		\</subform2>
		***************
		\<Table4>
		\<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R01><C1><<m.ln01>></C1></R01><R02><C1><<m.ln02>></C1></R02><R03><C1></C1></R03><R04><C1><<m.ln04>></C1></R04><R05><C1><<m.ln05>></C1></R05>
		\<R06><C1></C1></R06><R07><C1><<m.ln07>></C1></R07><R08><C1><<m.ln08>></C1></R08><R09><C1></C1></R09><R10><C1></C1></R10>
		\<R11><C1><<m.ln11>></C1></R11><R111><C1><<m.ln11_1>></C1></R111><R112><C1><<m.ln11_2>></C1></R112><R113><C1><<m.ln11_3>></C1></R113>
		\<R12><C1><<m.ln12>></C1></R12><R121><<m.ln12_1>></R121><R122><<m.ln12_2>></R122><R13><C1></C1></R13><R14><C1><<m.ln14>></C1></R14><R15><C1><<m.ln15>></C1></R15><R16><C1><<m.ln16>></C1></R16>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R17><C1><<m.ln17>></C1></R17><R171><<m.ln17_1>></R171><R18><C1><<m.ln18>></C1></R18><R181><C1><<m.ln18_1>></C1></R181><R19><C1></C1></R19>
		
		\<R20><C1/></R20><R201><C1><<m.ln20_1>></C1></R201><R202><C1><<m.ln20_2>></C1></R202><R203><C1><<m.ln20_3>></C1></R203>
		
		\<R21><C1><<m.ln21>></C1></R21><R22><C1></C1></R22>
		
		\<R23><C1><<m.ln23>></C1></R23><R24><C1></C1></R24><R25><C1></C1></R25><R26><C1><<m.ln26>></C1></R26><R27><C1><<m.ln27>></C1></R27><R28><C1><<m.ln28>></C1></R28>
		\<R29><C1><<m.ln29>></C1></R29><R30><C1><<m.ln30>></C1></R30><R31><C1><<m.ln31>></C1></R31><R32><C1><<m.ln32>></C1></R32><R33><C1><<m.ln33>></C1></R33><R34><C1><<m.ln34>></C1></R34>
		\<R35><C1><<m.ln35>></C1></R35><R36><C1><<m.ln36>></C1></R36><R37><C1></C1></R37><R38><C1></C1></R38><R39><C1><<m.ln39>></C1></R39><R40><C1><<m.ln40>></C1></R40>
		\<R41><C1><<m.ln41>></C1></R41><R42><C1><<m.ln42>></C1></R42><R43><C1></C1></R43>
		\<gol xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<R44><C1></C1></R44><R441><C1><<m.ln44_1>></C1></R441><R442><C1><<m.ln44_2>></C1></R442>
		\<R45><C1></C1></R45><R451><C1><<m.ln45_1>></C1></R451><R452><C1><<m.ln45_2>></C1></R452><R4521><C1><<m.ln45_2_1>></C1></R4521><R453><C1><<m.ln45_3>></C1></R453><R46><C1></C1></R46>
		\<R47><C1><<m.ln47>></C1></R47><R48><C1></C1></R48><R49><C1><<m.ln49>></C1></R49><R50><C1><<m.ln50>></C1></R50><R51><C1><<m.ln51>></C1></R51><R52><C1></C1></R52><R53><C1></C1></R53>
		\</Table4>
		\<subform5>
		\<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume><prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
		\<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		\</subform5>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2016
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1/></R34>
		<R35><C1/></R35>
		<R36><C1><<m.ln36>></C1></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R39><C1><<m.ln39>></C1></R39>
		<R40><C1/></R40>
		<R41><C1/></R41>
		<R411><C1><<m.ln41_1>></C1></R411>
		<R412><C1><<m.ln41_2>></C1></R412>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R4221><C1><<m.ln42_2_1>></C1></R4221>
		<R423><C1><<m.ln42_3>></C1></R423>
		<R43><C1/></R43>
		<R44><C1><<m.ln44>></C1></R44>
		<R45><C1/></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1><<m.ln47>></C1></R47>
		<R48><C1/></R48>
		<R49><C1/></R49>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2018
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R084><C1><<m.ln08_4>></C1></R084>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1/></R34>
		<R35><C1/></R35>
		<R36><C1><<m.ln36>></C1></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R39><C1><<m.ln39>></C1></R39>
		<R40><C1/></R40>
		<R41><C1/></R41>
		<R411><C1><<m.ln41_1>></C1></R411>
		<R412><C1><<m.ln41_2>></C1></R412>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R4221><C1><<m.ln42_2_1>></C1></R4221>
		<R423><C1><<m.ln42_3>></C1></R423>
		<R4231><C1><<m.ln42_3_1>></C1></R4231>
		<R43><C1/></R43>
		<R44><C1><<m.ln44>></C1></R44>
		<R45><C1/></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1><<m.ln47>></C1></R47>
		<R48><C1/></R48>
		<R49><C1/></R49>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2020
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R084><C1><<m.ln08_4>></C1></R084>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1><<m.ln34>></C1></R34>
		<R35><C1/></R35>
		<R36><C1/></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R39><C1><<m.ln39>></C1></R39>
		<R40><C1><<m.ln40>></C1></R40>
		<R41><C1/></R41>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R43><C1/></R43>
		<R431><C1><<m.ln43_1>></C1></R431>
		<R432><C1><<m.ln43_2>></C1></R432>
		<R4321><C1><<m.ln43_2_1>></C1></R4321>
		<R433><C1><<m.ln43_3>></C1></R433>
		<R4331><C1><<m.ln43_3_1>></C1></R4331>
		<R44><C1><<m.ln44>></C1></R44>
		<R441><C1><<m.ln44_1>></C1></R441>
		<R442><C1><<m.ln44_2>></C1></R442>
		<R45><C1><<m.ln45>></C1></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1><<m.ln47>></C1></R47>
		<R48><C1/></R48>
		<R49><C1><<m.ln49>></C1></R49>
		<R50><C1/></R50>
		<R51><C1><<m.ln51>></C1></R51>
		<R52><C1><<m.ln52>></C1></R52>
		<R53><C1/></R53>
		<R54><C1><<m.ln54>></C1></R54>
		<R55><C1/></R55>
		<R56><C1/></R56>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2021
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R084><C1><<m.ln08_4>></C1></R084>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R121><C1><<m.ln12_1>></C1></R121>
		<R122><C1><<m.ln12_2>></C1></R122>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1/></R34>
		<R35><C1/></R35>
		<R36><C1><<m.ln36>></C1></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R39><C1><<m.ln39>></C1></R39>
		<R40><C1/></R40>
		<R41><C1/></R41>
		<R411><C1><<m.ln41_1>></C1></R411>
		<R412><C1><<m.ln41_2>></C1></R412>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R4221><C1><<m.ln42_2_1>></C1></R4221>
		<R4222><C1><<m.ln42_2_2>></C1></R4222>
		<R423><C1><<m.ln42_3>></C1></R423>
		<R4231><C1><<m.ln42_3_1>></C1></R4231>
		<R43><C1><<m.ln43>></C1></R43>
		<R431><C1><<m.ln43_1>></C1></R431>
		<R432><C1><<m.ln43_2>></C1></R432>
		<R44><C1><<m.ln44>></C1></R44>
		<R45><C1><<m.ln45>></C1></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1/></R47>
		<R48><C1><<m.ln48>></C1></R48>
		<R49><C1><<m.ln49>></C1></R49>
		<R49><C1><<m.ln49>></C1></R49>
		<R50><C1><<m.ln50>></C1></R50>
		<R51><C1><<m.ln51>></C1></R51>
		<R52><C1/></R52>
		<R53><C1/></R53>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2022
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R084><C1><<m.ln08_4>></C1></R084>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R121><C1><<m.ln12_1>></C1></R121>
		<R122><C1><<m.ln12_2>></C1></R122>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1/></R34>
		<R35><C1/></R35>
		<R36><C1><<m.ln36>></C1></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R39><C1><<m.ln39>></C1></R39>
		<R40><C1/></R40>
		<R41><C1/></R41>
		<R411><C1><<m.ln41_1>></C1></R411>
		<R412><C1><<m.ln41_2>></C1></R412>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R4221><C1><<m.ln42_2_1>></C1></R4221>
		<R4222><C1><<m.ln42_2_2>></C1></R4222>
		<R423><C1><<m.ln42_3>></C1></R423>
		<R4231><C1><<m.ln42_3_1>></C1></R4231>
		<R43><C1><<m.ln43>></C1></R43>
		<R431><C1><<m.ln43_1>></C1></R431>
		<R432><C1><<m.ln43_2>></C1></R432>
		<R44><C1><<m.ln44>></C1></R44>
		<R45><C1><<m.ln45>></C1></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1/></R47>
		<R48><C1><<m.ln48>></C1></R48>
		<R49><C1><<m.ln49>></C1></R49>
		<R49><C1><<m.ln49>></C1></R49>
		<R50><C1><<m.ln50>></C1></R50>
		<R51><C1><<m.ln51>></C1></R51>
		<R52><C1/></R52>
		<R53><C1/></R53>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_2024
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou, tnDecl
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect
		lcSelect = Select()
		Local lnDecl
		lnDecl = tnDecl
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcCodFiscalF = Alltrim(gofirma.codfiscalfro)
		
		*** generez variabile pentru fiecare rand
		SELECT rand, denumire, suma, tip FROM cDecl WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecl NOFILTER 
		SELECT crsDecl
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcRand = STRTRAN(ALLTRIM(m.lcRand), "^1", "a") && 39^1 => 39a
			lcVariabila = [ln] + m.lcRand && ln17
		*!*		IF NVL(tip, 0) = 0 OR INLIST(lcRand, '40_1', '43')&& 5 = TOTAL/ 401, 43 = formule, dar nu totaluri si trebuie exportate
				LOCAL &lcVariabila
				&lcVariabila = suma
		*!*		ENDIF 
		ENDSCAN 
		USE IN (SELECT('crsDecl'))
		
		*!*	Set Textmerge On To Memvar lcXDP Noshow
		TEXT TO lcXDP TEXTMERGE NOSHOW 
		<?xml version="1.0"?>
		<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		<xfa:data>
		<form1>
		<subform1>
		<d_rec>0</d_rec><an_r><<gnAn>></an_r><luna_r><<gnLuna>></luna_r>
		<oblig1>103</oblig1><d_micro>0</d_micro>
		</subform1>
		
		<subform2>
		<cif><<m.lcCodFiscalF>></cif>
		<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email><text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		<text_judet><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.adresa),''))>></text_judet>
		<DENUMIRE><<XmlSpecialCharacters(Nvl(Alltrim(gofirma.antet),''))>></DENUMIRE>
		<CAEN><<Nvl(Alltrim(gofirma.caen),'')>></CAEN>
		<RO>RO</RO>
		</subform2>
		
		<Table4>
		<CapTab4_r1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		<R01><C1><<m.ln01>></C1></R01>
		<R02><C1><<m.ln02>></C1></R02>
		<R03><C1/></R03>
		<R04><C1><<m.ln04>></C1></R04>
		<R05><C1><<m.ln05>></C1></R05>
		<R06><C1/></R06>
		<R07><C1/></R07>
		<R08><C1><<m.ln08>></C1></R08>
		<R081><C1><<m.ln08_1>></C1></R081>
		<R082><C1><<m.ln08_2>></C1></R082>
		<R083><C1><<m.ln08_3>></C1></R083>
		<R084><C1><<m.ln08_4>></C1></R084>
		<R09><C1><<m.ln09>></C1></R09>
		<R091><<m.ln09_1>></R091>
		<R10><C1/></R10>
		<R11><C1><<m.ln11>></C1></R11>
		<R111><C1><<m.ln11_1>></C1></R111>
		<R112><C1><<m.ln11_2>></C1></R112>
		<R113><C1><<m.ln11_3>></C1></R113>
		<R12><C1><<m.ln12>></C1></R12>
		<R121><C1><<m.ln12_1>></C1></R121>
		<R122><C1><<m.ln12_2>></C1></R122>
		<R13><C1><<m.ln13>></C1></R13>
		<R14><C1><<m.ln14>></C1></R14>
		<R141><<m.ln14_1>></R141>
		<R15><C1><<m.ln15>></C1></R15>
		<R151><C1><<m.ln15_1>></C1></R151>
		<R16><C1></C1></R16>
		<R17><C1><<m.ln17>></C1></R17>
		<R171><C1><<m.ln17_1>></C1></R171>
		<R172><C1><<m.ln17_2>></C1></R172>
		<R173><C1><<m.ln17_3>></C1></R173>
		
		<R18><C1><<m.ln18>></C1></R18>
		<R19><C1><<m.ln19>></C1></R19>
		
		<R20><C1><<m.ln20>></C1></R20>
		<R21><C1/></R21>
		<R22><C1/></R22>
		<R23><C1><<m.ln23>></C1></R23>
		<R24><C1><<m.ln24>></C1></R24>
		<R25><C1><<m.ln25>></C1></R25>
		<R26><C1><<m.ln26>></C1></R26>
		<R27><C1><<m.ln27>></C1></R27>
		<R28><C1><<m.ln28>></C1></R28>
		<R29><C1><<m.ln29>></C1></R29>
		<R30><C1><<m.ln30>></C1></R30>
		<R31><C1><<m.ln31>></C1></R31>
		<R32><C1><<m.ln32>></C1></R32>
		<R33><C1><<m.ln33>></C1></R33>
		<R34><C1/></R34>
		<R35><C1/></R35>
		<R36><C1><<m.ln36>></C1></R36>
		<R37><C1><<m.ln37>></C1></R37>
		<R38><C1><<m.ln38>></C1></R38>
		<R38a><C1><<m.ln38a>></C1></R38a>
		<R39><C1><<m.ln39>></C1></R39>
		<R39a><C1><<m.ln39a>></C1></R39a>
		<R40><C1><<m.ln40>></C1></R40>
		<R40a><C1><<m.ln40a>></C1></R40a>
		<R41><C1><<m.ln41>></C1></R41>
		<R411><C1><<m.ln41_1>></C1></R411>
		<R412><C1><<m.ln41_2>></C1></R412>
		<R42><C1/></R42>
		<R421><C1><<m.ln42_1>></C1></R421>
		<R422><C1><<m.ln42_2>></C1></R422>
		<R4221><C1><<m.ln42_2_1>></C1></R4221>
		<R4222><C1><<m.ln42_2_2>></C1></R4222>
		<R423><C1><<m.ln42_3>></C1></R423>
		<R4231><C1><<m.ln42_3_1>></C1></R4231>
		<R43><C1><<m.ln43>></C1></R43>
		<R431><C1><<m.ln43_1>></C1></R431>
		<R432><C1><<m.ln43_2>></C1></R432>
		<R44><C1><<m.ln44>></C1></R44>
		<R45><C1><<m.ln45>></C1></R45>
		<R46><C1><<m.ln46>></C1></R46>
		<R47><C1><<m.ln47>></C1></R47>
		<R48><C1><<m.ln48>></C1></R48>
		<R481><C1><<m.ln48_1>></C1></R481>
		<R482><C1><<m.ln48_2>></C1></R482>
		<R49><C1><<m.ln49>></C1></R49>
		<R49><C1><<m.ln49>></C1></R49>
		<R50><C1><<m.ln50>></C1></R50>
		<R51><C1><<m.ln51>></C1></R51>
		<R52><C1><<m.ln52>></C1></R52>
		<R53><C1><<m.ln53>></C1></R53>
		</Table4>
		
		<subform5>
			<nume><<Alltrim(Nvl(gofirma.nume_declarant,''))>></nume>
			<prenume><<Alltrim(Nvl(gofirma.prenume_declarant,''))>></prenume>
			<functia><<Alltrim(Nvl(gofirma.functie,''))>></functia>
		</subform5>
		
		</form1>
		
		</xfa:data>
		</xfa:datasets>
		<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		</xdp:xdp>
		ENDTEXT 
		*!*	Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		LOCAL lnWidth 
		lnWidth = This.Width
		This.WindowState = 2
		This.Width = m.lnWidth
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		Local lcCaption
		
		Thisform.totaluri("suma")
		Thisform.totaluri("l1")
		Thisform.totaluri("l2")
		
		lcCaption = "Declaratia 101 - Impozitul pe profit"
		
		
		*!*	Do Case
		*!*		Case pcPerioada = '01/10 - 09/10'
		*!*			lcPerioada = '01.01.2010 - 30.09.2010'
		*!*		Case pcPerioada = '01/10 - 12/10'
		*!*			lcPerioada = '01.01.2010 - 31.12.2010'
		*!*		Case pcPerioada = '10/10 - 12/10'
		*!*			lcPerioada = '01.10.2010 - 31.12.2010'
		*!*		Case Lower(Alltrim(pcPerioada)) = 'luna contabila curenta'
		*!*			lcPerioada = Alltrim(Str(gnLuna)) + '.' + Alltrim(Str(gnAn))
		*!*	Endcase
		
		Thisform.lb_titlu_alb_b121.Caption = lcCaption + ' - Perioada ' + m.pcPerioada && lcPerioada
		DoDefault(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		Lparameters tcColoana
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand
		
		If Empty(tcColoana)
			lcColoana = "suma"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = Thisform._grdrow1.RecordSource
		Select * From (lcTabel) With (Buffering = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = Alltrim(Rand)
		*!*		IF '45'$lcRand
		*!*			set step on 
		*!*		ENDIF
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where Alltrim(Rand) = lcRand
		
			Select cTemp
		Endscan
		Use In cTemp
		
		Select (lcTabel)
		Go Top
		
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE cmdPDF.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		Thisform.do_executa(3) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif WITH [C:\Program Files\Declaratia 101 impozit pe profit\] In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decl_101 WITH (lcTabel), pcPerioada IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			REPLACE tip WITH 1 IN cDecl &&  sa nu se mai recalculeze campul dupa formula, daca este de tipul 5 (total)
			THISFORM.totaluri("suma")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		THISFORM.nOldvalue = this.Value 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(tip=5,RGB(230,244,255),RGB(255,255,255))", "Column")
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl101_perioada 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="cb_perioada" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: totaluri
		*p: ltrim
		*p: ndecl
		*p: noldvalue
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 86
		ltrim = .F.
		Name = "frm_decl101_perioada"
		ndecl = 0
		noldvalue = 0
		Width = 252
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 254
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 218
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 34
		Lb_titlu_alb_b121.Caption = "Declaratia 101"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		Lb_titlu_alb_b121.Top = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 220
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_label1' AS _label WITH ;
		BackStyle = 0, ;
		Caption = "Perioada", ;
		Left = 9, ;
		Name = "_label1", ;
		Top = 51
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'cb_perioada' AS _cbbase WITH ;
		Height = 24, ;
		Left = 68, ;
		Name = "cb_perioada", ;
		RowSourceType = 1, ;
		Top = 47, ;
		Width = 151
		*< END OBJECT: ClassLib="..\comun\clase\_cb_base.vcx" BaseClass="combobox" />
	
	PROCEDURE inainte_de_do_termin
		pcPerioada = thisform.cb_perioada.Value && 01/10 - 09/10    10/10 - 12/10    01/10 - 12/10  Luna contabila curenta
		
		IF EMPTY(thisform.cb_perioada.Value)
			Messagebox('Alegeti perioada!')
			RETURN .F.
		ENDIF 
		
		*!*	Do Case
		*!*	Case Thisform.cb_perioada.Value = '01/10 - 09/10'
		*!*		pcPerioada = '01/10 - 09/10'
		*!*	Case Thisform.cb_perioada.Value = '10/10 - 12/10'
		*!*		pcPerioada = '10/10 - 12/10'
		*!*	Case Thisform.cb_perioada.Value = '01/10 - 12/10'
		*!*		pcPerioada = '01/10 - 12/10'
		*!*	Otherwise
		*!*		Messagebox('Alegeti perioada!')
		*!*		RETURN .F.
		*!*	Endcase
		
	ENDPROC

	PROCEDURE totaluri
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl394 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="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label22" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtTaraR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCodiR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDeniR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtNumeD" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label19" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAdrR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtFunctieD" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label20" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtTelR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtEmailR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtFaxR" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCodi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtDeni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAdr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtTel" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtEmail" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label16" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtFax" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label15" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label21" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboTip" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccaen
		*p: ccalintoc
		*p: cfpropr
		*p: cjudet
		*p: ctip
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ccaen = 
		ccalintoc = 
		cfpropr = 
		cjudet = 
		ctip = 
		DoCreate = .T.
		Height = 465
		Name = "frm_decl394"
		Width = 643
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 648
		_shape1.ZOrderSet = 1
		_shape2.Height = 29
		_shape2.Left = 586
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 63
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national"
		Lb_titlu_alb_b121.Left = 4
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 23
		Lb_titlu_alb_b121.Top = 6
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Left = 612
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 21
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Left = 216
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 8
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		ControlSource = "pounitate.tvanedeductibil", ;
		Left = 595, ;
		Name = "_checkbox1", ;
		TabIndex = 5, ;
		ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ;
		Top = 39
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 9, ;
		Left = 583, ;
		Name = "But_renunt1", ;
		TabIndex = 22, ;
		Top = 1, ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cboTip' AS combobox WITH ;
		ControlSource = "poUnitate.tip", ;
		Height = 24, ;
		Left = 34, ;
		Name = "cboTip", ;
		RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ;
		RowSourceType = 1, ;
		Style = 2, ;
		TabIndex = 1, ;
		Top = 35, ;
		Value = LUNAR, ;
		Width = 173
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod de identificare fiscala RO", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label1", ;
		TabIndex = 25, ;
		Top = 90, ;
		Width = 165, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label10' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Telefon", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label10", ;
		TabIndex = 38, ;
		Top = 353, ;
		Width = 43, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label11' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 212, ;
		Name = "Label11", ;
		TabIndex = 39, ;
		Top = 309, ;
		Width = 328, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label12' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Telefon", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label12", ;
		TabIndex = 35, ;
		Top = 180, ;
		Width = 43, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label13' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Email", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label13", ;
		TabIndex = 33, ;
		Top = 378, ;
		Width = 33, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label14' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Fax", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 446, ;
		Name = "Label14", ;
		TabIndex = 34, ;
		Top = 353, ;
		Width = 21, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label15' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Datele de identificare ale reprezentantului fiscal", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 34, ;
		Name = "Label15", ;
		TabIndex = 26, ;
		Top = 236, ;
		Width = 265, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label16' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Datele de identificare ale persoanei inregistrate in scopuri de TVA", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 34, ;
		Name = "Label16", ;
		TabIndex = 24, ;
		Top = 64, ;
		Width = 364, ;
		ZOrderSet = 33
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label19' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nume declarant", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label19", ;
		TabIndex = 41, ;
		Top = 414, ;
		Width = 88, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "(judet/sector, localitate, strada, nr, bloc, scara, ap, cod postal)", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 212, ;
		Name = "Label2", ;
		TabIndex = 40, ;
		Top = 136, ;
		Width = 328, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label20' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Functie declarant", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label20", ;
		TabIndex = 37, ;
		Top = 439, ;
		Width = 97, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label21' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Nr. luni suplimentare", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 228, ;
		Name = "Label21", ;
		TabIndex = 2, ;
		ToolTipText = "Se iau in considerare si documentele inregistrate in lunile suplimentare fata de semestrul ales. Optiune utila pentru declaratia rectificativa.", ;
		Top = 38, ;
		Width = 120, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label22' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Inclusiv achizitii TVA nedeductibil", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		ForeColor = 255,0,0, ;
		Height = 18, ;
		Left = 398, ;
		Name = "Label22", ;
		TabIndex = 4, ;
		ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ;
		Top = 38, ;
		Width = 191, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label3' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumire / Nume,  prenume", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label3", ;
		TabIndex = 29, ;
		Top = 116, ;
		Width = 154, ;
		WordWrap = .T., ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label4' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Email", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label4", ;
		TabIndex = 32, ;
		Top = 205, ;
		Width = 33, ;
		ZOrderSet = 17
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Domiciliu fiscal", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label5", ;
		TabIndex = 30, ;
		Top = 136, ;
		Width = 89, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Cod de identificare fiscala RO", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label6", ;
		TabIndex = 27, ;
		Top = 263, ;
		Width = 165, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label7' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Denumire / Nume,  prenume", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label7", ;
		TabIndex = 28, ;
		Top = 289, ;
		Width = 154, ;
		WordWrap = .T., ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label8' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Fax", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 446, ;
		Name = "Label8", ;
		TabIndex = 36, ;
		Top = 180, ;
		Width = 21, ;
		ZOrderSet = 18
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Domiciliu fiscal", ;
		FontBold = .T., ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 37, ;
		Name = "Label9", ;
		TabIndex = 31, ;
		Top = 309, ;
		Width = 89, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 148, ;
		Left = 32, ;
		Name = "Shape1", ;
		Top = 85, ;
		Width = 589, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackStyle = 0, ;
		Height = 148, ;
		Left = 32, ;
		Name = "Shape2", ;
		Top = 258, ;
		Width = 589, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text1' AS textbox WITH ;
		ControlSource = "pounitate.luniextra", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "KR", ;
		Height = 23, ;
		InputMask = "99", ;
		Left = 353, ;
		Name = "Text1", ;
		TabIndex = 3, ;
		ToolTipText = "Se iau in considerare si documentele inregistrate in lunile suplimentare fata de semestrul ales. Optiune utila pentru declaratia rectificativa.", ;
		Top = 36, ;
		Width = 30, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtAdr' AS textbox WITH ;
		ControlSource = "pounitate.adr", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtAdr", ;
		TabIndex = 8, ;
		Top = 153, ;
		Width = 398, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtAdrR' AS textbox WITH ;
		ControlSource = "pounitate.adrR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtAdrR", ;
		TabIndex = 15, ;
		Top = 326, ;
		Width = 398, ;
		ZOrderSet = 11
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtCodi' AS textbox WITH ;
		ControlSource = "pounitate.codi", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "KR", ;
		Height = 23, ;
		InputMask = "9999999999", ;
		Left = 211, ;
		Name = "txtCodi", ;
		TabIndex = 6, ;
		Top = 88, ;
		Width = 114, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtCodiR' AS textbox WITH ;
		ControlSource = "pounitate.codiR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "KR", ;
		Height = 23, ;
		InputMask = "9999999999", ;
		Left = 245, ;
		Name = "txtCodiR", ;
		TabIndex = 13, ;
		Top = 261, ;
		Width = 114, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDeni' AS textbox WITH ;
		ControlSource = "pounitate.deni", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Left = 211, ;
		Name = "txtDeni", ;
		TabIndex = 7, ;
		Top = 112, ;
		Width = 400, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtDeniR' AS textbox WITH ;
		ControlSource = "pounitate.deniR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Left = 211, ;
		Name = "txtDeniR", ;
		TabIndex = 14, ;
		Top = 285, ;
		Width = 400, ;
		ZOrderSet = 9
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtEmail' AS textbox WITH ;
		ControlSource = "pounitate.email", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtEmail", ;
		TabIndex = 11, ;
		Top = 203, ;
		Width = 237, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtEmailR' AS textbox WITH ;
		ControlSource = "pounitate.emailR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtEmailR", ;
		TabIndex = 18, ;
		Top = 376, ;
		Width = 237, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtFax' AS textbox WITH ;
		ControlSource = "pounitate.fax", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 481, ;
		Name = "txtFax", ;
		TabIndex = 10, ;
		Top = 178, ;
		Width = 128, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtFaxR' AS textbox WITH ;
		ControlSource = "pounitate.faxR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 481, ;
		Name = "txtFaxR", ;
		TabIndex = 17, ;
		Top = 351, ;
		Width = 128, ;
		ZOrderSet = 19
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtFunctieD' AS textbox WITH ;
		ControlSource = "pounitate.functieD", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtFunctieD", ;
		TabIndex = 20, ;
		Top = 437, ;
		Width = 237, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtNumeD' AS textbox WITH ;
		ControlSource = "pounitate.numeD", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtNumeD", ;
		TabIndex = 19, ;
		Top = 412, ;
		Width = 237, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtTaraR' AS textbox WITH ;
		ControlSource = "pounitate.taraR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		InputMask = "", ;
		Left = 211, ;
		MaxLength = 2, ;
		Name = "txtTaraR", ;
		TabIndex = 12, ;
		Top = 261, ;
		Width = 29, ;
		ZOrderSet = 7
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtTel' AS textbox WITH ;
		ControlSource = "pounitate.tel", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtTel", ;
		TabIndex = 9, ;
		Top = 178, ;
		Width = 128, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'txtTelR' AS textbox WITH ;
		ControlSource = "pounitate.telR", ;
		FontName = "Times New Roman", ;
		FontSize = 10, ;
		Format = "!K", ;
		Height = 23, ;
		Left = 211, ;
		Name = "txtTelR", ;
		TabIndex = 16, ;
		Top = 351, ;
		Width = 128, ;
		ZOrderSet = 12
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		IF m.gnAn < 2012
			this.cboTip.RowSource = 'SEMESTRIAL'
			this.cboTip.Value = "SEMESTRIAL"
		ELSE
			this.cboTip.RowSource = 'LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL'
		*	this.cboTip.Value = "LUNAR"
			this.Height = 65
		ENDIF 	
		
		DODEFAULT()
	ENDPROC

	PROCEDURE txtCodiR.Valid
		IF !EMPTY(poUnitate.codiR) AND EMPTY(poUnitate.TaraR)
			poUnitate.TaraR = 'RO'
		ENDIF 	
		THISFORM.txtTaraR.Refresh()
	ENDPROC

	PROCEDURE txtTaraR.Valid
		IF !EMPTY(poUnitate.codiR) AND EMPTY(poUnitate.TaraR)
			poUnitate.TaraR = 'RO'
		ENDIF 	
		THISFORM.txtTaraR.Refresh()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl394_2016 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="_pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTvaNedeductibil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cboTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTVAIncasare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOptiune" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOperatiuni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkAfiliat" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdCitesteDate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdExport" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFdocTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitateRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePJ" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFunctiePF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.ttDenRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtAdrRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTelRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFaxRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtEmailRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtDenIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTipRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitateIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFunctieIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitate2Intocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.optPJIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaXML" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtNrAMEF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaCUI" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.txtNrFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.lblAutofacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.but_exclam" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdExtraFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4._grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdPersFizice.Column15.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccaen
		*p: ccalintoc
		*p: cfpropr
		*p: cjudet
		*p: ctip
		*p: oparent
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ccaen = 
		ccalintoc = 
		cfpropr = 
		cjudet = 
		ctip = 
		DoCreate = .T.
		Height = 465
		Name = "frm_decl394_2016"
		oparent = .NULL.
		Width = 789
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="oparent" display="oParent"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 790
		_shape1.ZOrderSet = 1
		_shape2.Height = 29
		_shape2.Left = 758
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 37
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national D394"
		Lb_titlu_alb_b121.FontSize = 11
		Lb_titlu_alb_b121.Left = 4
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 3
		Lb_titlu_alb_b121.Top = 6
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 758
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 1
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Left = 216
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 8
	*</PropValue>

	ADD OBJECT '_pageframe1' AS _pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 440, ;
		Left = 0, ;
		Name = "_pageframe1", ;
		PageCount = 5, ;
		TabIndex = 2, ;
		Top = 27, ;
		Width = 790, ;
		Page1.Caption = "Setari", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "I. Alte informatii pct. 1 si 2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "I. Alte informatii pct. 4, 5 si 6", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Facturi", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "AMEF / exc. AMEF / Facturi pers. fizice", ;
		Page5.Name = "Page5"
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT '_pageframe1.Page1._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "Se exporta sectiunea I", ;
		ControlSource = "pounitate.ExportSectiuneaI", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 347, ;
		Name = "_checkbox1", ;
		TabIndex = 23, ;
		ToolTipText = "Sectiunea I nu se exporta pana in luna 10/2016", ;
		Top = 33, ;
		Value = 1, ;
		Width = 162, ;
		WordWrap = .T., ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1._label1' AS _label WITH ;
		Caption = "Tip platitor", ;
		Left = 8, ;
		Name = "_label1", ;
		TabIndex = 24, ;
		Top = 5, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label10' AS _label WITH ;
		Caption = "eMail", ;
		FontBold = .T., ;
		Left = 11, ;
		Name = "_label10", ;
		TabIndex = 33, ;
		Top = 124, ;
		ZOrderSet = 22
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label11' AS _label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Reprezentant", ;
		FontBold = .T., ;
		ForeColor = 0,91,183, ;
		Left = 11, ;
		Name = "_label11", ;
		TabIndex = 40, ;
		Top = 61, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label12' AS _label WITH ;
		Caption = "Denumire", ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "_label12", ;
		TabIndex = 34, ;
		Top = 171, ;
		ZOrderSet = 23
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label13' AS _label WITH ;
		Caption = "CUI/CNP", ;
		FontBold = .T., ;
		Left = 290, ;
		Name = "_label13", ;
		TabIndex = 35, ;
		Top = 171, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label14' AS _label WITH ;
		Caption = "Nr. AMEF", ;
		FontBold = .T., ;
		Left = 192, ;
		Name = "_label14", ;
		TabIndex = 31, ;
		Top = 50, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label17' AS _label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Intocmit", ;
		FontBold = .T., ;
		ForeColor = 0,91,183, ;
		Left = 12, ;
		Name = "_label17", ;
		TabIndex = 41, ;
		Top = 149, ;
		ZOrderSet = 30
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label2' AS _label WITH ;
		AutoSize = .F., ;
		Caption = "Serii facturi autofacturare / emise de beneficiari / emise de terti", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 340, ;
		Name = "_label2", ;
		TabIndex = 25, ;
		Top = 250, ;
		Width = 358, ;
		WordWrap = .T., ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label3' AS _label WITH ;
		AutoSize = .F., ;
		Caption = "Feluri document din Registrele TVA", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 11, ;
		Name = "_label3", ;
		TabIndex = 26, ;
		Top = 255, ;
		Width = 225, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label4' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "Se configureaza din meniul Initializare > Configurare serii > Facturi", ;
		FontBold = .F., ;
		Height = 18, ;
		Left = 347, ;
		Name = "_label4", ;
		TabIndex = 28, ;
		Top = 383, ;
		Width = 383, ;
		WordWrap = .T., ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label5' AS _label WITH ;
		Caption = "Denumire", ;
		FontBold = .T., ;
		Left = 10, ;
		Name = "_label5", ;
		TabIndex = 29, ;
		Top = 80, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label6' AS _label WITH ;
		Caption = "Adresa", ;
		FontBold = .T., ;
		Left = 10, ;
		Name = "_label6", ;
		TabIndex = 30, ;
		Top = 102, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label7' AS _label WITH ;
		Caption = "CUI/CNP", ;
		FontBold = .T., ;
		Left = 326, ;
		Name = "_label7", ;
		TabIndex = 31, ;
		Top = 80, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label8' AS _label WITH ;
		Caption = "Telefon", ;
		FontBold = .T., ;
		Left = 514, ;
		Name = "_label8", ;
		TabIndex = 39, ;
		Top = 102, ;
		ZOrderSet = 28
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label9' AS _label WITH ;
		Caption = "FAX", ;
		FontBold = .T., ;
		Left = 326, ;
		Name = "_label9", ;
		TabIndex = 32, ;
		Top = 102, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._shape1' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 82, ;
		Left = 6, ;
		Name = "_shape1", ;
		Top = 70, ;
		Width = 696, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_pageframe1.Page1._shape2' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 63, ;
		Left = 6, ;
		Name = "_shape2", ;
		Top = 157, ;
		Width = 696, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_pageframe1.Page1.cboTip' AS combobox WITH ;
		ControlSource = "poUnitate.tip", ;
		Left = 8, ;
		Name = "cboTip", ;
		RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ;
		RowSourceType = 1, ;
		Style = 2, ;
		TabIndex = 1, ;
		Top = 21, ;
		Value = LUNAR, ;
		Width = 173, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT '_pageframe1.Page1.chkAfiliat' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Operatiuni cu persoane afiliate", ;
		ControlSource = "pounitate.PersoaneAfiliate", ;
		Enabled = .T., ;
		Left = 511, ;
		Name = "chkAfiliat", ;
		TabIndex = 3, ;
		ToolTipText = "Operatiuni cu persoane afiliate", ;
		Top = 49, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkOperatiuni' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Operatiuni in perioada", ;
		ControlSource = "pounitate.operatiuni", ;
		Left = 191, ;
		Name = "chkOperatiuni", ;
		TabIndex = 3, ;
		ToolTipText = "Operatiuni in perioada", ;
		Top = 15, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkOptiune' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Acord consultare D394", ;
		ControlSource = "pounitate.optiuneANAF", ;
		Left = 347, ;
		Name = "chkOptiune", ;
		TabIndex = 3, ;
		ToolTipText = "Acord consultare D394 de catre clienti/furnizori", ;
		Top = 49, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkTVAIncasare' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Sistem TVA Incasare", ;
		ControlSource = "pounitate.tvaincasare", ;
		Left = 191, ;
		Name = "chkTVAIncasare", ;
		TabIndex = 2, ;
		ToolTipText = "Sistem TVA Incasare", ;
		Top = 1, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkTvaNedeductibil' AS _checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .F., ;
		Caption = "Inclusiv achizitii TVA nedeductibil", ;
		ControlSource = "pounitate.tvanedeductibil", ;
		FontBold = .T., ;
		ForeColor = 255,0,0, ;
		Height = 17, ;
		Left = 191, ;
		Name = "chkTvaNedeductibil", ;
		TabIndex = 4, ;
		ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ;
		Top = 30, ;
		Value = 0, ;
		Visible = .F., ;
		Width = 204, ;
		WordWrap = .T., ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.cmdCitesteDate' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "1. Citeste \<date", ;
		Height = 29, ;
		Left = 344, ;
		Name = "cmdCitesteDate", ;
		TabIndex = 5, ;
		Top = 5, ;
		Width = 112, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdExport' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "3. \<Export PDF", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 568, ;
		Name = "cmdExport", ;
		TabIndex = 7, ;
		Top = 5, ;
		Width = 108, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdVerificaCUI' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "2. \<Verifica CUI", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 456, ;
		Name = "cmdVerificaCUI", ;
		TabIndex = 6, ;
		Top = 5, ;
		Width = 112, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdVerificaXML' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = , ;
		Caption = "4. Validare \<XML", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 676, ;
		Name = "cmdVerificaXML", ;
		TabIndex = 7, ;
		ToolTipText = "Validare fisier D394.xml cu validatorul ANAF DUKIntegrator. Trebuie salvat intai fisierul D394.xml din PDF-ul inteligent!", ;
		Top = 5, ;
		Width = 105, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi' AS _grdbase WITH ;
		Anchor = 7, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 109, ;
		Left = 340, ;
		Name = "grdSeriiFacturi", ;
		Panel = 1, ;
		RecordSource = "crsSeriiFacturi", ;
		TabIndex = 22, ;
		Top = 272, ;
		Width = 381, ;
		ZOrderSet = 12, ;
		Column1.ControlSource = "tip", ;
		Column1.Name = "Column1", ;
		Column1.Width = 89, ;
		Column2.ControlSource = "seria", ;
		Column2.Name = "Column2", ;
		Column2.Width = 88, ;
		Column3.ControlSource = "descriere", ;
		Column3.Name = "Column3", ;
		Column3.Width = 168
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip serie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Descriere", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc' AS _grdbase WITH ;
		Anchor = 7, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 111, ;
		Left = 8, ;
		Name = "grdTipDoc", ;
		Panel = 1, ;
		RecordSource = "crsFdocTip", ;
		TabIndex = 21, ;
		Top = 273, ;
		Width = 320, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "fel_document", ;
		Column1.Name = "Column1", ;
		Column1.Width = 149, ;
		Column2.ControlSource = "tip_doc", ;
		Column2.Name = "Column2", ;
		Column2.Width = 135
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.lblCalitatePF' AS _label WITH ;
		Caption = "Alta calitate PF", ;
		FontBold = .T., ;
		Left = 481, ;
		Name = "lblCalitatePF", ;
		TabIndex = 42, ;
		Top = 193, ;
		ZOrderSet = 29
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblCalitatePJ' AS _label WITH ;
		Caption = "Calitate PJ", ;
		Enabled = .F., ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "lblCalitatePJ", ;
		TabIndex = 37, ;
		Top = 193, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblCalitateRepr' AS _label WITH ;
		Caption = "Calitate", ;
		FontBold = .T., ;
		Left = 514, ;
		Name = "lblCalitateRepr", ;
		TabIndex = 36, ;
		Top = 79, ;
		ZOrderSet = 25
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblFdocTip' AS _label WITH ;
		AutoSize = .T., ;
		Caption = "Verificati felurile de document fara tip! Acestea nu se iau in considerare in D394!!!", ;
		FontBold = .T., ;
		ForeColor = 255,0,0, ;
		Height = 34, ;
		Left = 11, ;
		Name = "lblFdocTip", ;
		TabIndex = 27, ;
		Top = 224, ;
		Visible = .F., ;
		Width = 301, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblFunctiePF' AS _label WITH ;
		Caption = "Functie PF", ;
		FontBold = .T., ;
		Left = 280, ;
		Name = "lblFunctiePF", ;
		TabIndex = 38, ;
		Top = 193, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.optPJIntocmit' AS _optiongrup WITH ;
		AutoSize = .T., ;
		ControlSource = "poUnitate.PJIntocmit", ;
		Height = 27, ;
		Left = 517, ;
		Name = "optPJIntocmit", ;
		TabIndex = 17, ;
		Top = 166, ;
		Width = 179, ;
		ZOrderSet = 44, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Pers. fizica", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Pers. juridica", ;
		Option2.Left = 84, ;
		Option2.Name = "Option2", ;
		Option2.Top = 5
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT '_pageframe1.Page1.ttDenRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.DenRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "ttDenRepr", ;
		TabIndex = 8, ;
		Top = 77, ;
		Width = 191, ;
		ZOrderSet = 32
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtAdrRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.AdrRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "txtAdrRepr", ;
		TabIndex = 11, ;
		Top = 99, ;
		Width = 239, ;
		ZOrderSet = 33
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCalitate2Intocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.Calitate2Intocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 578, ;
		Name = "txtCalitate2Intocmit", ;
		TabIndex = 20, ;
		Top = 190, ;
		Width = 118, ;
		ZOrderSet = 43
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCalitateIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.CalitateIntocmit", ;
		Enabled = .F., ;
		Format = "K", ;
		Height = 23, ;
		Left = 84, ;
		Name = "txtCalitateIntocmit", ;
		TabIndex = 18, ;
		Top = 190, ;
		Width = 159, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCUIIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.CUIIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 348, ;
		Name = "txtCUIIntocmit", ;
		TabIndex = 16, ;
		Top = 168, ;
		Width = 127, ;
		ZOrderSet = 39
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCUIRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.CUIRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 383, ;
		Name = "txtCUIRepr", ;
		TabIndex = 9, ;
		Top = 77, ;
		Width = 120, ;
		ZOrderSet = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtDenIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.DenIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 84, ;
		Name = "txtDenIntocmit", ;
		TabIndex = 15, ;
		Top = 168, ;
		Width = 195, ;
		ZOrderSet = 38
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtEmailRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.EmailRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "txtEmailRepr", ;
		TabIndex = 14, ;
		Top = 121, ;
		Width = 162, ;
		ZOrderSet = 37
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtFaxRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.FAXRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 383, ;
		Name = "txtFaxRepr", ;
		TabIndex = 12, ;
		Top = 99, ;
		Width = 120, ;
		ZOrderSet = 36
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtFunctieIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.FunctieIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 348, ;
		Name = "txtFunctieIntocmit", ;
		TabIndex = 19, ;
		Top = 190, ;
		Width = 127, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtNrAMEF' AS _textbox WITH ;
		ControlSource = "poUnitate.nrAMEF", ;
		Format = "K", ;
		Height = 23, ;
		Left = 251, ;
		Name = "txtNrAMEF", ;
		TabIndex = 9, ;
		ToolTipText = "Numar AMEF", ;
		Top = 47, ;
		Width = 54, ;
		ZOrderSet = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtTelRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.TelRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 570, ;
		Name = "txtTelRepr", ;
		TabIndex = 13, ;
		Top = 99, ;
		Width = 120, ;
		ZOrderSet = 35
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtTipRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.TipRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 570, ;
		Name = "txtTipRepr", ;
		TabIndex = 10, ;
		Top = 77, ;
		Width = 120, ;
		ZOrderSet = 40
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 76, ;
		Left = 357, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "crsFacturiTerti", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 317, ;
		Width = 365, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 68, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 97, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 105, ;
		Column4.ColumnOrder = 1, ;
		Column4.ControlSource = "punct", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.Width = 59, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.Width = 154, ;
		Column6.ControlSource = "cod_fiscal", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.Width = 121
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CUI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._label1' AS _label WITH ;
		Anchor = 0, ;
		AutoSize = .T., ;
		Caption = "2.1 Plaja de facturi alocate in perioada de facturare", ;
		Height = 18, ;
		Left = 359, ;
		Name = "_label1", ;
		Top = 10, ;
		Width = 293, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label2' AS _label WITH ;
		Anchor = 0, ;
		AutoSize = .F., ;
		Caption = "2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate:", ;
		Height = 32, ;
		Left = 357, ;
		Name = "_label2", ;
		Top = 203, ;
		Width = 255, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label3' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "2.2 din care (Tip: stornate/ anulate/ autofacturare/ emisa in numele furnizorilor)", ;
		Height = 32, ;
		Left = 11, ;
		Name = "_label3", ;
		Top = 163, ;
		Width = 311, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label4' AS _label WITH ;
		AutoSize = .T., ;
		Caption = "1.1 - 1.4 Facturi simplificate si 1.5 Bonuri fiscale cu cod fiscal", ;
		Height = 34, ;
		Left = 11, ;
		Name = "_label4", ;
		Top = 10, ;
		Width = 299, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label5' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "2.3 / 2.4 Numarul total de facturi emise, in perioada de raportare, de beneficiari/terti in numele persoanei impozabile:", ;
		Height = 32, ;
		Left = 357, ;
		Name = "_label5", ;
		Top = 281, ;
		Width = 371, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2.but_exclam' AS but_help WITH ;
		cpicturedown = exclam.ico, ;
		cpictureup = exclam.ico, ;
		Height = 36, ;
		Left = 685, ;
		Name = "but_exclam", ;
		Picture = ..\comun\grafice\exclam.ico, ;
		ToolTipText = "Numere facturi emise care nu sunt in plajele de facturi alocate!", ;
		Top = 201, ;
		Width = 40
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 10, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 76, ;
		Left = 11, ;
		Name = "grdAutoFacturi", ;
		Panel = 1, ;
		RecordSource = "crsAutoFacturi", ;
		RowHeight = 19, ;
		ScrollBars = 1, ;
		Top = 317, ;
		Width = 274, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "baza05", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 93, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "tva05", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 93, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "baza09", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 73, ;
		Column4.ControlSource = "tva09", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "baza19", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "tva19", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column7.ControlSource = "baza20", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column8.ControlSource = "tva20", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column9.ControlSource = "baza24", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column10.ControlSource = "tva24", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdExtraFacturiEmise' AS gridextra WITH ;
		gridexpression = thisform._pageframe1.page2.grdFacturiEmise, ;
		Left = 731, ;
		Name = "grdExtraFacturiEmise", ;
		productname = ROA, ;
		Top = 255
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate' AS _grdbase WITH ;
		Anchor = 0, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 167, ;
		Left = 357, ;
		Name = "grdFacturiAlocate", ;
		Panel = 1, ;
		RecordSource = "crsFacturiAlocate", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 28, ;
		Width = 367, ;
		Column1.ControlSource = "crsFacturiAlocate.seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 80, ;
		Column2.ControlSource = "crsFacturiAlocate.nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 135, ;
		Column3.ControlSource = "crsFacturiAlocate.nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 117
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise' AS _grdbase WITH ;
		Anchor = 5, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 40, ;
		Left = 357, ;
		Name = "grdFacturiEmise", ;
		Panel = 1, ;
		RecordSource = "crsFacturiEmise", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 237, ;
		Width = 365, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 78, ;
		Column2.ControlSource = "nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 135, ;
		Column3.ControlSource = "nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 117
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 98, ;
		Left = 11, ;
		Name = "grdFacturiEmiseTip", ;
		Panel = 1, ;
		RecordSource = "crsFacturiEmiseTip", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 197, ;
		Width = 316, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 93, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nr", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 102, ;
		Column3.ColumnOrder = 1, ;
		Column3.ControlSource = "tip", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 86
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Numar", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI' AS _grdbase WITH ;
		Anchor = 5, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 98, ;
		Left = 11, ;
		Name = "grdSectiuneaI", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 53, ;
		Width = 319, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 62, ;
		Column2.ControlSource = "proctva", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 60, ;
		Column3.ControlSource = "baza", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ControlSource = "tva", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.lblAutofacturi' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .T., ;
		Caption = "2.2 Detalii autofacturi", ;
		Height = 18, ;
		Left = 11, ;
		Name = "lblAutofacturi", ;
		Top = 296, ;
		Width = 122, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2.txtNrFacturiEmise' AS _textbox WITH ;
		Anchor = 0, ;
		ControlSource = "poUnitate.nr_facturi_emise", ;
		Format = "RK", ;
		Height = 23, ;
		Left = 623, ;
		Name = "txtNrFacturiEmise", ;
		Top = 208, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3._label1' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label1", ;
		Top = 43, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label10' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		Caption = "6.2 Persoanele impozabile care aplica regimul special pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ;
		FontSize = 8, ;
		Height = 30, ;
		Left = 298, ;
		Name = "_label10", ;
		Top = 342, ;
		Width = 426, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label11' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "6. Agentii turism si Second Hand TVA colectata", ;
		Height = 18, ;
		Left = 10, ;
		Name = "_label11", ;
		Top = 281, ;
		Width = 274, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label2' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label2", ;
		Top = 116, ;
		Width = 430, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label3' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label3", ;
		Top = 160, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label4' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "4. TVA exigibil sistem normal de TVA", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 299, ;
		Name = "_label4", ;
		Top = 27, ;
		Width = 205, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label5' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label5", ;
		Top = 204, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label6' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5. TVA exigibil sistemul TVA la Incasare", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 299, ;
		Name = "_label6", ;
		Top = 101, ;
		Width = 221, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "4. si 5. TVA exigibil", ;
		Height = 18, ;
		Left = 11, ;
		Name = "_label7", ;
		Top = 21, ;
		Width = 111, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label8' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "6. TVA colectata aferenta marjei de profit agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ;
		FontBold = .T., ;
		Height = 32, ;
		Left = 298, ;
		Name = "_label8", ;
		Top = 287, ;
		Width = 407, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label9' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		Caption = "6.1 Persoanele impozabile care aplica regimul special pt agentiile de turism", ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 298, ;
		Name = "_label9", ;
		Top = 320, ;
		Width = 356, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4' AS _grdbase WITH ;
		Anchor = 11, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 110, ;
		Left = 11, ;
		Name = "grdSectiuneaI4", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI4", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 42, ;
		Width = 234, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 59, ;
		Column2.ControlSource = "tva24", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 85, ;
		Column3.ControlSource = "tva20", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ControlSource = "tva19", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "tva09", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "tva05", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 9%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 5%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6' AS _grdbase WITH ;
		Anchor = 11, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		HeaderHeight = 19, ;
		Height = 86, ;
		Left = 10, ;
		Name = "grdSectiuneaI6", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI6", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 302, ;
		Width = 240, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 59, ;
		Column2.ControlSource = "incasari", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 77, ;
		Column3.ControlSource = "costuri", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ControlSource = "marja", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "tva", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasari / Pret vanzare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Costuri / Pret cumparare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marja profit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4._grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cFdoc, ;
		Comment = "*:OnResize=sb", ;
		csourcegrid = grdJTVA, ;
		csumcolumns = cBaza,cTVA,cTIBaza,cTITVA,cBaza24,cBaza20,cBaza19,cBaza09,cBaza05,cBaza00,cTVA24,cTVA20,cTVA19,cTVA09,cTVA05,cRO24T,cRO20T,cRO19T,cRO09T,cRO05T, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 35, ;
		Left = 3, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 352, ;
		Width = 764, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page4._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .F., ;
		Caption = "Documente Registre TVA", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 10, ;
		Name = "_label7", ;
		Top = 10, ;
		Width = 141, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page4.But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 736, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 2
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 54, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		HeaderHeight = 59, ;
		Height = 323, ;
		Left = 3, ;
		Name = "grdJTVA", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsjtva", ;
		RecordSourceType = 1, ;
		RowHeight = 19, ;
		Top = 29, ;
		Width = 764, ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "crsjtva.tippart", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column2.ColumnOrder = 5, ;
		Column2.ControlSource = "crsjtva.tipdoc", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "crsjtva.tip", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 43, ;
		Column4.ColumnOrder = 10, ;
		Column4.ControlSource = "crsjtva.dataact", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column5.ColumnOrder = 12, ;
		Column5.ControlSource = "crsjtva.serie_act", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.ColumnOrder = 13, ;
		Column6.ControlSource = "crsjtva.nract", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.ColumnOrder = 53, ;
		Column7.ControlSource = "crsjtva.id_fdoc", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T., ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "crsjtva.fel_document", ;
		Column8.FontSize = 10, ;
		Column8.Name = "cFdoc", ;
		Column8.ReadOnly = .T., ;
		Column9.ColumnOrder = 52, ;
		Column9.ControlSource = "crsjtva.id_sucursala", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .T., ;
		Column10.ColumnOrder = 51, ;
		Column10.ControlSource = "crsjtva.sucursala", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .T., ;
		Column11.ColumnOrder = 16, ;
		Column11.ControlSource = "crsjtva.iscif", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .T., ;
		Column11.ToolTipText = "0 = CNP/fara CIF, 1 = CIF", ;
		Column11.Width = 29, ;
		Column12.ColumnOrder = 17, ;
		Column12.ControlSource = "crsjtva.cifvalid", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 53, ;
		Column13.ColumnOrder = 54, ;
		Column13.ControlSource = "crsjtva.id_part", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column14.ColumnOrder = 15, ;
		Column14.ControlSource = "crsjtva.cod_fiscal", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 88, ;
		Column15.ColumnOrder = 49, ;
		Column15.ControlSource = "crsjtva.cod_fiscalfro", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .T., ;
		Column16.ColumnOrder = 50, ;
		Column16.ControlSource = "crsjtva.atribut_fiscal", ;
		Column16.FontSize = 10, ;
		Column16.Name = "Column16", ;
		Column16.ReadOnly = .T., ;
		Column17.ColumnOrder = 14, ;
		Column17.ControlSource = "crsjtva.denumire", ;
		Column17.FontSize = 10, ;
		Column17.Name = "Column17", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 142, ;
		Column18.ColumnOrder = 19, ;
		Column18.ControlSource = "crsjtva.baza", ;
		Column18.FontSize = 10, ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cBaza", ;
		Column18.ReadOnly = .T., ;
		Column19.ColumnOrder = 20, ;
		Column19.ControlSource = "crsjtva.tva", ;
		Column19.FontSize = 10, ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnZ)), ;
		Column19.Name = "cTVA", ;
		Column19.ReadOnly = .T., ;
		Column20.ColumnOrder = 21, ;
		Column20.ControlSource = "crsjtva.tibaza", ;
		Column20.FontSize = 10, ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cTIBaza", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 22, ;
		Column21.ControlSource = "crsjtva.titva", ;
		Column21.FontSize = 10, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cTITVA", ;
		Column21.ReadOnly = .T., ;
		Column22.ColumnOrder = 23, ;
		Column22.ControlSource = "crsjtva.baza24", ;
		Column22.FontSize = 10, ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cBaza24", ;
		Column22.ReadOnly = .T., ;
		Column23.ColumnOrder = 24, ;
		Column23.ControlSource = "crsjtva.baza20", ;
		Column23.FontSize = 10, ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cBaza20", ;
		Column23.ReadOnly = .T., ;
		Column24.ColumnOrder = 25, ;
		Column24.ControlSource = "crsjtva.baza19", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnZ)), ;
		Column24.Name = "cBaza19", ;
		Column24.ReadOnly = .T., ;
		Column25.ColumnOrder = 26, ;
		Column25.ControlSource = "crsjtva.baza09", ;
		Column25.FontSize = 10, ;
		Column25.Format = "R", ;
		Column25.InputMask = (get_mask(12,gnZ)), ;
		Column25.Name = "cBaza09", ;
		Column25.ReadOnly = .T., ;
		Column26.ColumnOrder = 27, ;
		Column26.ControlSource = "crsjtva.baza05", ;
		Column26.FontSize = 10, ;
		Column26.Format = "R", ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cBaza05", ;
		Column26.ReadOnly = .T., ;
		Column27.ColumnOrder = 28, ;
		Column27.ControlSource = "crsjtva.baza00", ;
		Column27.FontSize = 10, ;
		Column27.Format = "R", ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "cBaza00", ;
		Column27.ReadOnly = .T., ;
		Column28.ColumnOrder = 29, ;
		Column28.ControlSource = "crsjtva.tva24", ;
		Column28.FontSize = 10, ;
		Column28.Format = "R", ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cTVA24", ;
		Column28.ReadOnly = .T., ;
		Column29.ColumnOrder = 30, ;
		Column29.ControlSource = "crsjtva.tva20", ;
		Column29.FontSize = 10, ;
		Column29.Format = "R", ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cTVA20", ;
		Column29.ReadOnly = .T., ;
		Column30.ColumnOrder = 31, ;
		Column30.ControlSource = "crsjtva.tva19", ;
		Column30.FontSize = 10, ;
		Column30.Format = "R", ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cTVA19", ;
		Column30.ReadOnly = .T., ;
		Column31.ColumnOrder = 32, ;
		Column31.ControlSource = "crsjtva.tva09", ;
		Column31.FontSize = 10, ;
		Column31.Format = "R", ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cTVA09", ;
		Column31.ReadOnly = .T., ;
		Column32.ColumnOrder = 33, ;
		Column32.ControlSource = "crsjtva.tva05", ;
		Column32.FontSize = 10, ;
		Column32.Format = "R", ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cTVA05", ;
		Column32.ReadOnly = .T., ;
		Column33.ColumnOrder = 39, ;
		Column33.ControlSource = "crsjtva.tibaza24", ;
		Column33.FontSize = 10, ;
		Column33.Name = "Column33", ;
		Column33.ReadOnly = .T., ;
		Column34.ColumnOrder = 40, ;
		Column34.ControlSource = "crsjtva.tibaza20", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column35.ColumnOrder = 41, ;
		Column35.ControlSource = "crsjtva.tibaza19", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column36.ColumnOrder = 42, ;
		Column36.ControlSource = "crsjtva.tibaza09", ;
		Column36.FontSize = 10, ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .T., ;
		Column37.ColumnOrder = 43, ;
		Column37.ControlSource = "crsjtva.tibaza05", ;
		Column37.FontSize = 10, ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .T., ;
		Column38.ColumnOrder = 44, ;
		Column38.ControlSource = "crsjtva.titva24", ;
		Column38.FontSize = 10, ;
		Column38.Name = "Column38", ;
		Column38.ReadOnly = .T., ;
		Column39.ColumnOrder = 45, ;
		Column39.ControlSource = "crsjtva.titva20", ;
		Column39.FontSize = 10, ;
		Column39.Name = "Column39", ;
		Column39.ReadOnly = .T., ;
		Column40.ColumnOrder = 46, ;
		Column40.ControlSource = "crsjtva.titva19", ;
		Column40.FontSize = 10, ;
		Column40.Name = "Column40", ;
		Column40.ReadOnly = .T., ;
		Column41.ColumnOrder = 47, ;
		Column41.ControlSource = "crsjtva.titva09", ;
		Column41.FontSize = 10, ;
		Column41.Name = "Column41", ;
		Column41.ReadOnly = .T., ;
		Column42.ColumnOrder = 48, ;
		Column42.ControlSource = "crsjtva.titva05", ;
		Column42.FontSize = 10, ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .T., ;
		Column43.Alignment = 2, ;
		Column43.ColumnOrder = 7, ;
		Column43.ControlSource = "crsjtva.tva_incasare", ;
		Column43.CurrentControl = "Check1", ;
		Column43.FontSize = 10, ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .T., ;
		Column43.Sparse = .F., ;
		Column43.Width = 81, ;
		Column44.Alignment = 2, ;
		Column44.ColumnOrder = 8, ;
		Column44.ControlSource = "crsJTVA.FACT_TVA_INCASARE", ;
		Column44.CurrentControl = "Check1", ;
		Column44.FontSize = 10, ;
		Column44.Name = "Column44", ;
		Column44.ReadOnly = .T., ;
		Column44.Sparse = .F., ;
		Column44.Width = 89, ;
		Column45.ColumnOrder = 1, ;
		Column45.ControlSource = "crsJTVA.tipj", ;
		Column45.FontSize = 10, ;
		Column45.Name = "Column45", ;
		Column45.ReadOnly = .T., ;
		Column46.Alignment = 2, ;
		Column46.ColumnOrder = 2, ;
		Column46.ControlSource = "emisa_perioada", ;
		Column46.CurrentControl = "Check1", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cEmisaPerioada", ;
		Column46.ReadOnly = .T., ;
		Column46.Sparse = .F., ;
		Column47.ColumnOrder = 34, ;
		Column47.ControlSource = "RO24T", ;
		Column47.FontSize = 10, ;
		Column47.Format = "R", ;
		Column47.InputMask = (get_mask(12,gnZ)), ;
		Column47.Name = "cRO24T", ;
		Column47.ReadOnly = .T., ;
		Column48.ColumnOrder = 35, ;
		Column48.ControlSource = "RO20T", ;
		Column48.FontSize = 10, ;
		Column48.Format = "R", ;
		Column48.InputMask = (get_mask(12,gnZ)), ;
		Column48.Name = "cRO20T", ;
		Column48.ReadOnly = .T., ;
		Column49.ColumnOrder = 36, ;
		Column49.ControlSource = "RO19T", ;
		Column49.FontSize = 10, ;
		Column49.Format = "R", ;
		Column49.InputMask = (get_mask(12,gnZ)), ;
		Column49.Name = "cRO19T", ;
		Column49.ReadOnly = .T., ;
		Column50.ColumnOrder = 37, ;
		Column50.ControlSource = "RO09T", ;
		Column50.FontSize = 10, ;
		Column50.Format = "R", ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cRO09T", ;
		Column50.ReadOnly = .T., ;
		Column51.ColumnOrder = 38, ;
		Column51.ControlSource = "RO05T", ;
		Column51.FontSize = 10, ;
		Column51.Format = "R", ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cRO05T", ;
		Column51.ReadOnly = .T., ;
		Column52.ColumnOrder = 11, ;
		Column52.ControlSource = "crsjtva.dataireg", ;
		Column52.FontSize = 10, ;
		Column52.Name = "Column52", ;
		Column52.ReadOnly = .T., ;
		Column52.Width = 75, ;
		Column53.ColumnOrder = 4, ;
		Column53.ControlSource = "crsjtva.tip_persoana", ;
		Column53.FontSize = 10, ;
		Column53.Name = "Column53", ;
		Column53.ReadOnly = .T., ;
		Column53.ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ;
		Column53.Width = 65, ;
		Column54.ColumnOrder = 18, ;
		Column54.ControlSource = "crsjtva.baza + crsjtva.tva", ;
		Column54.FontSize = 10, ;
		Column54.Format = "R", ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "cTotal", ;
		Column54.ReadOnly = .T., ;
		Column54.Width = 74
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 0%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 49, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 59, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Emisa in perioada", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip part.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Header1' AS header WITH ;
		Caption = "sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CIF", ;
		FontSize = 10, ;
		Name = "Header1", ;
		ToolTipText = "0 = CNP/fara CIF, 1 = CIF"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CIF valid", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Header1' AS header WITH ;
		Caption = "id_part", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Header1' AS header WITH ;
		Caption = "cod_fiscalfro", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Header1' AS header WITH ;
		Caption = "atribut_fiscal", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Header1' AS header WITH ;
		Caption = "tibaza24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Header1' AS header WITH ;
		Caption = "tibaza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Header1' AS header WITH ;
		Caption = "tibaza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Header1' AS header WITH ;
		Caption = "tibaza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Header1' AS header WITH ;
		Caption = "tibaza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Header1' AS header WITH ;
		Caption = "titva24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Header1' AS header WITH ;
		Caption = "titva20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Header1' AS header WITH ;
		Caption = "titva19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Header1' AS header WITH ;
		Caption = "titva09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Header1' AS header WITH ;
		Caption = "titva05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 73, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 83, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Factura TVA Incasare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 144, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 131, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Factura de la furnizor TVA Incasare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Jurnal TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip persoana", ;
		FontSize = 10, ;
		Name = "Header1", ;
		ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Header1' AS header WITH ;
		Caption = "id_fdoc", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Header1' AS header WITH ;
		Caption = "id_sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Text1' AS textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza TI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA TI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total (baza+tva)", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.Gridextra1' AS gridextra WITH ;
		gridexpression = thisform._pageframe1.page4.grdJTVA, ;
		Left = 167, ;
		Name = "Gridextra1", ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT '_pageframe1.Page5._label1' AS _label WITH ;
		Anchor = 6, ;
		AutoSize = .T., ;
		Caption = "Facturi livrare catre pers. fizice < 10.000 lei in perioada 01.07.2016 - 31.12.2016", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 10, ;
		Name = "_label1", ;
		Top = 161, ;
		Width = 494, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page5._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "AMEF / exceptate AMEF", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 10, ;
		Name = "_label7", ;
		Top = 10, ;
		Width = 151, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 13, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 95, ;
		Left = 8, ;
		Name = "grdCrsamef", ;
		RecordSource = "crsamef", ;
		RecordSourceType = 1, ;
		RowHeight = 19, ;
		Top = 37, ;
		Width = 764, ;
		Column1.ControlSource = "crsamef.tip", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Visible = .T., ;
		Column2.ControlSource = "crsamef.luna", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Visible = .T., ;
		Column3.ControlSource = "crsamef.nramef", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Visible = .T., ;
		Column4.ControlSource = "crsamef.nrbonuri", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.Visible = .T., ;
		Column5.ControlSource = "crsamef.incasari", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.Visible = .T., ;
		Column6.ControlSource = "crsamef.baza05", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.Visible = .T., ;
		Column7.ControlSource = "crsamef.tva05", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.Visible = .T., ;
		Column8.ControlSource = "crsamef.baza09", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column8.Visible = .T., ;
		Column9.ControlSource = "crsamef.tva09", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column9.Visible = .T., ;
		Column10.ControlSource = "crsamef.baza19", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.Visible = .T., ;
		Column11.ControlSource = "crsamef.tva19", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.Visible = .T., ;
		Column12.ControlSource = "crsamef.baza20", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.Visible = .T., ;
		Column13.ControlSource = "crsamef.tva20", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Header1' AS header WITH ;
		Caption = "tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Header1' AS header WITH ;
		Caption = "baza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Header1' AS header WITH ;
		Caption = "tva19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Header1' AS header WITH ;
		Caption = "baza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Header1' AS header WITH ;
		Caption = "tva20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Header1' AS header WITH ;
		Caption = "luna", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Header1' AS header WITH ;
		Caption = "nramef", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Header1' AS header WITH ;
		Caption = "nrbonuri", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Header1' AS header WITH ;
		Caption = "incasari", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Header1' AS header WITH ;
		Caption = "baza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Header1' AS header WITH ;
		Caption = "tva05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Header1' AS header WITH ;
		Caption = "baza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Header1' AS header WITH ;
		Caption = "tva09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice' AS _grdbase WITH ;
		Anchor = 14, ;
		ColumnCount = 12, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 95, ;
		Left = 8, ;
		Name = "grdPersFizice", ;
		RecordSource = "crsPersFizice", ;
		RecordSourceType = 1, ;
		RowHeight = 19, ;
		Top = 188, ;
		Width = 764, ;
		Column1.ControlSource = "crsPersFizice.tip", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Visible = .T., ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "crsPersFizice.baza", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column5", ;
		Column2.Visible = .T., ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "crsPersFizice.baza05", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column6", ;
		Column3.Visible = .T., ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "crsPersFizice.tva05", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column7", ;
		Column4.Visible = .T., ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "crsPersFizice.baza09", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column8", ;
		Column5.Visible = .T., ;
		Column6.ColumnOrder = 6, ;
		Column6.ControlSource = "crsPersFizice.tva09", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column9", ;
		Column6.Visible = .T., ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "crsPersFizice.baza19", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column10", ;
		Column7.Visible = .T., ;
		Column8.ColumnOrder = 8, ;
		Column8.ControlSource = "crsPersFizice.tva19", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column11", ;
		Column8.Visible = .T., ;
		Column9.ColumnOrder = 9, ;
		Column9.ControlSource = "crsPersFizice.baza20", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column12", ;
		Column9.Visible = .T., ;
		Column10.ColumnOrder = 10, ;
		Column10.ControlSource = "crsPersFizice.tva20", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column13", ;
		Column10.Visible = .T., ;
		Column11.ControlSource = "crsPersFizice.baza24", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column14", ;
		Column12.ControlSource = "crsPersFizice.tva24", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column15"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column1.Header1' AS header WITH ;
		Caption = "tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column10.Header1' AS header WITH ;
		Caption = "baza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column11.Header1' AS header WITH ;
		Caption = "tva19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column12.Header1' AS header WITH ;
		Caption = "baza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column13.Header1' AS header WITH ;
		Caption = "tva20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column14.Header1' AS header WITH ;
		Caption = "baza24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column15.Header1' AS header WITH ;
		Caption = "tva24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column15.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "baza", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column6.Header1' AS header WITH ;
		Caption = "baza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column7.Header1' AS header WITH ;
		Caption = "tva05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column8.Header1' AS header WITH ;
		Caption = "baza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column9.Header1' AS header WITH ;
		Caption = "tva09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdPersFizice.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE do_verifica
		#Define CRLF Chr(13) + Chr(10)
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = Select()
		
		Select crsJTVA
		lcDenumire = Alltrim(Nvl(crsJTVA.denumire, ''))
		lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, ''))
		
		lnOptiune = XMENU('Verifica... ' + m.lcDenumire + '; Verifica toti partenerii la ' +Dtoc(Date(m.gnAn, m.gnLuna,1)) + '; Verifica toti partenerii la data facturii (* facturi emise in perioada)')
		
		If Empty(m.lnOptiune)
			Return
		Endif
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		Do Case
			Case m.lnOptiune = 1 && un singur nume
				loPartener = Null
				loDate = Createobject("empty")
		
				AddProperty(loDate, "denumire",  m.lcDenumire)
				AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
				AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
		
				lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
			Case m.lnOptiune = 2
				llDontCloseCursor = .F.
				llExperimental = .F.
				llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
				llMFIN = .T. && verific MFIN pentru toata lumea
				llValidare = .T. && verific algoritmul codurilor fiscale
				llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
				llServiciuWebANAF = .T.
		
				lcFilter = Filter("crsJTVA")
				lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
				Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
					From crsJTVA ;
					Where &lcWhere ;
					Into Cursor crsCoduriFiscale ;
					Order By denumire, cod_fiscal  ;
					Readwrite
		
		
				Local lcXMLParteneri
				lcXMLParteneri = ""
				Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
				Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
			Case m.lnOptiune = 3
				llDontCloseCursor = .F.
				llExperimental = .F.
				llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
				llMFIN = .T. && verific MFIN pentru toata lumea
				llValidare = .T. && verific algoritmul codurilor fiscale
				llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
				llServiciuWebANAF = .T.
		
				lcFilter = Filter("crsJTVA")
				lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.") + " and emisa_perioada = 1"
				Select Distinct id_part, cod_fiscal, denumire, dataact as data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
					From crsJTVA ;
					Where &lcWhere ;
					Into Cursor crsCoduriFiscale ;
					Order By denumire, cod_fiscal  ;
					Readwrite
		
		
				Local lcXMLParteneri
				lcXMLParteneri = ""
				Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
				Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endcase
		
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		this._pageframe1.page2.Enabled = .F.
		this._pageframe1.page3.Enabled = .F.
		this._pageframe1.page4.Enabled = .F.
		this._pageframe1.page5.Enabled = .F.
		
		this._pageframe1.page1.optPJIntocmit.Valid()
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdCitesteDate.Click
		Local lcMesaj, llSucces
		lcMesaj = ''
		llSucces = Thisform.oParent.do_citeste_date()
		If m.llSucces
			Thisform._pageframe1.page1.Refresh()
			Thisform._pageframe1.page2.Enabled = .T.
			Thisform._pageframe1.page2.Refresh()
			Thisform._pageframe1.page3.Enabled = .T.
			Thisform._pageframe1.page3.Refresh()
			Thisform._pageframe1.page4.Enabled = .T.
			Thisform._pageframe1.page4.Refresh()
			Thisform._pageframe1.page5.Enabled = .T.
			Thisform._pageframe1.page5.Refresh()
			This.Parent.cmdVerificaCUI.Enabled = .T.
			This.Parent.cmdExport.Enabled = .T.
			This.Enabled = .F.
			
			thisform._pageframe1.page2.but_exclam.Picture = IIF('facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, "CHECKMRK.ICO", "EXCLAM.ICO")
			thisform._pageframe1.page2.but_exclam.cPictureDown = thisform._pageframe1.page2.but_exclam.Picture
			thisform._pageframe1.page2.but_exclam.cPictureUp = thisform._pageframe1.page2.but_exclam.Picture
			
			thisform._pageframe1.page2.grdExtraFacturiEmise.setup()
			
			Select crsFdocTip
			Locate For Empty(Nvl(tip_doc, ''))
			If Found()
				This.Parent.lblFdocTip.Visible = .T.
				lcMesaj = lcMesaj + This.Parent.lblFdocTip.Caption + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			ENDIF
			
			lcMesaj = lcMesaj + '1. Verificati paginile I. Alte informatii!' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'In pagina I.2, tabelul 2.2 sunt plajele continue de numere de facturi emise. Daca sunt goluri trebuie sa introduceti facturile anulate din Terti > Clienti > Factura anulata!' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + IIF(!'facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, 'ATENTIE! Sunt facturi emise in afara plajelor de facturi alocate!!!', 'Nu sunt facturi emise in afara plajelor de facturi alocate.') + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '2. Verificati pagina Facturi pentru verificarea pe Ministerul de Finante a platitorilor de TVA' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '3. Apasati butonul "3. Export PDF"' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '4. PDF: Verificati toate sectiunile din PDF' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '5. PDF: Completati produsele pentru facturile cu taxare inversa' + CHR(13) + CHR(10)	
			lcMesaj = lcMesaj + '6. PDF: Completati datele despre reprezentant si intocmit ' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '7. PDF: Apasati butonul "VALIDARE"'	 + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '8. Suplimentar, verificati fisierul D394.xml generat de PDF inteligent. Apasati butonul "4. VALIDARE XML"'+ CHR(13) + CHR(10)+ CHR(13) + CHR(10)
		
			lcMesaj = lcMesaj + 'In perioada 07-09/2016 se declara doar operatiile cu persoane impozabile (RO)' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'In perioada 07-09/2016 NU se declara bonurile de casa fara cod fiscal (Rapoarte Z)' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'Pana pe 31.12.2016 nu este obligatoriu CNP pentru facturile catre persoane fizice < 10.000 lei'
				
			AMESSAGEBOX(m.lcMesaj,0+64,_screen.Caption)
			
			This.Parent.cmdVerificaCUI.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdExport.Click
		Thisform.oParent.do_executa()
		This.Parent.cmdVerificaXML.Enabled = .T.
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdVerificaCUI.Click
		thisform._pageframe1.page4.Activate()
		thisform._pageframe1.page4.SetFocus()
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdVerificaXML.Click
		Thisform.oParent.do_verifica_xml()
		
	ENDPROC

	PROCEDURE _pageframe1.Page1.grdTipDoc.Init
		* Colorez cu rosu boldat fel document fara tip document asociat
		this.SetAll("DynamicForeColor","IIF(crsFdocTip.bifa = 1, RGB(255,0,0), RGB(0,0,0))","Column")
		this.SetAll("DynamicFontBold","crsFdocTip.bifa = 1","Column")
	ENDPROC

	PROCEDURE _pageframe1.Page1.optPJIntocmit.Valid
		LOCAL llEnabledPF, llEnabledPJ
		
		llEnabledPF = (this.Value = 1)
		llEnabledPJ = (this.Value = 2)
		this.Parent.lblCalitatePJ.Enabled = m.llEnabledPJ
		this.Parent.txtCalitateIntocmit.Enabled = m.llEnabledPJ
		this.Parent.lblFunctiePF.Enabled = m.llEnabledPF
		this.Parent.txtFunctieIntocmit.Enabled = m.llEnabledPF
		this.Parent.lblCalitatePF.Enabled = m.llEnabledPF
		this.Parent.txtCalitate2Intocmit.Enabled = m.llEnabledPF
		
		this.Parent.Refresh()
	ENDPROC

	PROCEDURE _pageframe1.Page2.Activate
		this.grdFacturiEmiseTip.AfterRowColChange()
	ENDPROC

	PROCEDURE _pageframe1.Page2.but_exclam.Click
		AMESSAGEBOX(poUnitate.cTextFacturiEmiseAlocate)
	ENDPROC

	PROCEDURE _pageframe1.Page2.grdFacturiEmiseTip.AfterRowColChange
		LPARAMETERS nColIndex
		IF crsFacturiEmiseTip.tip = 'AUTOFACTURA'
			THIs.Parent.grdAutoFacturi.Visible = .T.
			this.Parent.lblAutofacturi.Visible = .T.
			SET FILTER TO seria = crsFacturiEmiseTip.seria AND nr = crsFacturiEmiseTip.nr IN crsAutoFacturi
			THIs.Parent.grdAutoFacturi.Refresh()
		ELSE 	
			THIs.Parent.grdAutoFacturi.Visible = .F.
			this.Parent.lblAutofacturi.Visible = .F.	
			SET FILTER TO IN crsAutoFacturi  
		ENDIF 
		
	ENDPROC

	PROCEDURE _pageframe1.Page4.Activate
		IF !PEMSTATUS(thisform, 'lPage4GridExtraActivated',5)
			this.gridextra1.setup()
			THIS._grdfooter1.attachtogrid(This.grdJTVA)
			This._grdfooter1.calctotal()
			thisform.AddProperty('lPage4GridExtraActivated',.T.)
			this.grdJTVA.HeaderHeight = 35
		ENDIF 	
	ENDPROC

	PROCEDURE _pageframe1.Page4.Gridextra1.applyfilter
		DODEFAULT()
		this.Parent._grdfooter1.calctotal()
	ENDPROC

	PROCEDURE _pageframe1.Page4.Gridextra1.clearfilter
		DODEFAULT()
		this.Parent._grdfooter1.calctotal()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl394_2025 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="_pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTvaNedeductibil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cboTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkTVAIncasare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOptiune" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkOperatiuni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.chkAfiliat" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdTipDoc.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdCitesteDate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.grdSeriiFacturi.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaCUI" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdVerificaXML" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.cmdExport" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFdocTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label14" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitateRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePJ" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblFunctiePF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.lblCalitatePF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label17" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1._label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtNrAMEF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.ttDenRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtAdrRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTelRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFaxRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtEmailRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtDenIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCUIIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtTipRepr" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitateIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtFunctieIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.txtCalitate2Intocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page1.optPJIntocmit" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdSectiuneaI.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiAlocate.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdFacturiEmise.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.txtNrFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdAutoFacturi.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.lblAutofacturi" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._grdbase1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.but_exclam" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page2.grdExtraFacturiEmise" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI4.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.grdSectiuneaI6.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._label11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTIBaza.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTITVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza09.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza05.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cBaza00.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA24.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA20.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA19.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA09.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTVA05.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column33.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column34.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column35.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column36.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column37.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column38.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column39.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column40.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column41.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column43.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column44.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column45.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO24T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO19T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO09T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cRO05T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column52.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column53.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.cTotal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column55.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column55.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column56.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column56.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column57.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column57.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column58.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column58.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column59.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column59.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column60.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column60.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column61.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column61.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column62.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column62.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column63.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column63.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column64.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.grdJTVA.Column64.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4._label7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4.But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page4._grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column16.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column16.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5.grdCrsamef.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page5._label7" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccaen
		*p: ccalintoc
		*p: cfpropr
		*p: cjudet
		*p: ctip
		*p: oparent
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ccaen = 
		ccalintoc = 
		cfpropr = 
		cjudet = 
		ctip = 
		DoCreate = .T.
		Height = 465
		Name = "frm_decl394_2025"
		oparent = .NULL.
		Width = 789
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="oparent" display="oParent"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 790
		_shape1.ZOrderSet = 1
		_shape2.Height = 29
		_shape2.Left = 758
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 37
		_shape2.ZOrderSet = 2
		Lb_titlu_alb_b121.Caption = "Declaratie informativa privind livrarile si achizitiile efectuate pe teritoriul national D394"
		Lb_titlu_alb_b121.FontSize = 11
		Lb_titlu_alb_b121.Left = 4
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 3
		Lb_titlu_alb_b121.Top = 6
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 758
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 1
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 4
		Gridsort1.Left = 216
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 8
	*</PropValue>

	ADD OBJECT '_pageframe1' AS _pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 440, ;
		Left = 0, ;
		Name = "_pageframe1", ;
		PageCount = 5, ;
		TabIndex = 2, ;
		Top = 27, ;
		Width = 790, ;
		Page1.Caption = "Setari", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "I. Alte informatii pct. 1 si 2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "I. Alte informatii pct. 4, 5 si 6", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Facturi", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "AMEF / exc. AMEF / Facturi pers. fizice", ;
		Page5.Name = "Page5"
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT '_pageframe1.Page1._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "Se exporta sectiunea I", ;
		ControlSource = "pounitate.ExportSectiuneaI", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 347, ;
		Name = "_checkbox1", ;
		TabIndex = 23, ;
		ToolTipText = "Sectiunea I nu se exporta pana in luna 10/2016", ;
		Top = 33, ;
		Value = 1, ;
		Width = 162, ;
		WordWrap = .T., ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1._label1' AS _label WITH ;
		Caption = "Tip platitor", ;
		Left = 8, ;
		Name = "_label1", ;
		TabIndex = 24, ;
		Top = 5, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label10' AS _label WITH ;
		Caption = "eMail", ;
		FontBold = .T., ;
		Left = 11, ;
		Name = "_label10", ;
		TabIndex = 33, ;
		Top = 124, ;
		ZOrderSet = 22
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label11' AS _label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Reprezentant", ;
		FontBold = .T., ;
		ForeColor = 0,91,183, ;
		Left = 11, ;
		Name = "_label11", ;
		TabIndex = 40, ;
		Top = 61, ;
		ZOrderSet = 31
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label12' AS _label WITH ;
		Caption = "Denumire", ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "_label12", ;
		TabIndex = 34, ;
		Top = 171, ;
		ZOrderSet = 23
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label13' AS _label WITH ;
		Caption = "CUI/CNP", ;
		FontBold = .T., ;
		Left = 290, ;
		Name = "_label13", ;
		TabIndex = 35, ;
		Top = 171, ;
		ZOrderSet = 24
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label14' AS _label WITH ;
		Caption = "Nr. AMEF", ;
		FontBold = .T., ;
		Left = 192, ;
		Name = "_label14", ;
		TabIndex = 31, ;
		Top = 50, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label17' AS _label WITH ;
		BackColor = 255,255,255, ;
		BackStyle = 1, ;
		Caption = "Intocmit", ;
		FontBold = .T., ;
		ForeColor = 0,91,183, ;
		Left = 12, ;
		Name = "_label17", ;
		TabIndex = 41, ;
		Top = 149, ;
		ZOrderSet = 30
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label2' AS _label WITH ;
		AutoSize = .F., ;
		Caption = "Serii facturi autofacturare / emise de beneficiari / emise de terti", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 340, ;
		Name = "_label2", ;
		TabIndex = 25, ;
		Top = 250, ;
		Width = 358, ;
		WordWrap = .T., ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label3' AS _label WITH ;
		AutoSize = .F., ;
		Caption = "Feluri document din Registrele TVA", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 11, ;
		Name = "_label3", ;
		TabIndex = 26, ;
		Top = 255, ;
		Width = 225, ;
		WordWrap = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label4' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "Se configureaza din meniul Initializare > Configurare serii > Facturi", ;
		FontBold = .F., ;
		Height = 18, ;
		Left = 347, ;
		Name = "_label4", ;
		TabIndex = 28, ;
		Top = 383, ;
		Width = 383, ;
		WordWrap = .T., ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label5' AS _label WITH ;
		Caption = "Denumire", ;
		FontBold = .T., ;
		Left = 10, ;
		Name = "_label5", ;
		TabIndex = 29, ;
		Top = 80, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label6' AS _label WITH ;
		Caption = "Adresa", ;
		FontBold = .T., ;
		Left = 10, ;
		Name = "_label6", ;
		TabIndex = 30, ;
		Top = 102, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label7' AS _label WITH ;
		Caption = "CUI/CNP", ;
		FontBold = .T., ;
		Left = 326, ;
		Name = "_label7", ;
		TabIndex = 31, ;
		Top = 80, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label8' AS _label WITH ;
		Caption = "Telefon", ;
		FontBold = .T., ;
		Left = 514, ;
		Name = "_label8", ;
		TabIndex = 39, ;
		Top = 102, ;
		ZOrderSet = 28
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._label9' AS _label WITH ;
		Caption = "FAX", ;
		FontBold = .T., ;
		Left = 326, ;
		Name = "_label9", ;
		TabIndex = 32, ;
		Top = 102, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1._shape1' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 82, ;
		Left = 6, ;
		Name = "_shape1", ;
		Top = 70, ;
		Width = 696, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_pageframe1.Page1._shape2' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 63, ;
		Left = 6, ;
		Name = "_shape2", ;
		Top = 157, ;
		Width = 696, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_pageframe1.Page1.cboTip' AS combobox WITH ;
		ControlSource = "poUnitate.tip", ;
		Left = 8, ;
		Name = "cboTip", ;
		RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ;
		RowSourceType = 1, ;
		Style = 2, ;
		TabIndex = 1, ;
		Top = 21, ;
		Value = LUNAR, ;
		Width = 173, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT '_pageframe1.Page1.chkAfiliat' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Operatiuni cu persoane afiliate", ;
		ControlSource = "pounitate.PersoaneAfiliate", ;
		Enabled = .T., ;
		Left = 511, ;
		Name = "chkAfiliat", ;
		TabIndex = 3, ;
		ToolTipText = "Operatiuni cu persoane afiliate", ;
		Top = 49, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkOperatiuni' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Operatiuni in perioada", ;
		ControlSource = "pounitate.operatiuni", ;
		Left = 191, ;
		Name = "chkOperatiuni", ;
		TabIndex = 3, ;
		ToolTipText = "Operatiuni in perioada", ;
		Top = 15, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkOptiune' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Acord consultare D394", ;
		ControlSource = "pounitate.optiuneANAF", ;
		Left = 347, ;
		Name = "chkOptiune", ;
		TabIndex = 3, ;
		ToolTipText = "Acord consultare D394 de catre clienti/furnizori", ;
		Top = 49, ;
		ZOrderSet = 7
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkTVAIncasare' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Sistem TVA Incasare", ;
		ControlSource = "pounitate.tvaincasare", ;
		Left = 191, ;
		Name = "chkTVAIncasare", ;
		TabIndex = 2, ;
		ToolTipText = "Sistem TVA Incasare", ;
		Top = 1, ;
		ZOrderSet = 6
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.chkTvaNedeductibil' AS _checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .F., ;
		Caption = "Inclusiv achizitii TVA nedeductibil", ;
		ControlSource = "pounitate.tvanedeductibil", ;
		FontBold = .T., ;
		ForeColor = 255,0,0, ;
		Height = 17, ;
		Left = 191, ;
		Name = "chkTvaNedeductibil", ;
		TabIndex = 4, ;
		ToolTipText = 'Se includ sumele de pe coloana "Ach. de bunuri din RO scutite sau neimpozab." din Registrul de Cumparari', ;
		Top = 30, ;
		Value = 0, ;
		Visible = .F., ;
		Width = 204, ;
		WordWrap = .T., ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page1.cmdCitesteDate' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "1. Citeste \<date", ;
		Height = 29, ;
		Left = 344, ;
		Name = "cmdCitesteDate", ;
		TabIndex = 5, ;
		Top = 5, ;
		Width = 112, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdExport' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "3. \<Export PDF", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 568, ;
		Name = "cmdExport", ;
		TabIndex = 7, ;
		Top = 5, ;
		Width = 108, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdVerificaCUI' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = do_citeste_date, ;
		Caption = "2. \<Verifica CUI", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 456, ;
		Name = "cmdVerificaCUI", ;
		TabIndex = 6, ;
		Top = 5, ;
		Width = 112, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.cmdVerificaXML' AS cmd_executa WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		BackColor = 113,184,255, ;
		caction = , ;
		Caption = "4. Validare \<PDF", ;
		Enabled = .F., ;
		Height = 29, ;
		Left = 676, ;
		Name = "cmdVerificaXML", ;
		TabIndex = 7, ;
		ToolTipText = "Validare fisier D394.xml cu validatorul ANAF DUKIntegrator. Trebuie salvat intai fisierul D394.xml din PDF-ul inteligent!", ;
		Top = 5, ;
		Width = 105, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi' AS _grdbase WITH ;
		Anchor = 7, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 109, ;
		Left = 340, ;
		Name = "grdSeriiFacturi", ;
		Panel = 1, ;
		RecordSource = "crsSeriiFacturi", ;
		TabIndex = 22, ;
		Top = 272, ;
		Width = 381, ;
		ZOrderSet = 12, ;
		Column1.ControlSource = "tip", ;
		Column1.Name = "Column1", ;
		Column1.Width = 89, ;
		Column2.ControlSource = "seria", ;
		Column2.Name = "Column2", ;
		Column2.Width = 88, ;
		Column3.ControlSource = "descriere", ;
		Column3.Name = "Column3", ;
		Column3.Width = 168
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip serie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Descriere", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdSeriiFacturi.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc' AS _grdbase WITH ;
		Anchor = 7, ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 111, ;
		Left = 8, ;
		Name = "grdTipDoc", ;
		Panel = 1, ;
		RecordSource = "crsFdocTip", ;
		TabIndex = 21, ;
		Top = 273, ;
		Width = 320, ;
		ZOrderSet = 8, ;
		Column1.ControlSource = "fel_document", ;
		Column1.Name = "Column1", ;
		Column1.Width = 149, ;
		Column2.ControlSource = "tip_doc", ;
		Column2.Name = "Column2", ;
		Column2.Width = 135
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page1.grdTipDoc.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.lblCalitatePF' AS _label WITH ;
		Caption = "Alta calitate PF", ;
		FontBold = .T., ;
		Left = 481, ;
		Name = "lblCalitatePF", ;
		TabIndex = 42, ;
		Top = 193, ;
		ZOrderSet = 29
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblCalitatePJ' AS _label WITH ;
		Caption = "Calitate PJ", ;
		Enabled = .F., ;
		FontBold = .T., ;
		Left = 12, ;
		Name = "lblCalitatePJ", ;
		TabIndex = 37, ;
		Top = 193, ;
		ZOrderSet = 26
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblCalitateRepr' AS _label WITH ;
		Caption = "Calitate", ;
		FontBold = .T., ;
		Left = 514, ;
		Name = "lblCalitateRepr", ;
		TabIndex = 36, ;
		Top = 79, ;
		ZOrderSet = 25
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblFdocTip' AS _label WITH ;
		AutoSize = .T., ;
		Caption = "Verificati felurile de document fara tip! Acestea nu se iau in considerare in D394!!!", ;
		FontBold = .T., ;
		ForeColor = 255,0,0, ;
		Height = 34, ;
		Left = 11, ;
		Name = "lblFdocTip", ;
		TabIndex = 27, ;
		Top = 224, ;
		Visible = .F., ;
		Width = 301, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.lblFunctiePF' AS _label WITH ;
		Caption = "Functie PF", ;
		FontBold = .T., ;
		Left = 280, ;
		Name = "lblFunctiePF", ;
		TabIndex = 38, ;
		Top = 193, ;
		ZOrderSet = 27
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page1.optPJIntocmit' AS _optiongrup WITH ;
		AutoSize = .T., ;
		ControlSource = "poUnitate.PJIntocmit", ;
		Height = 27, ;
		Left = 517, ;
		Name = "optPJIntocmit", ;
		TabIndex = 17, ;
		Top = 166, ;
		Width = 179, ;
		ZOrderSet = 44, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Pers. fizica", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Pers. juridica", ;
		Option2.Left = 84, ;
		Option2.Name = "Option2", ;
		Option2.Top = 5
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT '_pageframe1.Page1.ttDenRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.DenRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "ttDenRepr", ;
		TabIndex = 8, ;
		Top = 77, ;
		Width = 191, ;
		ZOrderSet = 32
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtAdrRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.AdrRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "txtAdrRepr", ;
		TabIndex = 11, ;
		Top = 99, ;
		Width = 239, ;
		ZOrderSet = 33
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCalitate2Intocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.Calitate2Intocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 578, ;
		Name = "txtCalitate2Intocmit", ;
		TabIndex = 20, ;
		Top = 190, ;
		Width = 118, ;
		ZOrderSet = 43
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCalitateIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.CalitateIntocmit", ;
		Enabled = .F., ;
		Format = "K", ;
		Height = 23, ;
		Left = 84, ;
		Name = "txtCalitateIntocmit", ;
		TabIndex = 18, ;
		Top = 190, ;
		Width = 159, ;
		ZOrderSet = 41
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCUIIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.CUIIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 348, ;
		Name = "txtCUIIntocmit", ;
		TabIndex = 16, ;
		Top = 168, ;
		Width = 127, ;
		ZOrderSet = 39
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtCUIRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.CUIRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 383, ;
		Name = "txtCUIRepr", ;
		TabIndex = 9, ;
		Top = 77, ;
		Width = 120, ;
		ZOrderSet = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtDenIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.DenIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 84, ;
		Name = "txtDenIntocmit", ;
		TabIndex = 15, ;
		Top = 168, ;
		Width = 195, ;
		ZOrderSet = 38
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtEmailRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.EmailRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 77, ;
		Name = "txtEmailRepr", ;
		TabIndex = 14, ;
		Top = 121, ;
		Width = 162, ;
		ZOrderSet = 37
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtFaxRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.FAXRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 383, ;
		Name = "txtFaxRepr", ;
		TabIndex = 12, ;
		Top = 99, ;
		Width = 120, ;
		ZOrderSet = 36
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtFunctieIntocmit' AS _textbox WITH ;
		ControlSource = "poUnitate.FunctieIntocmit", ;
		Format = "K", ;
		Height = 23, ;
		Left = 348, ;
		Name = "txtFunctieIntocmit", ;
		TabIndex = 19, ;
		Top = 190, ;
		Width = 127, ;
		ZOrderSet = 42
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtNrAMEF' AS _textbox WITH ;
		ControlSource = "poUnitate.nrAMEF", ;
		Format = "K", ;
		Height = 23, ;
		Left = 251, ;
		Name = "txtNrAMEF", ;
		TabIndex = 9, ;
		ToolTipText = "Numar AMEF", ;
		Top = 47, ;
		Width = 54, ;
		ZOrderSet = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtTelRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.TelRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 570, ;
		Name = "txtTelRepr", ;
		TabIndex = 13, ;
		Top = 99, ;
		Width = 120, ;
		ZOrderSet = 35
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page1.txtTipRepr' AS _textbox WITH ;
		ControlSource = "poUnitate.TipRepr", ;
		Format = "K", ;
		Height = 23, ;
		Left = 570, ;
		Name = "txtTipRepr", ;
		TabIndex = 10, ;
		Top = 77, ;
		Width = 120, ;
		ZOrderSet = 40
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 76, ;
		Left = 357, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "crsFacturiTerti", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 317, ;
		Width = 365, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 68, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 97, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 105, ;
		Column4.ColumnOrder = 1, ;
		Column4.ControlSource = "punct", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.Width = 59, ;
		Column5.ControlSource = "denumire", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.Width = 154, ;
		Column6.ControlSource = "cod_fiscal", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.Width = 121
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CUI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2._grdbase1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2._label1' AS _label WITH ;
		Anchor = 0, ;
		AutoSize = .T., ;
		Caption = "2.1 Plaja de facturi alocate in perioada de facturare", ;
		Height = 18, ;
		Left = 359, ;
		Name = "_label1", ;
		Top = 10, ;
		Width = 293, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label2' AS _label WITH ;
		Anchor = 0, ;
		AutoSize = .F., ;
		Caption = "2.2 Numarul total de facturi emise, in perioada de raportare, din plaja de facturi alocate:", ;
		Height = 32, ;
		Left = 357, ;
		Name = "_label2", ;
		Top = 203, ;
		Width = 255, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label3' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "2.2 din care (Tip: stornate/ anulate/ autofacturare/ emisa in numele furnizorilor)", ;
		Height = 32, ;
		Left = 11, ;
		Name = "_label3", ;
		Top = 163, ;
		Width = 311, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label4' AS _label WITH ;
		AutoSize = .T., ;
		Caption = "1.1 - 1.4 Facturi simplificate si 1.5 Bonuri fiscale cu cod fiscal", ;
		Height = 34, ;
		Left = 11, ;
		Name = "_label4", ;
		Top = 10, ;
		Width = 299, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2._label5' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .F., ;
		Caption = "2.3 / 2.4 Numarul total de facturi emise, in perioada de raportare, de beneficiari/terti in numele persoanei impozabile:", ;
		Height = 32, ;
		Left = 357, ;
		Name = "_label5", ;
		Top = 281, ;
		Width = 371, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2.but_exclam' AS but_help WITH ;
		cpicturedown = exclam.ico, ;
		cpictureup = exclam.ico, ;
		Height = 36, ;
		Left = 685, ;
		Name = "but_exclam", ;
		Picture = ..\comun\grafice\exclam.ico, ;
		ToolTipText = "Numere facturi emise care nu sunt in plajele de facturi alocate!", ;
		Top = 201, ;
		Width = 40
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 14, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 76, ;
		Left = 11, ;
		Name = "grdAutoFacturi", ;
		Panel = 1, ;
		RecordSource = "crsAutoFacturi", ;
		RowHeight = 19, ;
		ScrollBars = 1, ;
		Top = 317, ;
		Width = 274, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "baza05", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 93, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "tva05", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 93, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "baza09", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 73, ;
		Column4.ControlSource = "tva09", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "baza19", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column6.ControlSource = "tva19", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column7.ControlSource = "baza20", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column8.ControlSource = "tva20", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column9.ControlSource = "baza24", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column10.ControlSource = "tva24", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column11.ControlSource = "baza21", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column12.ControlSource = "tva21", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column13.ControlSource = "baza11", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column14.ControlSource = "tva11", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza21", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA21", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "BAZA11", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA11", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdAutoFacturi.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdExtraFacturiEmise' AS gridextra WITH ;
		gridexpression = thisform._pageframe1.page2.grdFacturiEmise, ;
		Left = 731, ;
		Name = "grdExtraFacturiEmise", ;
		productname = ROA, ;
		Top = 255
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate' AS _grdbase WITH ;
		Anchor = 0, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 167, ;
		Left = 357, ;
		Name = "grdFacturiAlocate", ;
		Panel = 1, ;
		RecordSource = "crsFacturiAlocate", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 28, ;
		Width = 367, ;
		Column1.ControlSource = "crsFacturiAlocate.seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 80, ;
		Column2.ControlSource = "crsFacturiAlocate.nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 135, ;
		Column3.ControlSource = "crsFacturiAlocate.nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 117
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiAlocate.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise' AS _grdbase WITH ;
		Anchor = 5, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 40, ;
		Left = 357, ;
		Name = "grdFacturiEmise", ;
		Panel = 1, ;
		RecordSource = "crsFacturiEmise", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 237, ;
		Width = 365, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 78, ;
		Column2.ControlSource = "nr1", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 135, ;
		Column3.ControlSource = "nr2", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 117
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inceput", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. sfarsit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmise.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip' AS _grdbase WITH ;
		Anchor = 4, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 98, ;
		Left = 11, ;
		Name = "grdFacturiEmiseTip", ;
		Panel = 1, ;
		RecordSource = "crsFacturiEmiseTip", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 197, ;
		Width = 316, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "seria", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 93, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nr", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 102, ;
		Column3.ColumnOrder = 1, ;
		Column3.ControlSource = "tip", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 86
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Seria", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Numar", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdFacturiEmiseTip.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI' AS _grdbase WITH ;
		Anchor = 5, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 98, ;
		Left = 11, ;
		Name = "grdSectiuneaI", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI", ;
		RowHeight = 19, ;
		ScrollBars = 2, ;
		Top = 53, ;
		Width = 319, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 62, ;
		Column2.ControlSource = "proctva", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 60, ;
		Column3.ControlSource = "baza", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ControlSource = "tva", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cota TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page2.grdSectiuneaI.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page2.lblAutofacturi' AS _label WITH ;
		Anchor = 4, ;
		AutoSize = .T., ;
		Caption = "2.2 Detalii autofacturi", ;
		Height = 18, ;
		Left = 11, ;
		Name = "lblAutofacturi", ;
		Top = 296, ;
		Width = 122, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page2.txtNrFacturiEmise' AS _textbox WITH ;
		Anchor = 0, ;
		ControlSource = "poUnitate.nr_facturi_emise", ;
		Format = "RK", ;
		Height = 23, ;
		Left = 623, ;
		Name = "txtNrFacturiEmise", ;
		Top = 208, ;
		Width = 60
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3._label1' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "4.1 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label1", ;
		Top = 43, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label10' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		Caption = "6.2 Persoanele impozabile care aplica regimul special pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ;
		FontSize = 8, ;
		Height = 30, ;
		Left = 298, ;
		Name = "_label10", ;
		Top = 342, ;
		Width = 426, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label11' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "6. Agentii turism si Second Hand TVA colectata", ;
		Height = 18, ;
		Left = 10, ;
		Name = "_label11", ;
		Top = 281, ;
		Width = 274, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label2' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.1 TVA colectata aferenta facturilor incasate in perioada de raportare indiferent de data in care acestea au fost emise de catre persoana impozabila care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label2", ;
		Top = 116, ;
		Width = 430, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label3' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.2 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul normal de TVA, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label3", ;
		Top = 160, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label4' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "4. TVA exigibil sistem normal de TVA", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 299, ;
		Name = "_label4", ;
		Top = 27, ;
		Width = 205, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label5' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5.3 TVA deductibila aferenta facturilor achitate in perioada de raportare indiferent de data in care acestea au fost primite de la persoane impozabile care aplica sistemul de TVA la incasare, defalcata pe fiecare cota de TVA", ;
		FontSize = 8, ;
		Height = 47, ;
		Left = 299, ;
		Name = "_label5", ;
		Top = 204, ;
		Width = 414, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label6' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "5. TVA exigibil sistemul TVA la Incasare", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 299, ;
		Name = "_label6", ;
		Top = 101, ;
		Width = 221, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "4. si 5. TVA exigibil", ;
		Height = 18, ;
		Left = 11, ;
		Name = "_label7", ;
		Top = 21, ;
		Width = 111, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label8' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .F., ;
		Caption = "6. TVA colectata aferenta marjei de profit agentiile de turism, pt bunurile second-hand, opere de arta, obiecte de colectie si antichitati", ;
		FontBold = .T., ;
		Height = 32, ;
		Left = 298, ;
		Name = "_label8", ;
		Top = 287, ;
		Width = 407, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._label9' AS _label WITH ;
		Anchor = 9, ;
		AutoSize = .T., ;
		Caption = "6.1 Persoanele impozabile care aplica regimul special pt agentiile de turism", ;
		FontSize = 8, ;
		Height = 16, ;
		Left = 298, ;
		Name = "_label9", ;
		Top = 320, ;
		Width = 356, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4' AS _grdbase WITH ;
		Anchor = 11, ;
		ColumnCount = 8, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 110, ;
		Left = 11, ;
		Name = "grdSectiuneaI4", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI4", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 42, ;
		Width = 234, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 62, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "tva24", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 85, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "tva20", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "tva19", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "tva09", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "tva05", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column7.ColumnOrder = 2, ;
		Column7.ControlSource = "tva21", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column8.ColumnOrder = 4, ;
		Column8.ControlSource = "tva11", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 9%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 5%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 21%", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 11%", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI4.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6' AS _grdbase WITH ;
		Anchor = 11, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		HeaderHeight = 19, ;
		Height = 86, ;
		Left = 10, ;
		Name = "grdSectiuneaI6", ;
		Panel = 1, ;
		RecordSource = "crsSectiuneaI6", ;
		RowHeight = 19, ;
		ScrollBars = 3, ;
		Top = 302, ;
		Width = 240, ;
		Column1.ControlSource = "punct", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Width = 59, ;
		Column2.ControlSource = "incasari", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Width = 77, ;
		Column3.ControlSource = "costuri", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Width = 84, ;
		Column4.ControlSource = "marja", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "tva", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sectiunea", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasari / Pret vanzare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Costuri / Pret cumparare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marja profit", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.grdSectiuneaI6.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4._grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cFdoc, ;
		Comment = "*:OnResize=sb", ;
		csourcegrid = grdJTVA, ;
		csumcolumns = cBaza,cTVA,cTIBaza,cTITVA,cBaza24,cBaza20,cBaza19,cBaza09,cBaza05,cBaza00,cTVA24,cTVA20,cTVA19,cTVA09,cTVA05,cRO24T,cRO20T,cRO19T,cRO09T,cRO05T, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 35, ;
		Left = 3, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 352, ;
		Width = 764, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page4._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .F., ;
		Caption = "Documente Registre TVA", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 10, ;
		Name = "_label7", ;
		Top = 10, ;
		Width = 141, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page4.But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 736, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 2
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 64, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		HeaderHeight = 38, ;
		Height = 323, ;
		Left = 3, ;
		Name = "grdJTVA", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsjtva", ;
		RecordSourceType = 1, ;
		RowHeight = 19, ;
		Top = 29, ;
		Width = 764, ;
		Column1.ColumnOrder = 3, ;
		Column1.ControlSource = "crsjtva.tippart", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column2.ColumnOrder = 5, ;
		Column2.ControlSource = "crsjtva.tipdoc", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "crsjtva.tip", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 43, ;
		Column4.ColumnOrder = 10, ;
		Column4.ControlSource = "crsjtva.dataact", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column5.ColumnOrder = 12, ;
		Column5.ControlSource = "crsjtva.serie_act", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.ColumnOrder = 13, ;
		Column6.ControlSource = "crsjtva.nract", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.ColumnOrder = 63, ;
		Column7.ControlSource = "crsjtva.id_fdoc", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T., ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "crsjtva.fel_document", ;
		Column8.FontSize = 10, ;
		Column8.Name = "cFdoc", ;
		Column8.ReadOnly = .T., ;
		Column9.ColumnOrder = 62, ;
		Column9.ControlSource = "crsjtva.id_sucursala", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .T., ;
		Column10.ColumnOrder = 61, ;
		Column10.ControlSource = "crsjtva.sucursala", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .T., ;
		Column11.ColumnOrder = 16, ;
		Column11.ControlSource = "crsjtva.iscif", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .T., ;
		Column11.ToolTipText = "0 = CNP/fara CIF, 1 = CIF", ;
		Column11.Width = 29, ;
		Column12.ColumnOrder = 17, ;
		Column12.ControlSource = "crsjtva.cifvalid", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 53, ;
		Column13.ColumnOrder = 64, ;
		Column13.ControlSource = "crsjtva.id_part", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column14.ColumnOrder = 15, ;
		Column14.ControlSource = "crsjtva.cod_fiscal", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 88, ;
		Column15.ColumnOrder = 59, ;
		Column15.ControlSource = "crsjtva.cod_fiscalfro", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .T., ;
		Column16.ColumnOrder = 60, ;
		Column16.ControlSource = "crsjtva.atribut_fiscal", ;
		Column16.FontSize = 10, ;
		Column16.Name = "Column16", ;
		Column16.ReadOnly = .T., ;
		Column17.ColumnOrder = 14, ;
		Column17.ControlSource = "crsjtva.denumire", ;
		Column17.FontSize = 10, ;
		Column17.Name = "Column17", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 142, ;
		Column18.ColumnOrder = 19, ;
		Column18.ControlSource = "crsjtva.baza", ;
		Column18.FontSize = 10, ;
		Column18.Format = "R", ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cBaza", ;
		Column18.ReadOnly = .T., ;
		Column19.ColumnOrder = 20, ;
		Column19.ControlSource = "crsjtva.tva", ;
		Column19.FontSize = 10, ;
		Column19.Format = "R", ;
		Column19.InputMask = (get_mask(12,gnZ)), ;
		Column19.Name = "cTVA", ;
		Column19.ReadOnly = .T., ;
		Column20.ColumnOrder = 21, ;
		Column20.ControlSource = "crsjtva.tibaza", ;
		Column20.FontSize = 10, ;
		Column20.Format = "R", ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cTIBaza", ;
		Column20.ReadOnly = .T., ;
		Column21.ColumnOrder = 22, ;
		Column21.ControlSource = "crsjtva.titva", ;
		Column21.FontSize = 10, ;
		Column21.Format = "R", ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cTITVA", ;
		Column21.ReadOnly = .T., ;
		Column22.ColumnOrder = 25, ;
		Column22.ControlSource = "crsjtva.baza24", ;
		Column22.FontSize = 10, ;
		Column22.Format = "R", ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cBaza24", ;
		Column22.ReadOnly = .T., ;
		Column23.ColumnOrder = 26, ;
		Column23.ControlSource = "crsjtva.baza20", ;
		Column23.FontSize = 10, ;
		Column23.Format = "R", ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cBaza20", ;
		Column23.ReadOnly = .T., ;
		Column24.ColumnOrder = 27, ;
		Column24.ControlSource = "crsjtva.baza19", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnZ)), ;
		Column24.Name = "cBaza19", ;
		Column24.ReadOnly = .T., ;
		Column25.ColumnOrder = 28, ;
		Column25.ControlSource = "crsjtva.baza09", ;
		Column25.FontSize = 10, ;
		Column25.Format = "R", ;
		Column25.InputMask = (get_mask(12,gnZ)), ;
		Column25.Name = "cBaza09", ;
		Column25.ReadOnly = .T., ;
		Column26.ColumnOrder = 29, ;
		Column26.ControlSource = "crsjtva.baza05", ;
		Column26.FontSize = 10, ;
		Column26.Format = "R", ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cBaza05", ;
		Column26.ReadOnly = .T., ;
		Column27.ColumnOrder = 30, ;
		Column27.ControlSource = "crsjtva.baza00", ;
		Column27.FontSize = 10, ;
		Column27.Format = "R", ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "cBaza00", ;
		Column27.ReadOnly = .T., ;
		Column28.ColumnOrder = 33, ;
		Column28.ControlSource = "crsjtva.tva24", ;
		Column28.FontSize = 10, ;
		Column28.Format = "R", ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cTVA24", ;
		Column28.ReadOnly = .T., ;
		Column29.ColumnOrder = 34, ;
		Column29.ControlSource = "crsjtva.tva20", ;
		Column29.FontSize = 10, ;
		Column29.Format = "R", ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cTVA20", ;
		Column29.ReadOnly = .T., ;
		Column30.ColumnOrder = 35, ;
		Column30.ControlSource = "crsjtva.tva19", ;
		Column30.FontSize = 10, ;
		Column30.Format = "R", ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cTVA19", ;
		Column30.ReadOnly = .T., ;
		Column31.ColumnOrder = 36, ;
		Column31.ControlSource = "crsjtva.tva09", ;
		Column31.FontSize = 10, ;
		Column31.Format = "R", ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cTVA09", ;
		Column31.ReadOnly = .T., ;
		Column32.ColumnOrder = 37, ;
		Column32.ControlSource = "crsjtva.tva05", ;
		Column32.FontSize = 10, ;
		Column32.Format = "R", ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cTVA05", ;
		Column32.ReadOnly = .T., ;
		Column33.ColumnOrder = 47, ;
		Column33.ControlSource = "crsjtva.tibaza24", ;
		Column33.FontSize = 10, ;
		Column33.Name = "Column33", ;
		Column33.ReadOnly = .T., ;
		Column34.ColumnOrder = 48, ;
		Column34.ControlSource = "crsjtva.tibaza20", ;
		Column34.FontSize = 10, ;
		Column34.Name = "Column34", ;
		Column34.ReadOnly = .T., ;
		Column35.ColumnOrder = 49, ;
		Column35.ControlSource = "crsjtva.tibaza19", ;
		Column35.FontSize = 10, ;
		Column35.Name = "Column35", ;
		Column35.ReadOnly = .T., ;
		Column36.ColumnOrder = 50, ;
		Column36.ControlSource = "crsjtva.tibaza09", ;
		Column36.FontSize = 10, ;
		Column36.Name = "Column36", ;
		Column36.ReadOnly = .T., ;
		Column37.ColumnOrder = 51, ;
		Column37.ControlSource = "crsjtva.tibaza05", ;
		Column37.FontSize = 10, ;
		Column37.Name = "Column37", ;
		Column37.ReadOnly = .T., ;
		Column38.ColumnOrder = 54, ;
		Column38.ControlSource = "crsjtva.titva24", ;
		Column38.FontSize = 10, ;
		Column38.Name = "Column38", ;
		Column38.ReadOnly = .T., ;
		Column39.ColumnOrder = 55, ;
		Column39.ControlSource = "crsjtva.titva20", ;
		Column39.FontSize = 10, ;
		Column39.Name = "Column39", ;
		Column39.ReadOnly = .T., ;
		Column40.ColumnOrder = 56, ;
		Column40.ControlSource = "crsjtva.titva19", ;
		Column40.FontSize = 10, ;
		Column40.Name = "Column40", ;
		Column40.ReadOnly = .T., ;
		Column41.ColumnOrder = 57, ;
		Column41.ControlSource = "crsjtva.titva09", ;
		Column41.FontSize = 10, ;
		Column41.Name = "Column41", ;
		Column41.ReadOnly = .T., ;
		Column42.ColumnOrder = 58, ;
		Column42.ControlSource = "crsjtva.titva05", ;
		Column42.FontSize = 10, ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .T., ;
		Column43.Alignment = 2, ;
		Column43.ColumnOrder = 7, ;
		Column43.ControlSource = "crsjtva.tva_incasare", ;
		Column43.CurrentControl = "Check1", ;
		Column43.FontSize = 10, ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .T., ;
		Column43.Sparse = .F., ;
		Column43.Width = 81, ;
		Column44.Alignment = 2, ;
		Column44.ColumnOrder = 8, ;
		Column44.ControlSource = "crsJTVA.FACT_TVA_INCASARE", ;
		Column44.CurrentControl = "Check1", ;
		Column44.FontSize = 10, ;
		Column44.Name = "Column44", ;
		Column44.ReadOnly = .T., ;
		Column44.Sparse = .F., ;
		Column44.Width = 89, ;
		Column45.ColumnOrder = 1, ;
		Column45.ControlSource = "crsJTVA.tipj", ;
		Column45.FontSize = 10, ;
		Column45.Name = "Column45", ;
		Column45.ReadOnly = .T., ;
		Column46.Alignment = 2, ;
		Column46.ColumnOrder = 2, ;
		Column46.ControlSource = "emisa_perioada", ;
		Column46.CurrentControl = "Check1", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cEmisaPerioada", ;
		Column46.ReadOnly = .T., ;
		Column46.Sparse = .F., ;
		Column47.ColumnOrder = 40, ;
		Column47.ControlSource = "RO24T", ;
		Column47.FontSize = 10, ;
		Column47.Format = "R", ;
		Column47.InputMask = (get_mask(12,gnZ)), ;
		Column47.Name = "cRO24T", ;
		Column47.ReadOnly = .T., ;
		Column48.ColumnOrder = 41, ;
		Column48.ControlSource = "RO20T", ;
		Column48.FontSize = 10, ;
		Column48.Format = "R", ;
		Column48.InputMask = (get_mask(12,gnZ)), ;
		Column48.Name = "cRO20T", ;
		Column48.ReadOnly = .T., ;
		Column49.ColumnOrder = 42, ;
		Column49.ControlSource = "RO19T", ;
		Column49.FontSize = 10, ;
		Column49.Format = "R", ;
		Column49.InputMask = (get_mask(12,gnZ)), ;
		Column49.Name = "cRO19T", ;
		Column49.ReadOnly = .T., ;
		Column50.ColumnOrder = 43, ;
		Column50.ControlSource = "RO09T", ;
		Column50.FontSize = 10, ;
		Column50.Format = "R", ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cRO09T", ;
		Column50.ReadOnly = .T., ;
		Column51.ColumnOrder = 44, ;
		Column51.ControlSource = "RO05T", ;
		Column51.FontSize = 10, ;
		Column51.Format = "R", ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cRO05T", ;
		Column51.ReadOnly = .T., ;
		Column52.ColumnOrder = 11, ;
		Column52.ControlSource = "crsjtva.dataireg", ;
		Column52.FontSize = 10, ;
		Column52.Name = "Column52", ;
		Column52.ReadOnly = .T., ;
		Column52.Width = 75, ;
		Column53.ColumnOrder = 4, ;
		Column53.ControlSource = "crsjtva.tip_persoana", ;
		Column53.FontSize = 10, ;
		Column53.Name = "Column53", ;
		Column53.ReadOnly = .T., ;
		Column53.ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ;
		Column53.Width = 65, ;
		Column54.ColumnOrder = 18, ;
		Column54.ControlSource = "crsjtva.baza + crsjtva.tva", ;
		Column54.FontSize = 10, ;
		Column54.Format = "R", ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "cTotal", ;
		Column54.ReadOnly = .T., ;
		Column54.Width = 74, ;
		Column55.ColumnOrder = 23, ;
		Column55.ControlSource = "crsjtva.baza21", ;
		Column55.FontSize = 10, ;
		Column55.Name = "Column55", ;
		Column55.ReadOnly = .T., ;
		Column56.ColumnOrder = 24, ;
		Column56.ControlSource = "crsjtva.baza11", ;
		Column56.FontSize = 10, ;
		Column56.Name = "Column56", ;
		Column56.ReadOnly = .T., ;
		Column57.ColumnOrder = 31, ;
		Column57.ControlSource = "crsjtva.tva21", ;
		Column57.FontSize = 10, ;
		Column57.Name = "Column57", ;
		Column57.ReadOnly = .T., ;
		Column58.ColumnOrder = 32, ;
		Column58.ControlSource = "crsjtva.tva11", ;
		Column58.FontSize = 10, ;
		Column58.Name = "Column58", ;
		Column58.ReadOnly = .T., ;
		Column59.ColumnOrder = 45, ;
		Column59.ControlSource = "crsjtva.tibaza21", ;
		Column59.FontSize = 10, ;
		Column59.Name = "Column59", ;
		Column59.ReadOnly = .T., ;
		Column60.ColumnOrder = 46, ;
		Column60.ControlSource = "crsjtva.tibaza11", ;
		Column60.FontSize = 10, ;
		Column60.Name = "Column60", ;
		Column60.ReadOnly = .T., ;
		Column61.ColumnOrder = 52, ;
		Column61.ControlSource = "crsjtva.titva21", ;
		Column61.FontSize = 10, ;
		Column61.Name = "Column61", ;
		Column61.ReadOnly = .T., ;
		Column62.ColumnOrder = 53, ;
		Column62.ControlSource = "crsjtva.titva11", ;
		Column62.FontSize = 10, ;
		Column62.Name = "Column62", ;
		Column62.ReadOnly = .T., ;
		Column63.ColumnOrder = 38, ;
		Column63.ControlSource = "RO21T", ;
		Column63.FontSize = 10, ;
		Column63.Name = "Column63", ;
		Column63.ReadOnly = .T., ;
		Column64.ColumnOrder = 39, ;
		Column64.ControlSource = "RO11T", ;
		Column64.FontSize = 10, ;
		Column64.Name = "Column64", ;
		Column64.ReadOnly = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 0%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza00.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza05.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza09.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza19.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza20.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cBaza24.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 49, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 59, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Emisa in perioada", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cEmisaPerioada.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip part.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Header1' AS header WITH ;
		Caption = "sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CIF", ;
		FontSize = 10, ;
		Name = "Header1", ;
		ToolTipText = "0 = CNP/fara CIF, 1 = CIF"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CIF valid", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Header1' AS header WITH ;
		Caption = "id_part", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Header1' AS header WITH ;
		Caption = "cod_fiscalfro", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column15.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Header1' AS header WITH ;
		Caption = "atribut_fiscal", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column16.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column17.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Header1' AS header WITH ;
		Caption = "tibaza24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column33.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Header1' AS header WITH ;
		Caption = "tibaza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column34.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Header1' AS header WITH ;
		Caption = "tibaza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column35.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Header1' AS header WITH ;
		Caption = "tibaza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column36.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Header1' AS header WITH ;
		Caption = "tibaza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column37.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Header1' AS header WITH ;
		Caption = "titva24", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column38.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Header1' AS header WITH ;
		Caption = "titva20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column39.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Header1' AS header WITH ;
		Caption = "titva19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column40.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Header1' AS header WITH ;
		Caption = "titva09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column41.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Header1' AS header WITH ;
		Caption = "titva05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 73, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 83, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Factura TVA Incasare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column43.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 144, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 131, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Factura de la furnizor TVA Incasare", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column44.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Jurnal TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column45.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inreg.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column52.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip persoana", ;
		FontSize = 10, ;
		Name = "Header1", ;
		ToolTipText = "0/1 = persoana juridica, 2 = persoana fizica", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column53.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column55.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "BAZA 21%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column55.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column56.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "BAZA 11%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column56.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column57.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 21%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column57.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column58.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 11%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column58.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column59.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TI BAZA 21%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column59.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. doc.", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column60.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TI BAZA 11%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column60.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column61.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TI TVA 21%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column61.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column62.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TI TVA 11%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column62.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column63.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 21%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column63.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column64.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 11%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column64.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Header1' AS header WITH ;
		Caption = "id_fdoc", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Header1' AS header WITH ;
		Caption = "id_sucursala", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO05T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO09T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO19T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA ex. 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cRO24T.Text1' AS textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Baza TI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTIBaza.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA TI", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTITVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total (baza+tva)", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTotal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 05%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA05.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 09%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA09.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 19%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA19.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 20%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA20.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA 24%", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page4.grdJTVA.cTVA24.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page4.Gridextra1' AS gridextra WITH ;
		gridexpression = thisform._pageframe1.page4.grdJTVA, ;
		Left = 167, ;
		Name = "Gridextra1", ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT '_pageframe1.Page5._label7' AS _label WITH ;
		Anchor = 1, ;
		AutoSize = .T., ;
		Caption = "AMEF / exceptate AMEF", ;
		FontBold = .T., ;
		Height = 18, ;
		Left = 10, ;
		Name = "_label7", ;
		Top = 10, ;
		Width = 151, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 17, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		Height = 95, ;
		Left = 8, ;
		Name = "grdCrsamef", ;
		RecordSource = "crsamef", ;
		RecordSourceType = 1, ;
		RowHeight = 19, ;
		Top = 37, ;
		Width = 764, ;
		Column1.ControlSource = "crsamef.tip", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column1", ;
		Column1.Visible = .T., ;
		Column2.ControlSource = "crsamef.luna", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column2", ;
		Column2.Visible = .T., ;
		Column3.ControlSource = "crsamef.nramef", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column3", ;
		Column3.Visible = .T., ;
		Column4.ControlSource = "crsamef.nrbonuri", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column4", ;
		Column4.Visible = .T., ;
		Column5.ControlSource = "crsamef.incasari", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column5", ;
		Column5.Visible = .T., ;
		Column6.ControlSource = "crsamef.baza05", ;
		Column6.FontSize = 10, ;
		Column6.Name = "Column6", ;
		Column6.Visible = .T., ;
		Column7.ControlSource = "crsamef.tva05", ;
		Column7.FontSize = 10, ;
		Column7.Name = "Column7", ;
		Column7.Visible = .T., ;
		Column8.ControlSource = "crsamef.baza09", ;
		Column8.FontSize = 10, ;
		Column8.Name = "Column8", ;
		Column8.Visible = .T., ;
		Column9.ControlSource = "crsamef.tva09", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column9", ;
		Column9.Visible = .T., ;
		Column10.ControlSource = "crsamef.baza19", ;
		Column10.FontSize = 10, ;
		Column10.Name = "Column10", ;
		Column10.Visible = .T., ;
		Column11.ControlSource = "crsamef.tva19", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column11", ;
		Column11.Visible = .T., ;
		Column12.ControlSource = "crsamef.baza20", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.Visible = .T., ;
		Column13.ControlSource = "crsamef.tva20", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.Visible = .T., ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column16.FontSize = 10, ;
		Column16.Name = "Column16", ;
		Column17.FontSize = 10, ;
		Column17.Name = "Column17"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Header1' AS header WITH ;
		Caption = "tip", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Header1' AS header WITH ;
		Caption = "baza19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Header1' AS header WITH ;
		Caption = "tva19", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Header1' AS header WITH ;
		Caption = "baza20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Header1' AS header WITH ;
		Caption = "tva20", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column14.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column15.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column15.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column16.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column16.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column17.Header1' AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column17.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Header1' AS header WITH ;
		Caption = "luna", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Header1' AS header WITH ;
		Caption = "nramef", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Header1' AS header WITH ;
		Caption = "nrbonuri", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Header1' AS header WITH ;
		Caption = "incasari", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Header1' AS header WITH ;
		Caption = "baza05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Header1' AS header WITH ;
		Caption = "tva05", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Header1' AS header WITH ;
		Caption = "baza09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Header1' AS header WITH ;
		Caption = "tva09", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page5.grdCrsamef.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE do_verifica
		#Define CRLF Chr(13) + Chr(10)
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = Select()
		
		Select crsJTVA
		lcDenumire = Alltrim(Nvl(crsJTVA.denumire, ''))
		lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, ''))
		
		lnOptiune = XMENU('Verifica... ' + m.lcDenumire + '; Verifica toti partenerii la ' +Dtoc(Date(m.gnAn, m.gnLuna,1)) + '; Verifica toti partenerii la data facturii (* facturi emise in perioada)')
		
		If Empty(m.lnOptiune)
			Return
		Endif
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		Do Case
			Case m.lnOptiune = 1 && un singur nume
				loPartener = Null
				loDate = Createobject("empty")
		
				AddProperty(loDate, "denumire",  m.lcDenumire)
				AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
				AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
		
				lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
			Case m.lnOptiune = 2
				llDontCloseCursor = .F.
				llExperimental = .F.
				llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
				llMFIN = .T. && verific MFIN pentru toata lumea
				llValidare = .T. && verific algoritmul codurilor fiscale
				llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
				llServiciuWebANAF = .T.
		
				lcFilter = Filter("crsJTVA")
				lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
				Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
					From crsJTVA ;
					Where &lcWhere ;
					Into Cursor crsCoduriFiscale ;
					Order By denumire, cod_fiscal  ;
					Readwrite
		
		
				Local lcXMLParteneri
				lcXMLParteneri = ""
				Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
				Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
			Case m.lnOptiune = 3
				llDontCloseCursor = .F.
				llExperimental = .F.
				llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
				llMFIN = .T. && verific MFIN pentru toata lumea
				llValidare = .T. && verific algoritmul codurilor fiscale
				llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
				llServiciuWebANAF = .T.
		
				lcFilter = Filter("crsJTVA")
				lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.") + " and emisa_perioada = 1"
				Select Distinct id_part, cod_fiscal, denumire, dataact as data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
					From crsJTVA ;
					Where &lcWhere ;
					Into Cursor crsCoduriFiscale ;
					Order By denumire, cod_fiscal  ;
					Readwrite
		
		
				Local lcXMLParteneri
				lcXMLParteneri = ""
				Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
				Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endcase
		
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		this._pageframe1.page2.Enabled = .F.
		this._pageframe1.page3.Enabled = .F.
		this._pageframe1.page4.Enabled = .F.
		this._pageframe1.page5.Enabled = .F.
		
		this._pageframe1.page1.optPJIntocmit.Valid()
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdCitesteDate.Click
		Local lcMesaj, llSucces
		lcMesaj = ''
		llSucces = Thisform.oParent.do_citeste_date()
		If m.llSucces
			Thisform._pageframe1.page1.Refresh()
			Thisform._pageframe1.page2.Enabled = .T.
			Thisform._pageframe1.page2.Refresh()
			Thisform._pageframe1.page3.Enabled = .T.
			Thisform._pageframe1.page3.Refresh()
			Thisform._pageframe1.page4.Enabled = .T.
			Thisform._pageframe1.page4.Refresh()
			Thisform._pageframe1.page5.Enabled = .T.
			Thisform._pageframe1.page5.Refresh()
			This.Parent.cmdVerificaCUI.Enabled = .T.
			This.Parent.cmdExport.Enabled = .T.
			This.Enabled = .F.
			
			thisform._pageframe1.page2.but_exclam.Picture = IIF('facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, "CHECKMRK.ICO", "EXCLAM.ICO")
			thisform._pageframe1.page2.but_exclam.cPictureDown = thisform._pageframe1.page2.but_exclam.Picture
			thisform._pageframe1.page2.but_exclam.cPictureUp = thisform._pageframe1.page2.but_exclam.Picture
			
			thisform._pageframe1.page2.grdExtraFacturiEmise.setup()
			
			Select crsFdocTip
			Locate For Empty(Nvl(tip_doc, ''))
			If Found()
				This.Parent.lblFdocTip.Visible = .T.
				lcMesaj = lcMesaj + This.Parent.lblFdocTip.Caption + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			ENDIF
			
			lcMesaj = lcMesaj + '1. Verificati paginile I. Alte informatii!' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'In pagina I.2, tabelul 2.2 sunt plajele continue de numere de facturi emise. Daca sunt goluri trebuie sa introduceti facturile anulate din Terti > Clienti > Factura anulata!' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + IIF(!'facturile emise sunt in plajele'$poUnitate.cTextFacturiEmiseAlocate, 'ATENTIE! Sunt facturi emise in afara plajelor de facturi alocate!!!', 'Nu sunt facturi emise in afara plajelor de facturi alocate.') + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '2. Verificati pagina Facturi pentru verificarea pe Ministerul de Finante a platitorilor de TVA' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '3. Apasati butonul "3. Export PDF"' + CHR(13) + CHR(10) + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '4. PDF: Verificati toate sectiunile din PDF' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '5. PDF: Completati produsele pentru facturile cu taxare inversa' + CHR(13) + CHR(10)	
			lcMesaj = lcMesaj + '6. PDF: Completati datele despre reprezentant si intocmit ' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '7. PDF: Apasati butonul "VALIDARE"'	 + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + '8. Suplimentar, verificati fisierul D394.xml generat de PDF inteligent. Apasati butonul "4. VALIDARE XML"'+ CHR(13) + CHR(10)+ CHR(13) + CHR(10)
		
			lcMesaj = lcMesaj + 'In perioada 07-09/2016 se declara doar operatiile cu persoane impozabile (RO)' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'In perioada 07-09/2016 NU se declara bonurile de casa fara cod fiscal (Rapoarte Z)' + CHR(13) + CHR(10)
			lcMesaj = lcMesaj + 'Pana pe 31.12.2016 nu este obligatoriu CNP pentru facturile catre persoane fizice < 10.000 lei'
				
			AMESSAGEBOX(m.lcMesaj,0+64,_screen.Caption)
			
			This.Parent.cmdVerificaCUI.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdExport.Click
		Thisform.oParent.do_executa()
		This.Parent.cmdVerificaXML.Enabled = .T.
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdVerificaCUI.Click
		thisform._pageframe1.page4.Activate()
		thisform._pageframe1.page4.SetFocus()
	ENDPROC

	PROCEDURE _pageframe1.Page1.cmdVerificaXML.Click
		Thisform.oParent.do_verifica_pdf()
		
	ENDPROC

	PROCEDURE _pageframe1.Page1.grdTipDoc.Init
		* Colorez cu rosu boldat fel document fara tip document asociat
		this.SetAll("DynamicForeColor","IIF(crsFdocTip.bifa = 1, RGB(255,0,0), RGB(0,0,0))","Column")
		this.SetAll("DynamicFontBold","crsFdocTip.bifa = 1","Column")
	ENDPROC

	PROCEDURE _pageframe1.Page1.optPJIntocmit.Valid
		LOCAL llEnabledPF, llEnabledPJ
		
		llEnabledPF = (this.Value = 1)
		llEnabledPJ = (this.Value = 2)
		this.Parent.lblCalitatePJ.Enabled = m.llEnabledPJ
		this.Parent.txtCalitateIntocmit.Enabled = m.llEnabledPJ
		this.Parent.lblFunctiePF.Enabled = m.llEnabledPF
		this.Parent.txtFunctieIntocmit.Enabled = m.llEnabledPF
		this.Parent.lblCalitatePF.Enabled = m.llEnabledPF
		this.Parent.txtCalitate2Intocmit.Enabled = m.llEnabledPF
		
		this.Parent.Refresh()
	ENDPROC

	PROCEDURE _pageframe1.Page2.Activate
		this.grdFacturiEmiseTip.AfterRowColChange()
	ENDPROC

	PROCEDURE _pageframe1.Page2.but_exclam.Click
		AMESSAGEBOX(poUnitate.cTextFacturiEmiseAlocate)
	ENDPROC

	PROCEDURE _pageframe1.Page2.grdFacturiEmiseTip.AfterRowColChange
		LPARAMETERS nColIndex
		IF crsFacturiEmiseTip.tip = 'AUTOFACTURA'
			THIs.Parent.grdAutoFacturi.Visible = .T.
			this.Parent.lblAutofacturi.Visible = .T.
			SET FILTER TO seria = crsFacturiEmiseTip.seria AND nr = crsFacturiEmiseTip.nr IN crsAutoFacturi
			THIs.Parent.grdAutoFacturi.Refresh()
		ELSE 	
			THIs.Parent.grdAutoFacturi.Visible = .F.
			this.Parent.lblAutofacturi.Visible = .F.	
			SET FILTER TO IN crsAutoFacturi  
		ENDIF 
		
	ENDPROC

	PROCEDURE _pageframe1.Page4.Activate
		IF !PEMSTATUS(thisform, 'lPage4GridExtraActivated',5)
			this.gridextra1.setup()
			THIS._grdfooter1.attachtogrid(This.grdJTVA)
			This._grdfooter1.calctotal()
			thisform.AddProperty('lPage4GridExtraActivated',.T.)
			this.grdJTVA.HeaderHeight = 35
		ENDIF 	
	ENDPROC

	PROCEDURE _pageframe1.Page4.Gridextra1.applyfilter
		DODEFAULT()
		this.Parent._grdfooter1.calctotal()
	ENDPROC

	PROCEDURE _pageframe1.Page4.Gridextra1.clearfilter
		DODEFAULT()
		this.Parent._grdfooter1.calctotal()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_decl_tipdoc 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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 370
		Name = "frm_decl_tipdoc"
		Width = 317
		_memberdata = <VFPData>

		</VFPData>
		_shape1.Name = "_shape1"
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Caption = "Tip document"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 287
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 0
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		Height = 288, ;
		Left = 16, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "crsFdoc", ;
		Top = 72, ;
		Width = 288, ;
		Column1.ControlSource = "ales", ;
		Column1.CurrentControl = "Check1", ;
		Column1.Name = "cAles", ;
		Column1.ReadOnly = .F., ;
		Column1.Sparse = .F., ;
		Column1.Width = 22, ;
		Column2.ControlSource = "fdoc", ;
		Column2.Name = "cFdoc", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 228
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cAles.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 49, ;
		Name = "Check1", ;
		Top = 47, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip document", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Alegeti tipurile de documente care reprezinta facturi!", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label1", ;
		Top = 35, ;
		Width = 300
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label2' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Numai aceste tipuri vor intra in declaratie", ;
		FontBold = .T., ;
		Height = 17, ;
		Left = 9, ;
		Name = "Label2", ;
		Top = 53, ;
		Width = 235
		*< END OBJECT: BaseClass="label" />
	
	PROCEDURE Init
		Lparameters tcTipDeclaratie
		DoDefault()
		IF EMPTY(tcTipDeclaratie)
			tcTipDeclaratie = ''
		ENDIF 
		Thisform.label2.Caption = [Numai aceste tipuri vor intra in declaratia ] + Alltrim(tcTipDeclaratie) + [ !]
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_deconttva 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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_genereaza_tag		&& metoda interna ajutatoare
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201201
		*m: do_genereaza_xdp_201301
		*m: do_genereaza_xdp_201601
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: nnumarluni
		*p: noldvalue
		*p: nrotn		&& Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 626
		Name = "frm_deconttva"
		nnumarluni = 0
		noldvalue = 0
		nrotn = 0
		Visible = .F.
		Width = 744
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="nnumarluni" display="nNumarLuni"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 7
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 8
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 386, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecont", ;
		TabIndex = 1, ;
		Top = 71, ;
		Width = 725, ;
		ZOrderSet = 9, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ControlSource = "valoare", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 116, ;
		Column4.ControlSource = "tva", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 102
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_label1' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Livrare", ;
		Left = 432, ;
		Name = "_label1", ;
		Top = 484, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Achizitie", ;
		Left = 431, ;
		Name = "_label2", ;
		Top = 508, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Sold Neexigibil", ;
		Left = 432, ;
		Name = "_label3", ;
		Top = 463, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_shape3' AS _shape WITH ;
		Anchor = 12, ;
		Height = 74, ;
		Left = 424, ;
		Name = "_shape3", ;
		Top = 461, ;
		Width = 312, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 4, ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 9, ;
		Top = 541, ;
		Width = 215, ;
		ZOrderSet = 12, ;
		Text_simplu1.ControlSource = "pnProRata", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "999", ;
		Text_simplu1.Left = 147, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 61, ;
		Lb_simplu1.Caption = "Pro rata de deducere %", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'cmdPDF' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		BackColor = 0,128,255, ;
		Caption = "Export \<PDF inteligent", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 610, ;
		Name = "cmdPDF", ;
		Top = 543, ;
		Width = 128, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 74, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie1", ;
		TabIndex = 2, ;
		Top = 461, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		LABEL1.Name = "LABEL1", ;
		LABEL2.Name = "LABEL2", ;
		LABEL3.Name = "LABEL3", ;
		LABEL4.Name = "LABEL4", ;
		Text1.Name = "Text1", ;
		TEXT2.Name = "TEXT2", ;
		TEXT3.InputMask = "999 999 999 999", ;
		TEXT3.Name = "TEXT3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Datele de identif. ale firmei", ;
		Height = 27, ;
		Left = 441, ;
		Name = "Command1", ;
		TabIndex = 3, ;
		Top = 543, ;
		Visible = .F., ;
		Width = 164, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Export in fisiere text", ;
		ForeColor = 0,0,255, ;
		Height = 27, ;
		Left = 612, ;
		Name = "Command3", ;
		TabIndex = 4, ;
		Top = 543, ;
		Width = 123, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 48, ;
		Left = 12, ;
		Name = "edtInfo", ;
		Top = 576, ;
		Visible = .T., ;
		Width = 720, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'lblRandAtentie' AS _label WITH ;
		Anchor = 10, ;
		AutoSize = .T., ;
		BackColor = 255,255,128, ;
		BackStyle = 1, ;
		Caption = "Corectati valoarea din randul 28, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147 ) = RD. 27 - Limitare deducere TVA", ;
		Height = 32, ;
		Left = 10, ;
		Name = "lblRandAtentie", ;
		Top = 33, ;
		Width = 696, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtAchizitiiBazaN", ;
		ReadOnly = .F., ;
		Top = 505, ;
		Width = 94, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 639, ;
		Name = "txtAchizitiiTVAN", ;
		ReadOnly = .F., ;
		Top = 506, ;
		Width = 94, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtLivrareBazaN", ;
		ReadOnly = .F., ;
		Top = 481, ;
		Width = 94, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 640, ;
		Name = "txtLivrareTVAN", ;
		ReadOnly = .F., ;
		Top = 481, ;
		Width = 94, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE Activate
		* nu sterge
		
		Local lnLeft, lnWidth
		This.LockScreen=.T.
		lnWidth = This.Width
		lnLeft = This.Left
		
		This.WindowState = 2
		This.Width = lnWidth 
		This.Left = lnLeft
		
		This.LockScreen=.F.
		
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!*	d300_201201.pdf
		
		Lparameters tnMenu
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		Local lcCod_fiscal
		lcCaleFisier = ""
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		
		Try
			lcTempPath = ADDBS(m.gcBasePath)
		
			lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case gnAn*12 + gnLuna >= 2016*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf"
			Case gnAn*12 + gnLuna >= 2013*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf"
			Case gnAn*12 + gnLuna >= 2012*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf"
			Case gnAn*12 + gnLuna >= 2011*12 + 11
				lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf"
			Otherwise
				lcFisierPDFOriginal = lcComunPath + "d300.pdf"
		Endcase
		
		*!* 19.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 19.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
		*!*		Case lnMenu = 2
		*!*			This.UpdateInfo("Se exporta datele in format PDF")
		*!*			Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		*!*			This.UpdateInfo(Replicate('-', 100))
			Case INLIST(lnMenu,2,3)
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				DO CASE 
					CASE gnAn*12+gnLuna >= 2016*12+1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2013*12+1
						Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2012*12+1
						Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2011*12+11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				ENDCASE 
				This.UpdateInfo(Replicate('-', 100))
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_tag		&& metoda interna ajutatoare
		X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123")
		LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT")
		SQLDISCONNECT(0)
		lcText = ""
		SELECT CRSDECONT
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcTag = "r" + m.lcRand
			lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T
			lcC1 = ""
			lcC2 = ""
			IF inactivb = 0
				lcC1 = [<C1><<] + m.lcVariabilaB + [>></C1>]
			ENDIF 
			IF inactivt = 0
				lcC2 = [<C2><<] + m.lcVariabilaT + [>></C2>]
			ENDIF 	
		
			lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [</] + m.lcTag + [>] + CHR(13) + CHR(10)
		ENDSCAN 
		_cliptext = lcText
		
		TEXT TO lcXX
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		\<r17_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r17_1>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r27_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r27_1>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		ENDTEXT 
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect, lcCod_fiscal
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <codF1>
		\  <codF2>300</codF2>
		\ </codF1>
		
		\ <body1>
		\ <header>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </header>
		
		\ <sub1>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_adresa><<Nvl(Alltrim(gofirma.adresa),'')>></text_adresa>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<text_denumire><<lcFirma>></text_denumire>
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		
		\<sub1_banca>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\</sub1_banca>
		
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<COD_IMP>301</COD_IMP>
		\</sub1>
		
			\<sub_tables>
		
		
		Select * From cDecont Into Cursor crsControl
		
		Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
			
		
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
		
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
		
		
		
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\</sub_tables>
		
		\<end1>
		\<part1><SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<NR_JUSTIFICATIV>10301010611250711000030</NR_JUSTIFICATIV>
		\<TextField1>105419</TextField1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		
		\<nume><<Alltrim(gofirma.declarant)>></nume>
		\<functia><<Alltrim(gofirma.functie)>></functia>
		\</part1>
		
		\<part2>
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\</part2>
		\</end1>
		
		\<subEnd>
		\<trimestrialCheckOk>1</trimestrialCheckOk>
		\<numeFisier></numeFisier>
		\<TextField1>Vers.1.0.0/ 2011</TextField1>
		\<sir_CB></sir_CB>
		\</subEnd>
		
		\</body1>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		LOCAL lnTipDecont
		lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		SET STEP ON 
		lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		ENDIF 	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		
		Select * From cDecont Into Cursor crsControl
		
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		 
	ENDPROC

	PROCEDURE do_genereaza_xdp_201201
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r12a><C1><<m.ln13B>></C1></r12a>
		\<r13><C1><<m.ln14B>></C1></r13>
		\<r14><C1><<m.ln15B>></C1></r14>
		\<r15><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r15>
		\<r16><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r16>
		\<r16_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r16_1>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r17><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r17>
		\<r17_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r17_1>
		\<r18><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r18>
		\<r19><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r19>
		\<r19_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r19_1>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r20><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r20>
		\<r21><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r21>
		\<r22><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r22>
		\<r23><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r23>
		\<r23a><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r23a>
		\<r24><C1><<m.ln26B>></C1></r24>
		\<r24_1><C1><<m.ln26_1B>></C1></r24_1>
		\<r25><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r25>
		\<r25_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r25_1>
		\<r26><C2><<m.ln28T>></C2></r26>
		\<r27><C2><<m.ln29T>></C2></r27>
		\<r28><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C2><<m.ln32T>></C2></r30>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201301
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301010113250213000024</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301010113250213000024</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tnNumarLuni
		
		This.nNumarLuni = m.tnNumarLuni
		DODEFAULT()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		Thisform.totaluri("valoare", .T.)
		Thisform.totaluri("tva", .T.)
		
		DoDefault(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		*!* 20.07.2012
		*!* marius.mutu
		*!* completare initiala randul 28 = randul 27
		
		Lparameters tcColoana, tlFirstTime
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "valoare"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		*** COMPLETEZ INITIAL RANDUL 28 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 27
		*** NU PUN FORMULA LA FEL CA LA 27, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR
		IF m.tlFirstTime AND m.gnAn >= 2012
			lnROTN = This.nRotn && limitare deducere TVA 4426
			SELECT (lcTabel)
			LOCATE FOR rand = '27' && TOTAL TAXA DEDUCTIBILA (suma de la rd.18 pana la rd.25, cu exceptia celor de la rd.18.1 si 20.1), din care:   
			IF FOUND()
				lnSuma = &lcColoana
				LOCATE FOR rand = '28' AND &lcColoana = 0
				IF FOUND()
					REPLACE &lcColoana WITH m.lnSuma - m.lnROTN
					This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea
				ENDIF 
			ENDIF 	
		ENDIF 
		
		Select (lcTabel)
		Go Top
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.When
		THISFORM.nOldvalue = This.Value 
	ENDPROC

	PROCEDURE cmdPDF.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		Thisform.do_executa(3) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decont WITH (lcTabel)  IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivT = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("valoare")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivB = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_deconttva_201601 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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_genereaza_tag		&& metoda interna ajutatoare
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201201
		*m: do_genereaza_xdp_201301
		*m: do_genereaza_xdp_201601
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: nnumarluni
		*p: noldvalue
		*p: nrotn		&& Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 626
		Name = "frm_deconttva_201601"
		nnumarluni = 0
		noldvalue = 0
		nrotn = 0
		Visible = .F.
		Width = 744
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="nnumarluni" display="nNumarLuni"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 749
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 650
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 94
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 713
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 7
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 8
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 326, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecont", ;
		TabIndex = 1, ;
		Top = 71, ;
		Width = 725, ;
		ZOrderSet = 9, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 430, ;
		Column3.ControlSource = "valoare", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 116, ;
		Column4.ControlSource = "tva", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 102
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_label1' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A. Livrare", ;
		Left = 432, ;
		Name = "_label1", ;
		Top = 438, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B. Achizitie", ;
		Left = 431, ;
		Name = "_label2", ;
		Top = 487, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Sold Neexigibil", ;
		Left = 432, ;
		Name = "_label3", ;
		Top = 417, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A1. Livrare 6 luni", ;
		Left = 432, ;
		Name = "_label4", ;
		Top = 461, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label5' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B1. Achizitie 6 luni", ;
		Left = 431, ;
		Name = "_label5", ;
		Top = 511, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_shape3' AS _shape WITH ;
		Anchor = 12, ;
		Height = 127, ;
		Left = 424, ;
		Name = "_shape3", ;
		Top = 408, ;
		Width = 312, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 682, ;
		Name = "But_excel1", ;
		TabIndex = 6, ;
		Top = 0, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Left = 653, ;
		Name = "But_listare1", ;
		TabIndex = 5, ;
		Top = 0, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 4, ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 9, ;
		Top = 541, ;
		Width = 215, ;
		ZOrderSet = 12, ;
		Text_simplu1.ControlSource = "pnProRata", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "999", ;
		Text_simplu1.Left = 147, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 61, ;
		Lb_simplu1.Caption = "Pro rata de deducere %", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'cmdPDF' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		BackColor = 0,128,255, ;
		Caption = "Export \<PDF inteligent", ;
		FontBold = .T., ;
		FontSize = 8, ;
		Height = 27, ;
		Left = 610, ;
		Name = "cmdPDF", ;
		Top = 543, ;
		Width = 128, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 127, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie1", ;
		TabIndex = 2, ;
		Top = 408, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		LABEL1.Name = "LABEL1", ;
		LABEL2.Name = "LABEL2", ;
		LABEL3.Name = "LABEL3", ;
		LABEL4.Name = "LABEL4", ;
		Text1.Name = "Text1", ;
		TEXT2.Name = "TEXT2", ;
		TEXT3.InputMask = "999 999 999 999", ;
		TEXT3.Name = "TEXT3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Datele de identif. ale firmei", ;
		Height = 27, ;
		Left = 441, ;
		Name = "Command1", ;
		TabIndex = 3, ;
		Top = 543, ;
		Visible = .F., ;
		Width = 164, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Export in fisiere text", ;
		ForeColor = 0,0,255, ;
		Height = 27, ;
		Left = 612, ;
		Name = "Command3", ;
		TabIndex = 4, ;
		Top = 543, ;
		Width = 123, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 48, ;
		Left = 12, ;
		Name = "edtInfo", ;
		Top = 576, ;
		Visible = .T., ;
		Width = 720, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'lblRandAtentie' AS _label WITH ;
		Anchor = 10, ;
		AutoSize = .T., ;
		BackColor = 255,255,128, ;
		BackStyle = 1, ;
		Caption = "Corectati valoarea din randul 28, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147 ) = RD. 27 - Limitare deducere TVA", ;
		Height = 32, ;
		Left = 10, ;
		Name = "lblRandAtentie", ;
		Top = 33, ;
		Width = 696, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtAchizitiiBaza6N", ;
		ReadOnly = .F., ;
		Top = 508, ;
		Width = 94, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtAchizitiiBazaN", ;
		ReadOnly = .F., ;
		Top = 484, ;
		Width = 94, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 639, ;
		Name = "txtAchizitiiTVA6N", ;
		ReadOnly = .F., ;
		Top = 508, ;
		Width = 94, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 639, ;
		Name = "txtAchizitiiTVAN", ;
		ReadOnly = .F., ;
		Top = 484, ;
		Width = 94, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtLivrareBaza6N", ;
		ReadOnly = .F., ;
		Top = 458, ;
		Width = 94, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 541, ;
		Name = "txtLivrareBazaN", ;
		ReadOnly = .F., ;
		Top = 435, ;
		Width = 94, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 640, ;
		Name = "txtLivrareTVA6N", ;
		ReadOnly = .F., ;
		Top = 458, ;
		Width = 94, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 640, ;
		Name = "txtLivrareTVAN", ;
		ReadOnly = .F., ;
		Top = 435, ;
		Width = 94, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE Activate
		* nu sterge
		
		Local lnLeft, lnWidth
		This.LockScreen=.T.
		lnWidth = This.Width
		lnLeft = This.Left
		
		This.WindowState = 2
		This.Width = lnWidth 
		This.Left = lnLeft
		
		This.LockScreen=.F.
		
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!*	d300_201201.pdf
		
		Lparameters tnMenu
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		Local lcCod_fiscal
		lcCaleFisier = ""
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		
		Try
			lcTempPath = ADDBS(m.gcBasePath)
		
			lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		Do Case
			Case gnAn*12 + gnLuna >= 2016*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf"
			Case gnAn*12 + gnLuna >= 2013*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf"
			Case gnAn*12 + gnLuna >= 2012*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf"
			Case gnAn*12 + gnLuna >= 2011*12 + 11
				lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf"
			Otherwise
				lcFisierPDFOriginal = lcComunPath + "d300.pdf"
		Endcase
		
		*!* 19.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 19.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
		*!*		Case lnMenu = 2
		*!*			This.UpdateInfo("Se exporta datele in format PDF")
		*!*			Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		*!*			This.UpdateInfo(Replicate('-', 100))
			Case INLIST(lnMenu,2,3)
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				DO CASE 
					CASE gnAn*12+gnLuna >= 2016*12+1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2013*12+1
						Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2012*12+1
						Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2011*12+11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				ENDCASE 
				This.UpdateInfo(Replicate('-', 100))
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_tag		&& metoda interna ajutatoare
		X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123")
		LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT")
		SQLDISCONNECT(0)
		lcText = ""
		SELECT CRSDECONT
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcTag = "r" + m.lcRand
			lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T
			lcC1 = ""
			lcC2 = ""
			IF inactivb = 0
				lcC1 = [<C1><<] + m.lcVariabilaB + [>></C1>]
			ENDIF 
			IF inactivt = 0
				lcC2 = [<C2><<] + m.lcVariabilaT + [>></C2>]
			ENDIF 	
		
			lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [</] + m.lcTag + [>] + CHR(13) + CHR(10)
		ENDSCAN 
		_cliptext = lcText
		
		TEXT TO lcXX
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		\<r17_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r17_1>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r27_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r27_1>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		ENDTEXT 
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect, lcCod_fiscal
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <codF1>
		\  <codF2>300</codF2>
		\ </codF1>
		
		\ <body1>
		\ <header>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </header>
		
		\ <sub1>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_adresa><<Nvl(Alltrim(gofirma.adresa),'')>></text_adresa>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<text_denumire><<lcFirma>></text_denumire>
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		
		\<sub1_banca>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\</sub1_banca>
		
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<COD_IMP>301</COD_IMP>
		\</sub1>
		
			\<sub_tables>
		
		
		Select * From cDecont Into Cursor crsControl
		
		Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
			
		
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
		
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
		
		
		
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\</sub_tables>
		
		\<end1>
		\<part1><SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<NR_JUSTIFICATIV>10301010611250711000030</NR_JUSTIFICATIV>
		\<TextField1>105419</TextField1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		
		\<nume><<Alltrim(gofirma.declarant)>></nume>
		\<functia><<Alltrim(gofirma.functie)>></functia>
		\</part1>
		
		\<part2>
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\</part2>
		\</end1>
		
		\<subEnd>
		\<trimestrialCheckOk>1</trimestrialCheckOk>
		\<numeFisier></numeFisier>
		\<TextField1>Vers.1.0.0/ 2011</TextField1>
		\<sir_CB></sir_CB>
		\</subEnd>
		
		\</body1>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		LOCAL lnTipDecont
		lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		SET STEP ON 
		lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		ENDIF 	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		
		Select * From cDecont Into Cursor crsControl
		
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		 
	ENDPROC

	PROCEDURE do_genereaza_xdp_201201
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r12a><C1><<m.ln13B>></C1></r12a>
		\<r13><C1><<m.ln14B>></C1></r13>
		\<r14><C1><<m.ln15B>></C1></r14>
		\<r15><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r15>
		\<r16><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r16>
		\<r16_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r16_1>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r17><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r17>
		\<r17_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r17_1>
		\<r18><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r18>
		\<r19><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r19>
		\<r19_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r19_1>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r20><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r20>
		\<r21><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r21>
		\<r22><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r22>
		\<r23><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r23>
		\<r23a><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r23a>
		\<r24><C1><<m.ln26B>></C1></r24>
		\<r24_1><C1><<m.ln26_1B>></C1></r24_1>
		\<r25><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r25>
		\<r25_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r25_1>
		\<r26><C2><<m.ln28T>></C2></r26>
		\<r27><C2><<m.ln29T>></C2></r27>
		\<r28><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C2><<m.ln32T>></C2></r30>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201301
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301010113250213000024</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		
		\<r12_1><C1><<m.ln12_1B>></C1><C2><<m.ln12_1T>></C2></r12_1>
		\<r12_2><C1><<m.ln12_2B>></C1><C2><<m.ln12_2T>></C2></r12_2>
		\<r12_3><C1><<m.ln12_3B>></C1><C2><<m.ln12_3T>></C2></r12_3>
		
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		
		\<r25_1><C1><<m.ln25_1B>></C1><C2><<m.ln25_1T>></C2></r25_1>
		\<r25_2><C1><<m.ln25_2B>></C1><C2><<m.ln25_2T>></C2></r25_2>
		\<r25_3><C1><<m.ln25_3B>></C1><C2><<m.ln25_3T>></C2></r25_3>
		
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\<tva_a1><<pnLivrareTVA6N>></tva_a1><tva_b1><<pnAchizitieTVA6N>></tva_b1><valoare_a1><<pnLivrareBaza6N>></valoare_a1><valoare_b1><<pnAchizitieBaza6N>></valoare_b1>
		\</part1>
		
		\<evid2>
		\<nr_evid></nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tnNumarLuni
		
		This.nNumarLuni = m.tnNumarLuni
		DODEFAULT()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		Thisform.totaluri("valoare", .T.)
		Thisform.totaluri("tva", .T.)
		
		DoDefault(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		*!* 20.07.2012
		*!* marius.mutu
		*!* completare initiala randul 28 = randul 27
		
		Lparameters tcColoana, tlFirstTime
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "valoare"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		 
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '32'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		*** COMPLETEZ INITIAL RANDUL 28 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 27
		*** NU PUN FORMULA LA FEL CA LA 27, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR
		IF m.tlFirstTime AND m.gnAn >= 2012
			lnROTN = This.nRotn && limitare deducere TVA 4426
			SELECT (lcTabel)
			LOCATE FOR rand = '27' && TOTAL TAXA DEDUCTIBILA (suma de la rd.18 pana la rd.25, cu exceptia celor de la rd.18.1 si 20.1), din care:   
			IF FOUND()
				lnSuma = &lcColoana
				LOCATE FOR rand = '28' AND &lcColoana = 0
				IF FOUND()
					REPLACE &lcColoana WITH m.lnSuma - m.lnROTN
					This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea
				ENDIF 
			ENDIF 	
		ENDIF 
		
		Select (lcTabel)
		Go Top
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.When
		THISFORM.nOldvalue = This.Value 
	ENDPROC

	PROCEDURE cmdPDF.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		Thisform.do_executa(3) && XML + PDF
		*!* 12.05.2011 ^
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decont WITH (lcTabel)  IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivT = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("valoare")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivB = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_deconttva_201701 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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_genereaza_tag		&& metoda interna ajutatoare
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201201
		*m: do_genereaza_xdp_201301
		*m: do_genereaza_xdp_201601
		*m: do_genereaza_xdp_201701
		*m: do_genereaza_xdp_201901
		*m: do_genereaza_xdp_202308
		*m: do_genereaza_xdp_202405
		*m: do_genereaza_xdp_202508
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: nnumarluni
		*p: noldvalue
		*p: nrotn		&& Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 640
		Name = "frm_deconttva_201701"
		nnumarluni = 0
		noldvalue = 0
		nrotn = 0
		Visible = .F.
		Width = 850
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="nnumarluni" display="nNumarLuni"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 852
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 761
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 111
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 11
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 820
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 8
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 253, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecont", ;
		TabIndex = 1, ;
		Top = 71, ;
		Width = 831, ;
		ZOrderSet = 9, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 454, ;
		Column3.ControlSource = "valoare", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 121, ;
		Column4.ControlSource = "tva", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 121
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_label1' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A. Livrare", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label1", ;
		TabIndex = 17, ;
		Top = 356, ;
		Width = 56, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B. Achizitie", ;
		Height = 18, ;
		Left = 439, ;
		Name = "_label2", ;
		TabIndex = 22, ;
		Top = 405, ;
		Width = 69, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Sold Neexigibil", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label3", ;
		TabIndex = 16, ;
		Top = 335, ;
		Width = 88, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A1. Livrare 6 luni", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label4", ;
		TabIndex = 23, ;
		Top = 379, ;
		Width = 98, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label5' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B1. Achizitie 6 luni", ;
		Height = 18, ;
		Left = 439, ;
		Name = "_label5", ;
		TabIndex = 28, ;
		Top = 429, ;
		Width = 111, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_shape3' AS _shape WITH ;
		Anchor = 12, ;
		Height = 127, ;
		Left = 424, ;
		Name = "_shape3", ;
		Top = 326, ;
		Width = 415, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 789, ;
		Name = "But_excel1", ;
		TabIndex = 9, ;
		Top = 0, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Left = 760, ;
		Name = "But_listare1", ;
		TabIndex = 8, ;
		Top = 0, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 4, ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 12, ;
		Top = 541, ;
		Width = 215, ;
		ZOrderSet = 12, ;
		Text_simplu1.ControlSource = "pnProRata", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "999", ;
		Text_simplu1.Left = 147, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 61, ;
		Lb_simplu1.Caption = "Pro rata de deducere %", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'cmdPDF' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		BackColor = 0,128,255, ;
		Caption = "Export \<PDF inteligent", ;
		FontBold = .T., ;
		Height = 27, ;
		Left = 684, ;
		Name = "cmdPDF", ;
		TabIndex = 14, ;
		Top = 543, ;
		Width = 155, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 68, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie1", ;
		TabIndex = 5, ;
		Top = 326, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		LABEL1.Caption = "Facturi emise dupa inspectia fiscala, cf. art. 330 alin. (3) din Codul Fiscal ", ;
		LABEL1.Name = "LABEL1", ;
		LABEL2.Name = "LABEL2", ;
		LABEL3.Name = "LABEL3", ;
		LABEL4.Name = "LABEL4", ;
		Text1.Name = "Text1", ;
		TEXT2.InputMask = "999 999 999 999", ;
		TEXT2.Name = "TEXT2", ;
		TEXT3.InputMask = "999 999 999 999", ;
		TEXT3.Name = "TEXT3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie2' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 69, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie2", ;
		TabIndex = 3, ;
		Top = 394, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Facturi primite dupa inspectia fiscala, cf. pct. 108 alin. (6) din Norm. Met.", ;
		Label1.Name = "Label1", ;
		Label2.Name = "Label2", ;
		Label3.Name = "Label3", ;
		Label4.Name = "Label4", ;
		Text1.ControlSource = "pnNr_facturi2", ;
		Text1.Name = "Text1", ;
		Text2.ControlSource = "pnBaza2", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Name = "Text2", ;
		Text3.ControlSource = "pnTVA2", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Name = "Text3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie3' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 69, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie3", ;
		TabIndex = 4, ;
		Top = 462, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Facturi emise, cf. art. 11 alin (6) si (8) din Codul Fiscal", ;
		Label1.Name = "Label1", ;
		Label2.Name = "Label2", ;
		Label3.Name = "Label3", ;
		Label4.Name = "Label4", ;
		Text1.ControlSource = "pnNr_facturi3", ;
		Text1.Name = "Text1", ;
		Text2.ControlSource = "pnBaza3", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Name = "Text2", ;
		Text3.ControlSource = "pnTVA3", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Name = "Text3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie4' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 12, ;
		Height = 69, ;
		Left = 424, ;
		Name = "Cnt_facturi_dupa_inspectie4", ;
		TabIndex = 2, ;
		Top = 462, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Prest. serv. catre pers. neimpoz. din alte state UE art. 278 alin. (8) lit. b) C.F.", ;
		Label1.Name = "Label1", ;
		Label2.Left = 7, ;
		Label2.Name = "Label2", ;
		Label2.Top = 85, ;
		Label2.Visible = .F., ;
		Label3.Caption = "Valoare fara TVA an precedent", ;
		Label3.Left = 8, ;
		Label3.Name = "Label3", ;
		Label3.Top = 25, ;
		Label4.Caption = "Valoare fara TVA an curent", ;
		Label4.Left = 234, ;
		Label4.Name = "Label4", ;
		Label4.Top = 24, ;
		Text1.ControlSource = "", ;
		Text1.Left = 18, ;
		Text1.Name = "Text1", ;
		Text1.Top = 101, ;
		Text1.Visible = .F., ;
		Text2.ControlSource = "pnBaza41", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Left = 8, ;
		Text2.Name = "Text2", ;
		Text2.Top = 40, ;
		Text3.ControlSource = "pnBaza42", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Left = 234, ;
		Text3.Name = "Text3", ;
		Text3.Top = 40
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Datele de identif. ale firmei", ;
		FontSize = 10, ;
		Left = 360, ;
		Name = "Command1", ;
		TabIndex = 6, ;
		Top = 651, ;
		Visible = .F., ;
		Width = 175, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Export in fisiere text", ;
		ForeColor = 0,0,255, ;
		Height = 27, ;
		Left = 408, ;
		Name = "Command3", ;
		TabIndex = 7, ;
		Top = 653, ;
		Visible = .F., ;
		Width = 123, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 48, ;
		Left = 12, ;
		Name = "edtInfo", ;
		TabIndex = 13, ;
		Top = 582, ;
		Visible = .T., ;
		Width = 828, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'lblRandAtentie' AS _label WITH ;
		Anchor = 10, ;
		AutoSize = .F., ;
		BackColor = 255,255,128, ;
		BackStyle = 1, ;
		Caption = "Corectati valoarea din randul 32, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.297 SI 298 SAU 300 ) = RD. 31 - Limitare deducere TVA", ;
		FontSize = 10, ;
		Height = 39, ;
		Left = 10, ;
		Name = "lblRandAtentie", ;
		TabIndex = 15, ;
		Top = 33, ;
		Width = 818, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtAchizitiiBaza6N", ;
		ReadOnly = .F., ;
		TabIndex = 26, ;
		Top = 426, ;
		Width = 114, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtAchizitiiBazaN", ;
		ReadOnly = .F., ;
		TabIndex = 20, ;
		Top = 402, ;
		Width = 114, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 713, ;
		Name = "txtAchizitiiTVA6N", ;
		ReadOnly = .F., ;
		TabIndex = 27, ;
		Top = 426, ;
		Width = 114, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 713, ;
		Name = "txtAchizitiiTVAN", ;
		ReadOnly = .F., ;
		TabIndex = 21, ;
		Top = 402, ;
		Width = 114, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtLivrareBaza6N", ;
		ReadOnly = .F., ;
		TabIndex = 24, ;
		Top = 376, ;
		Width = 114, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtLivrareBazaN", ;
		ReadOnly = .F., ;
		TabIndex = 18, ;
		Top = 353, ;
		Width = 114, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 714, ;
		Name = "txtLivrareTVA6N", ;
		ReadOnly = .F., ;
		TabIndex = 25, ;
		Top = 376, ;
		Width = 114, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 714, ;
		Name = "txtLivrareTVAN", ;
		ReadOnly = .F., ;
		TabIndex = 19, ;
		Top = 353, ;
		Width = 114, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE Activate
		* nu sterge
		
		Local lnLeft, lnWidth
		This.LockScreen=.T.
		lnWidth = This.Width
		lnLeft = This.Left
		
		This.WindowState = 2
		This.Width = lnWidth 
		This.Left = lnLeft
		
		This.LockScreen=.F.
		
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!*	d300_201201.pdf
		
		Lparameters tnMenu
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		Local lcCod_fiscal, lcCaenRevizie, lnCaenRevizie
		lcCaleFisier = ""
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		
		Try
			lcTempPath = ADDBS(m.gcBasePath)
		
			lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		lcCaenRevizie = NVL(goFirma.caen_revizie, '2')
		lnCaenRevizie = INT(VAL(m.lcCaenRevizie))
		Do Case
			Case gnAn*12 + gnLuna >= 2025*12 + 8
				* TVA 21%
				lcFisierPDFOriginal = lcComunPath + "d300_202508.pdf"
				
			Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 1 AND m.lnCaenRevizie >= 3
				* Cod CAEN rev. 3
				lcFisierPDFOriginal = lcComunPath + "d300_202501_v3.pdf"
		
			Case gnAn*12 + gnLuna >= 2024*12 + 5
				lcFisierPDFOriginal = lcComunPath + "d300_202405.pdf"
			Case gnAn*12 + gnLuna >= 2023*12 + 8
				lcFisierPDFOriginal = lcComunPath + "d300_202308.pdf"
			Case gnAn*12 + gnLuna >= 2021*12 + 6
				lcFisierPDFOriginal = lcComunPath + "d300_202106.pdf"
			Case gnAn*12 + gnLuna >= 2019*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201907.pdf"
			Case gnAn*12 + gnLuna >= 2017*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201701.pdf"
			Case gnAn*12 + gnLuna >= 2016*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf"
			Case gnAn*12 + gnLuna >= 2013*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf"
			Case gnAn*12 + gnLuna >= 2012*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf"
			Case gnAn*12 + gnLuna >= 2011*12 + 11
				lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf"
			Otherwise
				lcFisierPDFOriginal = lcComunPath + "d300.pdf"
		Endcase
		
		*!* 19.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 19.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
		*!*		Case lnMenu = 2
		*!*			This.UpdateInfo("Se exporta datele in format PDF")
		*!*			Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		*!*			This.UpdateInfo(Replicate('-', 100))
			Case INLIST(lnMenu,2,3)
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				DO CASE 
					CASE gnAn*12+gnLuna >= 2025*12+8
						Thisform.do_genereaza_xdp_202508(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2024*12+5
						Thisform.do_genereaza_xdp_202405(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2023*12+8
						Thisform.do_genereaza_xdp_202308(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2018*12+1
						Thisform.do_genereaza_xdp_201901(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2017*12+1
						Thisform.do_genereaza_xdp_201701(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2016*12+1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2013*12+1
						Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2012*12+1
						Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2011*12+11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				ENDCASE 
				This.UpdateInfo(Replicate('-', 100))
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_tag		&& metoda interna ajutatoare
		X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123")
		LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT")
		SQLDISCONNECT(0)
		lcText = ""
		SELECT CRSDECONT
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcTag = "r" + m.lcRand
			lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T
			lcC1 = ""
			lcC2 = ""
			IF inactivb = 0
				lcC1 = [<C1><<] + m.lcVariabilaB + [>></C1>]
			ENDIF 
			IF inactivt = 0
				lcC2 = [<C2><<] + m.lcVariabilaT + [>></C2>]
			ENDIF 	
		
			lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [</] + m.lcTag + [>] + CHR(13) + CHR(10)
		ENDSCAN 
		_cliptext = lcText
		
		TEXT TO lcXX
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		\<r17_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r17_1>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r27_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r27_1>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		ENDTEXT 
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect, lcCod_fiscal
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <codF1>
		\  <codF2>300</codF2>
		\ </codF1>
		
		\ <body1>
		\ <header>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </header>
		
		\ <sub1>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_adresa><<Nvl(Alltrim(gofirma.adresa),'')>></text_adresa>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<text_denumire><<lcFirma>></text_denumire>
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		
		\<sub1_banca>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\</sub1_banca>
		
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<COD_IMP>301</COD_IMP>
		\</sub1>
		
			\<sub_tables>
		
		
		Select * From cDecont Into Cursor crsControl
		
		Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
			
		
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
		
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
		
		
		
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\</sub_tables>
		
		\<end1>
		\<part1><SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<NR_JUSTIFICATIV>10301010611250711000030</NR_JUSTIFICATIV>
		\<TextField1>105419</TextField1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		
		\<nume><<Alltrim(gofirma.declarant)>></nume>
		\<functia><<Alltrim(gofirma.functie)>></functia>
		\</part1>
		
		\<part2>
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\</part2>
		\</end1>
		
		\<subEnd>
		\<trimestrialCheckOk>1</trimestrialCheckOk>
		\<numeFisier></numeFisier>
		\<TextField1>Vers.1.0.0/ 2011</TextField1>
		\<sir_CB></sir_CB>
		\</subEnd>
		
		\</body1>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		LOCAL lnTipDecont
		lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		SET STEP ON 
		lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		ENDIF 	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		
		Select * From cDecont Into Cursor crsControl
		
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		 
	ENDPROC

	PROCEDURE do_genereaza_xdp_201201
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r12a><C1><<m.ln13B>></C1></r12a>
		\<r13><C1><<m.ln14B>></C1></r13>
		\<r14><C1><<m.ln15B>></C1></r14>
		\<r15><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r15>
		\<r16><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r16>
		\<r16_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r16_1>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r17><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r17>
		\<r17_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r17_1>
		\<r18><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r18>
		\<r19><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r19>
		\<r19_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r19_1>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r20><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r20>
		\<r21><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r21>
		\<r22><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r22>
		\<r23><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r23>
		\<r23a><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r23a>
		\<r24><C1><<m.ln26B>></C1></r24>
		\<r24_1><C1><<m.ln26_1B>></C1></r24_1>
		\<r25><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r25>
		\<r25_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r25_1>
		\<r26><C2><<m.ln28T>></C2></r26>
		\<r27><C2><<m.ln29T>></C2></r27>
		\<r28><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C2><<m.ln32T>></C2></r30>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201301
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301010113250213000024</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		
		\<r12_1><C1><<m.ln12_1B>></C1><C2><<m.ln12_1T>></C2></r12_1>
		\<r12_2><C1><<m.ln12_2B>></C1><C2><<m.ln12_2T>></C2></r12_2>
		\<r12_3><C1><<m.ln12_3B>></C1><C2><<m.ln12_3T>></C2></r12_3>
		
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		
		\<r25_1><C1><<m.ln25_1B>></C1><C2><<m.ln25_1T>></C2></r25_1>
		\<r25_2><C1><<m.ln25_2B>></C1><C2><<m.ln25_2T>></C2></r25_2>
		\<r25_3><C1><<m.ln25_3B>></C1><C2><<m.ln25_3T>></C2></r25_3>
		
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\<tva_a1><<pnLivrareTVA6N>></tva_a1><tva_b1><<pnAchizitieTVA6N>></tva_b1><valoare_a1><<pnLivrareBaza6N>></valoare_a1><valoare_b1><<pnAchizitieBaza6N>></valoare_b1>
		\</part1>
		
		\<evid2>
		\<nr_evid></nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201701
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		
		\<r12_1><C1><<m.ln12_1B>></C1><C2><<m.ln12_1T>></C2></r12_1>
		\<r12_2><C1><<m.ln12_2B>></C1><C2><<m.ln12_2T>></C2></r12_2>
		\<r12_3><C1><<m.ln12_3B>></C1><C2><<m.ln12_3T>></C2></r12_3>
		
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		
		\<r25_1><C1><<m.ln25_1B>></C1><C2><<m.ln25_1T>></C2></r25_1>
		\<r25_2><C1><<m.ln25_2B>></C1><C2><<m.ln25_2T>></C2></r25_2>
		\<r25_3><C1><<m.ln25_3B>></C1><C2><<m.ln25_3T>></C2></r25_3>
		
		\<r43><C2><<m.ln26T>></C2></r43>
		\<r44><C2><<m.ln27T>></C2></r44>
		\<r26><C1><<m.ln28B>></C1></r26>
		\<r26_1><C1><<m.ln28_1B>></C1></r26_1>
		\<r27><C1><<m.ln29B>></C1><C2><<m.ln29T>></C2></r27>
		\<r28><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C1><<m.ln32B>></C1><C2><<m.ln32T>></C2></r30>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\<r41><C2><<m.ln43T>></C2></r41>
		\<r42><C2><<m.ln44T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\<tva_a1><<pnLivrareTVA6N>></tva_a1><tva_b1><<pnAchizitieTVA6N>></tva_b1><valoare_a1><<pnLivrareBaza6N>></valoare_a1><valoare_b1><<pnAchizitieBaza6N>></valoare_b1>
		\</part1>
		
		\<evid2>
		\<nr_evid></nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201901
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202308
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r14_1><c2><<m.ln14_1B>></c2></r14_1>
		\<r14_2><c2><<m.ln14_2B>></c2></r14_2>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202405
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202508
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		lcCaenRevizie = NVL(goFirma.caen_revizie, '2')
		lnCaenRevizie = INT(VAL(m.lcCaenRevizie))
		lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '')
		lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '')	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<caen><<m.lcCaenRev2>></caen>
		\	<caen1><<m.lcCaenRev3>></caen1>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r9_1><c2><<m.ln9_1B>></c2><c3><<m.ln9_1T>></c3></r9_1>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r10_1><c2><<m.ln10_1B>></c2><c3><<m.ln10_1T>></c3></r10_1>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r11_1><c2><<m.ln11_1B>></c2><c3><<m.ln11_1T>></c3></r11_1>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		\<r12_4><c2><<m.ln12_4B>></c2><c3><<m.ln12_4T>></c3></r12_4>
		\<r12_5><c2><<m.ln12_5B>></c2><c3><<m.ln12_5T>></c3></r12_5>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r24_1><c2><<m.ln24_1B>></c2><c3><<m.ln24_1T>></c3></r24_1>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r25_1><c2><<m.ln25_1B>></c2><c3><<m.ln25_1T>></c3></r25_1>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		\<r27_4><c2><<m.ln27_4B>></c2><c3><<m.ln27_4T>></c3></r27_4>
		\<r27_5><c2><<m.ln27_5B>></c2><c3><<m.ln27_5T>></c3></r27_5>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tnNumarLuni
		LOCAL lcPerioada
		This.nNumarLuni = m.tnNumarLuni
		lcPerioada = IIF(m.tnNumarLuni = 1, 'LUNAR', IIF(m.tnNumarLuni = 3, 'TRIMESTRIAL', IIF(m.tnNumarLuni = 6, 'SEMESTRIAL', IIF(m.tnNumarLuni = 12, 'ANUAL', ''))))
		this.lb_titlu_alb_b121.Caption =  this.lb_titlu_alb_b121.Caption + " * " + lcPerioada
		DODEFAULT()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		Thisform.totaluri("valoare", .T.)
		Thisform.totaluri("tva", .T.)
		
		DoDefault(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		*!* 11.02.2017
		*!* marius.mutu
		*!* completare initiala randul 30 = randul 29
		
		Lparameters tcColoana, tlFirstTime
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand  
		
		If Empty(tcColoana)
			lcColoana = "valoare"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		 
		lcTabel = thisform._grdrow1.RecordSource 
		Select * From (lcTabel) WITH (BUFFERING = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = ALLTRIM(rand)
		*!*		IF '34'$lcRand AND 'tva'$LOWER(lcColoana)
		*!*			DEBUG
		*!*			SUSPEND 
		*!*		ENDIF 
		*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT 
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where ALLTRIM(rand) = lcRand 
		
			Select cTemp
		Endscan
		Use In cTemp
		
		*** COMPLETEZ INITIAL RANDUL 30 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 29
		*** NU PUN FORMULA LA FEL CA LA 29, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR
		IF m.tlFirstTime 
			DO CASE 
				CASE BETWEEN(m.gnAn, 2012, 2018)
					lnROTN = This.nRotn && limitare deducere TVA 4426
					SELECT (lcTabel)
					LOCATE FOR rand = '29' && TOTAL TAXA DEDUCTIBILA suma de la rd.18 pâna la rd.27, cu excep_ia celor de la rd.18.1,20.1, 25.1, 25.2, 25.3), din care:   
					IF FOUND()
						lnSuma = &lcColoana
						LOCATE FOR rand = '30' AND &lcColoana = 0
						IF FOUND()
							REPLACE &lcColoana WITH m.lnSuma - m.lnROTN
							This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea
						ENDIF 
					ENDIF 	
				CASE m.gnAn >= 2019
					lnROTN = This.nRotn && limitare deducere TVA 4426
					SELECT (lcTabel)
					LOCATE FOR rand = '31' && TOTAL TAXA DEDUCTIBILA suma de la rd.18 pâna la rd.27, cu excep_ia celor de la rd.18.1,20.1, 25.1, 25.2, 25.3), din care:   
					IF FOUND()
						lnSuma = &lcColoana
						LOCATE FOR rand = '32' AND &lcColoana = 0
						IF FOUND()
							REPLACE &lcColoana WITH m.lnSuma - m.lnROTN
							This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea
						ENDIF 
					ENDIF 	
			ENDCASE 		
		ENDIF 
		
		Select (lcTabel)
		Go Top
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.When
		THISFORM.nOldvalue = This.Value 
	ENDPROC

	PROCEDURE cmdPDF.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		Thisform.do_executa(3) && XML + PDF
		*!* 12.05.2011 ^
		
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decont WITH (lcTabel)  IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivT = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("valoare")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivB = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_deconttva_202601 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="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="edtInfo" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdPDF" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cValoare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cTVA.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblRandAtentie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBaza6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVA6N" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtLivrareTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiBazaN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtAchizitiiTVAN" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cnt_facturi_dupa_inspectie4" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_genereaza_tag		&& metoda interna ajutatoare
		*m: do_genereaza_xdp
		*m: do_genereaza_xdp_201111
		*m: do_genereaza_xdp_201201
		*m: do_genereaza_xdp_201301
		*m: do_genereaza_xdp_201601
		*m: do_genereaza_xdp_201701
		*m: do_genereaza_xdp_201901
		*m: do_genereaza_xdp_202308
		*m: do_genereaza_xdp_202405
		*m: do_genereaza_xdp_202508
		*m: do_genereaza_xdp_202601
		*m: totaluri
		*m: updateinfo
		*m: updatepdf
		*p: cd100pdf
		*p: cd100rezultat
		*p: cd100rezultatfile
		*p: cfisierxml
		*p: nnumarluni
		*p: noldvalue
		*p: nrotn		&& Limitare deducere TVA 4426 id_jtva = 1001. Pentru calculul rand 28 = rand 27 - nROTN
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cd100pdf = ''
		cd100rezultat = ''
		cd100rezultatfile = ''
		cfisierxml = ''
		DoCreate = .T.
		Height = 640
		Name = "frm_deconttva_202601"
		nnumarluni = 0
		noldvalue = 0
		nrotn = 0
		Visible = .F.
		Width = 850
		_memberdata = <VFPData>
			<memberdata name="cfisierxml" display="cFisierXML"/>
			<memberdata name="cd100rezultatfile" display="cD100RezultatFile"/>
			<memberdata name="cd100rezultat" display="cD100Rezultat"/>
			<memberdata name="cd100pdf" display="cD100PDF"/>
			<memberdata name="updatepdf" display="UpdatePDF"/>
			<memberdata name="nnumarluni" display="nNumarLuni"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 852
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 9
		_shape2.Height = 29
		_shape2.Left = 761
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 111
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "FORMULAR 300 - DECONT DE TAXA PE VALOARE ADAUGATA"
		Lb_titlu_alb_b121.Left = 9
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 11
		Lb_titlu_alb_b121.Top = 7
		Lb_titlu_alb_b121.ZOrderSet = 7
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 820
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 8
		Gridsort1.Left = 204
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 5
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 253, ;
		Left = 9, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "cDecont", ;
		TabIndex = 1, ;
		Top = 71, ;
		Width = 831, ;
		ZOrderSet = 9, ;
		Column1.ControlSource = "rand", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 41, ;
		Column2.ControlSource = "denumire", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 454, ;
		Column3.ControlSource = "valoare", ;
		Column3.DynamicBackColor = "iif(inactivB=1,rgb(225,225,225),rgb(255,255,255))", ;
		Column3.Format = "rk", ;
		Column3.InputMask = "999 999 999", ;
		Column3.Name = "cValoare", ;
		Column3.Width = 121, ;
		Column4.ControlSource = "tva", ;
		Column4.Format = "rk", ;
		Column4.InputMask = "999 999 999", ;
		Column4.Name = "cTVA", ;
		Column4.Width = 121
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Rand", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire indicatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cTVA.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cTVA.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdrow1.cValoare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cValoare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_label1' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A. Livrare", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label1", ;
		TabIndex = 17, ;
		Top = 356, ;
		Width = 56, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B. Achizitie", ;
		Height = 18, ;
		Left = 439, ;
		Name = "_label2", ;
		TabIndex = 22, ;
		Top = 405, ;
		Width = 69, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		Anchor = 12, ;
		Caption = "Sold Neexigibil", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label3", ;
		TabIndex = 16, ;
		Top = 335, ;
		Width = 88, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		Anchor = 12, ;
		Caption = "A1. Livrare 6 luni", ;
		Height = 18, ;
		Left = 440, ;
		Name = "_label4", ;
		TabIndex = 23, ;
		Top = 379, ;
		Width = 98, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label5' AS _label WITH ;
		Anchor = 12, ;
		Caption = "B1. Achizitie 6 luni", ;
		Height = 18, ;
		Left = 439, ;
		Name = "_label5", ;
		TabIndex = 28, ;
		Top = 429, ;
		Width = 111, ;
		ZOrderSet = 21
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_shape3' AS _shape WITH ;
		Anchor = 12, ;
		Height = 127, ;
		Left = 424, ;
		Name = "_shape3", ;
		Top = 326, ;
		Width = 415, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 9, ;
		Left = 789, ;
		Name = "But_excel1", ;
		TabIndex = 9, ;
		Top = 0, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 9, ;
		Left = 760, ;
		Name = "But_listare1", ;
		TabIndex = 8, ;
		Top = 0, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Anchor = 4, ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 12, ;
		Top = 541, ;
		Width = 215, ;
		ZOrderSet = 12, ;
		Text_simplu1.ControlSource = "pnProRata", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "999", ;
		Text_simplu1.Left = 147, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 61, ;
		Lb_simplu1.Caption = "Pro rata de deducere %", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'cmdPDF' AS cmd_executa WITH ;
		Alignment = 2, ;
		Anchor = 12, ;
		BackColor = 0,128,255, ;
		Caption = "Export \<PDF inteligent", ;
		FontBold = .T., ;
		Height = 27, ;
		Left = 684, ;
		Name = "cmdPDF", ;
		TabIndex = 14, ;
		Top = 543, ;
		Width = 155, ;
		WordWrap = .T., ;
		ZOrderSet = 5
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie1' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 68, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie1", ;
		TabIndex = 5, ;
		Top = 326, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		LABEL1.Caption = "Facturi emise dupa inspectia fiscala, cf. art. 330 alin. (3) din Codul Fiscal ", ;
		LABEL1.Name = "LABEL1", ;
		LABEL2.Name = "LABEL2", ;
		LABEL3.Name = "LABEL3", ;
		LABEL4.Name = "LABEL4", ;
		Text1.Name = "Text1", ;
		TEXT2.InputMask = "999 999 999 999", ;
		TEXT2.Name = "TEXT2", ;
		TEXT3.InputMask = "999 999 999 999", ;
		TEXT3.Name = "TEXT3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie2' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 69, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie2", ;
		TabIndex = 3, ;
		Top = 394, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Facturi primite dupa inspectia fiscala, cf. pct. 108 alin. (6) din Norm. Met.", ;
		Label1.Name = "Label1", ;
		Label2.Name = "Label2", ;
		Label3.Name = "Label3", ;
		Label4.Name = "Label4", ;
		Text1.ControlSource = "pnNr_facturi2", ;
		Text1.Name = "Text1", ;
		Text2.ControlSource = "pnBaza2", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Name = "Text2", ;
		Text3.ControlSource = "pnTVA2", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Name = "Text3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie3' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 6, ;
		Height = 69, ;
		Left = 9, ;
		Name = "Cnt_facturi_dupa_inspectie3", ;
		TabIndex = 4, ;
		Top = 462, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Facturi emise, cf. art. 11 alin (6) si (8) din Codul Fiscal", ;
		Label1.Name = "Label1", ;
		Label2.Name = "Label2", ;
		Label3.Name = "Label3", ;
		Label4.Name = "Label4", ;
		Text1.ControlSource = "pnNr_facturi3", ;
		Text1.Name = "Text1", ;
		Text2.ControlSource = "pnBaza3", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Name = "Text2", ;
		Text3.ControlSource = "pnTVA3", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Name = "Text3"
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Cnt_facturi_dupa_inspectie4' AS cnt_facturi_dupa_inspectie WITH ;
		Anchor = 12, ;
		Height = 69, ;
		Left = 424, ;
		Name = "Cnt_facturi_dupa_inspectie4", ;
		TabIndex = 2, ;
		Top = 462, ;
		Width = 416, ;
		ZOrderSet = 13, ;
		Shape1.Name = "Shape1", ;
		Label1.Caption = "Prest. serv. catre pers. neimpoz. din alte state UE art. 278 alin. (8) lit. b) C.F.", ;
		Label1.Name = "Label1", ;
		Label2.Left = 7, ;
		Label2.Name = "Label2", ;
		Label2.Top = 85, ;
		Label2.Visible = .F., ;
		Label3.Caption = "Valoare fara TVA an precedent", ;
		Label3.Left = 8, ;
		Label3.Name = "Label3", ;
		Label3.Top = 25, ;
		Label4.Caption = "Valoare fara TVA an curent", ;
		Label4.Left = 234, ;
		Label4.Name = "Label4", ;
		Label4.Top = 24, ;
		Text1.ControlSource = "", ;
		Text1.Left = 18, ;
		Text1.Name = "Text1", ;
		Text1.Top = 101, ;
		Text1.Visible = .F., ;
		Text2.ControlSource = "pnBaza41", ;
		Text2.InputMask = "999 999 999 999", ;
		Text2.Left = 8, ;
		Text2.Name = "Text2", ;
		Text2.Top = 40, ;
		Text3.ControlSource = "pnBaza42", ;
		Text3.InputMask = "999 999 999 999", ;
		Text3.Left = 234, ;
		Text3.Name = "Text3", ;
		Text3.Top = 40
		*< END OBJECT: ClassLib="ovanzcump.vcx" BaseClass="container" />

	ADD OBJECT 'Command1' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Datele de identif. ale firmei", ;
		FontSize = 10, ;
		Left = 360, ;
		Name = "Command1", ;
		TabIndex = 6, ;
		Top = 651, ;
		Visible = .F., ;
		Width = 175, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'Command3' AS commandbutton WITH ;
		Anchor = 12, ;
		AutoSize = .T., ;
		Caption = "Export in fisiere text", ;
		ForeColor = 0,0,255, ;
		Height = 27, ;
		Left = 408, ;
		Name = "Command3", ;
		TabIndex = 7, ;
		Top = 653, ;
		Visible = .F., ;
		Width = 123, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="commandbutton" />

	ADD OBJECT 'edtInfo' AS _editbox WITH ;
		Anchor = 14, ;
		Height = 48, ;
		Left = 12, ;
		Name = "edtInfo", ;
		TabIndex = 13, ;
		Top = 582, ;
		Visible = .T., ;
		Width = 828, ;
		ZOrderSet = 4
		*< END OBJECT: ClassLib="..\..\roastart\comun\clase\_baza.vcx" BaseClass="editbox" />

	ADD OBJECT 'lblRandAtentie' AS _label WITH ;
		Anchor = 10, ;
		AutoSize = .F., ;
		BackColor = 255,255,128, ;
		BackStyle = 1, ;
		Caption = "Corectati valoarea din randul 31, daca este cazul (SUB-TOTAL TAXA DEDUSA CONFORM ART.297 SI 298 SAU 300 ) = RD. 30 - Limitare deducere TVA", ;
		FontSize = 10, ;
		Height = 39, ;
		Left = 10, ;
		Name = "lblRandAtentie", ;
		TabIndex = 15, ;
		Top = 33, ;
		Width = 818, ;
		WordWrap = .T., ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\..\..\contafin\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT 'txtAchizitiiBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtAchizitiiBaza6N", ;
		ReadOnly = .F., ;
		TabIndex = 26, ;
		Top = 426, ;
		Width = 114, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtAchizitiiBazaN", ;
		ReadOnly = .F., ;
		TabIndex = 20, ;
		Top = 402, ;
		Width = 114, ;
		ZOrderSet = 19
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 713, ;
		Name = "txtAchizitiiTVA6N", ;
		ReadOnly = .F., ;
		TabIndex = 27, ;
		Top = 426, ;
		Width = 114, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtAchizitiiTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnAchizitieTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 713, ;
		Name = "txtAchizitiiTVAN", ;
		ReadOnly = .F., ;
		TabIndex = 21, ;
		Top = 402, ;
		Width = 114, ;
		ZOrderSet = 20
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBaza6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBaza6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtLivrareBaza6N", ;
		ReadOnly = .F., ;
		TabIndex = 24, ;
		Top = 376, ;
		Width = 114, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareBazaN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareBazaN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 591, ;
		Name = "txtLivrareBazaN", ;
		ReadOnly = .F., ;
		TabIndex = 18, ;
		Top = 353, ;
		Width = 114, ;
		ZOrderSet = 17
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVA6N' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVA6N", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 714, ;
		Name = "txtLivrareTVA6N", ;
		ReadOnly = .F., ;
		TabIndex = 25, ;
		Top = 376, ;
		Width = 114, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtLivrareTVAN' AS _textbox WITH ;
		Anchor = 12, ;
		ControlSource = "pnLivrareTVAN", ;
		Height = 23, ;
		InputMask = "999 999 999 999", ;
		Left = 714, ;
		Name = "txtLivrareTVAN", ;
		ReadOnly = .F., ;
		TabIndex = 19, ;
		Top = 353, ;
		Width = 114, ;
		ZOrderSet = 18
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE Activate
		* nu sterge
		
		Local lnLeft, lnWidth
		This.LockScreen=.T.
		lnWidth = This.Width
		lnLeft = This.Left
		
		This.WindowState = 2
		This.Width = lnWidth 
		This.Left = lnLeft
		
		This.LockScreen=.F.
		
	ENDPROC

	PROCEDURE do_executa
		*!* 01.02.2012
		*!*	d300_201201.pdf
		
		Lparameters tnMenu
		*!* tnMenu: 1 = XML, 2 = PDF, 3 = XML + PDF
		*!* tnDecl: 100, 102
		#Define CRLF Chr(13) + Chr(10)
		
		
		Local loEx As Exception
		Local lnMenu, lcCaleFisier, lcCaleFisierPDF, lcNumeFisier
		Local lcAppPath, lcCaleD112, lcComunPath, lcSelect, lcTempPath, lnPos
		Local lcFileName, lcFisierPDFNou, lcFisierPDFOriginal, lcFisierXDP, lcFisierXML, lcRun
		Local loProcess As "api_apprun" Of "process.vcx"
		Local lcD112RezultatFile, lcD112ValidatorFile, lcMesaj, lcRezultat, lcVersiuneDUK
		Local lcVersiuneFisiereD112, lcVersiunePDF, llSucces
		Local lcCod_fiscal, lcCaenRevizie, lnCaenRevizie
		lcCaleFisier = ""
		
		lcSelect = Select()
		If !Empty(tnMenu)
			lnMenu = tnMenu
		Else
			lnMenu = xmenu("Genereaza \<XML pentru validare;Completeaza \<PDF;Genereaza XML \<si completeaza PDF")
		Endif
		If !Between(lnMenu,1,3)
			Return
		Endif
		This.UpdateInfo("RESET")
		
		lcAppPath = Addbs(gcAppPath)
		lcComunPath = lcAppPath
		lnPos = Rat("\", Addbs(m.lcAppPath), 2)
		If lnPos > 0
			lcComunPath = Left(m.lcAppPath, lnPos)
		Endif
		lcComunPath = ADDBS(m.gcBasePath) + Iif(gcAppName = "CONCONT", "COMUNCONTAFIN\", "COMUNROA\") && d:\contafin\comuncontafin\
		
		This.UpdateInfo("Creez structura director export...")
		
		*** Creez structura director export (caletemp\D112\aaaa_ll\firma\
		llSucces = .F.
		
		Try
			lcTempPath = ADDBS(m.gcBasePath)
		
			lcCaleFisier = m.lcTempPath + "D300\" && c:\temp\D112\
		
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + Alltrim(Str(This.nAn)) + "_" + Padl(Alltrim(Str(This.nLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			lcCaleFisier = m.lcCaleFisier + Alltrim(Str(gnAn)) + "_" + Padl(Alltrim(Str(gnLuna)),2, "0") + "\"&& c:\temp\D112\2011_01\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
		
			*lcCaleFisier = m.lcCaleFisier + STRTRAN(This.cNumeFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			lcCaleFisier = m.lcCaleFisier + Strtran(gcFirma,[ ],[_]) + "\" && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisier)
				Md (m.lcCaleFisier)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisier)
		
			*lcCaleFisierPDF = m.lcCaleFisier + "pdf_inteligent\" && c:\temp\D112\2011_01\firma\pdf_inteligent\
			lcCaleFisierPDF = m.lcCaleFisier  && c:\temp\D112\2011_01\firma\
			If !Directory(m.lcCaleFisierPDF)
				Md (m.lcCaleFisierPDF)
			Endif
			This.UpdateInfo("S-a creat directorul " + m.lcCaleFisierPDF)
		
			llSucces = .T.
		Catch To loEx
			lcMesaj = "Creare director " + lcCaleFisier + " " + loEx.Message
			This.UpdateInfo(lcMesaj)
		
			Thisform.afiseaza_mesaj(lcMesaj,0+48)
		Endtry
		If !llSucces
			Return
		Endif
		*!*		lcCaleFisier = shortpath(Getdir([],[Alegeti directorul unde se va salva PDF-ul/XML-ul],[Declaratia 112]))
		
		lcCaenRevizie = NVL(goFirma.caen_revizie, '2')
		lnCaenRevizie = INT(VAL(m.lcCaenRevizie))
		Do Case
			Case gnAn*12 + gnLuna >= 2026*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_202601.pdf" && TVA 21% - s-au scos 19,9,5%
		
			Case gnAn*12 + gnLuna >= 2025*12 + 8
				lcFisierPDFOriginal = lcComunPath + "d300_202508.pdf" && TVA 21%
				
			Case m.gnAn * 12 + m.gnLuna >= 2025 * 12 + 1 AND m.lnCaenRevizie >= 3
				lcFisierPDFOriginal = lcComunPath + "d300_202501_v3.pdf" && Cod CAEN rev. 3
		
			Case gnAn*12 + gnLuna >= 2024*12 + 5
				lcFisierPDFOriginal = lcComunPath + "d300_202405.pdf"
			Case gnAn*12 + gnLuna >= 2023*12 + 8
				lcFisierPDFOriginal = lcComunPath + "d300_202308.pdf"
			Case gnAn*12 + gnLuna >= 2021*12 + 6
				lcFisierPDFOriginal = lcComunPath + "d300_202106.pdf"
			Case gnAn*12 + gnLuna >= 2019*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201907.pdf"
			Case gnAn*12 + gnLuna >= 2017*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201701.pdf"
			Case gnAn*12 + gnLuna >= 2016*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201601.pdf"
			Case gnAn*12 + gnLuna >= 2013*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201301.pdf"
			Case gnAn*12 + gnLuna >= 2012*12 + 1
				lcFisierPDFOriginal = lcComunPath + "d300_201201.pdf"
			Case gnAn*12 + gnLuna >= 2011*12 + 11
				lcFisierPDFOriginal = lcComunPath + "d300_201111.pdf"
			Otherwise
				lcFisierPDFOriginal = lcComunPath + "d300.pdf"
		Endcase
		
		*!* 19.01.2012
		This.UpdatePDF(m.lcFisierPDFOriginal) && actualizez pdf de la romfast
		*!* 19.01.2012 ^
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		*lcNumeFisier = "d100_"+ Alltrim(Transform(Thisform.cCodFiscal)) + "_" + Alltrim(Str(Int(Thisform.nAn))) + "_" + Alltrim(Padl(Int(Thisform.nLuna), 2, "0"))
		lcNumeFisier = "d300_"+ lcCod_fiscal + "_" + Alltrim(Str(gnAn)) + "_" + Padl(gnLuna, 2, "0")
		
		
		lcFileName = m.lcCaleFisier + lcNumeFisier
		
		lcFileNamePDF = m.lcCaleFisierPDF + lcNumeFisier
		lcFisierPDFNou = m.lcFileNamePDF + [.pdf]
		lcFisierXDP = m.lcFileNamePDF + [.xdp]
		
		lcFisierXML = m.lcFileName + [.xml]
		*lcD100ValidatorFile = m.lcComunPath + [dist\DUKIntegrator.jar]
		lcD100RezultatFile = m.lcFisierXML + [.err.txt]
		
		lcVersiuneFisiereD112 = lcComunPath + "versiuni_fisiere.txt"
		*this.cD112ValidatorFile = lcD112ValidatorFile
		This.cFisierXML = lcFisierXML
		This.cD100RezultatFile = lcD100RezultatFile
		
		If Inlist(lnMenu, 2,3)
			If File(lcFisierPDFNou)
				Delete File (lcFisierPDFNou)
			Endif
			If File(lcFisierXDP)
				Delete File (lcFisierXDP)
			Endif
		Endif
		If Inlist(lnMenu, 1,3)
			If File(lcFisierXML)
				Delete File (lcFisierXML)
			Endif
			If File(m.lcD100RezultatFile)
				Delete File (m.lcD100RezultatFile)
			Endif
		Endif
		This.cD100Rezultat = ""
		This.cD100PDF = ""
		
		*** verific pdf original
		*!*	If Inlist(lnMenu,2,3)
		*!*		This.verificare_versiune("A")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	ENDIF
		
		*** verific program validare D112
		*!*	If Inlist(lnMenu,1,3)
		*!*		This.verificare_versiune("J")
		*!*		This.UpdateInfo(REPLICATE('-', 100))
		*!*	Endif
		
		*** creez xml, xdp (= xml data package = xml cu sesiunea pdf-ului inteligent)
		
		Do Case
			Case lnMenu = 1
				This.UpdateInfo("Se exporta datele in format XML")
				Thisform.do_genereaza_xml(lcFisierXML)
				This.UpdateInfo(Replicate('-', 100))
		*!*		Case lnMenu = 2
		*!*			This.UpdateInfo("Se exporta datele in format PDF")
		*!*			Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		*!*			This.UpdateInfo(Replicate('-', 100))
			Case INLIST(lnMenu,2,3)
				This.UpdateInfo("Se exporta datele in format XML+PDF")
				DO CASE 
					CASE gnAn*12+gnLuna >= 2026*12+1
						Thisform.do_genereaza_xdp_202601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2025*12+8
						Thisform.do_genereaza_xdp_202508(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2024*12+5
						Thisform.do_genereaza_xdp_202405(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2023*12+8
						Thisform.do_genereaza_xdp_202308(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2018*12+1
						Thisform.do_genereaza_xdp_201901(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2017*12+1
						Thisform.do_genereaza_xdp_201701(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2016*12+1
						Thisform.do_genereaza_xdp_201601(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2013*12+1
						Thisform.do_genereaza_xdp_201301(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
						
					CASE gnAn*12+gnLuna >= 2012*12+1
						Thisform.do_genereaza_xdp_201201(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					CASE gnAn*12+gnLuna >= 2011*12+11
						Thisform.do_genereaza_xdp_201111(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
		
					OTHERWISE 
						Thisform.do_genereaza_xdp(lcFisierPDFOriginal, lcFisierXDP, lcFisierPDFNou)
				ENDCASE 
				This.UpdateInfo(Replicate('-', 100))
		Endcase
		
		
		*** deschid fisierul XDP (pdf inteligent)
		If Inlist(lnMenu,2,3) And File(lcFisierXDP)
			If !File(m.lcFisierPDFOriginal)
				OPEN_DEFAULT_APP("http://static.anaf.ro/static/10/Anaf/Declaratii_R/300.html")
				AMessagebox('Nu exista fisierul ' + m.lcFisierPDFOriginal + CRLF + ;
					'Copiati pdf-ul inteligent D300 de pe website-ul ANAF in directorul ' + Justpath(m.lcFisierPDFOriginal) + CRLF + ;
					'cu numele ' + Justfname(m.lcFisierPDFOriginal) + '.', 0+48, _Screen.Caption)
			Else
				*** copiez fisierul pdf inteligent original in directorul de export
				Copy File (lcFisierPDFOriginal) To (lcFisierPDFNou)
				This.cD100PDF = m.lcFisierXDP
				If File(m.lcFisierXDP)
					This.UpdateInfo([In PDF apasati butonul "Options > Trust this document always" de pe banda galbena pentru a incarca datele.])
					open_default_app(lcFisierXDP)
				ENDIF
			ENDIF 	
		Endif
		
		*!*	*** deschid explorer in directorul de export
		lcRun = [RUN /N7 explorer.exe "] + m.lcCaleFisier + ["]
		&lcRun
		
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_tag		&& metoda interna ajutatoare
		X=SQLCONNECT("ROA_CENTRAL","MARIUSM_AUTO","123")
		LNSUCCES = SQLEXEC(X,"SELECT * from deconttva where valabil = '0112' AND TRIM(RAND) IS NOT NULL order by id_decont", "CRSDECONT")
		SQLDISCONNECT(0)
		lcText = ""
		SELECT CRSDECONT
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcTag = "r" + m.lcRand
			lcVariabilaB = [m.ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [m.ln] + m.lcRand + "T" && ln17_1T
			lcC1 = ""
			lcC2 = ""
			IF inactivb = 0
				lcC1 = [<C1><<] + m.lcVariabilaB + [>></C1>]
			ENDIF 
			IF inactivt = 0
				lcC2 = [<C2><<] + m.lcVariabilaT + [>></C2>]
			ENDIF 	
		
			lcText = lcText + [\<] + m.lcTag + [>] + m.lcC1 + m.lcC2 + [</] + m.lcTag + [>] + CHR(13) + CHR(10)
		ENDSCAN 
		_cliptext = lcText
		
		TEXT TO lcXX
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		\<r17_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r17_1>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r27_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r27_1>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		ENDTEXT 
	ENDPROC

	PROCEDURE do_genereaza_xdp
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcDateStyle, lcMark, lcXDP
		Local lcSelect, lcCod_fiscal
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Set Date To Ymd
		Set Mark To '-'
		
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <codF1>
		\  <codF2>300</codF2>
		\ </codF1>
		
		\ <body1>
		\ <header>
		\<TDD_LUNA><<gnLuna>></TDD_LUNA>
		\<TDD_AN><<gnAn>></TDD_AN>
		\ </header>
		
		\ <sub1>
		\<text_email><<Nvl(Alltrim(gofirma.email),'')>></text_email>
		\<text_fax><<Nvl(Alltrim(gofirma.fax),'')>></text_fax>
		\<text_telefon><<Nvl(Alltrim(gofirma.telefon),'')>></text_telefon>
		\<text_adresa><<Nvl(Alltrim(gofirma.adresa),'')>></text_adresa>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<text_denumire><<lcFirma>></text_denumire>
		
		If Upper(Substr(Alltrim(gofirma.cod_fiscal),1,2))='RO'
			lcCod_fiscal = Substr(Alltrim(gofirma.cod_fiscal),3,Len(Alltrim(gofirma.cod_fiscal))-2)
		Else
			lcCod_fiscal = Alltrim(gofirma.cod_fiscal)
		Endif
		
		\<CON_ID><<lcCod_fiscal>></CON_ID>
		
		\<sub1_banca>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\</sub1_banca>
		
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<COD_IMP>301</COD_IMP>
		\</sub1>
		
			\<sub_tables>
		
		
		Select * From cDecont Into Cursor crsControl
		
		Local lnTabele, lnTabel , lnAntet, lnId_decont, lnPuncte
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
			
		
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
		
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
		
		
		
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\</sub_tables>
		
		\<end1>
		\<part1><SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<NR_JUSTIFICATIV>10301010611250711000030</NR_JUSTIFICATIV>
		\<TextField1>105419</TextField1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		
		\<nume><<Alltrim(gofirma.declarant)>></nume>
		\<functia><<Alltrim(gofirma.functie)>></functia>
		\</part1>
		
		\<part2>
		\<NUMAR_INREGISTRARE></NUMAR_INREGISTRARE>
		\<DATA_INREGISTRARE></DATA_INREGISTRARE>
		\</part2>
		\</end1>
		
		\<subEnd>
		\<trimestrialCheckOk>1</trimestrialCheckOk>
		\<numeFisier></numeFisier>
		\<TextField1>Vers.1.0.0/ 2011</TextField1>
		\<sir_CB></sir_CB>
		\</subEnd>
		
		\</body1>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201111
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		LOCAL lnTipDecont
		lnTipDecont = IIF(This.nNumarLuni = 1, 301, IIF(This.nNumarLuni = 3, 302, IIF(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		SET STEP ON 
		lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		IF GETWORDCOUNT(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = GETWORDNUM(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = ALLTRIM(STRTRAN(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		ENDIF 	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = UPPER(Alltrim(NVL(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = ALLTRIM(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(ALLTRIM(UPPER(NVL(goFirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		
		Select * From cDecont Into Cursor crsControl
		
		Store 0 To lnTabele, lnTabel, lnAntet, lnId_decont, lnPuncte
		
		Select cDecont
		Calculate Cnt() For antet = 2 To lnTabele
		
		Select cDecont
		Scan
			lnAntet = antet
		
			If lnAntet = 2
				*!*	\<Table1>
				lnTabel = lnTabel + 1
					
				If lnTabel > 1
		\</Table<<lnTabel-1>>>
				ENDIF
				
				IF lnTabel = 2 && inainte de al doilea tabel
				\<spacer xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
				ENDIF 
		\<Table<<lnTabel>>>
				*!*	end \<Table1>
				
				lnId_decont = id_decont
		
				Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 1 && daca urmeaza un subtitlu - inainte de randul 1, 17
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Else && dupa antetul gri nu mai urmeaza un subtitlu alb, ci direct indicatori - inainte de al 3-lea tabel, randul 31
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					Endif
				Endif
			Endif && lnAntet = 2
			
			If lnAntet = 1
			lnId_decont = id_decont
			Select crsControl
				Locate For id_decont = lnId_decont + 1
				If Found()
					If antet = 0 && nu este subtitlu dupa antet gri inchis  - dupa randul 8, 20
					\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
					ENDIF 
				ENDIF 	
			ENDIF && lnAntet = 1
		
			*!*	<rn><C1/><C2/></rn>
			Select cDecont
			lcRand = ALLTRIM(Rand)
			lnPuncte = Occurs('.', lcRand)
			If lnPuncte = 1
				lcRand = Strtran(lcRand,'.','_')
			Endif
			If lnPuncte = 2
				lnUltPunct = Rat('.', lcRand)
				lcRand = Substr(lcRand,1,lnUltPunct-1)+Substr(lcRand,lnUltPunct+1,Len(lcRand)-1)
				lcRand = Strtran(lcRand,'.','_')
			Endif
		
			If !Empty(Rand)
				If inactivb=0 And inactivt = 0
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
				If inactivb=0 And inactivt = 1
		\<r<<lcRand>>><C1><<ALLTRIM(STR(valoare,9,0))>></C1></r<<lcRand>>>
				Endif
				If inactivb=1 And inactivt = 0
		\<r<<lcRand>>><C2><<ALLTRIM(STR(tva,9,0))>></C2></r<<lcRand>>>
				Endif
			Endif
			Select cDecont
		ENDSCAN
		
		IF USED('crsControl')
		USE IN crsControl
		ENDIF 
		
		\</Table<<lnTabele>>>
		
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		 
	ENDPROC

	PROCEDURE do_genereaza_xdp_201201
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r12a><C1><<m.ln13B>></C1></r12a>
		\<r13><C1><<m.ln14B>></C1></r13>
		\<r14><C1><<m.ln15B>></C1></r14>
		\<r15><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r15>
		\<r16><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r16>
		\<r16_1><C1><<m.ln17_1B>></C1><C2><<m.ln17_1T>></C2></r16_1>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r17><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r17>
		\<r17_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r17_1>
		\<r18><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r18>
		\<r19><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r19>
		\<r19_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r19_1>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r20><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r20>
		\<r21><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r21>
		\<r22><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r22>
		\<r23><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r23>
		\<r23a><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r23a>
		\<r24><C1><<m.ln26B>></C1></r24>
		\<r24_1><C1><<m.ln26_1B>></C1></r24_1>
		\<r25><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r25>
		\<r25_1><C1><<m.ln27_1B>></C1><C2><<m.ln27_1T>></C2></r25_1>
		\<r26><C2><<m.ln28T>></C2></r26>
		\<r27><C2><<m.ln29T>></C2></r27>
		\<r28><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C2><<m.ln32T>></C2></r30>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301011111251211000022</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201301
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\</part1>
		
		\<evid2>
		\<nr_evid>10301010113250213000024</nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		
		\<r12_1><C1><<m.ln12_1B>></C1><C2><<m.ln12_1T>></C2></r12_1>
		\<r12_2><C1><<m.ln12_2B>></C1><C2><<m.ln12_2T>></C2></r12_2>
		\<r12_3><C1><<m.ln12_3B>></C1><C2><<m.ln12_3T>></C2></r12_3>
		
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		
		\<r25_1><C1><<m.ln25_1B>></C1><C2><<m.ln25_1T>></C2></r25_1>
		\<r25_2><C1><<m.ln25_2B>></C1><C2><<m.ln25_2T>></C2></r25_2>
		\<r25_3><C1><<m.ln25_3B>></C1><C2><<m.ln25_3T>></C2></r25_3>
		
		\<r26><C1><<m.ln26B>></C1></r26>
		\<r26_1><C1><<m.ln26_1B>></C1></r26_1>
		\<r27><C1><<m.ln27B>></C1><C2><<m.ln27T>></C2></r27>
		\<r28><C2><<m.ln28T>></C2></r28>
		\<r29><C2><<m.ln29T>></C2></r29>
		\<r30><C1><<m.ln30B>></C1><C2><<m.ln30T>></C2></r30>
		\<r31><C2><<m.ln31T>></C2></r31>
		\<r32><C2><<m.ln32T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln33T>></C2></r33>
		\<r34><C2><<m.ln34T>></C2></r34>
		\<r35><C2><<m.ln35T>></C2></r35>
		\<r36><C2><<m.ln36T>></C2></r36>
		\<r37><C2><<m.ln37T>></C2></r37>
		\<r38><C2><<m.ln38T>></C2></r38>
		\<r39><C2><<m.ln39T>></C2></r39>
		\<r40><C2><<m.ln40T>></C2></r40>
		\<r41><C2><<m.ln41T>></C2></r41>
		\<r42><C2><<m.ln42T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\<tva_a1><<pnLivrareTVA6N>></tva_a1><tva_b1><<pnAchizitieTVA6N>></tva_b1><valoare_a1><<pnLivrareBaza6N>></valoare_a1><valoare_b1><<pnAchizitieBaza6N>></valoare_b1>
		\</part1>
		
		\<evid2>
		\<nr_evid></nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201701
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = valoare
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = tva
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\ <form1>
		\ <body1>
		\ <HEADER xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\ <sub_per>
		\<an_r><<gnAn>></an_r>
		\<luna_r><<gnLuna>></luna_r>
		\<d_rec>0</d_rec>
		&& la o luna, la 3, 6, 12, cod_imp = 301, 302, 303, 304
		\<TIP_DECONT><<m.lnTipDecont>></TIP_DECONT>
		\<bifa_interne>0</bifa_interne>
		\</sub_per>
		\<sub_Id1>
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		Endif
		
		\<cif><<lcCod_fiscal>></cif>
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		\<den><<lcFirma>></den>
		\<adresa><<Nvl(Alltrim(gofirma.adresa),'')>></adresa>
		\<telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon>
		\<fax><<Nvl(Alltrim(gofirma.fax),'')>></fax>
		\<mail><<Nvl(Alltrim(gofirma.email),'')>></mail>
		\<banca><<Nvl(Alltrim(gofirma.banca1),'')>></banca>
		\<contul><<Nvl(Alltrim(gofirma.cont_banca1),'')>></contul>
		\<PRO_RATA><<pnProRata>></PRO_RATA>
		\</sub_Id1>
		\</body1>
		
		\<body1_D300>
		****************************
		*** BODY
		\<Table11>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r1><C1><<m.ln1B>></C1></r1>
		\<r2><C1><<m.ln2B>></C1></r2>
		\<r3><C1><<m.ln3B>></C1></r3>
		\<r3_1><C1><<m.ln3_1B>></C1></r3_1>
		\<r4><C1><<m.ln4B>></C1></r4>
		\<r5><C1><<m.ln5B>></C1><C2><<m.ln5T>></C2></r5>
		\<r5_1><C1><<m.ln5_1B>></C1><C2><<m.ln5_1T>></C2></r5_1>
		\<r6><C1><<m.ln6B>></C1><C2><<m.ln6T>></C2></r6>
		\<r7><C1><<m.ln7B>></C1><C2><<m.ln7T>></C2></r7>
		\<r7_1><C1><<m.ln7_1B>></C1><C2><<m.ln7_1T>></C2></r7_1>
		\<r8><C1><<m.ln8B>></C1><C2><<m.ln8T>></C2></r8>
		\</Table11>
		
		\<Table1>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r9><C1><<m.ln9B>></C1><C2><<m.ln9T>></C2></r9>
		\<r10><C1><<m.ln10B>></C1><C2><<m.ln10T>></C2></r10>
		\<r11><C1><<m.ln11B>></C1><C2><<m.ln11T>></C2></r11>
		\<r12><C1><<m.ln12B>></C1><C2><<m.ln12T>></C2></r12>
		
		\<r12_1><C1><<m.ln12_1B>></C1><C2><<m.ln12_1T>></C2></r12_1>
		\<r12_2><C1><<m.ln12_2B>></C1><C2><<m.ln12_2T>></C2></r12_2>
		\<r12_3><C1><<m.ln12_3B>></C1><C2><<m.ln12_3T>></C2></r12_3>
		
		\<r13><C1><<m.ln13B>></C1></r13>
		\<r14><C1><<m.ln14B>></C1></r14>
		\<r15><C1><<m.ln15B>></C1></r15>
		\<r16><C1><<m.ln16B>></C1><C2><<m.ln16T>></C2></r16>
		\<r17><C1><<m.ln17B>></C1><C2><<m.ln17T>></C2></r17>
		
		\</Table1>
		\<Table21>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h3 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r18><C1><<m.ln18B>></C1><C2><<m.ln18T>></C2></r18>
		\<r18_1><C1><<m.ln18_1B>></C1><C2><<m.ln18_1T>></C2></r18_1>
		\<r19><C1><<m.ln19B>></C1><C2><<m.ln19T>></C2></r19>
		\<r20><C1><<m.ln20B>></C1><C2><<m.ln20T>></C2></r20>
		\<r20_1><C1><<m.ln20_1B>></C1><C2><<m.ln20_1T>></C2></r20_1>
		\<r21><C1><<m.ln21B>></C1><C2><<m.ln21T>></C2></r21>
		\</Table21>
		
		\<Table2>
		\<h4 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r22><C1><<m.ln22B>></C1><C2><<m.ln22T>></C2></r22>
		\<r23><C1><<m.ln23B>></C1><C2><<m.ln23T>></C2></r23>
		\<r24><C1><<m.ln24B>></C1><C2><<m.ln24T>></C2></r24>
		\<r25><C1><<m.ln25B>></C1><C2><<m.ln25T>></C2></r25>
		
		\<r25_1><C1><<m.ln25_1B>></C1><C2><<m.ln25_1T>></C2></r25_1>
		\<r25_2><C1><<m.ln25_2B>></C1><C2><<m.ln25_2T>></C2></r25_2>
		\<r25_3><C1><<m.ln25_3B>></C1><C2><<m.ln25_3T>></C2></r25_3>
		
		\<r43><C2><<m.ln26T>></C2></r43>
		\<r44><C2><<m.ln27T>></C2></r44>
		\<r26><C1><<m.ln28B>></C1></r26>
		\<r26_1><C1><<m.ln28_1B>></C1></r26_1>
		\<r27><C1><<m.ln29B>></C1><C2><<m.ln29T>></C2></r27>
		\<r28><C2><<m.ln30T>></C2></r28>
		\<r29><C2><<m.ln31T>></C2></r29>
		\<r30><C1><<m.ln32B>></C1><C2><<m.ln32T>></C2></r30>
		\<r31><C2><<m.ln33T>></C2></r31>
		\<r32><C2><<m.ln34T>></C2></r32>
		\</Table2>
		
		\<Table3>
		\<h1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<h2 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<r33><C2><<m.ln35T>></C2></r33>
		\<r34><C2><<m.ln36T>></C2></r34>
		\<r35><C2><<m.ln37T>></C2></r35>
		\<r36><C2><<m.ln38T>></C2></r36>
		\<r37><C2><<m.ln39T>></C2></r37>
		\<r38><C2><<m.ln40T>></C2></r38>
		\<r39><C2><<m.ln41T>></C2></r39>
		\<r40><C2><<m.ln42T>></C2></r40>
		\<r41><C2><<m.ln43T>></C2></r41>
		\<r42><C2><<m.ln44T>></C2></r42>
		\</Table3>
		
		****************************
		*** FOOTER
		\<evid1>
		\<CoduriCAEN><<Nvl(Alltrim(gofirma.caen),'')>></CoduriCAEN>
		\<SOLICIT_RAMBURSARE>N</SOLICIT_RAMBURSARE>
		\<bifa_cereale>N</bifa_cereale>
		\</evid1>
		
		\<part1>
		\<Table4>
		\<Row1 xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\<Row2><C1><<pnNr_facturi>></C1><C2><<pnBaza>></C2><C3><<pnTva>></C3></Row2>
		\</Table4>
		\<tva_a><<pnLivrareTVAN>></tva_a><tva_b><<pnAchizitieTVAN>></tva_b><valoare_a><<pnLivrareBazaN>></valoare_a><valoare_b><<pnAchizitieBazaN>></valoare_b>
		\<tva_a1><<pnLivrareTVA6N>></tva_a1><tva_b1><<pnAchizitieTVA6N>></tva_b1><valoare_a1><<pnLivrareBaza6N>></valoare_a1><valoare_b1><<pnAchizitieBaza6N>></valoare_b1>
		\</part1>
		
		\<evid2>
		\<nr_evid></nr_evid>
		\<totalPlata_A></totalPlata_A>
		\</evid2>
		\</body1_D300>
		\<body10>
		\<sub_semnatura>
		
		\<nume_declar><<m.lcNumeDeclarant>></nume_declar>
		\<prenume_declar><<m.lcPrenumeDeclarant>></prenume_declar>
		\<functie_declar><<Alltrim(gofirma.functie)>></functie_declar>
		\</sub_semnatura>
		\</body10>
		\<butoane>
		\<blocare>0</blocare>
		\</butoane>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_201901
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202308
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r14_1><c2><<m.ln14_1B>></c2></r14_1>
		\<r14_2><c2><<m.ln14_2B>></c2></r14_2>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202405
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<Caen>
		\	<Gap xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/" xfa:dataNode="dataGroup"/>
		\	<caen><<Nvl(Alltrim(gofirma.caen),'')>></caen></Caen>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202508
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		Set Step On
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		lcCaenRevizie = NVL(goFirma.caen_revizie, '2')
		lnCaenRevizie = INT(VAL(m.lcCaenRevizie))
		lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '')
		lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '')	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<caen><<m.lcCaenRev2>></caen>
		\	<caen1><<m.lcCaenRev3>></caen1>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r9_1><c2><<m.ln9_1B>></c2><c3><<m.ln9_1T>></c3></r9_1>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r10_1><c2><<m.ln10_1B>></c2><c3><<m.ln10_1T>></c3></r10_1>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r11_1><c2><<m.ln11_1B>></c2><c3><<m.ln11_1T>></c3></r11_1>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		\<r12_3><c2><<m.ln12_3B>></c2><c3><<m.ln12_3T>></c3></r12_3>
		\<r12_4><c2><<m.ln12_4B>></c2><c3><<m.ln12_4T>></c3></r12_4>
		\<r12_5><c2><<m.ln12_5B>></c2><c3><<m.ln12_5T>></c3></r12_5>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r24_1><c2><<m.ln24_1B>></c2><c3><<m.ln24_1T>></c3></r24_1>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		\<r25_1><c2><<m.ln25_1B>></c2><c3><<m.ln25_1T>></c3></r25_1>
		\<r26><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r26>
		\<r27><c2><<m.ln27B>></c2><c3><<m.ln27T>></c3></r27>
		
		\<r27_1><c2><<m.ln27_1B>></c2><c3><<m.ln27_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln27_2B>></c2><c3><<m.ln27_2T>></c3></r27_2>
		\<r27_3><c2><<m.ln27_3B>></c2><c3><<m.ln27_3T>></c3></r27_3>
		\<r27_4><c2><<m.ln27_4B>></c2><c3><<m.ln27_4T>></c3></r27_4>
		\<r27_5><c2><<m.ln27_5B>></c2><c3><<m.ln27_5T>></c3></r27_5>
		
		\<r28><c3><<m.ln28T>></c3></r28>
		\<r29><c3><<m.ln29T>></c3></r29>
		\<r30><c2><<m.ln30B>></c2></r30>
		\<r30_1><c2><<m.ln30_1B>></c2></r30_1>
		\<r31><c2><<m.ln31B>></c2><c3><<m.ln31T>></c3></r31>
		\<r32><c3><<m.ln32T>></c3></r32>
		\<r33><c3><<m.ln33T>></c3></r33>
		\<r34><c2><<m.ln34B>></c2><c3><<m.ln34T>></c3></r34>
		\<r35><c3><<m.ln35T>></c3></r35>
		\<r36><c3><<m.ln36T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln37T>></c3></r37>
		\<r38><c3><<m.ln38T>></c3></r38>
		\<r39><c3><<m.ln39T>></c3></r39>
		\<r40><c3><<m.ln40T>></c3></r40>
		\<r41><c3><<m.ln41T>></c3></r41>
		\<r42><c3><<m.ln42T>></c3></r42>
		\<r43><c3><<m.ln43T>></c3></r43>
		\<r44><c3><<m.ln44T>></c3></r44>
		\<r45><c3><<m.ln45T>></c3></r45>
		\<r46><c3><<m.ln46T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE do_genereaza_xdp_202601
		Lparameters tcFisierPDFOriginal, tcFisierXDP, tcFisierPDFNou
		Local lcCod_fiscal, lcDateStyle, lcMark, lcNumeDeclarant, lcNumePrenumeDeclarant, lcPrenumeDeclarant, lcCodFiscal
		Local lcRand, lcSelect, lcXDP, lnAntet, lnId_decont, lnPuncte, lnTabel, lnTabele, lnUltPunct, lnSumaControl
		lcSelect = Select()
		
		lcDateStyle = Set("Date")
		lcMark = Set("Mark")
		
		Local lnTipDecont, lcTipDecont
		lnTipDecont = Iif(This.nNumarLuni = 1, 301, Iif(This.nNumarLuni = 3, 302, Iif(This.nNumarLuni = 6, 303, 304)))
		lcTipDecont = Iif(This.nNumarLuni = 1, 'L', Iif(This.nNumarLuni = 3, 'T', Iif(This.nNumarLuni = 6, 'S', 'A')))
		
		Set Date To Ymd
		Set Mark To '-'
		
		lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
		lcNumeDeclarant = lcNumePrenumeDeclarant
		lcPrenumeDeclarant = ""
		If Getwordcount(lcNumePrenumeDeclarant," ") > 1
			lcNumeDeclarant = Getwordnum(m.lcNumePrenumeDeclarant, 1, " ")
			lcPrenumeDeclarant = Alltrim(Strtran(m.lcNumePrenumeDeclarant, lcNumeDeclarant, ""))
		Endif
		
		*** generez variabile pentru fiecare rand
		lnSumaControl = 0
		SELECT rand,denumire,valoare,tva,inactivb,inactivt FROM cDecont WHERE !EMPTY(NVL(rand,'')) INTO CURSOR crsDecont NOFILTER 
		SELECT crsDecont
		SCAN
			lcRand = STRTRAN(ALLTRIM(rand), ".", "_") && 17.1 => 17_1
			lcVariabilaB = [ln] + m.lcRand + "B" && ln17_1B
			lcVariabilaT = [ln] + m.lcRand + "T" && ln17_1T
			IF inactivb = 0
				LOCAL &lcVariabilaB
				&lcVariabilaB = INT(valoare)
				lnSumaControl = m.lnSumaControl + INT(valoare)
			ENDIF 
			IF inactivt = 0
				LOCAL &lcVariabilaT
				&lcVariabilaT = INT(tva)
				lnSumaControl = m.lnSumaControl + INT(tva)
			ENDIF 	
		ENDSCAN 
		USE IN (SELECT('crsDecont'))
		
		lnSumaControl = m.lnSumaControl + pnNr_facturi + pnBaza + pnTva + pnNr_facturi2 + pnBaza2 + pnTva2
		lnSumaControl = INT(m.lnSumaControl)
		
		lcCodFiscal = Upper(Alltrim(Nvl(gofirma.cod_fiscal,'')))
		If Upper(Substr(m.lcCodFiscal,1,2))='RO'
			lcCod_fiscal = Alltrim(Substr(m.lcCodFiscal,3))
		Else
			lcCod_fiscal = m.lcCodFiscal
		ENDIF
		lcFirma = XmlSpecialCharacters(Alltrim(Upper(Nvl(gofirma.antet,'')))) && oproceduri_comune.prg
		
		lcCaenRevizie = NVL(goFirma.caen_revizie, '2')
		lnCaenRevizie = INT(VAL(m.lcCaenRevizie))
		lcCaenRev2 = IIF(m.lnCaenRevizie = 2, ALLTRIM(LOWER(goFirma.caen)), '')
		lcCaenRev3 = IIF(m.lnCaenRevizie > 2, ALLTRIM(LOWER(goFirma.caen)), '')	
		
		Set Textmerge On To Memvar lcXDP Noshow
		*Set Textmerge On To Memvar lcXML Noshow
		\<?xml version="1.0"?>
		\<?xfa generator="XFA2_4" APIVersion="3.3.10270.0"?>
		\<xdp:xdp xmlns:xdp="http://ns.adobe.com/xdp/">
		\<xfa:datasets xmlns:xfa="http://www.xfa.org/schema/xfa-data/1.0/">
		\<xfa:data>
		
		\<form1>
		\<btnDoc><btnSalt/></btnDoc>
		\<Antet>
		\	<metaDate><an_r><<gnAn>></an_r><totalPlata_A><<m.lnSumaControl>></totalPlata_A><tipDecont><<m.lcTipDecont>></tipDecont><luna_r><<gnLuna>></luna_r><perioada><dataInceput/><dataSfarsit/></perioada><d_rez>0</d_rez><d_scc>0</d_scc><d_rec>0</d_rec></metaDate>
		\	<temeiLegal/><cifS/>
		\</Antet>
		\<identifCntr>
		\	<denumire><den><<lcFirma>></den><cif><<lcCod_fiscal>></cif></denumire>
		\	<adresa><str><<Nvl(Alltrim(gofirma.strada),'')>></str><nr><<Nvl(Alltrim(gofirma.numar),'')>></nr><loc><<Nvl(Alltrim(gofirma.localitate),'')>></loc><judet><<Nvl(Alltrim(gofirma.cod_judet),'')>></judet><sect><<Nvl(Alltrim(TRANSFORM(gofirma.sector)),'')>></sect>
		\	<bloc><<Nvl(Alltrim(gofirma.bloc),'')>></bloc><scara><<Nvl(Alltrim(gofirma.scara),'')>></scara><etaj></etaj><apt><<Nvl(Alltrim(TRANSFORM(gofirma.apart)),'')>></apt><codPst><<Nvl(Alltrim(gofirma.cod_postal),'')>></codPst></adresa>
		\	<contact><telefon><<Nvl(Alltrim(gofirma.telefon),'')>></telefon><fax><<Nvl(Alltrim(gofirma.fax),'')>></fax><email><<Nvl(Alltrim(gofirma.email),'')>></email></contact>
		\	<banca><den><<Nvl(Alltrim(gofirma.banca1),'')>></den><iban><<Nvl(Alltrim(gofirma.cont_banca1),'')>></iban></banca>
		\	<caen><<m.lcCaenRev2>></caen>
		\	<caen1><<m.lcCaenRev3>></caen1>
		\	<proRata><<m.pnProRata>></proRata>
		\</identifCntr>
		
		****************************
		*** BODY
		\<date><comert>
		\<r1><c2><<m.ln1B>></c2></r1>
		\<r2><c2><<m.ln2B>></c2></r2>
		\<r3><c2><<m.ln3B>></c2></r3>
		\<r3_1><c2><<m.ln3_1B>></c2></r3_1>
		\<r4><c2><<m.ln4B>></c2></r4>
		\<r5><c2><<m.ln5B>></c2><c3><<m.ln5T>></c3></r5>
		\<r5_1><c2><<m.ln5_1B>></c2><c3><<m.ln5_1T>></c3></r5_1>
		\<r6><c2><<m.ln6B>></c2><c3><<m.ln6T>></c3></r6>
		\<r7><c2><<m.ln7B>></c2><c3><<m.ln7T>></c3></r7>
		\<r7_1><c2><<m.ln7_1B>></c2><c3><<m.ln7_1T>></c3></r7_1>
		\<r8><c2><<m.ln8B>></c2><c3><<m.ln8T>></c3></r8>
		\</comert>
		\<livrari>
		\<r9><c2><<m.ln9B>></c2><c3><<m.ln9T>></c3></r9>
		\<r10><c2><<m.ln10B>></c2><c3><<m.ln10T>></c3></r10>
		\<r11><c2><<m.ln11B>></c2><c3><<m.ln11T>></c3></r11>
		\<r12><c2><<m.ln12B>></c2><c3><<m.ln12T>></c3></r12>
		
		\<r12_1><c2><<m.ln12_1B>></c2><c3><<m.ln12_1T>></c3></r12_1>
		\<r12_2><c2><<m.ln12_2B>></c2><c3><<m.ln12_2T>></c3></r12_2>
		
		\<r13><c2><<m.ln13B>></c2></r13>
		\<r14><c2><<m.ln14B>></c2></r14>
		\<r15><c2><<m.ln15B>></c2></r15>
		\<r16><c2><<m.ln16B>></c2><c3><<m.ln16T>></c3></r16>
		\<r17><c2><<m.ln17B>></c2><c3><<m.ln17T>></c3></r17>
		\<r18><c2><<m.ln18B>></c2><c3><<m.ln18T>></c3></r18>
		\<r19><c2><<m.ln19B>></c2><c3><<m.ln19T>></c3></r19>
		
		\</livrari>
		\<achizitiiRO>
		\<r20><c2><<m.ln20B>></c2><c3><<m.ln20T>></c3></r20>
		\<r20_1><c2><<m.ln20_1B>></c2><c3><<m.ln20_1T>></c3></r20_1>
		\<r21><c2><<m.ln21B>></c2><c3><<m.ln21T>></c3></r21>
		\<r22><c2><<m.ln22B>></c2><c3><<m.ln22T>></c3></r22>
		\<r22_1><c2><<m.ln22_1B>></c2><c3><<m.ln22_1T>></c3></r22_1>
		\<r23><c2><<m.ln23B>></c2><c3><<m.ln23T>></c3></r23>
		\</achizitiiRO>
		\<achizitiiIMP>
		\<r24><c2><<m.ln24B>></c2><c3><<m.ln24T>></c3></r24>
		\<r25><c2><<m.ln25B>></c2><c3><<m.ln25T>></c3></r25>
		
		\<r27><c2><<m.ln26B>></c2><c3><<m.ln26T>></c3></r27>
		
		\<r27_1><c2><<m.ln26_1B>></c2><c3><<m.ln26_1T>></c3></r27_1>
		\<r27_2><c2><<m.ln26_2B>></c2><c3><<m.ln26_2T>></c3></r27_2>
		
		\<r28><c3><<m.ln27T>></c3></r28>
		\<r29><c3><<m.ln27T>></c3></r29>
		\<r30><c2><<m.ln29B>></c2></r30>
		\<r30_1><c2><<m.ln29_1B>></c2></r30_1>
		\<r31><c2><<m.ln30B>></c2><c3><<m.ln30T>></c3></r31>
		\<r32><c3><<m.ln31T>></c3></r32>
		\<r33><c3><<m.ln32T>></c3></r33>
		\<r34><c2><<m.ln33B>></c2><c3><<m.ln33T>></c3></r34>
		\<r35><c3><<m.ln34T>></c3></r35>
		\<r36><c3><<m.ln35T>></c3></r36>
		\</achizitiiIMP>
		\<regularizari>
		\<r37><c3><<m.ln36T>></c3></r37>
		\<r38><c3><<m.ln37T>></c3></r38>
		\<r39><c3><<m.ln38T>></c3></r39>
		\<r40><c3><<m.ln39T>></c3></r40>
		\<r41><c3><<m.ln40T>></c3></r41>
		\<r42><c3><<m.ln41T>></c3></r42>
		\<r43><c3><<m.ln42T>></c3></r43>
		\<r44><c3><<m.ln43T>></c3></r44>
		\<r45><c3><<m.ln44T>></c3></r45>
		\<r46><c3><<m.ln45T>></c3></r46>
		\</regularizari>
		
		****************************
		*** FOOTER
		\<bife><caption><bifa_cereale>N</bifa_cereale><bifa_mob>N</bifa_mob><bifa_disp>N</bifa_disp><bifa_cons>N</bifa_cons></caption></bife>
		\<rambursare><bifa_rambursare>N</bifa_rambursare></rambursare>
		
		* Facturi emise/primite dupa inspectia fiscala/cand codul de TVA era anulat
		\<r47><c1><<pnNr_facturi>></c1><c2><<pnBaza>></c2><c3><<pnTva>></c3></r47>
		\<r48><c1><<pnNr_facturi2>></c1><c2><<pnBaza2>></c2><c3><<pnTva2>></c3></r48>
		\<r49><c1><<pnNr_facturi3>></c1><c2><<pnBaza3>></c2><c3><<pnTva3>></c3></r49>
		
		* Sold TVA neexigibil din alte perioade
		\<nedeductibil>
		\<r50><c2><<m.pnLivrareBazaN>></c2><c3><<m.pnLivrareTVAN>></c3></r50>
		\<r50_1><c2><<m.pnLivrareBaza6N>></c2><c3><<m.pnLivrareTVA6N>></c3></r50_1>
		\<r60><c2><<pnAchizitieBazaN>></c2><c3><<pnAchizitieTVAN>></c3></r60>
		\<r60_1><c2><<pnAchizitieBaza6N>></c2><c3><<pnAchizitieTVA6N>></c3></r60_1>
		\</nedeductibil>
		
		* Valoare fara TVA prestari de servicii catre persoane neimpozabile din alte state membre UE prevazute la art. 278 alin. (8) lit. b) din Codul fiscal
		\<alteInfo>
		\<r50><c1><<m.pnBaza41>></c1><c2><<m.pnBaza42>></c2></r50>
		\</alteInfo>
		
		\</date>
		
		\<semnatura><prenume><<m.lcPrenumeDeclarant>></prenume><nume><<m.lcNumeDeclarant>></nume><smnFnc><<Alltrim(gofirma.functie)>></smnFnc></semnatura>
		\</form1>
		
		\</xfa:data>
		\</xfa:datasets>
		\<pdf href="<<JUSTFNAME(tcFisierPDFNou)>>" xmlns="http://ns.adobe.com/xdp/pdf/"/>
		\</xdp:xdp>
		
		
		Set Textmerge To
		
		Strtofile(lcXDP, tcFisierXDP)
		
		Set Date To &lcDateStyle
		Set Mark To &lcMark
		
		Select (lcSelect)
		
		
	ENDPROC

	PROCEDURE inainte_de_do_excel
		DO export_excel_grid WITH this._grdrow1
		
	ENDPROC

	PROCEDURE inainte_de_do_listare
		Local lcTabel
		lcTabel = Thisform._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Private pcCaen
			pcCaen = Alltrim(gofirma.caen)
		
			If !Empty(pcCaen) And !Isnull(pcCaen)
				Private poCaen
				Store '' To poCaen
				pcschema=[]
				pcselect=['select codcaen from sitfin_codcaen where 1=2 ']
				pcfiltru=[cod=] + pcCaen
				pcorder=[]
				llAfisare=.F.
				gencursor('poCaen','cCaen',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
				poCaen.ca_baza1.afisare()
		
				Select cCaen
				pcCaen = codcaen
		
				If Used('cCaen')
					Use In cCaen
				Endif
			Endif
		
			Thisform.AlwaysOnTop = .F.
			Select (lcTabel)
			Report Form decont To Printer Prompt Preview
			Thisform.AlwaysOnTop = .T.
		Else
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tnNumarLuni
		LOCAL lcPerioada
		This.nNumarLuni = m.tnNumarLuni
		lcPerioada = IIF(m.tnNumarLuni = 1, 'LUNAR', IIF(m.tnNumarLuni = 3, 'TRIMESTRIAL', IIF(m.tnNumarLuni = 6, 'SEMESTRIAL', IIF(m.tnNumarLuni = 12, 'ANUAL', ''))))
		this.lb_titlu_alb_b121.Caption =  this.lb_titlu_alb_b121.Caption + " * " + lcPerioada
		DODEFAULT()
	ENDPROC

	PROCEDURE Show
		Lparameters nStyle
		
		Thisform.totaluri("valoare", .T.)
		Thisform.totaluri("tva", .T.)
		
		DoDefault(nStyle)
		
	ENDPROC

	PROCEDURE totaluri
		*!* 11.02.2017
		*!* marius.mutu
		*!* completare initiala randul 30 = randul 29
		
		Lparameters tcColoana, tlFirstTime
		Local lcFormula, lcColoana, lcTabel, lnSuma, lnId_ind, lcRand
		
		If Empty(tcColoana)
			lcColoana = "valoare"
		Else
			lcColoana = Alltrim(tcColoana)
		Endif
		
		lcTabel = Thisform._grdrow1.RecordSource
		Select * From (lcTabel) With (Buffering = .T.) Into Cursor cTemp Readwrite NOFILTER
		
		Select cTemp
		Scan For tip = 5
			lnSuma = 0
			lcFormula = Alltrim(cTemp.formula)
			lcRand = Alltrim(Rand)
			*!*		IF '34'$lcRand AND 'tva'$LOWER(lcColoana)
			*!*			DEBUG
			*!*			SUSPEND
			*!*		ENDIF
			*!*	WAIT WINDOW lcFormula + " - " + lcColoana NOWAIT
			lnSuma = calc_indicatori_randuri(lcFormula, "cTemp",lcColoana)
			Select cTemp
			Replace &lcColoana With lnSuma
			Select (lcTabel)
			Update (lcTabel) Set &lcColoana = lnSuma Where Alltrim(Rand) = lcRand
		
			Select cTemp
		Endscan
		Use In cTemp
		
		*** COMPLETEZ INITIAL RANDUL 30 SUB-TOTAL TAXA DEDUSA CONFORM ART.145 SAU 147, CU RANDUL 29
		*** NU PUN FORMULA LA FEL CA LA 29, PENTRU CA NU SE MAI POATE MODIFICA DE CATRE UTILIZATOR
		If m.tlFirstTime
			lnROTN = This.nRotn && limitare deducere TVA 4426
			Select (lcTabel)
			Locate For Rand = '30' && TOTAL TAXA DEDUCTIBILA (suma de la rd.20  pâna la rd.28, cu exceptia celor de la rd. 20.1, 22.1, 26.1, 26.2 :
			If Found()
				lnSuma = &lcColoana
				Locate For Rand = '31' And &lcColoana = 0
				If Found()
					Replace &lcColoana With m.lnSuma - m.lnROTN
					This.Totaluri(tcColoana, .F.) && recalculez totalurile dupa ce am modificat valoarea
				Endif
			Endif
		
		Endif
		
		Select (lcTabel)
		Go Top
		
	ENDPROC

	PROCEDURE updateinfo
		#DEFINE CRLF CHR(13) + CHR(10)
		Lparameters tcInfo
		
		
		Local loInfo
		loInfo = this.edtInfo
		If Upper(tcInfo) = 'RESET'
			loInfo.Value = ""
		Else
			loInfo.Value = loInfo.Value + m.tcInfo + CRLF + CRLF
		Endif
		loInfo.Refresh()
		
		
	ENDPROC

	PROCEDURE updatepdf
		Lparameters tcPDFFile
		*** tcPDFFile: calea completa a fisierului pdf D:\CONTAFIN\COMUNCONTAFIN\d390.pdf
		
		Local lcFile, lcPath, llOpen
		lcFile = Justfname(m.tcPDFFile)
		lcPath = Addbs(Justpath(m.tcPDFFile))
		llOpen = .F.
		
		Return DownloadSupportFile(m.lcFile, m.lcPath, m.llOpen) && proceduri_comune.prg
		
		
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.Valid
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.When
		THISFORM.nOldvalue = This.Value 
	ENDPROC

	PROCEDURE cmdPDF.Click
		*!* 12.05.2011
		*!*	Thisform.do_executa(2) && PDF
		Thisform.do_executa(3) && XML + PDF
		*!* 12.05.2011 ^
		
	ENDPROC

	PROCEDURE Command1.Click
		Do date_identif In oproceduri_decont.prg
	ENDPROC

	PROCEDURE Command3.Click
		LOCAL lcTabel
		lcTabel = thisform._grdrow1.RecordSource 
		
		DO export_decont WITH (lcTabel)  IN oproceduri_decont.prg
		
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("tva")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cTVA.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivT = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.LostFocus
		IF NVL(FLOOR(THIS.VALUE),0) <> NVL(FLOOR(THISFORM.nOldvalue),0)
			THISFORM.totaluri("valoare")
		ENDIF
	ENDPROC

	PROCEDURE _grdrow1.cValoare.Text1.When
		thisform.nOldvalue = this.Value
		
		IF inactivB = 1
			RETURN .F.
		ENDIF 
	ENDPROC

	PROCEDURE _grdrow1.Init
		this.SetAll("DynamicBackColor","IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),IIF(tip=5,RGB(230,244,255),RGB(255,255,255))))", "Column")
		
		this.cValoare.DynamicBackColor = [iif(inactivB=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))] && rgb(128,128,128)
		this.cTVA.DynamicBackColor = [iif(inactivT=1,rgb(225,225,225),IIF(tip=5,RGB(230,244,255),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(255,255,255)))))]
		
		this.cValoare.DynamicForeColor = [iif(inactivB=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		this.cTVA.DynamicForeColor = [iif(inactivT=1,rgb(225,225,225),IIF(antet=2,RGB(180,180,180),IIF(antet=1,RGB(230, 230, 230),rgb(0,0,0))))]
		
		
		
		
		
	ENDPROC

ENDDEFINE

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="_grdbase1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column12.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
		*p: nproctvared
		*p: nproctvast
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = _grdbase1
		DoCreate = .T.
		Height = 500
		Name = "frm_regcump"
		nproctvared = 0
		nproctvast = 0
		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
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		ColumnCount = 12, ;
		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", ;
		Column12.ControlSource = "scc", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.Width = 32
		*< 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.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column12.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, ;
		lvizibil = .F., ;
		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=.t.
		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 (not((ROUND(ABS(TOTFTVAM)*(" + ALLTRIM(STR(this.nProcTvaSt,5,2)) + "-1.01),"+ALLTRIM(STR(gnPc))+")<=ABS(TVAM) and ABS(TVAM)<=ROUND(ABS(TOTFTVAM)*(" + ALLTRIM(STR(this.nProcTvaSt,5,2)) + "-0.99),"+ALLTRIM(STR(gnPc))+"))) " +;
		                          "OR not((ROUND(ABS(TOTFTVAI)*(" + ALLTRIM(STR(this.nProcTvaRed,5,2)) + "-1.01),"+ALLTRIM(STR(gnPc))+")<=ABS(TVAI) and ABS(TVAI)<=ROUND(ABS(TOTFTVAI)*(" + ALLTRIM(STR(this.nProcTvaRed,5,2)) + "-0.99),"+ALLTRIM(STR(gnPc))+"))) or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>1)"
		    *STRTOFILE(lcFiltru,'c:\expr.txt')                        
		                       
		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
			amessagebox("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
			amessagebox("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
		
		x=xmenu("\<Listare Registru Cumparari;Listare Registru Cumparari \<Simplu")
		
		THISFORM.ALWAYSONTOP=.F.
		
		
		IF x = 1
			pcdataora=get_ora(2)
			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
		
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA],[0],[4426],lnLuna,lnAn) && IN orefaceri.prg
		IF lnSucces > 0
			THISFORM.actualizeaza_grid1()
		
			*** verificare INAINTE_DE
			DO inainte WITH "CUMP" IN oinainte_de.prg
		
			this._grdbase1.SetFocus 
		
			aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere")
		ENDIF 
	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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		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 TRIM(SUBSTR(scd,1,3))='4111' and TRIM(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 (TRIM(SUBSTR(scd,1,3))='401' or TRIM(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 TRIM(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 TRIM(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 (TRIM(SUBSTR(scc,1,3))='401' or TRIM(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 TRIM(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 TRIM(SUBSTR(scc,1,3))='4111' and TRIM(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 TRIM(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 TRIM(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(20),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
			aMessagebox("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_regcump2007 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="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFel_document.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFel_document.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19bct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19bct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BCT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BCT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROSCN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROSCN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BCT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BCT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO19BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BCT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BCT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO09BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFOSCN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFOSCN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBCT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBCT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVSC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVSC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBVN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFSC.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFSC.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEBFN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BCB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BCB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BCT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BCT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI19BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BVB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BVB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BVT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BVT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BFB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BFB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BFT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09BFT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro05b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro05b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro05t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro05t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*p: nlistitemid
		*p: nlistitemiddef
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		Height = 513
		Name = "frm_regcump2007"
		nlistitemid = 1
		nlistitemiddef = 2
		Width = 795
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_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.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 15
		Lb_titlu_alb_b121.Top = 1
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 5
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 56, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 52, ;
		Height = 408, ;
		HighlightStyle = 1, ;
		Left = 12, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "actcv", ;
		TabIndex = 9, ;
		Top = 72, ;
		Width = 768, ;
		ZOrderSet = 9, ;
		Column1.ControlSource = "fel_document", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cFel_document", ;
		Column1.Width = 66, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cDataact", ;
		Column2.Width = 53, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "nract", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cNract", ;
		Column3.Width = 67, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cDenumire", ;
		Column4.Width = 148, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cCod_fiscal", ;
		Column5.Width = 80, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.InputMask = (get_mask(12,gnPA)), ;
		Column6.Name = "cTotctva", ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "RO19BCB", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.InputMask = (get_mask(12,gnPA)), ;
		Column7.Name = "cRO19BCB", ;
		Column7.Width = 66, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "RO19BCT", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cRo19bct", ;
		Column8.Width = 67, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "RO19BVB", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.InputMask = (get_mask(12,gnPA)), ;
		Column9.Name = "cRO19BVB", ;
		Column9.Width = 74, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "RO19BVT", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.InputMask = (get_mask(12,gnPA)), ;
		Column10.Name = "cRO19BVT", ;
		Column10.Width = 67, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "RO19BFB", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.InputMask = (get_mask(12,gnPA)), ;
		Column11.Name = "cRO19BFB", ;
		Column11.Width = 81, ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = "RO19BFT", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.InputMask = (get_mask(12,gnPA)), ;
		Column12.Name = "cRO19BFT", ;
		Column12.Width = 78, ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "RO09BCB", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.InputMask = (get_mask(12,gnPa)), ;
		Column13.Name = "cRO09BCB", ;
		Column13.Width = 66, ;
		Column14.ColumnOrder = 15, ;
		Column14.ControlSource = "RO09BCT", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.InputMask = (get_mask(12,gnPa)), ;
		Column14.Name = "cRO09BCT", ;
		Column14.Width = 65, ;
		Column15.ColumnOrder = 16, ;
		Column15.ControlSource = "RO09BVB", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.InputMask = (get_mask(12,gnPa)), ;
		Column15.Name = "cRO09BVB", ;
		Column15.Width = 73, ;
		Column16.ColumnOrder = 17, ;
		Column16.ControlSource = "RO09BVT", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.InputMask = (get_mask(12,gnPa)), ;
		Column16.Name = "cRO09BVT", ;
		Column16.Width = 69, ;
		Column17.ColumnOrder = 18, ;
		Column17.ControlSource = "RO09BFB", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.InputMask = (get_mask(12,gnPa)), ;
		Column17.Name = "cRO09BFB", ;
		Column17.Width = 76, ;
		Column18.ColumnOrder = 19, ;
		Column18.ControlSource = "RO09BFT", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.InputMask = (get_mask(12,gnPa)), ;
		Column18.Name = "cRO09BFT", ;
		Column18.Width = 79, ;
		Column19.ColumnOrder = 20, ;
		Column19.ControlSource = "ROSCN", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.InputMask = (get_mask(12,gnPa)), ;
		Column19.Name = "cROSCN", ;
		Column20.ColumnOrder = 21, ;
		Column20.ControlSource = "FO19BCB", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.InputMask = (get_mask(12,gnPa)), ;
		Column20.Name = "cFO19BCB", ;
		Column20.Width = 71, ;
		Column21.ColumnOrder = 22, ;
		Column21.ControlSource = "FO19BCT", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.InputMask = (get_mask(12,gnPa)), ;
		Column21.Name = "cFO19BCT", ;
		Column21.Width = 80, ;
		Column22.ColumnOrder = 23, ;
		Column22.ControlSource = "FO19BVB", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.InputMask = (get_mask(12,gnPa)), ;
		Column22.Name = "cFO19BVB", ;
		Column23.ColumnOrder = 24, ;
		Column23.ControlSource = "FO19BVT", ;
		Column23.FontName = "Arial Narrow", ;
		Column23.InputMask = (get_mask(12,gnPa)), ;
		Column23.Name = "cFO19BVT", ;
		Column24.ColumnOrder = 25, ;
		Column24.ControlSource = "FO19BFB", ;
		Column24.FontName = "Arial Narrow", ;
		Column24.InputMask = (get_mask(12,gnPa)), ;
		Column24.Name = "cFO19BFB", ;
		Column25.ColumnOrder = 26, ;
		Column25.ControlSource = "FO19BFT", ;
		Column25.FontName = "Arial Narrow", ;
		Column25.InputMask = (get_mask(12,gnPa)), ;
		Column25.Name = "cFO19BFT", ;
		Column26.ColumnOrder = 27, ;
		Column26.ControlSource = "FO09BCB", ;
		Column26.FontName = "Arial Narrow", ;
		Column26.InputMask = (get_mask(12,gnPa)), ;
		Column26.Name = "cFO09BCB", ;
		Column26.Width = 82, ;
		Column27.ColumnOrder = 28, ;
		Column27.ControlSource = "FO09BCT", ;
		Column27.FontName = "Arial Narrow", ;
		Column27.InputMask = (get_mask(12,gnPa)), ;
		Column27.Name = "cFO09BCT", ;
		Column28.ColumnOrder = 29, ;
		Column28.ControlSource = "FO09BVB", ;
		Column28.FontName = "Arial Narrow", ;
		Column28.InputMask = (get_mask(12,gnPa)), ;
		Column28.Name = "cFO09BVB", ;
		Column29.ColumnOrder = 30, ;
		Column29.ControlSource = "FO09BVT", ;
		Column29.FontName = "Arial Narrow", ;
		Column29.InputMask = (get_mask(12,gnPa)), ;
		Column29.Name = "cFO09BVT", ;
		Column30.ColumnOrder = 31, ;
		Column30.ControlSource = "FO09BFB", ;
		Column30.FontName = "Arial Narrow", ;
		Column30.InputMask = (get_mask(12,gnPa)), ;
		Column30.Name = "cFO09BFB", ;
		Column31.ColumnOrder = 32, ;
		Column31.ControlSource = "FO09BFT", ;
		Column31.FontName = "Arial Narrow", ;
		Column31.InputMask = (get_mask(12,gnPa)), ;
		Column31.Name = "cFO09BFT", ;
		Column32.ColumnOrder = 35, ;
		Column32.ControlSource = "FOSCN", ;
		Column32.FontName = "Arial Narrow", ;
		Column32.InputMask = (get_mask(12,gnPa)), ;
		Column32.Name = "cFOSCN", ;
		Column32.Width = 80, ;
		Column33.ColumnOrder = 36, ;
		Column33.ControlSource = "CEBCB", ;
		Column33.FontName = "Arial Narrow", ;
		Column33.InputMask = (get_mask(12,gnPa)), ;
		Column33.Name = "cCEBCB", ;
		Column33.Width = 62, ;
		Column34.ColumnOrder = 37, ;
		Column34.ControlSource = "CEBCT", ;
		Column34.FontName = "Arial Narrow", ;
		Column34.InputMask = (get_mask(12,gnPa)), ;
		Column34.Name = "cCEBCT", ;
		Column34.Width = 67, ;
		Column35.ColumnOrder = 38, ;
		Column35.ControlSource = "CEBVB", ;
		Column35.FontName = "Arial Narrow", ;
		Column35.InputMask = (get_mask(12,gnPa)), ;
		Column35.Name = "cCEBVB", ;
		Column36.ColumnOrder = 39, ;
		Column36.ControlSource = "CEBVT", ;
		Column36.FontName = "Arial Narrow", ;
		Column36.InputMask = (get_mask(12,gnPa)), ;
		Column36.Name = "cCEBVT", ;
		Column37.ColumnOrder = 40, ;
		Column37.ControlSource = "CEBVSC", ;
		Column37.FontName = "Arial Narrow", ;
		Column37.InputMask = (get_mask(12,gnPa)), ;
		Column37.Name = "cCEBVSC", ;
		Column38.ColumnOrder = 41, ;
		Column38.ControlSource = "CEBVN", ;
		Column38.FontName = "Arial Narrow", ;
		Column38.InputMask = (get_mask(12,gnPa)), ;
		Column38.Name = "cCEBVN", ;
		Column39.ColumnOrder = 42, ;
		Column39.ControlSource = "CEBFB", ;
		Column39.FontName = "Arial Narrow", ;
		Column39.InputMask = (get_mask(12,gnPa)), ;
		Column39.Name = "cCEBFB", ;
		Column39.Width = 83, ;
		Column40.ColumnOrder = 43, ;
		Column40.ControlSource = "CEBFT", ;
		Column40.FontName = "Arial Narrow", ;
		Column40.InputMask = (get_mask(12,gnPa)), ;
		Column40.Name = "cCEBFT", ;
		Column40.Width = 79, ;
		Column41.ColumnOrder = 44, ;
		Column41.ControlSource = "CEBFSC", ;
		Column41.FontName = "Arial Narrow", ;
		Column41.InputMask = (get_mask(12,gnPa)), ;
		Column41.Name = "cCEBFSC", ;
		Column41.Width = 81, ;
		Column42.ColumnOrder = 45, ;
		Column42.ControlSource = "CEBFN", ;
		Column42.FontName = "Arial Narrow", ;
		Column42.InputMask = (get_mask(12,gnPa)), ;
		Column42.Name = "cCEBFN", ;
		Column42.Width = 83, ;
		Column43.ColumnOrder = 46, ;
		Column43.ControlSource = "TI19BCB", ;
		Column43.FontName = "Arial Narrow", ;
		Column43.InputMask = (get_mask(12,gnPa)), ;
		Column43.Name = "cTI19BCB", ;
		Column44.ColumnOrder = 47, ;
		Column44.ControlSource = "TI19BCT", ;
		Column44.FontName = "Arial Narrow", ;
		Column44.InputMask = (get_mask(12,gnPa)), ;
		Column44.Name = "cTI19BCT", ;
		Column45.ColumnOrder = 48, ;
		Column45.ControlSource = "TI19BVB", ;
		Column45.FontName = "Arial Narrow", ;
		Column45.InputMask = (get_mask(12,gnPa)), ;
		Column45.Name = "cTI19BVB", ;
		Column45.Width = 83, ;
		Column46.ColumnOrder = 49, ;
		Column46.ControlSource = "TI19BVT", ;
		Column46.FontName = "Arial Narrow", ;
		Column46.InputMask = (get_mask(12,gnPa)), ;
		Column46.Name = "cTI19BVT", ;
		Column46.Width = 79, ;
		Column47.ColumnOrder = 50, ;
		Column47.ControlSource = "TI19BFB", ;
		Column47.FontName = "Arial Narrow", ;
		Column47.InputMask = (get_mask(12,gnPa)), ;
		Column47.Name = "cTI19BFB", ;
		Column47.Width = 98, ;
		Column48.ColumnOrder = 51, ;
		Column48.ControlSource = "TI19BFT", ;
		Column48.FontName = "Arial Narrow", ;
		Column48.InputMask = (get_mask(12,gnPa)), ;
		Column48.Name = "cTI19BFT", ;
		Column48.Width = 95, ;
		Column49.ColumnOrder = 52, ;
		Column49.ControlSource = "TI09BVB", ;
		Column49.FontName = "Arial Narrow", ;
		Column49.InputMask = (get_mask(12,gnPa)), ;
		Column49.Name = "cTI09BVB", ;
		Column49.Width = 82, ;
		Column50.ColumnOrder = 53, ;
		Column50.ControlSource = "TI09BVT", ;
		Column50.FontName = "Arial Narrow", ;
		Column50.InputMask = (get_mask(12,gnPa)), ;
		Column50.Name = "cTI09BVT", ;
		Column50.Width = 82, ;
		Column51.ColumnOrder = 54, ;
		Column51.ControlSource = "TI09BFB", ;
		Column51.FontName = "Arial Narrow", ;
		Column51.InputMask = (get_mask(12,gnPa)), ;
		Column51.Name = "cTI09BFB", ;
		Column51.Width = 100, ;
		Column52.ColumnOrder = 55, ;
		Column52.ControlSource = "TI09BFT", ;
		Column52.FontName = "Arial Narrow", ;
		Column52.InputMask = (get_mask(12,gnPa)), ;
		Column52.Name = "cTI09BFT", ;
		Column52.Width = 90, ;
		Column53.ColumnOrder = 3, ;
		Column53.ControlSource = "serie_act", ;
		Column53.FontName = "Arial Narrow", ;
		Column53.Name = "cSerie_act", ;
		Column53.Width = 41, ;
		Column54.ColumnOrder = 56, ;
		Column54.ControlSource = "sucursala", ;
		Column54.FontName = "Arial Narrow", ;
		Column54.Name = "cSucursala", ;
		Column55.ColumnOrder = 33, ;
		Column55.ControlSource = "ro05b", ;
		Column55.FontName = "Arial Narrow", ;
		Column55.InputMask = (get_mask(12,gnPa)), ;
		Column55.Name = "cro05b", ;
		Column55.Width = 75, ;
		Column56.ColumnOrder = 34, ;
		Column56.ControlSource = "ro05t", ;
		Column56.FontName = "Arial Narrow", ;
		Column56.InputMask = (get_mask(12,gnPa)), ;
		Column56.Name = "cro05t", ;
		Column56.Width = 75
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cCEBCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din UE =Baza=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBCB.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.cCEBCT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din UE =TVA=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBCT.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.cCEBFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri ptr. nevoile firmei din UE =Baza=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBFB.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.cCEBFN.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri ptr. nevoile firmei din UE =Neimpozabile=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBFN.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.cCEBFSC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri ptr. nevoile firmei din UE =Scutite=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBFSC.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.cCEBFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri ptr. nevoile firmei din UE =TVA=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBFT.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.cCEBVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. revanz. din UE =Baza=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBVB.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.cCEBVN.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. revanz. din UE =Neimpozabile=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBVN.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.cCEBVSC.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. revanz. din UE =Scutite=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBVSC.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.cCEBVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. revanz. din UE =TVA=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEBVT.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.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F./C.N.P.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.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.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.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.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.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.cFel_document.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFel_document.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.cFO09BCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din import =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BCB.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.cFO09BCT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din import =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BCT.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.cFO09BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei din import =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BFB.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.cFO09BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei din import =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BFT.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.cFO09BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest.vanz. din import =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BVB.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.cFO09BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest.vanz. din import =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO09BVT.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.cFO19BCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din import =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BCB.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.cFO19BCT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din import =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BCT.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.cFO19BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei din import =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BFB.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.cFO19BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei din import =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BFT.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.cFO19BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. din import =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BVB.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.cFO19BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. din import =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO19BVT.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.cFOSCN.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ach. de bunuri din import scutite sau neimpozab.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFOSCN.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.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.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.cro05b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern = Baza 5%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cro05b.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.cro05t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cro05t.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.cRO09BCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din RO =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BCB.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.cRO09BCT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din RO =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BCT.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.cRO09BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr.nevoile firmei din RO =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BFB.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.cRO09BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr.nevoile firmei din RO =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BFT.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.cRO09BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri destinate vanz. din RO =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BVB.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.cRO09BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri destinate vanz. din RO =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09BVT.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.cRO19BCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din RO =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19BCB.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.cRo19bct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital din RO =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19bct.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.cRO19BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr.nevoile firmei din RO =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19BFB.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.cRO19BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr.nevoile firmei din RO =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19BFT.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.cRO19BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. din RO =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19BVB.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.cRO19BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. din RO =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19BVT.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.cROSCN.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 212,208,200, ;
		Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cROSCN.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.cSerie_act.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerie_act.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.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.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.cTI09BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei - Taxare inversa =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09BFB.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.cTI09BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei - Taxare inversa =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09BFT.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.cTI09BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. - Taxare inversa =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09BVB.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.cTI09BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. - Taxare inversa =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09BVT.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.cTI19BCB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital - Taxare inversa =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BCB.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.cTI19BCT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri de capital - Taxare inversa =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BCT.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.cTI19BFB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei - Taxare inversa =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BFB.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.cTI19BFT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Altele ptr. nevoile firmei - Taxare inversa =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BFT.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.cTI19BVB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. - Taxare inversa =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BVB.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.cTI19BVT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri dest. vanz. - Taxare inversa =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI19BVT.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.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.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 '_grdfooter1' AS _grdfooter WITH ;
		ccolwithlabel = cFel_document, ;
		csourcegrid = _grdbase1, ;
		csumcolumns = <fb2p_value>cTotctva,cRO19BCB,cRo19bct,cRO19BVB,cRO19BVT,cRO19BFB,cRO19BFT,cRO09BCB,cRO09BCT,cRO09BVB,cRO09BVT,cRO09BFB,cRO09BFT,cRO05B,cRO05T,cROSCN,cFO19BCB,cFO19BCT,cFO19BVB,cFO19BVT,cFO19BFB,cFO19BFT,cFO09BCB,cFO09BCT,cFO09BVB,cFO09BVT,cFO09BFB,cFO09BFT,cro05b,cro05t,cFOSCN,cCEBCB,cCEBCT,cCEBVB,cCEBVT,cCEBVSC,cCEBVN,cCEBFB,cCEBFT,cCEBFSC,cCEBFN,cTI19BCB,cTI19BCT,cTI19BVB,cTI19BVT,cTI19BFB,cTI19BFT,cTI09BVB,cTI09BVT,cTI09BFB,cTI09BFT</fb2p_value>, ;
		ctotallabelexpression = "TOTAL", ;
		Height = 25, ;
		Left = 12, ;
		Name = "_grdfooter1", ;
		TabIndex = 17, ;
		Top = 468, ;
		Width = 768
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 672, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 583, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 612, ;
		Name = "But_start_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 642, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Validare coduri fiscale RO", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ;
		Anchor = 3, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_cump", ;
		RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ;
		RowSourceType = 1, ;
		TabIndex = 18, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 37, ;
		Width = 254
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 345, ;
		Name = "Gridextra1", ;
		Top = 45, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 16, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS lcFiltru
		
		LOCAL lnOptiune
		lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID
		
		IF EMPTY(lcFiltru)
			lcFiltru = pocump.ca_baza1.cfiltru
		ENDIF
		
		THISFORM.MOUSEPOINTER= 11
		
		THISFORM.LOCKSCREEN=.T.
		save_grid_tag(THISFORM._grdbase1)
		pocump.ca_baza1.cfiltru=lcFiltru
		pocump.ca_baza1.afisare()
		restore_grid_tag(THISFORM._grdbase1)
		DO CASE
			CASE lnOptiune = 1 && REGISTRUL CUMPARARI
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA"
		
			CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "RO19BCB + RO19BCT + RO19BVB + RO19BVT + RO19BFB + RO19BFT + RO09BCB + " + ;
			       "RO09BCT + RO09BVB + RO09BVT + RO09BFB + RO09BFT + RO05B + RO05T + ROSCN"
		
			CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO19BCB + FO19BCT + FO19BVB + FO19BVT + FO19BFB + FO19BFT + FO09BCB + FO09BCT + " + ;
				   "FO09BVB + FO09BVT + FO09BFB + FO09BFT + FOSCN"
		
			CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEBCB + CEBCT + CEBVB + CEBVT + CEBVSC + CEBVN + CEBFB + CEBFT + CEBFSC + CEBFN"
		
			CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI19BCB + TI19BCT + TI19BVB + TI19BVT + TI19BFB + TI19BFT + TI09BVB + TI09BVT + TI09BFB + TI09BFT"
		ENDCASE
		THISFORM._grdfooter1.calcTotal
		
		THISFORM.LOCKSCREEN=.F.
		THISFORM.MOUSEPOINTER= 0
		
	ENDPROC

	PROCEDURE butdrept
		*!* 16.04.2007
		x = xmenu("\<Note contabile;\<Incasari/Plati;Istoric \<debit-credit")
		DO CASE 
			CASE x = 1
				this.notacontab()
			CASE x = 2 
				this.incaspl()
			CASE x = 3
				this.ist_deb_cred()
		ENDCASE 
		
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		ELSE 
			lcFiltru = SUBSTR(gcCondSucursala, 6)	
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_cump.ListItemId
		Thisform.nlistitemid = lnOptiune
		
		*!*	IF THISFORM.ck_dataact.VALUE=1
		*!*		lcFiltru = lcFiltru + THISFORM.ck_dataact.filtru
		*!*	ENDIF
		
		*!*	IF THISFORM.ck_codfiscal.VALUE=1
		*!*		lcFiltru = lcFiltru + THISFORM.ck_codfiscal.filtru
		*!*	ENDIF
		
		*!*	IF THISFORM.ck_nract.VALUE=1
		*!*		lcFiltru = lcFiltru + THISFORM.ck_nract.filtru
		*!*	ENDIF
		
		*!*	IF THISFORM.ck_denumire.VALUE=1
		*!*		lcFiltru = lcFiltru + THISFORM.ck_denumire.filtru
		*!*	ENDIF
		
		*!*	If Thisform.ck_fdoc.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_fdoc.filtru
		*!*	ENDIF
		
		*!*	IF THISFORM.ck_eroare_tva.VALUE = 1
		*!*		lcFiltru = lcFiltru + [AND (ABS(TOTCTVA -(RO19BCB + RO19BCT + RO19BVB + RO19BVT + RO19BFB + RO19BFT + RO09BCB + ] +;
		*!*			[RO09BCT + RO09BVB + RO09BVT + RO09BFB + RO09BFT + ROSCN + FO19BCB + ] + ;
		*!*			[FO19BCT + FO19BVB + FO19BVT + FO19BFB + FO19BFT + FO09BCB + FO09BCT + ] + ;
		*!*			[FO09BVB + FO09BVT + FO09BFB + FO09BFT + FOSCN + CEBCB + CEBCT + ] + ;
		*!*			[CEBVB + CEBVT + CEBVSC + CEBVN + CEBFB + CEBFT + CEBFSC + CEBFN + ] + ;
		*!*			[TI19BCB + TI19BCT + TI19BVB + TI19BVT + TI19BFB + TI19BFT + TI09BVB + ] + ;
		*!*			[TI09BVT + TI09BFB + TI09BFT)) >= 1 OR ] + ;
		*!*			[ABS(RO19BCT) NOT BETWEEN ROUND(0.188*ABS(RO19BCB),?gnPc) AND ROUND(0.193*ABS(RO19BCB),?gnPc) OR ] + ;
		*!*			[ABS(RO19BVT) NOT BETWEEN ROUND(0.188*ABS(RO19BVB),?gnPc) AND ROUND(0.193*ABS(RO19BVB),?gnPc) OR ] + ;
		*!*			[ABS(RO19BFT) NOT BETWEEN ROUND(0.188*ABS(RO19BFB),?gnPc) AND ROUND(0.193*ABS(RO19BFB),?gnPc) OR ] + ;
		*!*			[ABS(RO09BCT) NOT BETWEEN ROUND(0.088*ABS(RO09BCB),?gnPc) AND ROUND(0.093*ABS(RO09BCB),?gnPc) OR ] + ;
		*!*			[ABS(RO09BVT) NOT BETWEEN ROUND(0.088*ABS(RO09BVB),?gnPc) AND ROUND(0.093*ABS(RO09BVB),?gnPc) OR ] + ;
		*!*			[ABS(RO09BFT) NOT BETWEEN ROUND(0.088*ABS(RO09BFB),?gnPc) AND ROUND(0.093*ABS(RO09BFB),?gnPc) OR ] + ;
		*!*			[ABS(FO19BCT) NOT BETWEEN ROUND(0.188*ABS(FO19BCB),?gnPc) AND ROUND(0.193*ABS(FO19BCB),?gnPc) OR ] + ;
		*!*			[ABS(FO19BVT) NOT BETWEEN ROUND(0.188*ABS(FO19BVB),?gnPc) AND ROUND(0.193*ABS(FO19BVB),?gnPc) OR ] + ;
		*!*			[ABS(FO19BFT) NOT BETWEEN ROUND(0.188*ABS(FO19BFB),?gnPc) AND ROUND(0.193*ABS(FO19BFB),?gnPc) OR ] + ;
		*!*			[ABS(FO09BCT) NOT BETWEEN ROUND(0.088*ABS(FO09BCB),?gnPc) AND ROUND(0.093*ABS(FO09BCB),?gnPc) OR ] + ;
		*!*			[ABS(FO09BVT) NOT BETWEEN ROUND(0.088*ABS(FO09BVB),?gnPc) AND ROUND(0.093*ABS(FO09BVB),?gnPc) OR ] + ;
		*!*			[ABS(FO09BFT) NOT BETWEEN ROUND(0.088*ABS(FO09BFB),?gnPc) AND ROUND(0.093*ABS(FO09BFB),?gnPc) OR ] + ;
		*!*			[ABS(TI19BCT) NOT BETWEEN ROUND(0.188*ABS(TI19BCB),?gnPc) AND ROUND(0.193*ABS(TI19BCB),?gnPc) OR ] + ;
		*!*			[ABS(TI19BVT) NOT BETWEEN ROUND(0.188*ABS(TI19BVB),?gnPc) AND ROUND(0.193*ABS(TI19BVB),?gnPc) OR ] + ;
		*!*			[ABS(TI19BFT) NOT BETWEEN ROUND(0.188*ABS(TI19BFB),?gnPc) AND ROUND(0.193*ABS(TI19BFB),?gnPc) OR ] + ;
		*!*			[ABS(TI09BVT) NOT BETWEEN ROUND(0.088*ABS(TI09BVB),?gnPc) AND ROUND(0.093*ABS(TI09BVB),?gnPc) OR ] + ;
		*!*			[ABS(TI09BFT) NOT BETWEEN ROUND(0.088*ABS(TI09BFB),?gnPc) AND ROUND(0.093*ABS(TI09BFB),?gnPc))]
		*!*	ENDIF
		
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI]
			Case lnOptiune = 2
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA]
				*!* marius.mutu
				*!* 21.06.2007
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcFiltru = lcFiltru + [AND ((RO19BCB<>0 OR RO19BCT<>0 OR RO19BVB<>0 OR RO19BVT<>0 ] + ;
					[OR RO19BFB<>0 OR RO19BFT<>0 OR RO09BVB<>0 OR RO09BVT<>0 ] + ;
					[OR RO09BFB<>0 OR RO09BFT<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0) OR ] + ;
					[(TOTCTVA = 0  and RO19BCB = 0 and RO19BCT = 0 and RO19BVB = 0 and RO19BVT = 0 and RO19BFB = 0 ] + ;
					[ and RO05B = 0 and RO05T = 0 and RO19BFT = 0 and RO09BCB = 0 and RO09BCT = 0 and RO09BVB = 0 and RO09BVT = 0 and RO09BFB = 0 and RO09BFT = 0 ] + ;
					[ and ROSCN = 0 and FO19BCB = 0 and FO19BCT = 0 and FO19BVB = 0 and FO19BVT = 0 and FO19BFB = 0 and FO19BFT = 0 ] + ;
					[ and FO09BCB = 0 and FO09BCT = 0 and FO09BVB = 0 and FO09BVT = 0 and FO09BFB = 0 and FO09BFT = 0 and FOSCN = 0 ] + ;
					[ and CEBCB = 0 and CEBCT = 0 and CEBVB = 0 and CEBVT = 0 and CEBVSC = 0 and CEBVN = 0 and CEBFB = 0 and CEBFT = 0 ] + ;
					[ and CEBFSC = 0 and CEBFN = 0 and TI19BCB = 0 and TI19BCT = 0 and TI19BVB = 0 and TI19BVT = 0 and TI19BFB = 0 ] + ;
					[ and TI19BFT = 0 and TI09BVB = 0 and TI09BVT = 0 and TI09BFB = 0 and TI09BFT = 0)) ]
		
		
			Case lnOptiune = 3
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT]
				lcFiltru = lcFiltru + [AND (FO19BCB<>0 OR FO19BCT<>0 OR FO19BVB<>0 OR FO19BVT<>0 ] + ;
					[OR FO19BFB<>0 OR FO19BFT<>0 OR FO09BVB<>0 OR FO09BVT<>0 ] + ;
					[OR FO09BFB<>0 OR FO09BFT<>0 OR FOSCN<>0)]
			Case lnOptiune = 4
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE]
				lcFiltru = lcFiltru + [AND (CEBCB<>0 OR CEBCT<>0 OR CEBVB<>0 OR CEBVT<>0 ] + ;
					[OR CEBVSC<>0 OR CEBVN<>0 OR CEBFB<>0 OR CEBFT<>0 ] + ;
					[OR CEBFSC<>0 OR CEBFN<>0)]
			Case lnOptiune = 5
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA]
				lcFiltru = lcFiltru + [AND (TI19BCB<>0 OR TI19BCT<>0 OR TI19BVB<>0 OR TI19BVT<>0 ] + ;
					[OR TI19BFB<>0 OR TI19BFT<>0 OR TI09BVB<>0 OR TI09BVT<>0 ] + ;
					[OR TI09BFB<>0 OR TI09BFT<>0)]
		Endcase
		If (This.filtru_pretty#"none")
			Thisform.actualizeaza_grid1(lcFiltru)
			Thisform.do_executa(lnOptiune)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
				*	THISFORM.ck_nract.SETFOCUS()
			Endif
		Endif
		
	ENDPROC

	PROCEDURE do_excel
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
		
		return
		
		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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			Thisform.ck_nract.SetFocus()
		Endif
	ENDPROC

	PROCEDURE do_executa
		Lparameters tnOptiune
		Thisform._grdbase1.SetAll("Visible",.F.,"Column")
		Thisform._grdfooter1.SetAll("Visible",.F.,"Column")
		Do Case
		Case tnOptiune = 1
			Thisform._grdbase1.SetAll("Visible",.T.,"Column")
			Thisform._grdfooter1.SetAll("Visible",.T.,"Column")
		Case tnOptiune = 2
			With Thisform._grdbase1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cSerie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cro19bcb.Visible = .T.
				.cro19bct.Visible = .T.
				.cro19bvb.Visible = .T.
				.cro19bvt.Visible = .T.
				.cro19bfb.Visible = .T.
				.cro19bft.Visible = .T.
				.cro09bvb.Visible = .T.
				.cro09bvt.Visible = .T.
				.cro09bfb.Visible = .T.
				.cro09bft.Visible = .T.
				.croscn.Visible = .T.
				.cro05b.visible = .T.
				.cro05t.visible = .T.
				.Refresh()
			Endwith
			With Thisform._grdfooter1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cro19bcb.Visible = .T.
				.cro19bct.Visible = .T.
				.cro19bvb.Visible = .T.
				.cro19bvt.Visible = .T.
				.cro19bfb.Visible = .T.
				.cro19bft.Visible = .T.
				.cro09bvb.Visible = .T.
				.cro09bvt.Visible = .T.
				.cro09bfb.Visible = .T.
				.cro09bft.Visible = .T.
				.croscn.Visible = .T.
				.cro05b.visible = .T.
				.cro05t.visible = .T.		
				.Refresh()
			Endwith
		Case tnOptiune = 3
			With Thisform._grdbase1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cfo19bcb.Visible = .T.
				.cfo19bct.Visible = .T.
				.cfo19bvb.Visible = .T.
				.cfo19bvt.Visible = .T.
				.cfo19bfb.Visible = .T.
				.cfo19bft.Visible = .T.
				.cfo09bvb.Visible = .T.
				.cfo09bvt.Visible = .T.
				.cfo09bfb.Visible = .T.
				.cfo09bft.Visible = .T.
				.cfoscn.Visible = .T.
				.Refresh()
			Endwith
			With Thisform._grdfooter1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cfo19bcb.Visible = .T.
				.cfo19bct.Visible = .T.
				.cfo19bvb.Visible = .T.
				.cfo19bvt.Visible = .T.
				.cfo19bfb.Visible = .T.
				.cfo19bft.Visible = .T.
				.cfo09bvb.Visible = .T.
				.cfo09bvt.Visible = .T.
				.cfo09bfb.Visible = .T.
				.cfo09bft.Visible = .T.
				.cfoscn.Visible = .T.
				.Refresh()
			Endwith
		Case tnOptiune = 4
			With Thisform._grdbase1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.ccebcb.Visible = .T.
				.ccebct.Visible = .T.
				.ccebvb.Visible = .T.
				.ccebvt.Visible = .T.
				.ccebvsc.Visible = .T.
				.ccebvn.Visible = .T.
				.ccebfb.Visible = .T.
				.ccebft.Visible = .T.
				.ccebfsc.Visible = .T.
				.ccebfn.Visible = .T.
				.Refresh()
			Endwith
			With Thisform._grdfooter1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.ccebcb.Visible = .T.
				.ccebct.Visible = .T.
				.ccebvb.Visible = .T.
				.ccebvt.Visible = .T.
				.ccebvsc.Visible = .T.
				.ccebvn.Visible = .T.
				.ccebfb.Visible = .T.
				.ccebft.Visible = .T.
				.ccebfsc.Visible = .T.
				.ccebfn.Visible = .T.
				.Refresh()
			Endwith
		Case tnOptiune = 5
			With Thisform._grdbase1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cti19bcb.Visible = .T.
				.cti19bct.Visible = .T.
				.cti19bvb.Visible = .T.
				.cti19bvt.Visible = .T.
				.cti19bfb.Visible = .T.
				.cti19bft.Visible = .T.
				.cti09bvb.Visible = .T.
				.cti09bvt.Visible = .T.
				.cti09bfb.Visible = .T.
				.cti09bft.Visible = .T.
				.Refresh()
			Endwith
			With Thisform._grdfooter1
				.cfel_document.Visible = .T.
				.cdataact.Visible = .T.
				.cnract.Visible = .T.
				.cserie_act.visible = .T.
				.cdenumire.Visible = .T.
				.ccod_fiscal.Visible = .T.
				.ctotctva.Visible = .T.
				.cti19bcb.Visible = .T.
				.cti19bct.Visible = .T.
				.cti19bvb.Visible = .T.
				.cti19bvt.Visible = .T.
				.cti19bfb.Visible = .T.
				.cti19bft.Visible = .T.
				.cti09bvb.Visible = .T.
				.cti09bvt.Visible = .T.
				.cti09bfb.Visible = .T.
				.cti09bft.Visible = .T.
				.Refresh()
			Endwith
		Endcase
	ENDPROC

	PROCEDURE do_listare
		Private pcTitlu, pcSubtitlu
		pcTitlu = "Registru cumparari"
		Store "" To pcSubtitlu
		*!* 16.04.2007
		*!* marius.mutu
		*!* listare cu recapitulatie
		*!*	pnOptiune = Thisform.nlistitemid
		lnTipJurnal = Thisform.nlistitemid - 1
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu1 = This.filtru_pretty_ro + lctext
		****************************************************************
		If lnTipJurnal = 0 && Complet
			x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ;
				"\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa")
		Else
			Do Case
				Case lnTipJurnal = 1
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara")
					x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0))
		
				Case lnTipJurnal = 2
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import")
					x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0))
		
				Case lnTipJurnal = 3
					lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri")
					x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0))
		
				Case lnTipJurnal = 4
					lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa")
					x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0))
			Endcase
		Endif
		
		If !Between(x,1,9)
			Return
		Endif
		
		*!*	pcdataora=get_ora(2)
		
		lcWhere = ""
		
		Do Case
			Case Inlist(x, 1, 6)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
				*!*	alex.lepadatu
				*!*	13.01.2009
				If gnAn * 12 +  gnLuna < 2008*12 + 12
					lcRaport = [registru_cumparari_jtva2007_ro]
				Else
					lcRaport = [registru_cumparari_jtva2007_ro2]
				Endif
				*!* marius.mutu
				*!* 21.06.2007
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcWhere = "((ro19bcb<>0 OR ro19bct<>0 OR ro19bvb<>0 OR ro19bvt<>0 OR ro19bfb<>0 OR ro19bft<>0 OR " + ;
					"ro09bvb<>0 OR ro09bvt<>0 OR ro09bfb<>0 OR ro09bft<>0 OR ro05b<>0 OR ro05t<>0 OR roscn<>0) OR " + ;
					[(TOTCTVA = 0  and RO19BCB = 0 and RO19BCT = 0 and RO19BVB = 0 and RO19BVT = 0 and RO19BFB = 0 ] + ;
					[ and RO19BFT = 0 and RO09BCB = 0 and RO09BCT = 0 and RO09BVB = 0 and RO09BVT = 0 and RO09BFB = 0 and RO09BFT = 0 ] + ;
					[ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and FO19BCB = 0 and FO19BCT = 0 and FO19BVB = 0 and FO19BVT = 0 and FO19BFB = 0 and FO19BFT = 0 ] + ;
					[ and FO09BCB = 0 and FO09BCT = 0 and FO09BVB = 0 and FO09BVT = 0 and FO09BFB = 0 and FO09BFT = 0 and FOSCN = 0 ] + ;
					[ and CEBCB = 0 and CEBCT = 0 and CEBVB = 0 and CEBVT = 0 and CEBVSC = 0 and CEBVN = 0 and CEBFB = 0 and CEBFT = 0 ] + ;
					[ and CEBFSC = 0 and CEBFN = 0 and TI19BCB = 0 and TI19BCT = 0 and TI19BVB = 0 and TI19BVT = 0 and TI19BFB = 0 ] + ;
					[ and TI19BFT = 0 and TI09BVB = 0 and TI09BVT = 0 and TI09BFB = 0 and TI09BFT = 0)) ]
			Case Inlist(x, 2, 7)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import"
				lcRaport = [registru_cumparari_jtva2007_fo]
		
				lcWhere = "(fo19bcb<>0 OR fo19bct<>0 OR fo19bvb<>0 OR fo19bvt<>0 OR fo19bfb<>0 OR fo19bft<>0 OR " + ;
					"fo09bvb<>0 OR fo09bvt<>0 OR fo09bfb<>0 OR fo09bft<>0 OR foscn<>0)"
			Case Inlist(x, 3, 8)
				pcSubtitlu = "Achizitii intracomunitare de bunuri"
				lcRaport = [registru_cumparari_jtva2007_ce]
		
				lcWhere = "(cebcb<>0 OR cebct<>0 OR cebvb<>0 OR cebvt<>0 OR cebvsc<>0 OR cebvn<>0 OR " + ;
					"cebfb<>0 OR cebft<>0 OR cebfsc<>0 OR cebfn<>0)"
			Case Inlist(x, 4, 9)
				pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa"
				lcRaport = [registru_cumparari_jtva2007_ti]
		
				lcWhere = "(ti19bcb<>0 OR ti19bct<>0 OR ti19bvb<>0 OR ti19bvt<>0 OR ti19bfb<>0 OR ti19bft<>0 OR " + ;
					"ti09bvb<>0 OR ti09bvt<>0 OR ti09bfb<>0 OR ti09bft<>0)"
		
		Endcase
		
		
		&& REGISTRU TVA LUNA CURENTA
		Select 0 As tip, * ;
			FROM actcv ;
			WHERE &lcWhere ;
			INTO Cursor cListRC ;
			ORDER By dataact, nract ;
			READWRITE
		
		
		If Between(x, 1, 5) And _Tally = 0
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If Between(x, 5, 9)
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CEBCB) AS CEBCB, SUM(CEBCT) AS CEBCT, SUM(CEBFB) AS CEBFB, SUM(CEBFN) AS CEBFN, ] + ;
				[SUM(CEBFSC) AS CEBFSC, SUM(CEBFT) AS CEBFT, SUM(CEBVB) AS CEBVB, SUM(CEBVN) AS CEBVN, ] + ;
				[SUM(CEBVSC) AS CEBVSC, SUM(CEBVT) AS CEBVT, ] + ;
				[SUM(FOSCN) AS FOSCN, SUM(FO09BCB) AS FO09BCB, SUM(FO09BCT) AS FO09BCT, SUM(FO09BFB) AS FO09BFB, ] + ;
				[SUM(FO09BFT) AS FO09BFT, SUM(FO09BVB) AS FO09BVB, SUM(FO09BVT) AS FO09BVT, SUM(FO19BCB) AS FO19BCB, ] + ;
				[SUM(FO19BCT) AS FO19BCT, SUM(FO19BFB) AS FO19BFB, SUM(FO19BFT) AS FO19BFT, SUM(FO19BVB) AS FO19BVB, ] + ;
				[SUM(FO19BVT) AS FO19BVT, ] + ;
				[SUM(ROSCN) AS ROSCN, SUM(RO09BCB) AS RO09BCB, SUM(RO09BCT) AS RO09BCT, SUM(RO09BFB) AS RO09BFB, ] + ;
				[SUM(RO09BFT) AS RO09BFT, SUM(RO09BVB) AS RO09BVB, SUM(RO09BVT) AS RO09BVT,  SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+;
				[SUM(RO19BCB) AS RO19BCB, SUM(RO19BCT) AS RO19BCT, SUM(RO19BFB) AS RO19BFB, SUM(RO19BFT) AS RO19BFT, SUM(RO19BVB) AS RO19BVB, ] + ;
				[SUM(RO19BVT) AS RO19BVT, ] + ;
				[SUM(TI09BFB) AS TI09BFB, SUM(TI09BFT) AS TI09BFT, SUM(TI09BVB) AS TI09BVB, SUM(TI09BVT) AS TI09BVT, ] + ;
				[SUM(TI19BCB) AS TI19BCB, SUM(TI19BCT) AS TI19BCT, SUM(TI19BFB) AS TI19BFB, ] + ;
				[SUM(TI19BFT) AS TI19BFT, SUM(TI19BVB) AS TI19BVB, SUM(TI19BVT) AS TI19BVT ] + ;
				[ FROM JC2007 ] + ;
				[ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				[ GROUP BY an, luna ] + ;
				[ ORDER BY an, luna ] && 08.02.2010
		
			*!*		PRIVATE pnNrLuni, pdDataInitiala
			*!*		pnNrLuni = (gnAn*12 + gnLuna) - (pnAn*12 + pnLuna)
			*!*		pdDataInitiala = DATE(pnAn, pnLuna, 1)
		
			*!*		lcSelect = [WITH ANILUNI AS ] + ;
			*!*			[(select l.numeluna, an, luna ] + ;
			*!*			[  from (select EXTRACT(YEAR FROM ADD_MONTHS(?pdDataInitiala, level - 1)) as AN, ] + ;
			*!*			[               EXTRACT(MONTH FROM ADD_MONTHS(?pdDataInitiala, level - 1)) as LUNA ] + ;
			*!*			[          from dual  ] + ;
			*!*			[        connect by level <= ?pnNrLuni + 1) al ] + ;
			*!*			[  left join lunilean l on al.luna = l.nrluna) ] + ;
			*!*		    [select 1 as tip, J.an, J.luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
			*!*			[ numeluna || ' ' || to_char(J.an) as denumire,' ' as cod_fiscal, ] + ;
			*!*			[SUM(TOTCTVA) AS TOTCTVA, ] + ;
			*!*			[SUM(CEBCB) AS CEBCB, SUM(CEBCT) AS CEBCT, SUM(CEBFB) AS CEBFB, SUM(CEBFN) AS CEBFN, ] + ;
			*!*			[SUM(CEBFSC) AS CEBFSC, SUM(CEBFT) AS CEBFT, SUM(CEBVB) AS CEBVB, SUM(CEBVN) AS CEBVN, ] + ;
			*!*			[SUM(CEBVSC) AS CEBVSC, SUM(CEBVT) AS CEBVT, ] + ;
			*!*			[SUM(FOSCN) AS FOSCN, SUM(FO09BCB) AS FO09BCB, SUM(FO09BCT) AS FO09BCT, SUM(FO09BFB) AS FO09BFB, ] + ;
			*!*			[SUM(FO09BFT) AS FO09BFT, SUM(FO09BVB) AS FO09BVB, SUM(FO09BVT) AS FO09BVT, SUM(FO19BCB) AS FO19BCB, ] + ;
			*!*			[SUM(FO19BCT) AS FO19BCT, SUM(FO19BFB) AS FO19BFB, SUM(FO19BFT) AS FO19BFT, SUM(FO19BVB) AS FO19BVB, ] + ;
			*!*			[SUM(FO19BVT) AS FO19BVT, ] + ;
			*!*			[SUM(ROSCN) AS ROSCN, SUM(RO09BCB) AS RO09BCB, SUM(RO09BCT) AS RO09BCT, SUM(RO09BFB) AS RO09BFB, ] + ;
			*!*			[SUM(RO09BFT) AS RO09BFT, SUM(RO09BVB) AS RO09BVB, SUM(RO09BVT) AS RO09BVT, SUM(RO19BCB) AS RO19BCB, ] + ;
			*!*			[SUM(RO19BCT) AS RO19BCT, SUM(RO19BFB) AS RO19BFB, SUM(RO19BFT) AS RO19BFT, SUM(RO19BVB) AS RO19BVB, ] + ;
			*!*			[SUM(RO19BVT) AS RO19BVT, ] + ;
			*!*			[SUM(TI09BFB) AS TI09BFB, SUM(TI09BFT) AS TI09BFT, SUM(TI09BVB) AS TI09BVB, SUM(TI09BVT) AS TI09BVT, ] + ;
			*!*			[SUM(TI19BCB) AS TI19BCB, SUM(TI19BCT) AS TI19BCT, SUM(TI19BFB) AS TI19BFB, ] + ;
			*!*			[SUM(TI19BFT) AS TI19BFT, SUM(TI19BVB) AS TI19BVB, SUM(TI19BVT) AS TI19BVT ] + ;
			*!*			[ FROM ANILUNI LEFT JOIN JC2007 J ON ANILUNI.AN = J.AN AND ANILUNI.LUNA = J.LUNA ] + ;
			*!*			[ WHERE J.an*12+J.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + IIF(!EMPTY(lcWhere), " and " + lcWhere, "") + ;
			*!*			[ GROUP BY J.AN, J.LUNA, ANILUNI.NUMELUNA]
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && BETWEEN(x, 5, 9)
		
		If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9)
			*!*		IF USED('cListRc') AND !EMPTY(lcRaport)
			*!*			THISFORM.ALWAYSONTOP=.F.
			*!*			SELECT cListRC
			*!*			REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW
			*!*			THISFORM.ALWAYSONTOP=.T.
			*!*		ENDIF
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRc],lcRaport)
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		
		*!*		Do inainte With "CUMP2007" In oinainte_de.prg
		
			This._grdbase1.SetFocus
		
			aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere")
		Endif
	ENDPROC

	PROCEDURE do_reset
		*Thisform.cbo_tip_jurnal_cump.ListItemId = 1
		
		
		If Not Pemstatus(Thisform,"filtru_pretty",5)
			Thisform.AddProperty("filtru_pretty")
		Endif
		If Not Pemstatus(Thisform,"filtru_pretty_ro",5)
			Thisform.AddProperty("filtru_pretty_ro")
		Endif
		
		Thisform.filtru_pretty=""
		Thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		Thisform.but_start_criterii1.pornit="nu"
		Thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		*!* 20.08.2009
		*!* marius.mutu
		*!* imbunatatit verificarea CIF/CNP + validare atribut TVA pe site-ul VIES
		
		*!* 20.08.2009
		*!*	LOCAL lcFile, lcRun, lcCoduriEronate, lcSelect
		*!*	lcSelect = SELECT()
		*!*	*!* coduri fiscale eronate
		*!*	SELECT DISTINCT COD_FISCAL, denumire;
		*!*		FROM ACTCV ;
		*!*		WHERE LEFT(ALLTRIM(UPPER(COD_FISCAL)),2) = 'RO' ;
		*!*		INTO CURSOR crsCoduriFiscale ;
		*!*		ORDER BY COD_FISCAL, denumire
		
		*!*	SELECT COD_FISCAL, denumire	;
		*!*		FROM crsCoduriFiscale ;
		*!*		WHERE !validare_cif(COD_FISCAL) ;
		*!*		INTO CURSOR crsCoduriEronate
		
		*!*	IF _TALLY > 0
		*!*		SET TEXTMERGE ON TO MEMVAR lcCoduriEronate
		*!*		\CODURI FISCALE ERONATE
		*!*		SELECT crsCoduriEronate
		*!*		SCAN
		*!*			\<<ALLTRIM(COD_FISCAL)>>,<<ALLTRIM(DENUMIRE)>>
		*!*		ENDSCAN
		*!*		SET TEXTMERGE TO
		*!*		USE IN SELECT('crsCoduriEronate')
		*!*		USE IN SELECT('crsCoduriFiscale')
		*!*		lcFile = gcTempPath + 'coduri_fiscale_eronate.txt'
		*!*		STRTOFILE(lcCoduriEronate,lcFile)
		*!*		lcRun = [RUN /n notepad "] + lcFile + ["]
		*!*		&lcRun
		*!*	ELSE
		*!*		AMESSAGEBOX('Codurile fiscale sunt valide',0+64,'Validare')
		*!*	ENDIF
		*!*	SELECT (lcSelect)
		#Define CRLF Chr(13) + Chr(10)
		Local lcFile, lcRun, lcSelect, llPlatitorTVA, lcCoduriEronate
		Local X, llVerificarePlatitorTVA, lcWhere, lcCodFiscal, llAtributFiscalRO
		Local lcXml, loPartener, lcEroare, lcKey
		
		lcSelect = Select()
		X = XMENU('Inregistrarea curenta - verificare validitate;Inregistrarea curenta - verificare validitate + platitor TVA;\-;Toate inregistrarile - verificare validitate;Toate inregistrarile - verificare validitate + platitor TVA')
		IF !BETWEEN(x,1,5)
			RETURN
		ENDIF 
		llVerificarePlatitorTVA = INLIST(x, 2, 5)
		
		lcWhere = IIF(INLIST(x, 1, 2), "recno() = " + ALLTRIM(STR(RECNO())), ".T.")
		Select Distinct COD_FISCAL, denumire, .T. As IsCIF, .F. As codvalid ;
			FROM ACTCV ;
			WHERE &lcWhere ;
			INTO Cursor crsCoduriFiscale ;
			ORDER By denumire, COD_FISCAL  ;
			READWRITE
		
		*!* VERIFIC CIF, CNP VALID
		Local loVerificare
		*!*	glRCViesURL = .T.
		*!*	gcRCVIESURL = "http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/VIES"
		loVerificare = Createobject("verificarecod", glRCViesURL, glRCMfinURL, gcRCRomfastURL, gcRCMfinanteURL, gcRCMfinanteParams) && validare.prg
		
		Select crsCoduriFiscale
		Replace All IsCIF With loVerificare.IsCIF(COD_FISCAL)
		Replace All codvalid With Iif(IsCIF, loVerificare.validare('CIF', COD_FISCAL), loVerificare.validare('CNP', COD_FISCAL))
		
		lcCoduriEronate = ""
		Set Textmerge On To Memvar lcCoduriEronate
		
		\CODURI FISCALE ERONATE
		Select crsCoduriFiscale
		Scan For !codvalid
			\<<ALLTRIM(DENUMIRE)>>, <<ALLTRIM(COD_FISCAL)>>
		Endscan
		
		*!* VERIFIC CODURILE FISCALE VALIDE PENTRU ATRIBUTUL FISCAL IN VIES
		If llVerificarePlatitorTVA
			\
			\PARTENERI CU ATRIBUT TVA RO ERONAT
			Select crsCoduriFiscale
			Scan For codvalid AND IsCIF
		
				lcCodFiscal = Alltrim(Upper(COD_FISCAL))
				llAtributFiscalRO = LEFT(lcCodFiscal,2) = 'RO'
				
				WAIT WINDOW ALLTRIM(denumire) + ' ' + TRANSFORM(ROUND(RECNO()/RECCOUNT()*100,2)) + ' %' NOWAIT 
						
				lcXml = loVerificare.Verificare('CIF', lcCodFiscal, 'VIES')
				IF TYPE('loVerificare.oEntitate') = 'O'
					loPartener = loVerificare.oEntitate
					llPlatitorTva = loPartener.platitortva
					lcEroare = loPartener.eroare
					IF !EMPTY(lcEroare) AND aMESSAGEBOX(lcEroare + CRLF + 'Doriti sa continuati?', 4+ 32, _screen.caption) <> 6
						EXIT
					ENDIF 
		
					IF (llAtributFiscalRO AND !llPlatitorTVA) OR (!llAtributFiscalRO AND llPlatitorTVA)
						\<<ALLTRIM(DENUMIRE)>>, <<ALLTRIM(COD_FISCAL)>>, <<IIF(llPlatitorTVA, 'PLATITOR TVA', 'NEPLATITOR TVA')>>	
					ENDIF 
				ENDIF 	
		
				lcKey = INKEY(0.1)
				IF lcKey = 27 && ESC
					IF aMESSAGEBOX('Doriti sa intrerupeti operatia?', 4+32, _screen.Caption) = 6
						EXIT 
					ENDIF 
				ENDIF 	
			Endscan
		Endif
		Set Textmerge To
		
		Use In Select('crsCoduriFiscale')
		lcFile = gcTempPath + 'coduri_fiscale_eronate.txt'
		Strtofile(lcCoduriEronate,lcFile)
		lcRun = [RUN /n notepad "] + lcFile + ["]
		&lcRun
		
		Select (lcSelect)
		*!* 20.08.2009 ^
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
			['from ]+gcS+[.vact where 2=2']
		
		Select actcv
		pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract))
		pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheD=]+Alltrim(Str(nract))+[ or nrord=']+Alltrim(Str(nract))+[')]+gcCondSucursala
		pcorder=[dataact,serie_act,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.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()
		Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef
		Thisform.do_executa(Thisform.nlistitemiddef)
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		Endif
		
		
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scd,1,3))='401' or TRIM(SUBSTR(scd,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scc,1,3))='401' or TRIM(SUBSTR(scc,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		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=denumire
			pcschema=['DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),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,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+;
				['from ]+gcS+[.vact where 2=2']
			pcorder=[dataact,serie_act,nract]
			pcfiltru=[]
			llAfisare=.F.
			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 (id_partc=]+Alltrim(STR(id_part))+[ or id_partd=]+Alltrim(STR(id_part))+[) ] +;
				[ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
			poact.ca_baza1.afisare()
			Go Top
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			Thisform.ck_nract.SetFocus()
		Endif
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" 	+ crlf + ; 
						  "Serie act\serie_act\T\none\" 			+ crlf + ;
						  "Nr. act\nract\N\none\"   				+ crlf + ;
						  "Data act\dataact\D\none\"				+ crlf + ;
						  "Fel document\fel_document\T\id_fdoc\nom_feldoc" 		+ crlf + ;
						  "Cod Fiscal\cod_fiscal\T\none\" 			+ crlf + ;
						  "Perioada\an*12+luna\D1\none\" + crlf + ;				  
						  "EroareTVA\nofiled\E\" 					+ ;
						[ (ABS(TOTCTVA -(RO19BCB + RO19BCT + RO19BVB + RO19BVT + RO19BFB + RO19BFT + RO09BCB + ] +;
				[RO09BCT + RO09BVB + RO09BVT + RO09BFB + RO09BFT + ROSCN + FO19BCB + ] + ;
				[FO19BCT + FO19BVB + FO19BVT + FO19BFB + FO19BFT + FO09BCB + FO09BCT + ] + ;
				[FO09BVB + FO09BVT + FO09BFB + FO09BFT + FOSCN + CEBCB + CEBCT + ] + ;
				[CEBVB + CEBVT + CEBVSC + CEBVN + CEBFB + CEBFT + CEBFSC + CEBFN + ] + ;
				[TI19BCB + TI19BCT + TI19BVB + TI19BVT + TI19BFB + TI19BFT + TI09BVB + ] + ;
				[TI09BVT + TI09BFB + TI09BFT)) >= 1 OR ] + ;
				[ABS(RO19BCT) NOT BETWEEN ROUND(0.188*ABS(RO19BCB),?gnPc) AND ROUND(0.193*ABS(RO19BCB),?gnPc) OR ] + ;
				[ABS(RO19BVT) NOT BETWEEN ROUND(0.188*ABS(RO19BVB),?gnPc) AND ROUND(0.193*ABS(RO19BVB),?gnPc) OR ] + ;
				[ABS(RO19BFT) NOT BETWEEN ROUND(0.188*ABS(RO19BFB),?gnPc) AND ROUND(0.193*ABS(RO19BFB),?gnPc) OR ] + ;
				[ABS(RO09BCT) NOT BETWEEN ROUND(0.088*ABS(RO09BCB),?gnPc) AND ROUND(0.093*ABS(RO09BCB),?gnPc) OR ] + ;
				[ABS(RO09BVT) NOT BETWEEN ROUND(0.088*ABS(RO09BVB),?gnPc) AND ROUND(0.093*ABS(RO09BVB),?gnPc) OR ] + ;
				[ABS(RO09BFT) NOT BETWEEN ROUND(0.088*ABS(RO09BFB),?gnPc) AND ROUND(0.093*ABS(RO09BFB),?gnPc) OR ] + ;
				[ABS(FO19BCT) NOT BETWEEN ROUND(0.188*ABS(FO19BCB),?gnPc) AND ROUND(0.193*ABS(FO19BCB),?gnPc) OR ] + ;
				[ABS(FO19BVT) NOT BETWEEN ROUND(0.188*ABS(FO19BVB),?gnPc) AND ROUND(0.193*ABS(FO19BVB),?gnPc) OR ] + ;
				[ABS(FO19BFT) NOT BETWEEN ROUND(0.188*ABS(FO19BFB),?gnPc) AND ROUND(0.193*ABS(FO19BFB),?gnPc) OR ] + ;
				[ABS(FO09BCT) NOT BETWEEN ROUND(0.088*ABS(FO09BCB),?gnPc) AND ROUND(0.093*ABS(FO09BCB),?gnPc) OR ] + ;
				[ABS(FO09BVT) NOT BETWEEN ROUND(0.088*ABS(FO09BVB),?gnPc) AND ROUND(0.093*ABS(FO09BVB),?gnPc) OR ] + ;
				[ABS(FO09BFT) NOT BETWEEN ROUND(0.088*ABS(FO09BFB),?gnPc) AND ROUND(0.093*ABS(FO09BFB),?gnPc) OR ] + ;
				[ABS(TI19BCT) NOT BETWEEN ROUND(0.188*ABS(TI19BCB),?gnPc) AND ROUND(0.193*ABS(TI19BCB),?gnPc) OR ] + ;
				[ABS(TI19BVT) NOT BETWEEN ROUND(0.188*ABS(TI19BVB),?gnPc) AND ROUND(0.193*ABS(TI19BVB),?gnPc) OR ] + ;
				[ABS(TI19BFT) NOT BETWEEN ROUND(0.188*ABS(TI19BFB),?gnPc) AND ROUND(0.193*ABS(TI19BFB),?gnPc) OR ] + ;
				[ABS(TI09BVT) NOT BETWEEN ROUND(0.088*ABS(TI09BVB),?gnPc) AND ROUND(0.093*ABS(TI09BVB),?gnPc) OR ] + ;
				[ABS(TI09BFT) NOT BETWEEN ROUND(0.088*ABS(TI09BFB),?gnPc) AND ROUND(0.093*ABS(TI09BFB),?gnPc))\] + crlf + ;
				IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
		DODEFAULT()
	ENDPROC

	PROCEDURE cbo_tip_jurnal_cump.Valid
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFel_document.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRO19BCB.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo19bct.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRO19BFB.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRO19BVB.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRO19BVT.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.Text1.DblClick
		thisform.butdrept()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_regcump2010 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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo24b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo24b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo24t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo24t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEb.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI24b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI24b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI24t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI24t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROtn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROtn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO20B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO20B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI20B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI20B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column63.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column63.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column64.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column64.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column65.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column65.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: do_listare2013
		*m: grdfooterevent
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*p: lafisaretot		&& Afiseaza toate inregistrarile la intrare, fara sa mai apesi pe butonul Cautare/Reset
		*p: lvfp9
		*p: nlistitemid
		*p: nlistitemiddef
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		Height = 513
		lafisaretot = .F.
		lvfp9 = .T.
		Name = "frm_regcump2010"
		nlistitemid = 1
		nlistitemiddef = 2
		Width = 795
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="lafisaretot" display="lAfisareTot"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 672
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 121
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 15
		Lb_titlu_alb_b121.Top = 1
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 5
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 69, ;
		Comment = "*:OnResize=ss", ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 56, ;
		Height = 405, ;
		Left = 11, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcv", ;
		RowHeight = 19, ;
		TabIndex = 8, ;
		Top = 73, ;
		Width = 768, ;
		ZOrderSet = 2, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "fdoc", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cFdoc", ;
		Column1.ReadOnly = .T., ;
		Column1.Visible = .T., ;
		Column1.Width = 124, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cDataact", ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Width = 86, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "nract", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cNract", ;
		Column3.ReadOnly = .T., ;
		Column3.Visible = .T., ;
		Column3.Width = 125, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cDenumire", ;
		Column4.ReadOnly = .T., ;
		Column4.Visible = .T., ;
		Column4.Width = 185, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cCod_fiscal", ;
		Column5.ReadOnly = .T., ;
		Column5.Visible = .T., ;
		Column5.Width = 115, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.InputMask = (get_mask(12,gnZ)), ;
		Column6.Name = "cTotctva", ;
		Column6.ReadOnly = .T., ;
		Column6.Visible = .T., ;
		Column6.Width = 108, ;
		Column7.ColumnOrder = 21, ;
		Column7.ControlSource = "ro24b", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.InputMask = (get_mask(12,gnZ)), ;
		Column7.Name = "cRo24b", ;
		Column7.ReadOnly = .T., ;
		Column7.Visible = .T., ;
		Column7.Width = 114, ;
		Column8.ColumnOrder = 22, ;
		Column8.ControlSource = "ro24t", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.InputMask = (get_mask(12,gnZ)), ;
		Column8.Name = "cRo24t", ;
		Column8.ReadOnly = .T., ;
		Column8.Visible = .T., ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 25, ;
		Column9.ControlSource = "ro09b", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.InputMask = (get_mask(12,gnZ)), ;
		Column9.Name = "cRo09b", ;
		Column9.ReadOnly = .T., ;
		Column9.Visible = .T., ;
		Column9.Width = 114, ;
		Column10.ColumnOrder = 26, ;
		Column10.ControlSource = "Ro09t", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Format = "R", ;
		Column10.InputMask = (get_mask(12,gnZ)), ;
		Column10.Name = "cRo09t", ;
		Column10.ReadOnly = .T., ;
		Column10.Visible = .T., ;
		Column10.Width = 122, ;
		Column11.ColumnOrder = 33, ;
		Column11.ControlSource = "Roscn", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.InputMask = (get_mask(12,gnZ)), ;
		Column11.Name = "cRoscn", ;
		Column11.ReadOnly = .T., ;
		Column11.Visible = .T., ;
		Column11.Width = 115, ;
		Column12.ColumnOrder = 36, ;
		Column12.ControlSource = "fo24b", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.InputMask = (get_mask(12,gnZ)), ;
		Column12.Name = "cFo24b", ;
		Column12.ReadOnly = .T., ;
		Column12.Visible = .T., ;
		Column12.Width = 111, ;
		Column13.ColumnOrder = 37, ;
		Column13.ControlSource = "fo24t", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.InputMask = (get_mask(12,gnZ)), ;
		Column13.Name = "cFo24t", ;
		Column13.ReadOnly = .T., ;
		Column13.Visible = .T., ;
		Column13.Width = 104, ;
		Column14.ColumnOrder = 40, ;
		Column14.ControlSource = "fo09b", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.InputMask = (get_mask(12,gnZ)), ;
		Column14.Name = "cFo09b", ;
		Column14.ReadOnly = .T., ;
		Column14.Visible = .T., ;
		Column14.Width = 113, ;
		Column15.ColumnOrder = 41, ;
		Column15.ControlSource = "fo09t", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.InputMask = (get_mask(12,gnZ)), ;
		Column15.Name = "cFo09t", ;
		Column15.ReadOnly = .T., ;
		Column15.Visible = .T., ;
		Column15.Width = 102, ;
		Column16.ColumnOrder = 42, ;
		Column16.ControlSource = "foscn", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.InputMask = (get_mask(12,gnZ)), ;
		Column16.Name = "cFoscn", ;
		Column16.ReadOnly = .T., ;
		Column16.Visible = .T., ;
		Column16.Width = 106, ;
		Column17.ColumnOrder = 44, ;
		Column17.ControlSource = "CEt", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.InputMask = (get_mask(12,gnZ)), ;
		Column17.Name = "cCEt", ;
		Column17.ReadOnly = .T., ;
		Column17.Visible = .T., ;
		Column17.Width = 81, ;
		Column18.ColumnOrder = 43, ;
		Column18.ControlSource = "CEb", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cCEb", ;
		Column18.ReadOnly = .T., ;
		Column18.Visible = .T., ;
		Column18.Width = 85, ;
		Column19.ColumnOrder = 53, ;
		Column19.ControlSource = "TI24b", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.InputMask = (get_mask(12,gnZ)), ;
		Column19.Name = "cTI24b", ;
		Column19.ReadOnly = .T., ;
		Column19.Visible = .T., ;
		Column19.Width = 83, ;
		Column20.ColumnOrder = 54, ;
		Column20.ControlSource = "TI24t", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cTI24t", ;
		Column20.ReadOnly = .T., ;
		Column20.Visible = .T., ;
		Column20.Width = 107, ;
		Column21.ColumnOrder = 57, ;
		Column21.ControlSource = "TI09b", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cTI09b", ;
		Column21.ReadOnly = .T., ;
		Column21.Visible = .T., ;
		Column21.Width = 112, ;
		Column22.ColumnOrder = 58, ;
		Column22.ControlSource = "TI09t", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cTI09t", ;
		Column22.ReadOnly = .T., ;
		Column22.Visible = .T., ;
		Column22.Width = 106, ;
		Column23.ColumnOrder = 45, ;
		Column23.ControlSource = "CEsc", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cCEsc", ;
		Column23.ReadOnly = .T., ;
		Column23.Visible = .T., ;
		Column24.ColumnOrder = 46, ;
		Column24.ControlSource = "CEn", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnZ)), ;
		Column24.Name = "cCEn", ;
		Column24.ReadOnly = .T., ;
		Column24.Visible = .T., ;
		Column24.Width = 105, ;
		Column25.ColumnOrder = 4, ;
		Column25.ControlSource = "serie_act", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "cSerieAct", ;
		Column25.ReadOnly = .T., ;
		Column25.Visible = .T., ;
		Column25.Width = 62, ;
		Column26.ColumnOrder = 29, ;
		Column26.ControlSource = "ro05b", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cRo05b", ;
		Column26.ReadOnly = .T., ;
		Column26.Visible = .T., ;
		Column26.Width = 112, ;
		Column27.ColumnOrder = 30, ;
		Column27.ControlSource = "ro05t", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "cRo05t", ;
		Column27.ReadOnly = .T., ;
		Column27.Visible = .T., ;
		Column27.Width = 113, ;
		Column28.ColumnOrder = 14, ;
		Column28.ControlSource = "ro19b", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cRO19b", ;
		Column28.ReadOnly = .T., ;
		Column28.Visible = .T., ;
		Column28.Width = 110, ;
		Column29.ColumnOrder = 15, ;
		Column29.ControlSource = "ro19t", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cRo19t", ;
		Column29.ReadOnly = .T., ;
		Column29.Visible = .T., ;
		Column29.Width = 99, ;
		Column30.ColumnOrder = 38, ;
		Column30.ControlSource = "fo19b", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cFo19b", ;
		Column30.ReadOnly = .T., ;
		Column30.Visible = .T., ;
		Column30.Width = 110, ;
		Column31.ColumnOrder = 39, ;
		Column31.ControlSource = "fo19t", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cFo19t", ;
		Column31.ReadOnly = .T., ;
		Column31.Visible = .T., ;
		Column31.Width = 106, ;
		Column32.ColumnOrder = 55, ;
		Column32.ControlSource = "ti19b", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cTi19b", ;
		Column32.ReadOnly = .T., ;
		Column32.Visible = .T., ;
		Column32.Width = 93, ;
		Column33.ColumnOrder = 56, ;
		Column33.ControlSource = "ti19t", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.InputMask = (get_mask(12,gnZ)), ;
		Column33.Name = "cTi19t", ;
		Column33.ReadOnly = .T., ;
		Column33.Visible = .T., ;
		Column33.Width = 97, ;
		Column34.ColumnOrder = 59, ;
		Column34.ControlSource = "rotn+rotn50+rotn100", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.InputMask = (get_mask(12,gnZ)), ;
		Column34.Name = "cROtn", ;
		Column34.ReadOnly = .T., ;
		Column34.Visible = .T., ;
		Column34.Width = 108, ;
		Column35.ColumnOrder = 9, ;
		Column35.ControlSource = "TOTFTVATAX", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.InputMask = (get_mask(12,gnZ)), ;
		Column35.Name = "cTotfTVATax", ;
		Column35.ReadOnly = .T., ;
		Column35.Visible = .T., ;
		Column35.Width = 92, ;
		Column36.ColumnOrder = 10, ;
		Column36.ControlSource = "TOTTVATAX", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.InputMask = (get_mask(12,gnZ)), ;
		Column36.Name = "cTotTVATax", ;
		Column36.ReadOnly = .T., ;
		Column36.Visible = .T., ;
		Column36.Width = 99, ;
		Column37.ColumnOrder = 11, ;
		Column37.ControlSource = "RO24NB+RO20NB+RO19NB+RO09NB+RO05NB", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.InputMask = (get_mask(12,gnZ)), ;
		Column37.Name = "cRONB", ;
		Column37.ReadOnly = .T., ;
		Column37.Visible = .T., ;
		Column37.Width = 107, ;
		Column38.ColumnOrder = 12, ;
		Column38.ControlSource = "RO24NT+RO20NT+RO19NT+RO09NT+RO05NT", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.InputMask = (get_mask(12,gnZ)), ;
		Column38.Name = "cRONT", ;
		Column38.ReadOnly = .T., ;
		Column38.Visible = .T., ;
		Column38.Width = 98, ;
		Column39.ColumnOrder = 23, ;
		Column39.ControlSource = "RO24NB", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.InputMask = (get_mask(12,gnZ)), ;
		Column39.Name = "cRO24NB", ;
		Column39.ReadOnly = .T., ;
		Column39.Visible = .T., ;
		Column39.Width = 120, ;
		Column40.ColumnOrder = 24, ;
		Column40.ControlSource = "RO24NT", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.InputMask = (get_mask(12,gnZ)), ;
		Column40.Name = "cRO24NT", ;
		Column40.ReadOnly = .T., ;
		Column40.Visible = .T., ;
		Column40.Width = 123, ;
		Column41.ColumnOrder = 27, ;
		Column41.ControlSource = "RO09NB", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.InputMask = (get_mask(12,gnZ)), ;
		Column41.Name = "cRO09NB", ;
		Column41.ReadOnly = .T., ;
		Column41.Visible = .T., ;
		Column41.Width = 122, ;
		Column42.ColumnOrder = 28, ;
		Column42.ControlSource = "RO09NT", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.InputMask = (get_mask(12,gnZ)), ;
		Column42.Name = "cRO09NT", ;
		Column42.ReadOnly = .T., ;
		Column42.Visible = .T., ;
		Column42.Width = 125, ;
		Column43.ColumnOrder = 31, ;
		Column43.ControlSource = "RO05NB", ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.InputMask = (get_mask(12,gnZ)), ;
		Column43.Name = "cRO05NB", ;
		Column43.ReadOnly = .T., ;
		Column43.Visible = .T., ;
		Column43.Width = 119, ;
		Column44.ColumnOrder = 32, ;
		Column44.ControlSource = "RO05NT", ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.InputMask = (get_mask(12,gnZ)), ;
		Column44.Name = "cRO05NT", ;
		Column44.ReadOnly = .T., ;
		Column44.Visible = .T., ;
		Column44.Width = 127, ;
		Column45.ColumnOrder = 60, ;
		Column45.ControlSource = "tva_incasare", ;
		Column45.CurrentControl = "Check1", ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Name = "cTVAIncasare", ;
		Column45.ReadOnly = .T., ;
		Column45.Sparse = .F., ;
		Column45.Visible = .T., ;
		Column45.Width = 28, ;
		Column46.ColumnOrder = 63, ;
		Column46.ControlSource = "sucursala", ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cSucursala", ;
		Column46.ReadOnly = .T., ;
		Column46.Visible = .T., ;
		Column46.Width = 146, ;
		Column47.ColumnOrder = 61, ;
		Column47.ControlSource = "actcv.ales", ;
		Column47.CurrentControl = "_checkbox1", ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Name = "cAles", ;
		Column47.ReadOnly = .F., ;
		Column47.Sparse = .F., ;
		Column47.Visible = .T., ;
		Column47.Width = 28, ;
		Column48.ColumnOrder = 62, ;
		Column48.ControlSource = "cont", ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Name = "cCont", ;
		Column48.ReadOnly = .T., ;
		Column48.Visible = .T., ;
		Column49.ColumnOrder = 64, ;
		Column49.ControlSource = "soldf", ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.InputMask = (get_mask(12,gnZ)), ;
		Column49.Name = "cSoldF", ;
		Column49.ReadOnly = .T., ;
		Column49.Visible = .T., ;
		Column50.ColumnOrder = 66, ;
		Column50.ControlSource = "solddif", ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cSoldDif", ;
		Column50.ReadOnly = .T., ;
		Column50.Visible = .T., ;
		Column50.Width = 108, ;
		Column51.ColumnOrder = 65, ;
		Column51.ControlSource = "RO24NB+RO20NB+RO19NB+RO09NB+RO05NB+RO24NT+RO20NT+RO19NT+RO09NT+RO05NT", ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cSoldN", ;
		Column51.ReadOnly = .T., ;
		Column51.Visible = .T., ;
		Column51.Width = 82, ;
		Column52.ColumnOrder = 13, ;
		Column52.ControlSource = "ro20b", ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.InputMask = (get_mask(12,gnZ)), ;
		Column52.Name = "cRO20B", ;
		Column52.ReadOnly = .T., ;
		Column52.Visible = .T., ;
		Column52.Width = 101, ;
		Column53.ColumnOrder = 18, ;
		Column53.ControlSource = "ro20t", ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,gnZ)), ;
		Column53.Name = "cRO20T", ;
		Column53.ReadOnly = .T., ;
		Column53.Visible = .T., ;
		Column53.Width = 102, ;
		Column54.ColumnOrder = 19, ;
		Column54.ControlSource = "RO20NB", ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "cRO20NB", ;
		Column54.ReadOnly = .T., ;
		Column54.Visible = .T., ;
		Column54.Width = 125, ;
		Column55.ColumnOrder = 20, ;
		Column55.ControlSource = "RO20NT", ;
		Column55.FontName = "Arial", ;
		Column55.FontSize = 10, ;
		Column55.InputMask = (get_mask(12,gnZ)), ;
		Column55.Name = "cRO20NT", ;
		Column55.ReadOnly = .T., ;
		Column55.Visible = .T., ;
		Column55.Width = 122, ;
		Column56.ColumnOrder = 34, ;
		Column56.ControlSource = "FO20B", ;
		Column56.FontName = "Arial", ;
		Column56.FontSize = 10, ;
		Column56.InputMask = (get_mask(12,gnZ)), ;
		Column56.Name = "cFO20B", ;
		Column56.ReadOnly = .T., ;
		Column56.Visible = .T., ;
		Column56.Width = 102, ;
		Column57.ColumnOrder = 35, ;
		Column57.ControlSource = "FO20T", ;
		Column57.FontName = "Arial", ;
		Column57.FontSize = 10, ;
		Column57.InputMask = (get_mask(12,gnZ)), ;
		Column57.Name = "cFO20T", ;
		Column57.ReadOnly = .T., ;
		Column57.Visible = .T., ;
		Column57.Width = 109, ;
		Column58.ColumnOrder = 51, ;
		Column58.ControlSource = "TI20B", ;
		Column58.FontName = "Arial", ;
		Column58.FontSize = 10, ;
		Column58.InputMask = (get_mask(12,gnZ)), ;
		Column58.Name = "cTI20B", ;
		Column58.ReadOnly = .T., ;
		Column58.Visible = .T., ;
		Column58.Width = 95, ;
		Column59.ColumnOrder = 52, ;
		Column59.ControlSource = "TI20T", ;
		Column59.FontName = "Arial", ;
		Column59.FontSize = 10, ;
		Column59.InputMask = (get_mask(12,gnZ)), ;
		Column59.Name = "cTI20T", ;
		Column59.ReadOnly = .T., ;
		Column59.Visible = .T., ;
		Column59.Width = 114, ;
		Column60.ColumnOrder = 3, ;
		Column60.ControlSource = "dataireg", ;
		Column60.FontName = "Arial", ;
		Column60.FontSize = 10, ;
		Column60.Name = "cDataIreg", ;
		Column60.ReadOnly = .T., ;
		Column60.Visible = .T., ;
		Column60.Width = 100, ;
		Column61.ColumnOrder = 16, ;
		Column61.ControlSource = "RO19NB", ;
		Column61.FontName = "Arial", ;
		Column61.FontSize = 10, ;
		Column61.Format = "R", ;
		Column61.InputMask = (get_mask(12,gnZ)), ;
		Column61.Name = "cRO19NB", ;
		Column61.ReadOnly = .T., ;
		Column61.Width = 125, ;
		Column62.ColumnOrder = 17, ;
		Column62.ControlSource = "RO19NT", ;
		Column62.FontName = "Arial", ;
		Column62.FontSize = 10, ;
		Column62.Format = "R", ;
		Column62.InputMask = (get_mask(12,gnZ)), ;
		Column62.Name = "cRO19NT", ;
		Column62.ReadOnly = .T., ;
		Column62.Width = 119, ;
		Column63.ColumnOrder = 67, ;
		Column63.ControlSource = "incasat_tot", ;
		Column63.FontSize = 10, ;
		Column63.InputMask = (get_mask(12,gnZ)), ;
		Column63.Name = "Column63", ;
		Column63.ReadOnly = .T., ;
		Column64.ColumnOrder = 68, ;
		Column64.ControlSource = "incasat_exigibil", ;
		Column64.FontSize = 10, ;
		Column64.InputMask = (get_mask(12,gnZ)), ;
		Column64.Name = "Column64", ;
		Column64.ReadOnly = .T., ;
		Column65.ColumnOrder = 69, ;
		Column65.ControlSource = "diferenta_incasare_tva", ;
		Column65.FontSize = 10, ;
		Column65.InputMask = (get_mask(12,gnZ)), ;
		Column65.Name = "Column65", ;
		Column65.ReadOnly = .T., ;
		Column66.ColumnOrder = 47, ;
		Column66.ControlSource = "XX19TIB", ;
		Column66.FontSize = 10, ;
		Column66.InputMask = (get_mask(12,gnZ)), ;
		Column66.Name = "cXX19TIB", ;
		Column66.ReadOnly = .T., ;
		Column66.Width = 102, ;
		Column67.ColumnOrder = 48, ;
		Column67.ControlSource = "XX19TIT", ;
		Column67.FontSize = 10, ;
		Column67.InputMask = (get_mask(12,gnZ)), ;
		Column67.Name = "cXX19TIT", ;
		Column67.ReadOnly = .T., ;
		Column67.Width = 94, ;
		Column68.ColumnOrder = 49, ;
		Column68.ControlSource = "XX9TIB", ;
		Column68.FontSize = 10, ;
		Column68.InputMask = (get_mask(12,gnZ)), ;
		Column68.Name = "cXX9TIB", ;
		Column68.ReadOnly = .T., ;
		Column68.Width = 85, ;
		Column69.ColumnOrder = 50, ;
		Column69.ControlSource = "XX9TIT", ;
		Column69.FontSize = 10, ;
		Column69.InputMask = (get_mask(12,gnZ)), ;
		Column69.Name = "cXX9TIT", ;
		Column69.ReadOnly = .T., ;
		Column69.Width = 84
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 39, ;
		Name = "_checkbox1", ;
		ReadOnly = .F., ;
		Top = 70
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEb.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii din UE  =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEb.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii    din UE  =Neimpozabile=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEsc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii   din UE   =Scutite=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEsc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii    din UE  =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F. / C.N.P.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFO20B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO20B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFO20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import = TVA 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo24b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo24b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo24t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import = TVA 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo24t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFoscn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ach. de bunuri din import scutite sau neimpozab.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFoscn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column63.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasat in luna", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column63.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column64.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Exigibilizat (Baza+TVA)", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column64.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column65.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta incasat - exigibilizat", ;
		Comment = "incasat_dif", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column65.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo05b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo05b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO05NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO05NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO05NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO05NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo05t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo05t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO09NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO09NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo24b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo24b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO24NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO24NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO24NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO24NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo24t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo24t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRoscn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRoscn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cROtn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Limitare deducere TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cROtn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldDif.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta sold (sold fact. - sold neex.)", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldDif.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold factura", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldF.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldN.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Neexigibil", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldN.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTi19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTi19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTi19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTi19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI20B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI20B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 20%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI24b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI24b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI24t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 24%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI24t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotfTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabil la intern =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotfTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabil la intern =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 4, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 74, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA Inc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX19TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza19%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX19TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX19TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA19%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX19TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX9TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza 9%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX9TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX9TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA 9%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX9TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cfdoc, ;
		csourcegrid = _grdbase1, ;
		csumcolumns = <fb2p_value>cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo20b,cRo20t,cRo20Nb,cRo20Nt,cRo24b,cRo24t,cRo24Nb,cRo24Nt,cRo19b,cRo19t,cRo19nb,cRo19nt,cRo09b,cRo09t,cRo09nb,cRo09nt,cRo05b,cRo05t,cRo05nb,cRo05nt,cRoscn,cFo20b,cFo20t,cFo24b,cFo24t,cFo19b,cFo19t,cFo09b,cFo09t,cFoscn,cCEb,cCEt,cCEsc,cCEn,cTI20b,cTI20T,cTI24b,cTI24T,cTI19b,cTI19T,cTi09b,cTI09t,cROTN,cXX19TIB,cXX19TIT,cXX9TIB,cXX9TIT</fb2p_value>, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 25, ;
		Left = 11, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 480, ;
		Width = 768, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 672, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1, ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 583, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 612, ;
		Name = "But_start_criterii1", ;
		Top = 1, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 642, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 1, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ;
		Anchor = 3, ;
		FontCharSet = 238, ;
		FontName = "Segoe UI", ;
		FontSize = 10, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_cump", ;
		RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ;
		RowSourceType = 1, ;
		TabIndex = 18, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 37, ;
		Width = 254, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		Caption = "\<Exigibilizare TVA Incasare", ;
		Height = 29, ;
		Left = 595, ;
		Name = "cmdTVAIncasare", ;
		ToolTipText = "Genereaza note TVA Incasare 4426 = 4428 pentru facturile selectate. Se foloseste pentru facturile achitate integral, dar cu sold TVA neexigibil diferit de 0.", ;
		Top = 36, ;
		Width = 190
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		allowgridpreferences = .F., ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 337, ;
		Name = "Gridextra1", ;
		Top = 49, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 16, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS lcFiltru
		
		LOCAL lnOptiune
		lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID
		
		IF EMPTY(lcFiltru)
			lcFiltru = pocump.ca_baza1.cfiltru
		ENDIF
		
		THISFORM.MOUSEPOINTER= 11
		
		THISFORM.LOCKSCREEN=.T.
		save_grid_tag(THISFORM._grdbase1)
		pocump.ca_baza1.cfiltru=lcFiltru
		pocump.ca_baza1.afisare()
		restore_grid_tag(THISFORM._grdbase1)
		DO CASE
			CASE lnOptiune = 1 && REGISTRUL CUMPARARI
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA"
		
			CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = iif(m.gnAn >=2013, "TOTFTVATAX+TOTTVATAX+ROSCN", "RO24B + RO24T + RO20B + RO20T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN")
		
			CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO24B + FO24T + FO20B + FO20T + FO19B + FO19T + FO09B + FO09T + FOSCN"
		
			CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEB + CET + CESC + CEN"
		
			CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI24B + TI24T + TI20B + TI20T + TI19B + TI19T + TI09B + TI09T + xx19tib + xx19tit + xx9tib + xx9tit"
		ENDCASE
		THISFORM._grdfooter1.calcTotal
		
		THISFORM.LOCKSCREEN=.F.
		THISFORM.MOUSEPOINTER= 0
		
	ENDPROC

	PROCEDURE butdrept
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener
		lcOptiuniMeniuAnte = "\<Note contabile;" + ;
			"\<Incasari/Plati;" + ;
			"Istoric \<debit-credit;\-;"
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = 0
		loPartener = Null
		loDate = Createobject("empty")
		AddProperty(loDate, "denumire", m.lcDenumire)
		AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
		AddProperty(loDate, "optiuni_meniu_ante", m.lcOptiuniMeniuAnte)
		
		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		
		Do Case
			Case m.lnOptiune = 1
				Thisform.NOTACONTAB()
			Case m.lnOptiune = 2
				Thisform.incaspl()
			Case m.lnOptiune = 3
				This.ist_deb_cred()
		Endcase
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		*!* 19.03.2013
		*!* marius.mutu
		*!* filtru plati fara tva incasare (baza+tva exigibil din Registru TVA <> plata din Registrul Jurnal)
		
		*!* 25.09.2013
		*!* marius.mutu
		*!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		Else
			lcFiltru = Substr(gcCondSucursala, 6)
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_cump.ListItemId
		Thisform.nlistitemid = lnOptiune
		
		
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + Iif(!Empty(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI]
			Case lnOptiune = 2
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA]
				*!* marius.mutu
				*!* 21.06.2007
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcFiltru = lcFiltru + [AND ((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ] + ;
					[ ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0) OR ] + ;
					[(TOTCTVA = 0  and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ;
					[ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and XX19TIB = 0 and XX19TIT = 0 and XX9TIB = 0 and XX9TIT = 0 ] + ;
					[ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and ro24nb = 0 and ro24nt = 0 and ro20nb = 0 and ro20nt = 0 and ro19nt = 0 and ro9nb = 0 and ro9nt = 0 and ro5nb = 0 and ro5nt = 0)) ]
		
			Case lnOptiune = 3
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT]
				lcFiltru = lcFiltru + [AND (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
		
			Case lnOptiune = 4
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE]
				lcFiltru = lcFiltru + [AND (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
		
			Case lnOptiune = 5
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA]
				lcFiltru = lcFiltru + [AND (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)]
		ENDCASE
		
		If (This.filtru_pretty#"none")
			
			*** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil
			*** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact
			if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full))
				poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2013], [vjc2010],1,1,1)
				poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2013], [vjc2010],1,1,1)
			ELSE
				poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2010], [vjc2013],1,1,1)
				poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2010], [vjc2013],1,1,1)		
			ENDIF 	
			
			Thisform.actualizeaza_grid1(lcFiltru)
			Thisform.do_executa(lnOptiune)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
				*	THISFORM.ck_nract.SETFOCUS()
			Endif
		
			*** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE
			If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full)
		
				TEXT to lcSql noshow textmerge
		select an,
		       luna,
		       min(id_fact) as id_fact,
		       dataact,
		       nract,
		       serie_act,
		       id_part,
		       id_fdoc,
		       id_sucursala,
		       sum(totctva) as totctva,
		       sum(nvl(total_incasat, 0)) as incasat_tot,
		       SUM(NVL(tva_exigibil, 0)) as incasat_exigibil,
		       sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva
		  from (select a.an,
		               a.luna,
		               a.id_fact,
		               a.dataact,
		               a.nract,
		               a.serie_act,
		               a.id_fdoc,
		               a.id_sucursala,
		               a.id_part,
		               a.totctva,
		               nvl(b.total_incasat, 0) as total_incasat,
		               (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19bcb + a.ro19bct + a.ro19bvb +
		               a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb +
		               a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t +
		               a.roscn) as tva_exigibil
		          from (select an,
		                       luna,
		                       id_fact,
		                       id_sucursala,
		                       id_part,
		                       id_fdoc,
		                       nract,
		                       dataact,
		                       serie_act,
		                       totctva,
		                       ro24b,
		                       ro24t,
		                       ro20b,
		                       ro20t,                       
		                       ro19bcb,
		                       ro19bct,
		                       ro19bvb,
		                       ro19bvt,
		                       ro19bfb,
		                       ro19bft,
		                       ro09bcb,
		                       ro09bct,
		                       ro09bvb,
		                       ro09bvt,
		                       ro09bfb,
		                       ro09bft,
		                       ro05b,
		                       ro05t,
		                       roscn
		                  from jc2007 jc
		                 where an = <<m.gnAn>>
		                   and luna = <<m.gnLuna>>
		                   and (ro24nb <> 0
		                    or ro20nb <> 0
		                    or ro19nb <> 0
		                    or ro9nb <> 0
		                    or ro5nb <> 0) <<m.gcCondSucursala>>) a
		          left join (select an,
		                           luna,
		                           id_sucursala,
		                           (case
		                             when id_jtva_coloana in
		                                  (102,104,106,110,112,155,157,177) then
		                              id_fact
		                             else
		                              id_factd
		                           end) as id_fact,
		                           sum(case
		                                 when id_jtva_coloana in
		                                      (102,104,106,110,112,155,157,177) then
		                                  suma
		                                 else
		                                  0
		                               end) as ex,
		                           sum(case
		                                 when id_jtva_coloana in
		                                      (102,104,106,110,112,155,157,177) then
		                                  0
		                                 else
		                                  suma
		                               end) as total_incasat
		                      from act
		                     where sters = 0
		                       and an = <<m.gnAn>>
		                       and luna = <<m.gnLuna>>
		                     <<m.gcCondSucursala>>
		                       and (id_jtva_coloana in (102,104,106,110,112,155,157,177) or
		                           id_factd <> 0)
		                     group by an,
		                              luna,
		                              id_sucursala,
		                              (case
		                                when id_jtva_coloana in
		                                     (102,104,106,110,112,155,157,177) then
		                                 id_fact
		                                else
		                                 id_factd
		                              end)) b
		            on a.id_fact = b.id_fact
		           and a.an = b.an
		           and a.luna = b.luna
		           and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0)
		         where nvl(b.total_incasat, 0.00) <> 0 AND nvl(b.total_incasat, 0.00) -
		               (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19bcb + a.ro19bct + a.ro19bvb +
		                a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb +
		                a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t +
		                a.roscn) <> 0)
		 group by an,
		          luna,
		          dataact,
		          nract,
		          serie_act,
		          id_part,
		          id_fdoc,
		          id_sucursala
		
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA")
				If m.llSucces
					Select crsDiferenteTVA
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
				Endif && m.llSucces
			Endif && 'TVA INCASARE'
		
			*** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
			If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)
				TEXT to lcSql noshow textmerge
				select jc.id_fact,
				       ip.cont,
				       nvl(ip.sold, 0) as soldf,
				       (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
				       nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
				       jc.denumire,
				       jc.nract,
				       jc.serie_act,
				       jc.id_sucursala,
				       jc.id_fdoc,
				       jc.id_part,
				       jc.dataact,
				       jc.totctva,
				       jc.ro24nb,
				       jc.ro24nt,
				       jc.ro20nb,
				       jc.ro20nt,		       
				       jc.ro19nb,
				       jc.ro19nt,
				       jc.ro9nb,
				       jc.ro9nt,
				       jc.ro5nb,
				       jc.ro5nt
				  from vjc2010 jc
				  left join (select id_fact,
				                    cont,
				                    sum(preccred + credit - (precdeb + debit)) as sold
				               from vireg_parteneri
				              where an = <<m.gnAn>>
				                and luna = <<m.gnLuna>>
				                and cont <> '409'
				                and id_fact in
				                    (select distinct id_fact
				                       from vjc2010
				                      where an = <<m.gnAn>>
				                        and luna = <<m.gnLuna>>
				                        and (ro24nt <> 0 or ro20nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
				                        and tva_incasare = 1)
				              group by id_fact, cont) ip
				    on jc.id_fact = ip.id_fact
				 where jc.an = <<m.gnAn>>
				   and jc.luna = <<m.gnLuna>>
		           and jc.tva_incasare = 1
				   and (jc.ro24nt <> 0 or jc.ro20nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
				   and  nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif")
				If m.llSucces
					Select crsSoldDif
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(solddif, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
					SELECT actcv
				Endif && m.llSucces
			Endif && DIFERENTA SOLD
		
		Endif && (This.filtru_pretty#"none")
		
	ENDPROC

	PROCEDURE do_excel
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
	ENDPROC

	PROCEDURE do_executa
		Lparameters tnOptiune
		Thisform._grdbase1.SetAll("Visible",.F.,"Column")
		Thisform._grdfooter1.SetAll("Visible",.F.,"Column")
		Do Case
			Case tnOptiune = 1
			*** TOATE ACHIZITIILE
				Thisform._grdbase1.SetAll("Visible",.T.,"Column")
				Thisform._grdfooter1.SetAll("Visible",.T.,"Column")
			Case tnOptiune = 2
			*** ACHIZITII RO
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cro24b.Visible = .T.
					.cro24t.Visible = .T.
					.cro20b.Visible = .T.
					.cro20t.Visible = .T.			
					.cro19b.Visible = .T.
					.cro19t.Visible = .T.			
					.cro09b.Visible = .T.
					.cro09t.Visible = .T.
					.croscn.Visible = .T.
					.cro05b.Visible = .T.
					.cro05t.Visible = .T.
					.cRoTn.Visible  = .T.
					.ctotftvatax.Visible = .T.
					.ctottvatax.Visible = .T.
					.cronb.Visible = .T.
					.cront.Visible = .T.
					.cro24nb.Visible = .T.
					.cro24nt.Visible = .T.	
					.cro20nb.Visible = .T.
					.cro20nt.Visible = .T.				
					.cro19nb.Visible = .T.
					.cro19nt.Visible = .T.
					.cro09nb.Visible = .T.
					.cro09nt.Visible = .T.
					.cro05nb.Visible = .T.
					.cro05nt.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cro24b.Visible = .T.
					.cro24t.Visible = .T.
					.cro20b.Visible = .T.
					.cro20t.Visible = .T.			
					.cro19b.Visible = .T.
					.cro19t.Visible = .T.			
					.cro09b.Visible = .T.
					.cro09t.Visible = .T.
					.croscn.Visible = .T.
					.cro05b.Visible = .T.
					.cro05t.Visible = .T.
					.cRotn.Visible  = .T.
					.ctotftvatax.Visible = .T.
					.ctottvatax.Visible = .T.
					.cronb.Visible = .T.
					.cront.Visible = .T.
					.cro24nb.Visible = .T.
					.cro24nt.Visible = .T.	
					.cro20nb.Visible = .T.
					.cro20nt.Visible = .T.				
					.cro19nb.Visible = .T.
					.cro19nt.Visible = .T.			
					.cro09nb.Visible = .T.
					.cro09nt.Visible = .T.
					.cro05nb.Visible = .T.
					.cro05nt.Visible = .T.			
					.Refresh()
				Endwith
			Case tnOptiune = 3
			*** ACHIZITII IMPORT
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cfo24b.Visible = .T.
					.cfo24t.Visible = .T.
					.cfo20b.Visible = .T.
					.cfo20t.Visible = .T.			
					.cfo19b.Visible = .T.
					.cfo19t.Visible = .T.			
					.cfo09b.Visible = .T.
					.cfo09t.Visible = .T.
					.cfoscn.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cfo24b.Visible = .T.
					.cfo24t.Visible = .T.
					.cfo20b.Visible = .T.
					.cfo20t.Visible = .T.			
					.cfo19b.Visible = .T.
					.cfo19t.Visible = .T.			
					.cfo09b.Visible = .T.
					.cfo09t.Visible = .T.
					.cfoscn.Visible = .T.
					.Refresh()
				Endwith
			Case tnOptiune = 4
			*** ACHIZITII CE
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cceb.Visible = .T.
					.ccet.Visible = .T.
					.ccesc.Visible = .T.
					.ccen.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cceb.Visible = .T.
					.ccet.Visible = .T.
					.ccesc.Visible = .T.
					.ccen.Visible = .T.
					.Refresh()
				Endwith
			Case tnOptiune = 5
			*** TAXARE INVERSA
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cti24b.Visible = .T.
					.cti24t.Visible = .T.
					.cti20b.Visible = .T.
					.cti20t.Visible = .T.			
					.cti19b.Visible = .T.
					.cti19t.Visible = .T.			
					.cti09b.Visible = .T.
					.cti09t.Visible = .T.
					.cXX19TIB.Visible = .T.
					.cXX19TIT.Visible = .T.			
					.cXX9TIB.Visible = .T.
					.cXX9TIT.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cti24b.Visible = .T.
					.cti24t.Visible = .T.
					.cti20b.Visible = .T.
					.cti20t.Visible = .T.			
					.cti19b.Visible = .T.
					.cti19t.Visible = .T.			
					.cti09b.Visible = .T.
					.cti09t.Visible = .T.
					.cXX19TIB.Visible = .T.
					.cXX19TIT.Visible = .T.			
					.cXX9TIB.Visible = .T.
					.cXX9TIT.Visible = .T.
					.Refresh()
				Endwith
		Endcase
		
	ENDPROC

	PROCEDURE do_listare
		*!* 06.08.2010
		*!* adaugare coloana 19% si 5% pe rapoarte suplimentare *_2.frx
		*!* RAPORT SUPLIMENTAR 5%, 19% (achizitii RO, FO, TI)
		
		Private pcTitlu, pcSubtitlu
		pcTitlu = "Registru cumparari"
		Store "" To pcSubtitlu
		*!* 16.04.2007
		*!* marius.mutu
		*!* listare cu recapitulatie
		*!*	pnOptiune = Thisform.nlistitemid
		lnTipJurnal = Thisform.nlistitemid - 1
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu1 = This.filtru_pretty_ro + lctext
		****************************************************************
		If lnTipJurnal = 0 && Complet
			x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ;
				"\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa")
		Else
			Do Case
				Case lnTipJurnal = 1
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara")
					x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0))
		
				Case lnTipJurnal = 2
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import")
					x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0))
		
				Case lnTipJurnal = 3
					lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri")
					x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0))
		
				Case lnTipJurnal = 4
					lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa")
					x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0))
			Endcase
		Endif
		
		If !Between(x,1,9)
			Return
		Endif
		
		*!*	pcdataora=get_ora(2)
		
		lcWhere = ""
		
		Do Case
			Case Inlist(x, 1, 6)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
				lcRaport = [registru_cumparari_jtva2010_ro]
		
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcWhere = [((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ;
					[OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0) OR ] + ;
					[(TOTCTVA = 0  and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 ] + ;
					[ and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ;
					[ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and XXTI19B = 0 and XXTI19T = 0 and XXTI9B = 0 and XXTI9T = 0))]
					
			Case Inlist(x, 2, 7)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import"
				lcRaport = [registru_cumparari_jtva2010_fo]
		
				lcWhere = [(FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
				
			Case Inlist(x, 3, 8)
				pcSubtitlu = "Achizitii intracomunitare de bunuri"
				lcRaport = [registru_cumparari_jtva2010_ce]
		
				lcWhere = [(CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
				
			Case Inlist(x, 4, 9)
				pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa"
				lcRaport = [registru_cumparari_jtva2010_ti]
		
				lcWhere = [(TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XXTI19B<>0 OR XXTI19T<>0 OR XXTI9B<>0 OR XXTI9T<>0)]
		
		Endcase
		
		
		&& REGISTRU TVA LUNA CURENTA
		Select 0 As tip, * ;
			FROM actcv ;
			WHERE &lcWhere ;
			INTO Cursor cListRC ;
			ORDER By dataact, nract ;
			READWRITE
		
		
		If Between(x, 1, 5) And _Tally = 0
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If Between(x, 5, 9)
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CEB) AS CEB, SUM(CET) AS CET, SUM(CEN) AS CEN, ] + ;
				[SUM(CESC) AS CESC, ] + ;
				[SUM(FOSCN) AS FOSCN, SUM(FO09B) AS FO09B, SUM(FO09T) AS FO09T, ] + ;
				[SUM(FO24B) AS FO24B, SUM(FO24T) AS FO24T, SUM(FO20B) AS FO20B, SUM(FO20T) AS FO20T, SUM(FO19B) AS FO19B, SUM(FO19T) AS FO19T, ] + ;
				[SUM(ROSCN) AS ROSCN, SUM(RO09B) AS RO09B, SUM(RO09T) AS RO09T, SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+;
				[SUM(RO24B) AS RO24B, SUM(RO24T) AS RO24T, SUM(RO20B) AS RO20B, SUM(RO20T) AS RO20T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, Sum(ROTN) AS ROTN, ] + ;
				[SUM(TI09B) AS TI09B, SUM(TI09T) AS TI09T, SUM(TI19B) AS TI19B, SUM(TI19T) AS TI19T, SUM(TI24B) AS TI24B, SUM(TI24T) AS TI24T, SUM(TI20B) AS TI20B, SUM(TI20T) AS TI20T, ] + ;
				[SUM(XXTI9B) AS XXTI9B, SUM(XXTI9T) AS XXTI9T, SUM(XXTI19B) AS XXTI19B, SUM(XXTI19T) AS XXTI19T ] + ;
				[ FROM VJC2010 ] + ;
				[ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				[ GROUP BY an, luna ] + ;
				[ ORDER BY an, luna ] && 08.02.2010
		
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && BETWEEN(x, 5, 9)
		If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9)
			*!*		IF USED('cListRc') AND !EMPTY(lcRaport)
			*!*			THISFORM.ALWAYSONTOP=.F.
			*!*			SELECT cListRC
			*!*			REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW
			*!*			THISFORM.ALWAYSONTOP=.T.
			*!*		ENDIF
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRc],lcRaport)
			
			*!* 06.08.2010
			IF INLIST(x, 1, 2, 4, 6, 7, 9)
				Select cListRC
				DO CASE 
					CASE Inlist(x, 1, 6)
						Set Filter To ro05b <> 0 Or ro05t <> 0 OR ro19b<>0 or ro19t<>0
					CASE Inlist(x, 2, 7)
						Set Filter To fo19b<>0 OR fo19t<>0
					CASE Inlist(x, 4, 9)
						Set Filter To ti19b<>0 OR ti19t<>0 OR ti09b<>0 OR ti09t<>0 OR xxti19b<>0 OR xxti19t<>0 OR xxti9b<>0 OR xxti9t<>0
				ENDCASE 					
				Go Top
				If  !Empty(denumire)
					lcRaport2 = lcRaport + "_2"
					goExport.export2frx([cListRc],lcRaport2)
				ENDIF
			ENDIF 	
			*!* 06.08.2010 ^			
					
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
		
	ENDPROC

	PROCEDURE do_listare2013
		*!* 14.03.2013
		*!* marius.mutu
		*!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare
		
		*!* 23.09.2013
		*!* marius.mutu
		*!* Se includ si facturile fara TVA INCASARE cu valoare 0
		
		*!* 17.10.2013
		*!* marius.mutu
		*!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala
		
		*!* 23.05.2014
		*!* marius.mutu
		*!* am defalcat achizitiile din CE in achizitii bunuri CE si achizitii servicii CE (la cererea Silvia Carapetru)
		*!* in vizualizare sunt in continuare comasate (CEB = CEBB + CESB, CET = CEBT + CEST)
		
		*!* 23.05.2016
		*!* marius.mutu
		*** selectez facturile tva la incasare doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total)
		
		*!* 16.01.2019
		*!* marius.mutu
		*!* corectat cod tva TI19BFB in TI19B pentru facturile cu taxare inversa de pe facturile TVA_INCASARE 
		
		*!* 09.04.2019
		*!* marius.mutu
		*!* corectat CEBFSC la recapitulatie
		
		*!* 26.05.2022
		*!* marius.mutu
		*!* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		
		Private pcTitlu, pcSubtitlu, pcPerioada, pcSubtitlu1, pcdataora
		Local lcNumeAct, lcRaport, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lcSerieAct
		Local lnDiferenta, lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces
		Local lnTip, lnTipJurnal, lnOptiuneBug
		*:Global pnAn, pnLuna
		
		pcTitlu = "Registru cumparari"
		pcSubtitlu = ""
		
		lnTipJurnal = Thisform.nlistitemid - 1
		If This.filtru_traducere() # ""
			lctext = " si " + This.filtru_traducere()
		Else
			lctext = ""
		Endif
		
		pcSubtitlu1 = This.filtru_pretty_ro + m.lctext
		pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn))
		****************************************************************
		lnMeniu = xmenu("Registru Cumparari lunar;Registru Cumparari - recapitulatie 3 luni;Registru Cumparari - recapitulatie an curent")
		If !Inlist(m.lnMeniu, 1, 2, 3)
			Return
		Endif
		
		pcdataora = get_ora(2)
		
		&& REGISTRU TVA LUNA CURENTA
		Select 0 As tip, * ;
			FROM actcv ;
			INTO Cursor cListRC ;
			ORDER By dataact, nract ;
			READWRITE
		
		If m.lnMeniu = 1 And _Tally = 0
			amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
		Endif
		
		*** FILTRU PENTRU RECAPITULATIE
		lcWhere = pocump.ca_baza1.cfiltru
		
		*** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie)
		If Left(Upper(lcWhere),4) = 'LUNA'
			lnPos = Atc('AN=', lcWhere,1)
			If m.lnPos > 0
				lcWhere = Alltrim(Substr(m.lcWhere, m.lnPos + 11))
			Endif
		Endif
		
		Do Case
			Case m.lnTipJurnal = 1
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
				lcRaport   = [registru_cumparari_jtva2010_ro]
		
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcWhere = m.lcWhere + [ and ((RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ;
					[OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ROTN50<>0 OR ROTN100<>0 ] + ;
					[ OR ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 ro09nb<>0 OR ro09nt<>0 OR ro05nb<>0 OR ro05nt<>0) OR ] + ;
					[(TOTCTVA = 0  and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO09B = 0 and RO09T = 0 ] + ;
					[ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and ROTN = 0 and ROTN50 = 0 and ROTN100 = 0 ] + ;
					[ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and XX19TIB = 0 AND XX19TIT = 0 and XX9TIB = 0 AND XX9TIT = 0 ] + ;
					[ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and ro24nb = 0 and ro24nt = 0 and ro20nb = 0 and ro20nt = 0 and ro19nb = 0 and ro19nt = 0 and ro09nb = 0 and ro09nt = 0 and ro05nb = 0 and ro05nt = 0))]
		
			Case  m.lnTipJurnal = 2
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import"
				lcRaport   = [registru_cumparari_jtva2010_fo]
		
				lcWhere = m.lcWhere + [ and (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
		
			Case m.lnTipJurnal = 3
				pcSubtitlu = "Achizitii intracomunitare de bunuri"
				lcRaport   = [registru_cumparari_jtva2010_ce]
		
				lcWhere = m.lcWhere + [ and (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
		
			Case  m.lnTipJurnal = 4
				pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import) - Taxare Inversa"
				lcRaport   = [registru_cumparari_jtva2010_ti]
		
				lcWhere = m.lcWhere + [ and (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)]
		
		Endcase
		
		&& REGISTRE TVA RECAPITULATIE
		If INLIST(m.lnMeniu, 2, 3) && recapitulatie 3 luni  / an curent
			Private m.pnAn, m.pnLuna
			IF m.lnMeniu = 2
				* recapitulatie 3 luni
				lnPerioada = Ceil(m.gnLuna / 3)		
				pnLuna	   = (m.lnPerioada - 1) * 3 + 1
			ELSE
				pnLuna = 1
			ENDIF  	
			pnAn	   = m.gnAn
		
			lddata1	= Date(m.pnAn, m.pnLuna, 1)
			lddata2	= Date(m.gnAn, m.gnLuna, 1)
		
			pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn))
			TEXT to lcSelect textmerge noshow
			select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract,
		       (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire,
		        SUM(v.TOTCTVA) AS TOTCTVA,
				SUM(v.CEB) AS CEB, SUM(v.CET) AS CET, 
				SUM(v.CEBB) AS CEBB, SUM(v.CEBT) AS CEBT,
				SUM(v.CESB) AS CESB, SUM(v.CEST) AS CEST,		
				SUM(v.CEN) AS CEN,
				SUM(v.CESC) AS CESC,
				SUM(v.FOSCN) AS FOSCN, SUM(v.FO09B) AS FO09B, SUM(v.FO09T) AS FO09T,
				SUM(v.FO24B) AS FO24B, SUM(v.FO24T) AS FO24T, SUM(v.FO20B) AS FO20B, SUM(v.FO20T) AS FO20T, SUM(v.FO19B) AS FO19B, SUM(v.FO19T) AS FO19T,
				SUM(v.XX19TIB) AS XX19TIB, SUM(v.XX19TIT) AS XX19TIT,SUM(v.XX9TIB) AS XX9TIB, SUM(v.XX9TIT) AS XX9TIT,		
				SUM(v.ROSCN) AS ROSCN, SUM(v.RO09B) AS RO09B, SUM(v.RO09T) AS RO09T, SUM(v.RO05B) AS RO05B, SUM(v.RO05T) AS RO05T,
				SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, Sum(v.ROTN) AS ROTN, Sum(v.ROTN50) AS ROTN50, Sum(v.ROTN100) AS ROTN100,
				SUM(v.TI09B) AS TI09B, SUM(v.TI09T) AS TI09T, SUM(v.TI19B) AS TI19B, SUM(v.TI19T) AS TI19T, SUM(v.TI24B) AS TI24B, SUM(v.TI24T) AS TI24T, SUM(v.TI20B) AS TI20B, SUM(v.TI20T) AS TI20T
				FROM (select <<m.pnAn>> as an, <<m.pnLuna>> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l
				left JOIN VJC2010 V on v.an = l.an and v.luna = l.luna
				WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <<Iif(!Empty(m.lcWhere), " and " + m.lcWhere, "")>>
				GROUP BY v.an, v.luna
				ORDER BY v.an, v.luna
			ENDTEXT
		
			lnSucces = goExecutor.oExecute(m.lcSelect, "crsTotal")
			If m.lnSucces < 0
				amessagebox(goExecutor.cEroare, 0 + 16, "Eroare")
			Else
				Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal
				Replace All cod With Int(Val(Dtos(dataact))) In crsTotal
		
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && m.lnMeniu  = 2
		
		*** FORMAT TVA INCASARE 2013
		Select cListRC
		Index On denumire + Str(nract, 14, 0) Tag numeact
		Index On cod Tag cod
		
		update_jtva_coloane('JC')
		
		*** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN
		*** doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total)
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
			(RO24B + RO20B + RO19B + RO09B + RO05B + ROSCN + TI09B + TI19B + TI24B + TI20B + CEB + CEN + CESC + FOSCN + FO09B + FO19B + XX19TIB + XX9TIB + FO24B + FO20B) As BAZA, ;
			(RO24T + RO20T + RO19T + RO09T + RO05T + TI09T + TI19T + TI24T + TI20T + CET + FO09T + FO19T + XX19TIT + XX9TIT + FO24T + FO20T) As TVA, ;
			(RO24NB + RO20NB + RO19NB + RO09NB + RO05NB) As BAZAN, ;
			(RO24NT + RO20NT + RO19NT + RO09NT + RO05NT) As TVAN, ;
			cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ;
			FROM cListRC r ;
			where tip = 0 And TVA_INCASARE = 1 ;
			INTO Cursor cListRCTemp Readwrite
		
		Select cListRCTemp
		Index On id_fact Tag id_fact
		Set Order To
		
		
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		* Pe un calculator statea 10 minute pana facea selectia 
		* Am refacut join-ul ca doua scan-uri
		lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0')))
		
		IF m.lnOptiuneBug = 1
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 0 AND tva_incasare = 0
				SCATTER NAME loRC
				WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jc = 1 And INLIST(ALLTRIM(coloana_jc), 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B', ;
					 'CE9SB', 'CE19SB', 'CEBFN', 'CEBFSC','FOSCN','FO09BVB', 'FO19BVB', 'XX19TIB', 'XX9TIB', 'FO24B', 'FO20B','ROTN','ROTN50','ROTN100')   
					loRC.cod_tva = ALLTRIM(coloana_jc)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza = Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;	
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ;
					IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ;	
					IIF(loRC.cod_tva = 'CE9SB', loRC.CEBB, ;
					IIF(loRC.cod_tva = 'CE19SB', loRC.CESB, ;	
					IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ;
					IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ;
					IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ;
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ;
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ;			
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ;	
					0)))))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;	
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ;	
					IIF(loRC.cod_tva = 'CE9SB', loRC.CEBT, ;
					IIF(loRC.cod_tva = 'CE19SB', loRC.CEST, ;	
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ;
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ;				
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ;	
					IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ;
					IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ;
					IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ;		
					0))))))))))))))))))))
		
		*!*				IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
		*!*				ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		ELSE 
			Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24B, ;
				Iif(J.COLOANA_JC = 'RO20B', r.RO20B, ;	
				IIF(J.COLOANA_JC = 'RO19BVB', r.RO19B, ;
				IIF(J.COLOANA_JC = 'RO09BVB', r.RO09B, ;
				IIF(J.COLOANA_JC = 'RO05B', r.RO05B, ;
				IIF(J.COLOANA_JC = 'ROSCN', r.ROSCN, ;
				IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ;
				IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ;
				IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ;
				IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ;	
				IIF(J.COLOANA_JC = 'CE9SB', r.CEBB, ;
				IIF(J.COLOANA_JC = 'CE19SB', r.CESB, ;	
				IIF(J.COLOANA_JC = 'CEBFN', r.CEN, ;
				IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ;
				IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ;
				IIF(J.COLOANA_JC = 'FO09BVB', r.FO09B, ;
				IIF(J.COLOANA_JC = 'FO19BVB', r.FO19B, ;
				IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIB, ;	
				IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIB, ;			
				IIF(J.COLOANA_JC = 'FO24B', r.FO24B, ;
				IIF(J.COLOANA_JC = 'FO20B', r.FO20B, ;	
				0))))))))))))))))))))) As N(16, 4)) As BAZA, ;
				CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24T, ;
				Iif(J.COLOANA_JC = 'RO20B', r.RO20T, ;	
				IIF(J.COLOANA_JC = 'RO19BVB', r.RO19T, ;
				IIF(J.COLOANA_JC = 'RO09BVB', r.RO09T, ;
				IIF(J.COLOANA_JC = 'RO05B', r.RO05T, ;
				IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ;
				IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ;
				IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ;
				IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ;	
				IIF(J.COLOANA_JC = 'CE9SB', r.CEBT, ;
				IIF(J.COLOANA_JC = 'CE19SB', r.CEST, ;	
				IIF(J.COLOANA_JC = 'FO09BVB', r.FO09T, ;
				IIF(J.COLOANA_JC = 'FO19BVB', r.FO19T, ;
				IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIT, ;	
				IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIT, ;			
				IIF(J.COLOANA_JC = 'FO24B', r.FO24T, ;
				IIF(J.COLOANA_JC = 'FO20B', r.FO20T, ;	
				IIF(J.COLOANA_JC = 'ROTN', r.ROTN, ;
				IIF(J.COLOANA_JC = 'ROTN50', r.ROTN50, ;
				IIF(J.COLOANA_JC = 'ROTN100', r.ROTN100, ;		
				0)))))))))))))))))))) As N(16, 4)) As TVA ;
				FROM cListRC r, JTVA_COLOANE J ;
				where tip = 0 And r.TVA_INCASARE = 0 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) ;
				INTO Cursor cListRCTemp1 Readwrite
		ENDIF && gnRC_REGCUMP_LISTARE_BUG
		
		*** SELECTEZ FACTURILE CU VALOARE 0 pe toate randurile
		WAIT WINDOW 'Facturi fara TVA Incasare cu valoare 0' NOWAIT
		Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ;
			baza, tva ;
			FROM cListRCTemp1 ;
			WHERE BAZA = 0 And TVA = 0 ;
			AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ;	
			INTO CURSOR cListRCTemp2 NOFILTER 
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
		Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'FO19B', EXPLICATIE_TVA = 'ACH. IMP. 19%' Where Left(COD_TVA,5) = 'FO19B'
		Update cListRCTemp1 Set COD_TVA = 'FO09B', EXPLICATIE_TVA = 'ACH. IMP. 9%' Where Left(COD_TVA,5) = 'FO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		* TOATE ACHIZITIILE CE, FARA NEIMPOZABILE (..N) SI SCUTITE (..SC)
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N')
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB'
			
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE
		*** PE FACTURILE TVA_INCASARE POATE APAREA SI TAXARE INVERSA
		WAIT WINDOW 'Facturi TVA 0% exigibile in perioada pentru facturile cu TVA Incasare' NOWAIT
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, ;
			CAST(Iif(J.COLOANA_JC = 'ROSCN', r.ROSCN, ;
			IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ;
			IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ;
			IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ;	
			IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ;	
			IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ;	
			IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ;
			0))))))) As N(16, 4)) As BAZA, ;
			CAST(Iif(J.COLOANA_JC = 'ROTN', r.ROTN, ;
			Iif(J.COLOANA_JC = 'ROTN50', r.ROTN50, ;
			Iif(J.COLOANA_JC = 'ROTN100', r.ROTN100, ;	
			IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ;	
			IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ;	
			IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ;	
			IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ;	
			0))))))) As N(16, 4)) As TVA ;
			FROM cListRC r, JTVA_COLOANE J ;
			WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) And (Nvl(J.COTA_TVA, 0) = 0 OR LEFT(J.COLOANA_JC,2) = 'TI');
			INTO Cursor cListRCTemp1 Readwrite
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Use In (Select('cListRCTemp1'))
		
		*!*	*** Daca am pus filtru in RC, sterg facturile care nu se potrivesc filtrului
		*!*	If !Empty(m.lcWhere)
		*!*		Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
		*!*			(Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) )
		*!*	Endif
		SET STEP ON 
		WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT
		*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
		TEXT to m.lcSql textmerge noshow
			select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jc.id_fact, jc.nract As nract, jc.serie_act, jc.dataact, a.nract As NRACTI, a.dataact As DATAACTI,  fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL,
			J.COTA_TVA, J2.COLOANA_JC As COD_TVA, J2.denumire As EXPLICATIE_TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT,
			(select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factd = a.id_fact and a1.cod = a.cod) as INCASAT2
			from act a left join jc2007 jc on a.id_fact = jc.id_fact
		    left join nom_parteneri p on jc.id_part = p.id_part
			Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana
			LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
			left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
			where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4426' And a.scc = '4428' And Nvl(a.id_jtva_coloana, 0) <> 0
			and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.ro24nt <> 0 or jc.ro20nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
			ORDER BY a.cod, J2.COLOANA_JC
		ENDTEXT
		
		*!*	round(a.suma * 100 / J.COTA_TVA, 2) As BAZA
		*!*	Round(a.suma * (100 + J.COTA_TVA) / J.COTA_TVA, 2) As INCASAT
		
		llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1")
		
		If m.llSucces
			Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
			Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		
			*** daca am pus filtru in Registru pe Nume sau altceva
			*** sterg incasarile/platile care nu apartin de facturile filtrate
			*** ca sa am doar incasarile/platile care tin de filtru
			If !Empty(m.lcWhere)
				Delete From cListRCTemp1 Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
					(Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRCTemp WHERE !EMPTY(NVL(denumire,'')) )
			Endif
		
			***  ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE
			*** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA
			Select cListRCTemp1
			Go Top
			lnCod = cod
			lnNrAct = nract
			lcSerieAct = NVL(serie_act, '')
			ldDataAct = dataact
			lcDenumire = denumire
			lnNrc = 0
			Scan
				lnNrc = m.lnNrc + 1
				If m.lnCod <> cod Or m.lnNrAct <> nract OR m.lcSerieAct <> NVL(serie_act, '') Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire
					lnNrc = 1
				Endif
				lnCod = cod
				Replace nrc With m.lnNrc
			Endscan
		
			*** adun diferenta la prima baza
			Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ;
				from cListRCTemp1 ;
				group By cod, nract, serie_act, dataact, denumire, INCASAT2 ;
				into Cursor cIncasariTVA
		
			Select cIncasariTVA
			Scan
				lnCod = cod
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')
				ldDataAct = dataact
				lcDenumire = denumire
				lnIncasat = Nvl(INCASAT, 0)
				lnIncasat2 = Nvl(INCASAT2,0)
				lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE
		
				*!*			select cListRcTemp1
				*!*			locate for cod = m.lnCod and nrc = 1
				*!*			if found()
				*!*				lnIdFact = id_fact
				*!*				select cListRcTemp
				*!*				calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0%
				*!*			endif
				Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0%
				lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0)
		
				*** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva)
				*** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta
				If Abs(m.lnDiferenta) > 1
					m.lnDiferenta = 0
				Endif
				If m.lnDiferenta <> 0
					Select cListRCTemp1
					Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1
					If Found()
						Replace INCASAT With INCASAT + m.lnDiferenta,  BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cIncasariTVA'))
		
			Update cListRCTemp1 Set nract = 0 Where Isnull(nract)
			Update cListRCTemp1 Set denumire = '' Where Isnull(denumire)
			Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL)
			Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI)
		
			Select cListRCTemp
			Append From Dbf('cListRcTemp1')
		
			*** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE
			*** bazele exigibile de pe facturile cu TVA INCASARE
			Select nract, serie_act, dataact, denumire, Sum(BAZA) As BAZA ;
				from cListRCTemp ;
				where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ;
				group By nract, serie_act, dataact, denumire ;
				into Cursor cFacturiTVAIncasare
		
			Select cFacturiTVAIncasare
			Scan
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')
				ldDataAct = dataact
				lcDenumire = denumire
				lnBazaFact = BAZA
				*** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati)
				Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And ;
					nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct
		
				lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0)
				If m.lnDiferenta <> 0
					Select cListRCTemp
					Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct ;
						AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct
					If Found()
						Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cFacturiTVAIncasare'))
		
		Endif
		Use In (Select('cListRcTemp1'))
		
		WAIT WINDOW 'Recapitulatie' NOWAIT
		*** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE
		IF m.lnOptiuneBug = 1
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 1
				SCATTER NAME loRC
				WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jc = 1 And INLIST(ALLTRIM(coloana_jc), 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B', ;
					 'CE9SB', 'CE19SB', 'CEBFN', 'CEBFSC','FOSCN','FO09BVB', 'FO19BVB', 'XX19TIB', 'XX9TIB', 'FO24B', 'FO20B','ROTN','ROTN50','ROTN100')   
					loRC.cod_tva = ALLTRIM(coloana_jc)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza = Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;	
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ;
					IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ;	
					IIF(loRC.cod_tva = 'CE9SB', loRC.CEBB, ;
					IIF(loRC.cod_tva = 'CE19SB', loRC.CESB, ;	
					IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ;
					IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ;
					IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ;
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ;
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ;				
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ;	
					0)))))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;	
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ;	
					IIF(loRC.cod_tva = 'CE9SB', loRC.CEBT, ;
					IIF(loRC.cod_tva = 'CE19SB', loRC.CEST, ;	
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ;
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ;				
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ;	
					IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ;
					IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ;
					IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ;		
					0))))))))))))))))))))
		
					IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
					ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		ELSE
			Select r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24B, ;
				Iif(J.COLOANA_JC = 'RO20B', r.RO20B, ;
				IIF(J.COLOANA_JC = 'RO19BFB', r.RO19B, ;
				IIF(J.COLOANA_JC = 'RO09BFB', r.RO09B, ;
				IIF(J.COLOANA_JC = 'RO05B', r.RO05B, ;
				IIF(J.COLOANA_JC = 'ROSCN', r.ROSCN, ;
				IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ;
				IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ;
				IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ;
				IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ;	
				IIF(J.COLOANA_JC = 'CE9SB', r.CEBB, ;
				IIF(J.COLOANA_JC = 'CE19SB', r.CESB, ;
				IIF(J.COLOANA_JC = 'CEBFN', r.CEN, ;
				IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ;
				IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ;
				IIF(J.COLOANA_JC = 'FO09B', r.FO09B, ;
				IIF(J.COLOANA_JC = 'FO19B', r.FO19B, ;
				IIF(J.COLOANA_JC = 'XX19TIB', r.XX19TIB, ;	
				IIF(J.COLOANA_JC = 'XX9TIB', r.XX9TIB, ;		
				IIF(J.COLOANA_JC = 'FO24B', r.FO24B, ;
				IIF(J.COLOANA_JC = 'FO20B', r.FO20B, ;	
				0))))))))))))))))))))) As N(16, 4)) As BAZA, ;
				CAST(Iif(J.COLOANA_JC = 'RO24B', r.RO24T, ;
				Iif(J.COLOANA_JC = 'RO20B', r.RO20T, ;
				IIF(J.COLOANA_JC = 'RO19BFB', r.RO19T, ;
				IIF(J.COLOANA_JC = 'RO09BFB', r.RO09T, ;
				IIF(J.COLOANA_JC = 'RO05B', r.RO05T, ;
				IIF(J.COLOANA_JC = 'TI09BFB ', r.TI09T, ;
				IIF(J.COLOANA_JC = 'TI19BFB ', r.TI19T, ;
				IIF(J.COLOANA_JC = 'TI24B ', r.TI24T, ;
				IIF(J.COLOANA_JC = 'TI20B ', r.TI20T, ;	
				IIF(J.COLOANA_JC = 'CE9SB', r.CEBT, ;
				IIF(J.COLOANA_JC = 'CE19SB', r.CEST, ;
				IIF(J.COLOANA_JC = 'FO09B ', r.FO09T, ;
				IIF(J.COLOANA_JC = 'FO19B ', r.FO19T, ;
				IIF(J.COLOANA_JC = 'XX19TIB ', r.XX19TIT, ;	
				IIF(J.COLOANA_JC = 'XX9TIB ', r.XX9TIT, ;			
				IIF(J.COLOANA_JC = 'FO24B', r.FO24T, ;
				IIF(J.COLOANA_JC = 'FO20B', r.FO20T, ;	
				IIF(J.COLOANA_JC = 'ROTN', r.ROTN, ;
				IIF(J.COLOANA_JC = 'ROTN50', r.ROTN50, ;
				IIF(J.COLOANA_JC = 'ROTN100', r.ROTN100, ;
				0)))))))))))))))))))) As N(16, 4)) As TVA ;
				FROM cListRC r FULL JOIN JTVA_COLOANE J ON 1=1 ;
				where tip = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) ;
				INTO Cursor cListRCTemp1 Readwrite
		ENDIF 	
		
		WAIT WINDOW 'Completare recapitulatie cu facturi neexigibile' NOWAIT
		*** adaug si lunile care nu au nimic exigibil
		Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ;
			from cListRCTemp1 r ;
			where cod Not In (Select cod From cListRCTemp1  Where !(BAZA = 0 And TVA = 0)) ;
			into Cursor cListRCTemp2
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
		Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N')
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB'
		
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate
		WAIT WINDOW 'Completare infomatii inregistrari TVA' NOWAIT
		Select cListRCTemp
		Scan For tip = 2
			lcNumeAct = denumire + Str(nract, 14, 0)
			lnCod	  = cod
			If Seek(m.lnCod, 'cListRC', 'cod')
				Replace denumire With cListRC.denumire, nract With cListRC.nract, dataact With cListRC.dataact In cListRCTemp
			Else
				If Seek(m.lcNumeAct, 'cListRC', 'numeact')
					Replace cod With cListRC.cod, dataact With cListRC.dataact In cListRCTemp
				Endif && seek
			Endif && seek
		Endscan
		
		Use In (Select('cListRC'))
		
		Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite
		
		Update cListRC Set tip = 0 Where tip  = 2 && incasarile pe acelasi nivel cu facturile
		Use In (Select('cListRCTemp'))
		
		*** INSUMEZ FACTURILE DUPA NRACT, DATAACT, DENUMIRE
		*!*	SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, min(COD) as COD, min(ID_FACT) as ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		sum(INCASAT) AS INCASAT, sum(TOTCTVA) AS TOTCTVA, sum(TOTFTVATAX) AS TOTFTVATAX, sum(TOTTVATAX) AS TOTTVATAX, sum(BAZA) AS BAZA, sum(TVA) AS TVA, sum(BAZAN) AS BAZAN, sum(TVAN) AS TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip = 0 ;
		*!*		group by TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ;
		*!*	union all ;
		*!*	SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, COD, ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip <> 0 ;
		*!*	Into Cursor cListRC ;
		*!*	Order By 9, 7, 6, 5 Readwrite
		
		
		*** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA
		Select cListRC
		Go Top
		lnCod	 = 0
		lcSerieAct = ""
		lnNrAct = 0
		ldDataAct = {}
		lcDenumire = ""
		lnNrCrt	 = 0
		lnNrCrtF = 0
		Scan
			*!*		If m.lnCod <> cod && prima linie din fiecare factura
			If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire && prima linie din fiecare factura
				lnCod	 = cod
				lcSerieAct = serie_act
				lnNrAct = nract
				ldDataAct = dataact
				lcDenumire = denumire
				lnNrCrt	 = m.lnNrCrt + 1
				lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF
			Else && liniile 2..n din facturi
				lnNrCrtF = m.lnNrCrtF + 1
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0
			Endif
		Endscan
		
		*** TOTALURI EXIGIBIL PE COTE TVA
		*** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1
		WAIT WINDOW 'Total exigibil pe cote TVA' NOWAIT
		lnTip = Iif(m.lnMeniu  = 1, 0, 1)
		Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ;
			Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ;
			from cListRC ;
			where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ;
			ORDER By COD_TVA ;
			group By COD_TVA, EXPLICATIE_TVA
		Select cListRC
		
		Use In (Select('JTVA_COLOANE'))
		*** FORMAT TVA INCASARE 2013 ^
		
		If Reccount('cListRC') > 0
			Thisform.AlwaysOnTop = .F.
		
			IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6
				goExport.export2frx([cListRc], [registru_jtva2013])
			ELSE		
				goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.)
			ENDIF 	
			
			Thisform.AlwaysOnTop = .T.
		Endif
		
		Use In (Select('cListRC'))
		
		
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		
		*!*		Do inainte With "CUMP2007" In oinainte_de.prg
		
			This._grdbase1.SetFocus
		
			aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere")
		Endif
	ENDPROC

	PROCEDURE do_reset
		*Thisform.cbo_tip_jurnal_cump.ListItemId = 1
		
		
		If Not Pemstatus(Thisform,"filtru_pretty",5)
			Thisform.AddProperty("filtru_pretty")
		Endif
		If Not Pemstatus(Thisform,"filtru_pretty_ro",5)
			Thisform.AddProperty("filtru_pretty_ro")
		Endif
		
		Thisform.filtru_pretty=""
		Thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		Thisform.but_start_criterii1.pornit="nu"
		Thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = SELECT()
		
		SELECT actcv
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
		
		If EMPTY(m.lnOptiune)
			Return
		ENDIF
		
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		If INLIST(m.lnOptiune, 1, 4) && un singur nume
			loPartener = Null
			loDate = Createobject("empty")
		
			AddProperty(loDate, "denumire",  m.lcDenumire)
			AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
			AddProperty(loDate, "tip_verificare", IIF(m.lnOptiune = 1, "ANAF_SERVICIU_WEB", "MFIN_AUTO_FARA_CAPTCHA"))
		
			lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		Else
			llDontCloseCursor = .F.
			llExperimental = .F.
			llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
			llMFIN = .T. && verific MFIN pentru toata lumea
			llValidare = .T. && verific algoritmul codurilor fiscale
			llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
			llServiciuWebANAF = .T.
		
			lcFilter = Filter("actcv")
			lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
			Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
				From actcv ;
				Where &lcWhere ;
				Into Cursor crsCoduriFiscale ;
				Order By denumire, cod_fiscal  ;
				Readwrite
		
		
			Local lcXMLParteneri
			lcXMLParteneri = ""
			Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
			Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endif && x = 1
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE grdfooterevent
		LPARAMETERS toObj, tcEvt
		
		IF TYPE('this._grdfooter1') = 'O' 
			IF PEMSTATUS(this._grdfooter1, "eventhandler", 5)
				this._grdfooter1.eventhandler(,toObj,tcEvt)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	ENDPROC

	PROCEDURE inainte_de_do_listare
		If This.lactiv2
			If gnAn >= 2013
				This.do_listare2013()
			Else
				This.do_listare()
			Endif
		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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+;
			['from ]+gcS+[.vact where 2=2']
		
		Select actcv
		pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract,14))
		pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheD=]+Alltrim(Str(nract,14))+[ or nrord=']+Alltrim(Str(nract,14))+[')]+gcCondSucursala
		pcorder=[dataact,serie_act,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.Show(1)
		
		pcTitlu=""
		Thisform.AlwaysOnTop=.T.
		Thisform.but_teRMIN1.Enabled=.T.
		If Used('acn1')
			Use In acn1
		Endif
		Release ORC,poact
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tlAfisareTot
		* tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular
		
		This.lAfisareTot = m.tlAfisareTot
		
		DoDefault()
		if m.gnAn < 2013
			Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef && achizitii din tara
		else
			Thisform.cbo_tip_jurnal_cump.ListItemId = 1	&& complet
		endif 	
		Thisform.do_executa(Thisform.nlistitemiddef)
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		ENDIF
		
		This.cmdTVAIncasare.Visible = !(luna_inchisa Or m.glEMama)
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scd,1,3))='401' or TRIM(SUBSTR(scd,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scc,1,3))='401' or TRIM(SUBSTR(scc,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		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=denumire
			pcschema=[DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),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),EXPLICATIE_TVA C(100)]
			pcselect=[select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva ]+;
				[from vact]
			pcorder=[dataact,serie_act,nract,id_act]
			pcfiltru=[]
			llAfisare=.F.
			lcGroup = ""
			pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
				[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract,14))+;
				[ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare, lcGroup, .T.)
		
			poact.ca_baza1.afisare()
			Go Top
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			Thisform.ck_nract.SetFocus()
		Endif
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		dodefault(nStyle)
		
		* Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine
		IF this.lAfisareTot
			This.do_reset() && afisarea tuturor inregistrarilo
		ENDIF
		
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
		
		
		*** Inregistrarile selectate GRI
		This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column")
		
		THIS._grdfooter1.attachtogrid(This._grdbase1)
		This._grdfooter1.calcTotal
		this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter
		
		this.WindowState = 2 
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		#define lf CHR(10)
		#define lf2 CHR(10) + CHR(10)
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" 	+ crlf + ; 
						  "Serie act\serie_act\T\none\" 			+ crlf + ;
						  "Nr. act\nract\N\none\"   				+ crlf + ;
						  "Data act\dataact\D\none\"				+ crlf + ;
						  "Data inreg.\dataireg\D\none\"			+ crlf + ;				  
						  "Fel document\fel_document\T\id_fdoc\nom_feldoc" 		+ crlf + ;
						  "Cod Fiscal\cod_fiscal\T\none\" 			+ crlf + ;
					      "Sold TVA Neex.\(RO24NT + RO20NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ;				  
		                 "Perioada\an*12+luna\D1\none\" + crlf + ;
		                 "Data ireg in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ;
		                 "Data ireg nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ;
		                 "Data doc nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ;
						  "EroareTVA\nofiled\E\" 					+ ;
						[ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA -(RO24B + RO24T + RO20B + RO20T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN + ]  + ;
						[ RO24NB + RO24NT + RO20NB + RO20NT + RO19NB + RO19NT + RO9NB + RO9NT + RO5NB + RO5NT + ] + ;
						[ FO24B + FO24T + FO20B + FO20T + FO19B + FO19T + FO09B + FO09T + FOSCN + ] + ;
						[ CEB + CET + CESC + CEN + ] + ;
						[TI24B + TI24T + TI20B + TI20T + TI19B + TI19T + TI09B + TI09T + XX19TIB + XX19TIT + XX9TIB + XX9TIT)) >= 1) OR ] + ;
						[ABS(RO24T) NOT BETWEEN ROUND(0.238*ABS(RO24B),?gnPc) AND ROUND(0.243*ABS(RO24B),?gnPc) OR ] + ;
						[ABS(RO20T) NOT BETWEEN ROUND(0.198*ABS(RO20B),?gnPc) AND ROUND(0.203*ABS(RO20B),?gnPc) OR ] + ;				
						[ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ;
						[ABS(RO09T) NOT BETWEEN ROUND(0.088*ABS(RO09B),?gnPc) AND ROUND(0.093*ABS(RO09B),?gnPc) OR ] + ;
						[ABS(RO05T) NOT BETWEEN ROUND(0.048*ABS(RO05B),?gnPc) AND ROUND(0.053*ABS(RO05B),?gnPc) OR ] + ;		
						[ABS(RO24NT) NOT BETWEEN ROUND(0.238*ABS(RO24NB),?gnPc) AND ROUND(0.243*ABS(RO24NB),?gnPc) OR ] + ;
						[ABS(RO20NT) NOT BETWEEN ROUND(0.198*ABS(RO20NB),?gnPc) AND ROUND(0.203*ABS(RO20NB),?gnPc) OR ] + ;				
						[ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ;								
						[ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ;
						[ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc) OR ] + ;				
						[ABS(FO24T) NOT BETWEEN ROUND(0.238*ABS(FO24B),?gnPc) AND ROUND(0.243*ABS(FO24B),?gnPc) OR ] + ;
						[ABS(FO20T) NOT BETWEEN ROUND(0.198*ABS(FO20B),?gnPc) AND ROUND(0.203*ABS(FO20B),?gnPc) OR ] + ;				
						[ABS(FO19T) NOT BETWEEN ROUND(0.188*ABS(FO19B),?gnPc) AND ROUND(0.193*ABS(FO19B),?gnPc) OR ] + ;				
						[ABS(FO09T) NOT BETWEEN ROUND(0.088*ABS(FO09B),?gnPc) AND ROUND(0.093*ABS(FO09B),?gnPc) OR ] + ;
						[ABS(TI24T) NOT BETWEEN ROUND(0.238*ABS(TI24B),?gnPc) AND ROUND(0.243*ABS(TI24B),?gnPc) OR ] + ;
						[ABS(TI20T) NOT BETWEEN ROUND(0.198*ABS(TI20B),?gnPc) AND ROUND(0.203*ABS(TI20B),?gnPc) OR ] + ;				
						[ABS(TI19T) NOT BETWEEN ROUND(0.188*ABS(TI19B),?gnPc) AND ROUND(0.193*ABS(TI19B),?gnPc) OR ] + ;				
						[ABS(TI09T) NOT BETWEEN ROUND(0.088*ABS(TI09B),?gnPc) AND ROUND(0.093*ABS(TI09B),?gnPc) OR ] + ;				
						[ABS(XX19TIT) NOT BETWEEN ROUND(0.188*ABS(XX19TIB),?gnPc) AND ROUND(0.193*ABS(XX19TIB),?gnPc) OR ] + ;
						[ABS(XX9TIT) NOT BETWEEN ROUND(0.088*ABS(XX9TIB),?gnPc) AND ROUND(0.093*ABS(XX9TIB),?gnPc))\-\] + ;
						"Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ;	
						"Plati fara TVA Incasare\nofiled\E\2=2\-\" + ;
						"Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ;
						"este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ;
						"Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ;
						"Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ;
						"Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ;
						"Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ;
						"Exigibilizati sumele ramase neexigibile." + crlf + ;
				IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
		DODEFAULT()
		
		
		
		
	ENDPROC

	PROCEDURE cbo_tip_jurnal_cump.Valid
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE cmdTVAIncasare.Click
		*!* 24.05.2011
		*!* marius.mutu
		*!* nu se pot introduce documente de pe mama
		
		*!*	25.08.2014
		*!*	marius.mutu
		*!*	se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
		
		Local lcXMLFacturi
		If !(luna_inchisa Or m.glEMama)
			Select *, (RO24NB+RO20NB+RO19NB+RO09NB+RO05NB + RO24NT+RO20NT+RO19NT+RO09NT+RO05NT) as soldn, ;
				RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, RO19NB+RO19NT as soldn19, RO09NB+RO09NT as soldn9, RO05NB+RO05NT as soldn5;
				From actcv With (Buffering = .T.) ;
				Where ales = 1 ;
				Into Cursor crsTVAIncasareTemp
				
			If _Tally > 0
				Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1")
				Use In (Select('crsTVAIncasareTemp'))
		
				Do inchidere_tva_sold With 'JC', m.lcXMLFacturi IN oproceduri_inchidere.prg
			Endif
			Use In (Select('crsTVAIncasareTemp'))
		Endif
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFdoc.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo24b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo24t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_regcump2025 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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoscn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo11b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo11b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo11t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo11t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFoscn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEt.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEt.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEb.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEb.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI11b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI11b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI11t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI11t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI09t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEsc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCEn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo05t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTi19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROtn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cROtn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotfTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO09NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO05NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldF.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldDif.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSoldN.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO21B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO21B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO21T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFO21T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI21B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI21B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI21T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTI21T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column63.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column63.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column64.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column64.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column65.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column65.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX19TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX9TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX21TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX21TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX21TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX21TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX11TIB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX11TIB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX11TIT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cXX11TIT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_cump" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: do_listare2013
		*m: grdfooterevent
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*p: lafisaretot		&& Afiseaza toate inregistrarile la intrare, fara sa mai apesi pe butonul Cautare/Reset
		*p: lvfp9
		*p: nlistitemid
		*p: nlistitemiddef
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		Height = 513
		lafisaretot = .F.
		lvfp9 = .T.
		Name = "frm_regcump2025"
		nlistitemid = 1
		nlistitemiddef = 2
		Width = 795
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="lafisaretot" display="lAfisareTot"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 672
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 121
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "REGISTRUL CUMPARARI"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 15
		Lb_titlu_alb_b121.Top = 1
		Lb_titlu_alb_b121.ZOrderSet = 3
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 5
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 73, ;
		Comment = "*:OnResize=ss", ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 56, ;
		Height = 405, ;
		Left = 11, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcv", ;
		RowHeight = 19, ;
		TabIndex = 8, ;
		Top = 73, ;
		Width = 768, ;
		ZOrderSet = 2, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "fdoc", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cFdoc", ;
		Column1.ReadOnly = .T., ;
		Column1.Visible = .T., ;
		Column1.Width = 124, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cDataact", ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Width = 86, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "nract", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cNract", ;
		Column3.ReadOnly = .T., ;
		Column3.Visible = .T., ;
		Column3.Width = 125, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cDenumire", ;
		Column4.ReadOnly = .T., ;
		Column4.Visible = .T., ;
		Column4.Width = 185, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cCod_fiscal", ;
		Column5.ReadOnly = .T., ;
		Column5.Visible = .T., ;
		Column5.Width = 115, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.InputMask = (get_mask(12,gnZ)), ;
		Column6.Name = "cTotctva", ;
		Column6.ReadOnly = .T., ;
		Column6.Visible = .T., ;
		Column6.Width = 108, ;
		Column7.ColumnOrder = 17, ;
		Column7.ControlSource = "ro11b", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.InputMask = (get_mask(12,gnZ)), ;
		Column7.Name = "cRo11b", ;
		Column7.ReadOnly = .T., ;
		Column7.Visible = .T., ;
		Column7.Width = 114, ;
		Column8.ColumnOrder = 18, ;
		Column8.ControlSource = "ro11t", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.InputMask = (get_mask(12,gnZ)), ;
		Column8.Name = "cRo11t", ;
		Column8.ReadOnly = .T., ;
		Column8.Visible = .T., ;
		Column8.Width = 110, ;
		Column9.ColumnOrder = 25, ;
		Column9.ControlSource = "ro09b", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.InputMask = (get_mask(12,gnZ)), ;
		Column9.Name = "cRo09b", ;
		Column9.ReadOnly = .T., ;
		Column9.Visible = .T., ;
		Column9.Width = 114, ;
		Column10.ColumnOrder = 26, ;
		Column10.ControlSource = "Ro09t", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Format = "R", ;
		Column10.InputMask = (get_mask(12,gnZ)), ;
		Column10.Name = "cRo09t", ;
		Column10.ReadOnly = .T., ;
		Column10.Visible = .T., ;
		Column10.Width = 122, ;
		Column11.ColumnOrder = 33, ;
		Column11.ControlSource = "Roscn", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.InputMask = (get_mask(12,gnZ)), ;
		Column11.Name = "cRoscn", ;
		Column11.ReadOnly = .T., ;
		Column11.Visible = .T., ;
		Column11.Width = 115, ;
		Column12.ColumnOrder = 36, ;
		Column12.ControlSource = "fo11b", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.InputMask = (get_mask(12,gnZ)), ;
		Column12.Name = "cFo11b", ;
		Column12.ReadOnly = .T., ;
		Column12.Visible = .T., ;
		Column12.Width = 111, ;
		Column13.ColumnOrder = 37, ;
		Column13.ControlSource = "fo11t", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.InputMask = (get_mask(12,gnZ)), ;
		Column13.Name = "cFo11t", ;
		Column13.ReadOnly = .T., ;
		Column13.Visible = .T., ;
		Column13.Width = 104, ;
		Column14.ColumnOrder = 40, ;
		Column14.ControlSource = "fo09b", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.InputMask = (get_mask(12,gnZ)), ;
		Column14.Name = "cFo09b", ;
		Column14.ReadOnly = .T., ;
		Column14.Visible = .T., ;
		Column14.Width = 113, ;
		Column15.ColumnOrder = 41, ;
		Column15.ControlSource = "fo09t", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.InputMask = (get_mask(12,gnZ)), ;
		Column15.Name = "cFo09t", ;
		Column15.ReadOnly = .T., ;
		Column15.Visible = .T., ;
		Column15.Width = 102, ;
		Column16.ColumnOrder = 42, ;
		Column16.ControlSource = "foscn", ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.InputMask = (get_mask(12,gnZ)), ;
		Column16.Name = "cFoscn", ;
		Column16.ReadOnly = .T., ;
		Column16.Visible = .T., ;
		Column16.Width = 106, ;
		Column17.ColumnOrder = 44, ;
		Column17.ControlSource = "CEt", ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.InputMask = (get_mask(12,gnZ)), ;
		Column17.Name = "cCEt", ;
		Column17.ReadOnly = .T., ;
		Column17.Visible = .T., ;
		Column17.Width = 81, ;
		Column18.ColumnOrder = 43, ;
		Column18.ControlSource = "CEb", ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cCEb", ;
		Column18.ReadOnly = .T., ;
		Column18.Visible = .T., ;
		Column18.Width = 85, ;
		Column19.ColumnOrder = 57, ;
		Column19.ControlSource = "TI11b", ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.InputMask = (get_mask(12,gnZ)), ;
		Column19.Name = "cTI11b", ;
		Column19.ReadOnly = .T., ;
		Column19.Visible = .T., ;
		Column19.Width = 83, ;
		Column20.ColumnOrder = 58, ;
		Column20.ControlSource = "TI11t", ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cTI11t", ;
		Column20.ReadOnly = .T., ;
		Column20.Visible = .T., ;
		Column20.Width = 107, ;
		Column21.ColumnOrder = 61, ;
		Column21.ControlSource = "TI09b", ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cTI09b", ;
		Column21.ReadOnly = .T., ;
		Column21.Visible = .T., ;
		Column21.Width = 112, ;
		Column22.ColumnOrder = 62, ;
		Column22.ControlSource = "TI09t", ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cTI09t", ;
		Column22.ReadOnly = .T., ;
		Column22.Visible = .T., ;
		Column22.Width = 106, ;
		Column23.ColumnOrder = 45, ;
		Column23.ControlSource = "CEsc", ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cCEsc", ;
		Column23.ReadOnly = .T., ;
		Column23.Visible = .T., ;
		Column24.ColumnOrder = 46, ;
		Column24.ControlSource = "CEn", ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnZ)), ;
		Column24.Name = "cCEn", ;
		Column24.ReadOnly = .T., ;
		Column24.Visible = .T., ;
		Column24.Width = 105, ;
		Column25.ColumnOrder = 4, ;
		Column25.ControlSource = "serie_act", ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.Name = "cSerieAct", ;
		Column25.ReadOnly = .T., ;
		Column25.Visible = .T., ;
		Column25.Width = 62, ;
		Column26.ColumnOrder = 29, ;
		Column26.ControlSource = "ro05b", ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cRo05b", ;
		Column26.ReadOnly = .T., ;
		Column26.Visible = .T., ;
		Column26.Width = 112, ;
		Column27.ColumnOrder = 30, ;
		Column27.ControlSource = "ro05t", ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "cRo05t", ;
		Column27.ReadOnly = .T., ;
		Column27.Visible = .T., ;
		Column27.Width = 113, ;
		Column28.ColumnOrder = 21, ;
		Column28.ControlSource = "ro19b", ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cRO19b", ;
		Column28.ReadOnly = .T., ;
		Column28.Visible = .T., ;
		Column28.Width = 110, ;
		Column29.ColumnOrder = 22, ;
		Column29.ControlSource = "ro19t", ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cRo19t", ;
		Column29.ReadOnly = .T., ;
		Column29.Visible = .T., ;
		Column29.Width = 99, ;
		Column30.ColumnOrder = 38, ;
		Column30.ControlSource = "fo19b", ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cFo19b", ;
		Column30.ReadOnly = .T., ;
		Column30.Visible = .T., ;
		Column30.Width = 110, ;
		Column31.ColumnOrder = 39, ;
		Column31.ControlSource = "fo19t", ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cFo19t", ;
		Column31.ReadOnly = .T., ;
		Column31.Visible = .T., ;
		Column31.Width = 106, ;
		Column32.ColumnOrder = 59, ;
		Column32.ControlSource = "ti19b", ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cTi19b", ;
		Column32.ReadOnly = .T., ;
		Column32.Visible = .T., ;
		Column32.Width = 93, ;
		Column33.ColumnOrder = 60, ;
		Column33.ControlSource = "ti19t", ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.InputMask = (get_mask(12,gnZ)), ;
		Column33.Name = "cTi19t", ;
		Column33.ReadOnly = .T., ;
		Column33.Visible = .T., ;
		Column33.Width = 97, ;
		Column34.ColumnOrder = 63, ;
		Column34.ControlSource = "rotn+rotn50+rotn100", ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.InputMask = (get_mask(12,gnZ)), ;
		Column34.Name = "cROtn", ;
		Column34.ReadOnly = .T., ;
		Column34.Visible = .T., ;
		Column34.Width = 108, ;
		Column35.ColumnOrder = 9, ;
		Column35.ControlSource = "TOTFTVATAX", ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.InputMask = (get_mask(12,gnZ)), ;
		Column35.Name = "cTotfTVATax", ;
		Column35.ReadOnly = .T., ;
		Column35.Visible = .T., ;
		Column35.Width = 92, ;
		Column36.ColumnOrder = 10, ;
		Column36.ControlSource = "TOTTVATAX", ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.InputMask = (get_mask(12,gnZ)), ;
		Column36.Name = "cTotTVATax", ;
		Column36.ReadOnly = .T., ;
		Column36.Visible = .T., ;
		Column36.Width = 99, ;
		Column37.ColumnOrder = 11, ;
		Column37.ControlSource = "RO21NB+RO11NB+RO19NB+RO09NB+RO05NB+RO24NB+RO20NB", ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.InputMask = (get_mask(12,gnZ)), ;
		Column37.Name = "cRONB", ;
		Column37.ReadOnly = .T., ;
		Column37.Visible = .T., ;
		Column37.Width = 107, ;
		Column38.ColumnOrder = 12, ;
		Column38.ControlSource = "RO21NT+RO11NT+RO19NT+RO09NT+RO05NT+RO24NT+RO20NT", ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.InputMask = (get_mask(12,gnZ)), ;
		Column38.Name = "cRONT", ;
		Column38.ReadOnly = .T., ;
		Column38.Visible = .T., ;
		Column38.Width = 98, ;
		Column39.ColumnOrder = 19, ;
		Column39.ControlSource = "RO11NB", ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.InputMask = (get_mask(12,gnZ)), ;
		Column39.Name = "cRO11NB", ;
		Column39.ReadOnly = .T., ;
		Column39.Visible = .T., ;
		Column39.Width = 120, ;
		Column40.ColumnOrder = 20, ;
		Column40.ControlSource = "RO11NT", ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.InputMask = (get_mask(12,gnZ)), ;
		Column40.Name = "cRO11NT", ;
		Column40.ReadOnly = .T., ;
		Column40.Visible = .T., ;
		Column40.Width = 123, ;
		Column41.ColumnOrder = 27, ;
		Column41.ControlSource = "RO09NB", ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.InputMask = (get_mask(12,gnZ)), ;
		Column41.Name = "cRO09NB", ;
		Column41.ReadOnly = .T., ;
		Column41.Visible = .T., ;
		Column41.Width = 122, ;
		Column42.ColumnOrder = 28, ;
		Column42.ControlSource = "RO09NT", ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.InputMask = (get_mask(12,gnZ)), ;
		Column42.Name = "cRO09NT", ;
		Column42.ReadOnly = .T., ;
		Column42.Visible = .T., ;
		Column42.Width = 125, ;
		Column43.ColumnOrder = 31, ;
		Column43.ControlSource = "RO05NB", ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.InputMask = (get_mask(12,gnZ)), ;
		Column43.Name = "cRO05NB", ;
		Column43.ReadOnly = .T., ;
		Column43.Visible = .T., ;
		Column43.Width = 119, ;
		Column44.ColumnOrder = 32, ;
		Column44.ControlSource = "RO05NT", ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.InputMask = (get_mask(12,gnZ)), ;
		Column44.Name = "cRO05NT", ;
		Column44.ReadOnly = .T., ;
		Column44.Visible = .T., ;
		Column44.Width = 127, ;
		Column45.ColumnOrder = 64, ;
		Column45.ControlSource = "tva_incasare", ;
		Column45.CurrentControl = "Check1", ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Name = "cTVAIncasare", ;
		Column45.ReadOnly = .T., ;
		Column45.Sparse = .F., ;
		Column45.Visible = .T., ;
		Column45.Width = 28, ;
		Column46.ColumnOrder = 67, ;
		Column46.ControlSource = "sucursala", ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Name = "cSucursala", ;
		Column46.ReadOnly = .T., ;
		Column46.Visible = .T., ;
		Column46.Width = 146, ;
		Column47.ColumnOrder = 65, ;
		Column47.ControlSource = "actcv.ales", ;
		Column47.CurrentControl = "_checkbox1", ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Name = "cAles", ;
		Column47.ReadOnly = .F., ;
		Column47.Sparse = .F., ;
		Column47.Visible = .T., ;
		Column47.Width = 28, ;
		Column48.ColumnOrder = 66, ;
		Column48.ControlSource = "cont", ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Name = "cCont", ;
		Column48.ReadOnly = .T., ;
		Column48.Visible = .T., ;
		Column49.BackColor = 140,218,255, ;
		Column49.ColumnOrder = 68, ;
		Column49.ControlSource = "soldf", ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.InputMask = (get_mask(12,gnZ)), ;
		Column49.Name = "cSoldF", ;
		Column49.ReadOnly = .T., ;
		Column49.Visible = .T., ;
		Column50.BackColor = 140,218,255, ;
		Column50.ColumnOrder = 70, ;
		Column50.ControlSource = "solddif", ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cSoldDif", ;
		Column50.ReadOnly = .T., ;
		Column50.Visible = .T., ;
		Column50.Width = 108, ;
		Column51.BackColor = 140,218,255, ;
		Column51.ColumnOrder = 69, ;
		Column51.ControlSource = "RO24NB+RO20NB+RO21NB+RO11NB+RO19NB+RO09NB+RO05NB+RO24NT+RO20NT+RO21NT+RO11NT+RO19NT+RO09NT+RO05NT", ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cSoldN", ;
		Column51.ReadOnly = .T., ;
		Column51.Visible = .T., ;
		Column51.Width = 82, ;
		Column52.ColumnOrder = 13, ;
		Column52.ControlSource = "ro21b", ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.InputMask = (get_mask(12,gnZ)), ;
		Column52.Name = "cRO21B", ;
		Column52.ReadOnly = .T., ;
		Column52.Visible = .T., ;
		Column52.Width = 101, ;
		Column53.ColumnOrder = 14, ;
		Column53.ControlSource = "ro21t", ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,gnZ)), ;
		Column53.Name = "cRO21T", ;
		Column53.ReadOnly = .T., ;
		Column53.Visible = .T., ;
		Column53.Width = 102, ;
		Column54.ColumnOrder = 15, ;
		Column54.ControlSource = "RO21NB", ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "cRO21NB", ;
		Column54.ReadOnly = .T., ;
		Column54.Visible = .T., ;
		Column54.Width = 125, ;
		Column55.ColumnOrder = 16, ;
		Column55.ControlSource = "RO21NT", ;
		Column55.FontName = "Arial", ;
		Column55.FontSize = 10, ;
		Column55.InputMask = (get_mask(12,gnZ)), ;
		Column55.Name = "cRO21NT", ;
		Column55.ReadOnly = .T., ;
		Column55.Visible = .T., ;
		Column55.Width = 122, ;
		Column56.ColumnOrder = 34, ;
		Column56.ControlSource = "FO21B", ;
		Column56.FontName = "Arial", ;
		Column56.FontSize = 10, ;
		Column56.InputMask = (get_mask(12,gnZ)), ;
		Column56.Name = "cFO21B", ;
		Column56.ReadOnly = .T., ;
		Column56.Visible = .T., ;
		Column56.Width = 102, ;
		Column57.ColumnOrder = 35, ;
		Column57.ControlSource = "FO21T", ;
		Column57.FontName = "Arial", ;
		Column57.FontSize = 10, ;
		Column57.InputMask = (get_mask(12,gnZ)), ;
		Column57.Name = "cFO21T", ;
		Column57.ReadOnly = .T., ;
		Column57.Visible = .T., ;
		Column57.Width = 109, ;
		Column58.ColumnOrder = 55, ;
		Column58.ControlSource = "TI21B", ;
		Column58.FontName = "Arial", ;
		Column58.FontSize = 10, ;
		Column58.InputMask = (get_mask(12,gnZ)), ;
		Column58.Name = "cTI21B", ;
		Column58.ReadOnly = .T., ;
		Column58.Visible = .T., ;
		Column58.Width = 95, ;
		Column59.ColumnOrder = 56, ;
		Column59.ControlSource = "TI21T", ;
		Column59.FontName = "Arial", ;
		Column59.FontSize = 10, ;
		Column59.InputMask = (get_mask(12,gnZ)), ;
		Column59.Name = "cTI21T", ;
		Column59.ReadOnly = .T., ;
		Column59.Visible = .T., ;
		Column59.Width = 114, ;
		Column60.ColumnOrder = 3, ;
		Column60.ControlSource = "dataireg", ;
		Column60.FontName = "Arial", ;
		Column60.FontSize = 10, ;
		Column60.Name = "cDataIreg", ;
		Column60.ReadOnly = .T., ;
		Column60.Visible = .T., ;
		Column60.Width = 100, ;
		Column61.ColumnOrder = 23, ;
		Column61.ControlSource = "RO19NB", ;
		Column61.FontName = "Arial", ;
		Column61.FontSize = 10, ;
		Column61.Format = "R", ;
		Column61.InputMask = (get_mask(12,gnZ)), ;
		Column61.Name = "cRO19NB", ;
		Column61.ReadOnly = .T., ;
		Column61.Width = 125, ;
		Column62.ColumnOrder = 24, ;
		Column62.ControlSource = "RO19NT", ;
		Column62.FontName = "Arial", ;
		Column62.FontSize = 10, ;
		Column62.Format = "R", ;
		Column62.InputMask = (get_mask(12,gnZ)), ;
		Column62.Name = "cRO19NT", ;
		Column62.ReadOnly = .T., ;
		Column62.Width = 119, ;
		Column63.BackColor = 128,255,255, ;
		Column63.ColumnOrder = 71, ;
		Column63.ControlSource = "incasat_tot", ;
		Column63.FontSize = 10, ;
		Column63.InputMask = (get_mask(12,gnZ)), ;
		Column63.Name = "Column63", ;
		Column63.ReadOnly = .T., ;
		Column64.BackColor = 128,255,255, ;
		Column64.ColumnOrder = 72, ;
		Column64.ControlSource = "incasat_exigibil", ;
		Column64.FontSize = 10, ;
		Column64.InputMask = (get_mask(12,gnZ)), ;
		Column64.Name = "Column64", ;
		Column64.ReadOnly = .T., ;
		Column65.BackColor = 128,255,255, ;
		Column65.ColumnOrder = 73, ;
		Column65.ControlSource = "diferenta_incasare_tva", ;
		Column65.FontSize = 10, ;
		Column65.InputMask = (get_mask(12,gnZ)), ;
		Column65.Name = "Column65", ;
		Column65.ReadOnly = .T., ;
		Column66.ColumnOrder = 51, ;
		Column66.ControlSource = "XX19TIB", ;
		Column66.FontSize = 10, ;
		Column66.InputMask = (get_mask(12,gnZ)), ;
		Column66.Name = "cXX19TIB", ;
		Column66.ReadOnly = .T., ;
		Column66.Width = 102, ;
		Column67.ColumnOrder = 52, ;
		Column67.ControlSource = "XX19TIT", ;
		Column67.FontSize = 10, ;
		Column67.InputMask = (get_mask(12,gnZ)), ;
		Column67.Name = "cXX19TIT", ;
		Column67.ReadOnly = .T., ;
		Column67.Width = 94, ;
		Column68.ColumnOrder = 53, ;
		Column68.ControlSource = "XX9TIB", ;
		Column68.FontSize = 10, ;
		Column68.InputMask = (get_mask(12,gnZ)), ;
		Column68.Name = "cXX9TIB", ;
		Column68.ReadOnly = .T., ;
		Column68.Width = 85, ;
		Column69.ColumnOrder = 54, ;
		Column69.ControlSource = "XX9TIT", ;
		Column69.FontSize = 10, ;
		Column69.InputMask = (get_mask(12,gnZ)), ;
		Column69.Name = "cXX9TIT", ;
		Column69.ReadOnly = .T., ;
		Column69.Width = 84, ;
		Column70.ColumnOrder = 47, ;
		Column70.ControlSource = "XX21TIB", ;
		Column70.FontSize = 10, ;
		Column70.Name = "cXX21TIB", ;
		Column70.ReadOnly = .T., ;
		Column70.Width = 98, ;
		Column71.ColumnOrder = 48, ;
		Column71.ControlSource = "XX21TIT", ;
		Column71.FontSize = 10, ;
		Column71.Name = "cXX21TIT", ;
		Column71.ReadOnly = .T., ;
		Column71.Width = 101, ;
		Column72.ColumnOrder = 49, ;
		Column72.ControlSource = "XX11TIB", ;
		Column72.FontSize = 10, ;
		Column72.Name = "cXX11TIB", ;
		Column72.ReadOnly = .T., ;
		Column72.Width = 93, ;
		Column73.ColumnOrder = 50, ;
		Column73.ControlSource = "XX11TIT", ;
		Column73.FontSize = 10, ;
		Column73.Name = "cXX11TIT", ;
		Column73.ReadOnly = .T., ;
		Column73.Width = 95
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 39, ;
		Name = "_checkbox1", ;
		ReadOnly = .F., ;
		Top = 70
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEb.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii din UE  =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEb.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii    din UE  =Neimpozabile=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEsc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii   din UE   =Scutite=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEsc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCEt.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri/servicii    din UE  =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCEt.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F. / C.N.P.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo11b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo11b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo11t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import = TVA 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo11t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFO21B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import =Baza 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO21B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFO21T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bunuri din import = TVA 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFO21T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFoscn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ach. de bunuri din import scutite sau neimpozab.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFoscn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column63.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasat in luna", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column63.Text1' AS textbox WITH ;
		BackColor = 128,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column64.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Exigibilizat (Baza+TVA)", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column64.Text1' AS textbox WITH ;
		BackColor = 128,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column65.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta incasat - exigibilizat", ;
		Comment = "incasat_dif", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column65.Text1' AS textbox WITH ;
		BackColor = 128,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo05b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo05b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO05NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO05NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO05NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO05NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo05t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo05t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO09NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO09NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO09NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo11b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo11b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO11NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO11NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO11NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO11NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo11t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo11t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =Baza 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexibigile la intern =TVA 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRoscn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ach. de bunuri din RO scutite sau neimpozab.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRoscn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cROtn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Limitare deducere TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cROtn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldDif.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta sold (sold fact. - sold neex.)", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldDif.Text1' AS textbox WITH ;
		BackColor = 140,218,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldF.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold factura", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldF.Text1' AS textbox WITH ;
		BackColor = 140,218,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSoldN.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Neexigibil", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSoldN.Text1' AS textbox WITH ;
		BackColor = 140,218,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI09b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI09t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 9%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI09t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI11b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI11b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI11t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 11%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI11t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTi19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTi19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTi19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 19%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTi19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI21B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =Baza 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI21B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTI21T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxare inversa =TVA 21%=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTI21T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotfTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabil la intern =Baza=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotfTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabil la intern =TVA=", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 4, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 74, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA Inc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255, ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX11TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza11%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX11TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX11TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA11%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX11TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX19TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza19%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX19TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX19TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA19%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX19TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX21TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza21%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX21TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX21TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA21%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX21TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX9TIB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =Baza 9%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX9TIB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cXX9TIT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Achizitii Non-UE Tx. inv.    =TVA 9%=", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cXX9TIT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cfdoc, ;
		csourcegrid = _grdbase1, ;
		csumcolumns = <fb2p_value>cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo21b,cRo21t,cRo21Nb,cRo21Nt,cRo11b,cRo11t,cRo11Nb,cRo11Nt,cRo19b,cRo19t,cRo19nb,cRo19nt,cRo09b,cRo09t,cRo09nb,cRo09nt,cRo05b,cRo05t,cRo05nb,cRo05nt,cRoscn,cFo21b,cFo21t,cFo11b,cFo11t,cFo19b,cFo19t,cFo09b,cFo09t,cFoscn,cCEb,cCEt,cCEsc,cCEn,cTI21b,cTI21T,cTI11b,cTI11T,cTI19b,cTI19T,cTi09b,cTI09t,cROTN,cXX21TIB,cXX21TIT,cXX11TIB,cXX11TIT,cXX19TIB,cXX19TIT,cXX9TIB,cXX9TIT</fb2p_value>, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 25, ;
		Left = 11, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 480, ;
		Width = 768, ;
		ZOrderSet = 16
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 672, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1, ;
		ZOrderSet = 8
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 583, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T., ;
		ZOrderSet = 13
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 612, ;
		Name = "But_start_criterii1", ;
		Top = 1, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 642, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 1, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_cump' AS _combobox WITH ;
		Anchor = 3, ;
		FontCharSet = 238, ;
		FontName = "Segoe UI", ;
		FontSize = 10, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_cump", ;
		RowSource = "Complet,Achizitii din tara,Achizitii din import,Achizitii intracomunitare,Taxare inversa", ;
		RowSourceType = 1, ;
		TabIndex = 18, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 37, ;
		Width = 254, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		Caption = "\<Exigibilizare TVA Incasare", ;
		Height = 29, ;
		Left = 595, ;
		Name = "cmdTVAIncasare", ;
		ToolTipText = "Genereaza note TVA Incasare 4426 = 4428 pentru facturile selectate. Se foloseste pentru facturile achitate integral, dar cu sold TVA neexigibil diferit de 0.", ;
		Top = 36, ;
		Width = 190
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		allowgridpreferences = .F., ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 337, ;
		Name = "Gridextra1", ;
		productname = ROA, ;
		Top = 49, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 16, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS lcFiltru
		
		LOCAL lnOptiune
		lnOptiune = THISFORM.cbo_tip_jurnal_cump.LISTITEMID
		
		IF EMPTY(lcFiltru)
			lcFiltru = pocump.ca_baza1.cfiltru
		ENDIF
		
		THISFORM.MOUSEPOINTER= 11
		
		THISFORM.LOCKSCREEN=.T.
		save_grid_tag(THISFORM._grdbase1)
		pocump.ca_baza1.cfiltru=lcFiltru
		pocump.ca_baza1.afisare()
		restore_grid_tag(THISFORM._grdbase1)
		DO CASE
			CASE lnOptiune = 1 && REGISTRUL CUMPARARI
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TOTCTVA"
		
			CASE lnOptiune = 2 && REGISTRUL CUMPARARI - DIN TARA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = iif(m.gnAn >=2013, "TOTFTVATAX+TOTTVATAX+ROSCN", "RO11B + RO11T + RO21B + RO21T + RO20B + RO20T + RO24B + RO24T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN")
		
			CASE lnOptiune = 3 && REGISTRUL CUMPARARI - DIN IMPORT
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "FO24B + FO24T + FO20B + FO20T + FO21B + FO21T + FO11B + FO11T + FO19B + FO19T + FO09B + FO09T + FOSCN"
		
			CASE lnOptiune = 4 && REGISTRUL CUMPARARI - INTRACOMUNITARE
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "CEB + CET + CESC + CEN"
		
			CASE lnOptiune = 5 && REGISTRUL CUMPARARI - TAXARE INVERSA
				THIS._grdbase1.ctotctva.CONTROLSOURCE = "TI24B + TI24T + TI20B + TI20T + TI21B + TI21T + TI11B + TI11T + TI19B + TI19T + TI09B + TI09T + xx21tib + xx21tit + xx11tib + xx11tit + xx19tib + xx19tit + xx9tib + xx9tit"
		ENDCASE
		THISFORM._grdfooter1.calcTotal
		
		THISFORM.LOCKSCREEN=.F.
		THISFORM.MOUSEPOINTER= 0
		
	ENDPROC

	PROCEDURE butdrept
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener
		lcOptiuniMeniuAnte = "\<Note contabile;" + ;
			"\<Incasari/Plati;" + ;
			"Istoric \<debit-credit;\-;"
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = 0
		loPartener = Null
		loDate = Createobject("empty")
		AddProperty(loDate, "denumire", m.lcDenumire)
		AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
		AddProperty(loDate, "optiuni_meniu_ante", m.lcOptiuniMeniuAnte)
		
		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		
		Do Case
			Case m.lnOptiune = 1
				Thisform.NOTACONTAB()
			Case m.lnOptiune = 2
				Thisform.incaspl()
			Case m.lnOptiune = 3
				This.ist_deb_cred()
		Endcase
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		*!* 19.03.2013
		*!* marius.mutu
		*!* filtru plati fara tva incasare (baza+tva exigibil din Registru TVA <> plata din Registrul Jurnal)
		
		*!* 25.09.2013
		*!* marius.mutu
		*!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		Else
			lcFiltru = Substr(gcCondSucursala, 6)
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_cump.ListItemId
		Thisform.nlistitemid = lnOptiune
		
		
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + Iif(!Empty(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI]
			Case lnOptiune = 2
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN TARA]
				*!* marius.mutu
				*!* 21.06.2007
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcFiltru = lcFiltru + [ AND ((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ] + ;
					[ RO11nb<>0 OR RO11nt<>0 OR RO21nb<>0 OR RO21nt<>0 OR RO24nb<>0 OR RO24nt<>0 OR RO20nb<>0 OR RO20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0) OR ] + ;
					[(TOTCTVA = 0  and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ;
					[ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO21B = 0 and FO21T = 0 and FO11B = 0 and FO11T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and XX21TIB = 0 and XX21TIT = 0 and XX11TIB = 0 and XX11TIT = 0 and XX19TIB = 0 and XX19TIT = 0 and XX9TIB = 0 and XX9TIT = 0 ] + ;
					[ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI21B = 0 and TI21T = 0 and TI11B = 0 and TI11T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and RO11nb = 0 and RO11nt = 0 and RO21nb = 0 and RO21nt = 0 and RO24nb = 0 and RO24nt = 0 and RO20nb = 0 and RO20nt = 0 and ro19nt = 0 and ro9nb = 0 and ro9nt = 0 and ro5nb = 0 and ro5nt = 0)) ]
		
			Case lnOptiune = 3
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - DIN IMPORT]
				lcFiltru = lcFiltru + [ AND (FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO21B<>0 OR FO21T<>0 OR FO11B<>0 OR FO11T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
		
			Case lnOptiune = 4
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - INTRACOMUNITARE]
				lcFiltru = lcFiltru + [ AND (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
		
			Case lnOptiune = 5
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL CUMPARARI - TAXARE INVERSA]
				lcFiltru = lcFiltru + [ AND (TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI21B<>0 OR TI21T<>0 OR TI11B<>0 OR TI11T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR ] + ;
				[ XX21TIB <> 0 OR XX21TIT <> 0 OR XX11TIB <> 0 OR XX11TIT <> 0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)]
		ENDCASE
		
		If (This.filtru_pretty#"none")
			
			*** daca vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil
			*** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact
			if('DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full))
				poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2025], [vjc2010],1,1,1)
				poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2025], [vjc2010],1,1,1)
			ELSE
				poCump.ca_baza1.SELECTCMD = STRTRAN(poCump.ca_baza1.SELECTCMD, [vjc2010], [vjc2025],1,1,1)
				poCump.ca_baza1.cSelect = STRTRAN(poCump.ca_baza1.cSelect, [vjc2010], [vjc2025],1,1,1)		
			ENDIF 	
			
			Thisform.actualizeaza_grid1(lcFiltru)
			Thisform.do_executa(lnOptiune)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
				*	THISFORM.ck_nract.SETFOCUS()
			Endif
		
			*** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE
			If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full)
		
				TEXT to lcSql noshow textmerge
		select an,
		       luna,
		       min(id_fact) as id_fact,
		       dataact,
		       nract,
		       serie_act,
		       id_part,
		       id_fdoc,
		       id_sucursala,
		       sum(totctva) as totctva,
		       sum(nvl(total_incasat, 0)) as incasat_tot,
		       SUM(NVL(tva_exigibil, 0)) as incasat_exigibil,
		       sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva
		  from (select a.an,
		               a.luna,
		               a.id_fact,
		               a.dataact,
		               a.nract,
		               a.serie_act,
		               a.id_fdoc,
		               a.id_sucursala,
		               a.id_part,
		               a.totctva,
		               nvl(b.total_incasat, 0) as total_incasat,
		               (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.RO20b + a.RO20t + a.RO24b + a.RO24t + a.ro19bcb + a.ro19bct + a.ro19bvb +
		               a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb +
		               a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t +
		               a.roscn) as tva_exigibil
		          from (select an,
		                       luna,
		                       id_fact,
		                       id_sucursala,
		                       id_part,
		                       id_fdoc,
		                       nract,
		                       dataact,
		                       serie_act,
		                       totctva,
		                       RO11b,
		                       RO11t,
		                       RO21b,
		                       RO21t,                       
		                       RO20b,
		                       RO20t,
		                       RO24b,
		                       RO24t,                       
		                       ro19bcb,
		                       ro19bct,
		                       ro19bvb,
		                       ro19bvt,
		                       ro19bfb,
		                       ro19bft,
		                       ro09bcb,
		                       ro09bct,
		                       ro09bvb,
		                       ro09bvt,
		                       ro09bfb,
		                       ro09bft,
		                       ro05b,
		                       ro05t,
		                       roscn
		                  from jc2007 jc
		                 where an = <<m.gnAn>>
		                   and luna = <<m.gnLuna>>
		                   and (RO11nb <> 0
		                    or RO21nb <> 0
							or RO20nb <> 0
		                    or RO24nb <> 0                   
		                    or ro19nb <> 0
		                    or ro9nb <> 0
		                    or ro5nb <> 0) <<m.gcCondSucursala>>) a
		          left join (select an,
		                           luna,
		                           id_sucursala,
		                           (case
		                             when id_jtva_coloana in
		                                  (102,104,106,110,112,155,157,177,209,211,213,215) then
		                              id_fact
		                             else
		                              id_factd
		                           end) as id_fact,
		                           sum(case
		                                 when id_jtva_coloana in
		                                      (102,104,106,110,112,155,157,177,209,211,213,215) then
		                                  suma
		                                 else
		                                  0
		                               end) as ex,
		                           sum(case
		                                 when id_jtva_coloana in
		                                      (102,104,106,110,112,155,157,177,209,211,213,215) then
		                                  0
		                                 else
		                                  suma
		                               end) as total_incasat
		                      from act
		                     where sters = 0
		                       and an = <<m.gnAn>>
		                       and luna = <<m.gnLuna>>
		                     <<m.gcCondSucursala>>
		                       and (id_jtva_coloana in (102,104,106,110,112,155,157,177,209,211,213,215) or
		                           id_factd <> 0)
		                     group by an,
		                              luna,
		                              id_sucursala,
		                              (case
		                                when id_jtva_coloana in
		                                     (102,104,106,110,112,155,157,177,209,211,213,215) then
		                                 id_fact
		                                else
		                                 id_factd
		                              end)) b
		            on a.id_fact = b.id_fact
		           and a.an = b.an
		           and a.luna = b.luna
		           and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0)
		         where nvl(b.total_incasat, 0.00) <> 0 AND nvl(b.total_incasat, 0.00) -
		               (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.RO20b + a.RO20t + a.RO24b + a.RO24t + a.ro19bcb + a.ro19bct + a.ro19bvb +
		                a.ro19bvt + a.ro19bfb + a.ro19bft + a.ro09bcb + a.ro09bct + a.ro09bvb +
		                a.ro09bvt + a.ro09bfb + a.ro09bft + a.ro05b + a.ro05t +
		                a.roscn) <> 0)
		 group by an,
		          luna,
		          dataact,
		          nract,
		          serie_act,
		          id_part,
		          id_fdoc,
		          id_sucursala
		
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA")
				If m.llSucces
					Select crsDiferenteTVA
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
				Endif && m.llSucces
			Endif && 'TVA INCASARE'
		
			*** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
			If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)
				TEXT to lcSql noshow textmerge
				select jc.id_fact,
				       ip.cont,
				       nvl(ip.sold, 0) as soldf,
				       (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
				       nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
				       jc.denumire,
				       jc.nract,
				       jc.serie_act,
				       jc.id_sucursala,
				       jc.id_fdoc,
				       jc.id_part,
				       jc.dataact,
				       jc.totctva,
				       jc.RO11nb,
				       jc.RO11nt,
				       jc.RO21nb,
				       jc.RO21nt,		       
				       jc.RO20nb,
				       jc.RO20nt,
				       jc.RO24nb,
				       jc.RO24nt,		       
				       jc.ro19nb,
				       jc.ro19nt,
				       jc.ro9nb,
				       jc.ro9nt,
				       jc.ro5nb,
				       jc.ro5nt
				  from vjc2010 jc
				  left join (select id_fact,
				                    cont,
				                    sum(preccred + credit - (precdeb + debit)) as sold
				               from vireg_parteneri
				              where an = <<m.gnAn>>
				                and luna = <<m.gnLuna>>
				                and cont not like '409%'
				                and id_fact in
				                    (select distinct id_fact
				                       from vjc2010
				                      where an = <<m.gnAn>>
				                        and luna = <<m.gnLuna>>
				                        and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
				                        and tva_incasare = 1)
				              group by id_fact, cont) ip
				    on jc.id_fact = ip.id_fact
				 where jc.an = <<m.gnAn>>
				   and jc.luna = <<m.gnLuna>>
		           and jc.tva_incasare = 1
				   and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
				   and  nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif")
				If m.llSucces
					Select crsSoldDif
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(solddif, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
					SELECT actcv
				Endif && m.llSucces
			Endif && DIFERENTA SOLD
		
		Endif && (This.filtru_pretty#"none")
		
	ENDPROC

	PROCEDURE do_excel
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
	ENDPROC

	PROCEDURE do_executa
		Lparameters tnOptiune
		Thisform._grdbase1.SetAll("Visible",.F.,"Column")
		Thisform._grdfooter1.SetAll("Visible",.F.,"Column")
		Do Case
			Case tnOptiune = 1
			*** TOATE ACHIZITIILE
				Thisform._grdbase1.SetAll("Visible",.T.,"Column")
				Thisform._grdfooter1.SetAll("Visible",.T.,"Column")
			Case tnOptiune = 2
			*** ACHIZITII RO
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cRO11b.Visible = .T.
					.cRO11t.Visible = .T.
					.cRO21b.Visible = .T.
					.cRO21t.Visible = .T.			
					.cro19b.Visible = .T.
					.cro19t.Visible = .T.			
					.cro09b.Visible = .T.
					.cro09t.Visible = .T.
					.croscn.Visible = .T.
					.cro05b.Visible = .T.
					.cro05t.Visible = .T.
					.cRoTn.Visible  = .T.
					.ctotftvatax.Visible = .T.
					.ctottvatax.Visible = .T.
					.cronb.Visible = .T.
					.cront.Visible = .T.
					.cRO11nb.Visible = .T.
					.cRO11nt.Visible = .T.	
					.cRO21nb.Visible = .T.
					.cRO21nt.Visible = .T.				
					.cro19nb.Visible = .T.
					.cro19nt.Visible = .T.
					.cro09nb.Visible = .T.
					.cro09nt.Visible = .T.
					.cro05nb.Visible = .T.
					.cro05nt.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cRO11b.Visible = .T.
					.cRO11t.Visible = .T.
					.cRO21b.Visible = .T.
					.cRO21t.Visible = .T.			
					.cro19b.Visible = .T.
					.cro19t.Visible = .T.			
					.cro09b.Visible = .T.
					.cro09t.Visible = .T.
					.croscn.Visible = .T.
					.cro05b.Visible = .T.
					.cro05t.Visible = .T.
					.cRotn.Visible  = .T.
					.ctotftvatax.Visible = .T.
					.ctottvatax.Visible = .T.
					.cronb.Visible = .T.
					.cront.Visible = .T.
					.cRO11nb.Visible = .T.
					.cRO11nt.Visible = .T.	
					.cRO21nb.Visible = .T.
					.cRO21nt.Visible = .T.				
					.cro19nb.Visible = .T.
					.cro19nt.Visible = .T.			
					.cro09nb.Visible = .T.
					.cro09nt.Visible = .T.
					.cro05nb.Visible = .T.
					.cro05nt.Visible = .T.			
					.Refresh()
				Endwith
			Case tnOptiune = 3
			*** ACHIZITII IMPORT
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cfo21b.Visible = .T.
					.cfo21t.Visible = .T.
					.cfo11b.Visible = .T.
					.cfo11t.Visible = .T.			
					.cfo19b.Visible = .T.
					.cfo19t.Visible = .T.			
					.cfo09b.Visible = .T.
					.cfo09t.Visible = .T.
					.cfoscn.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cfo21b.Visible = .T.
					.cfo21t.Visible = .T.
					.cfo11b.Visible = .T.
					.cfo11t.Visible = .T.			
					.cfo19b.Visible = .T.
					.cfo19t.Visible = .T.			
					.cfo09b.Visible = .T.
					.cfo09t.Visible = .T.
					.cfoscn.Visible = .T.
					.Refresh()
				Endwith
			Case tnOptiune = 4
			*** ACHIZITII CE
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cceb.Visible = .T.
					.ccet.Visible = .T.
					.ccesc.Visible = .T.
					.ccen.Visible = .T.
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cceb.Visible = .T.
					.ccet.Visible = .T.
					.ccesc.Visible = .T.
					.ccen.Visible = .T.
					.Refresh()
				Endwith
			Case tnOptiune = 5
			*** TAXARE INVERSA
				With Thisform._grdbase1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cti21b.Visible = .T.
					.cti21t.Visible = .T.
					.cti11b.Visible = .T.
					.cti11t.Visible = .T.			
					.cti19b.Visible = .T.
					.cti19t.Visible = .T.			
					.cti09b.Visible = .T.
					.cti09t.Visible = .T.
					.cXX19TIB.Visible = .T.
					.cXX19TIT.Visible = .T.			
					.cXX9TIB.Visible = .T.
					.cXX9TIT.Visible = .T.
					.cXX21TIB.Visible = .T.
					.cXX21TIT.Visible = .T.			
					.cXX11TIB.Visible = .T.
					.cXX11TIT.Visible = .T.			
					.Refresh()
				Endwith
				With Thisform._grdfooter1
					.cfdoc.Visible = .T.
					.cdataact.Visible = .T.
					.cnract.Visible = .T.
					.cSerieAct.Visible = .T.
					.cdenumire.Visible = .T.
					.ccod_fiscal.Visible = .T.
					.ctotctva.Visible = .T.
					.cti21b.Visible = .T.
					.cti21t.Visible = .T.
					.cti11b.Visible = .T.
					.cti11t.Visible = .T.			
					.cti19b.Visible = .T.
					.cti19t.Visible = .T.			
					.cti09b.Visible = .T.
					.cti09t.Visible = .T.
					.cXX19TIB.Visible = .T.
					.cXX19TIT.Visible = .T.			
					.cXX9TIB.Visible = .T.
					.cXX9TIT.Visible = .T.
					.cXX21TIB.Visible = .T.
					.cXX21TIT.Visible = .T.			
					.cXX11TIB.Visible = .T.
					.cXX11TIT.Visible = .T.			
					.Refresh()
				Endwith
		Endcase
		
	ENDPROC

	PROCEDURE do_listare
		*!* 06.08.2010
		*!* adaugare coloana 19% si 5% pe rapoarte suplimentare *_2.frx
		*!* RAPORT SUPLIMENTAR 5%, 19% (achizitii RO, FO, TI)
		
		Private pcTitlu, pcSubtitlu
		pcTitlu = "Registru cumparari"
		Store "" To pcSubtitlu
		*!* 16.04.2007
		*!* marius.mutu
		*!* listare cu recapitulatie
		*!*	pnOptiune = Thisform.nlistitemid
		lnTipJurnal = Thisform.nlistitemid - 1
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu1 = This.filtru_pretty_ro + lctext
		****************************************************************
		If lnTipJurnal = 0 && Complet
			x = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Achizitii de bunuri si prestari de sevicii taxabile din import;Achizitii intracomunitare de bunuri;Taxare inversa;" + ;
				"\-;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii intracomunitare de bunuri;Recapitulatie - Taxare inversa")
		Else
			Do Case
				Case lnTipJurnal = 1
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din tara;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din tara")
					x = Iif(lnMeniu = 1, 1, Iif(lnMeniu = 2, 6, 0))
		
				Case lnTipJurnal = 2
					lnMeniu = xmenu("Achizitii de bunuri si prestari de sevicii taxabile din import;Recapitulatie - Achizitii de bunuri si prestari de sevicii taxabile din import")
					x = Iif(lnMeniu = 1, 2, Iif(lnMeniu = 2, 7, 0))
		
				Case lnTipJurnal = 3
					lnMeniu = xmenu("Achizitii intracomunitare de bunuri;Recapitulatie - Achizitii intracomunitare de bunuri")
					x = Iif(lnMeniu = 1, 3, Iif(lnMeniu = 2, 8, 0))
		
				Case lnTipJurnal = 4
					lnMeniu = xmenu("Taxare inversa;Recapitulatie - Taxare inversa")
					x = Iif(lnMeniu = 1, 4, Iif(lnMeniu = 2, 9, 0))
			Endcase
		Endif
		
		If !Between(x,1,9)
			Return
		Endif
		
		*!*	pcdataora=get_ora(2)
		
		lcWhere = ""
		
		Do Case
			Case Inlist(x, 1, 6)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
				lcRaport = [registru_cumparari_jtva2010_ro]
		
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcWhere = [((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ;
					[OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0) OR ] + ;
					[(TOTCTVA = 0  and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO19B = 0 and RO19T = 0 and RO05B = 0 and RO05T = 0 ] + ;
					[ and RO09B = 0 and RO09T = 0 and ROSCN = 0 and ROTN = 0 ] + ;
					[ and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and XXTI19B = 0 and XXTI19T = 0 and XXTI9B = 0 and XXTI9T = 0))]
					
			Case Inlist(x, 2, 7)
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import"
				lcRaport = [registru_cumparari_jtva2010_fo]
		
				lcWhere = [(FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
				
			Case Inlist(x, 3, 8)
				pcSubtitlu = "Achizitii intracomunitare de bunuri"
				lcRaport = [registru_cumparari_jtva2010_ce]
		
				lcWhere = [(CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
				
			Case Inlist(x, 4, 9)
				pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import si Servicii UE) - Taxare Inversa"
				lcRaport = [registru_cumparari_jtva2010_ti]
		
				lcWhere = [(TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR XXTI19B<>0 OR XXTI19T<>0 OR XXTI9B<>0 OR XXTI9T<>0)]
		
		Endcase
		
		
		&& REGISTRU TVA LUNA CURENTA
		Select 0 As tip, * ;
			FROM actcv ;
			WHERE &lcWhere ;
			INTO Cursor cListRC ;
			ORDER By dataact, nract ;
			READWRITE
		
		
		If Between(x, 1, 5) And _Tally = 0
			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If Between(x, 5, 9)
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna || ' ' || to_char(an) from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] + ;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CEB) AS CEB, SUM(CET) AS CET, SUM(CEN) AS CEN, ] + ;
				[SUM(CESC) AS CESC, ] + ;
				[SUM(FOSCN) AS FOSCN, SUM(FO09B) AS FO09B, SUM(FO09T) AS FO09T, ] + ;
				[SUM(FO24B) AS FO24B, SUM(FO24T) AS FO24T, SUM(FO20B) AS FO20B, SUM(FO20T) AS FO20T, SUM(FO19B) AS FO19B, SUM(FO19T) AS FO19T, ] + ;
				[SUM(ROSCN) AS ROSCN, SUM(RO09B) AS RO09B, SUM(RO09T) AS RO09T, SUM(RO05B) AS RO05B, SUM(RO05T) AS RO05T, ]+;
				[SUM(RO11B) AS RO11B, SUM(RO11T) AS RO11T, SUM(RO21B) AS RO21B, SUM(RO21T) AS RO21T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, Sum(ROTN) AS ROTN, ] + ;
				[SUM(TI09B) AS TI09B, SUM(TI09T) AS TI09T, SUM(TI19B) AS TI19B, SUM(TI19T) AS TI19T, SUM(TI24B) AS TI24B, SUM(TI24T) AS TI24T, SUM(TI20B) AS TI20B, SUM(TI20T) AS TI20T, ] + ;
				[SUM(XXTI9B) AS XXTI9B, SUM(XXTI9T) AS XXTI9T, SUM(XXTI19B) AS XXTI19B, SUM(XXTI19T) AS XXTI19T ] + ;
				[ FROM VJC2010 ] + ;
				[ WHERE an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				[ GROUP BY an, luna ] + ;
				[ ORDER BY an, luna ] && 08.02.2010
		
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && BETWEEN(x, 5, 9)
		If (Between(x, 1, 5) And _Tally > 0) Or Between(x,5,9)
			*!*		IF USED('cListRc') AND !EMPTY(lcRaport)
			*!*			THISFORM.ALWAYSONTOP=.F.
			*!*			SELECT cListRC
			*!*			REPORT FORMAT (lcRaport) TO PRINTER PROMPT PREVIEW
			*!*			THISFORM.ALWAYSONTOP=.T.
			*!*		ENDIF
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRc],lcRaport)
			
			*!* 06.08.2010
			IF INLIST(x, 1, 2, 4, 6, 7, 9)
				Select cListRC
				DO CASE 
					CASE Inlist(x, 1, 6)
						Set Filter To ro05b <> 0 Or ro05t <> 0 OR ro19b<>0 or ro19t<>0
					CASE Inlist(x, 2, 7)
						Set Filter To fo19b<>0 OR fo19t<>0
					CASE Inlist(x, 4, 9)
						Set Filter To ti19b<>0 OR ti19t<>0 OR ti09b<>0 OR ti09t<>0 OR xxti19b<>0 OR xxti19t<>0 OR xxti9b<>0 OR xxti9t<>0
				ENDCASE 					
				Go Top
				If  !Empty(denumire)
					lcRaport2 = lcRaport + "_2"
					goExport.export2frx([cListRc],lcRaport2)
				ENDIF
			ENDIF 	
			*!* 06.08.2010 ^			
					
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
		
	ENDPROC

	PROCEDURE do_listare2013
		*!* 14.03.2013
		*!* marius.mutu
		*!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare
		
		*!* 23.09.2013
		*!* marius.mutu
		*!* Se includ si facturile fara TVA INCASARE cu valoare 0
		
		*!* 17.10.2013
		*!* marius.mutu
		*!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala
		
		*!* 23.05.2014
		*!* marius.mutu
		*!* am defalcat achizitiile din CE in achizitii bunuri CE si achizitii servicii CE (la cererea Silvia Carapetru)
		*!* in vizualizare sunt in continuare comasate (CEB = CEBB + CESB, CET = CEBT + CEST)
		
		*!* 23.05.2016
		*!* marius.mutu
		*** selectez facturile tva la incasare doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total)
		
		*!* 16.01.2019
		*!* marius.mutu
		*!* corectat cod tva TI19BFB in TI19B pentru facturile cu taxare inversa de pe facturile TVA_INCASARE 
		
		*!* 09.04.2019
		*!* marius.mutu
		*!* corectat CEBFSC la recapitulatie
		
		*!* 26.05.2022
		*!* marius.mutu
		*!* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		
		Private pcTitlu, pcSubtitlu, pcPerioada, pcSubtitlu1, pcdataora
		Local lcNumeAct, lcRaport, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lcSerieAct
		Local lnDiferenta, lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces
		Local lnTip, lnTipJurnal, lnOptiuneBug
		*:Global pnAn, pnLuna
		
		pcTitlu = "Registru cumparari"
		pcSubtitlu = ""
		
		lnTipJurnal = Thisform.nlistitemid - 1
		If This.filtru_traducere() # ""
			lctext = " si " + This.filtru_traducere()
		Else
			lctext = ""
		Endif
		
		pcSubtitlu1 = This.filtru_pretty_ro + m.lctext
		pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn))
		****************************************************************
		lnMeniu = xmenu("Registru Cumparari lunar;Registru Cumparari - recapitulatie 3 luni;Registru Cumparari - recapitulatie an curent")
		If !Inlist(m.lnMeniu, 1, 2, 3)
			Return
		Endif
		
		pcdataora = get_ora(2)
		
		&& REGISTRU TVA LUNA CURENTA
		Select 0 As tip, * ;
			FROM actcv ;
			INTO Cursor cListRC ;
			ORDER By dataact, nract ;
			READWRITE
		
		If m.lnMeniu = 1 And _Tally = 0
			amessagebox("Nu exista inregistrari pentru listare!", 48, "Atentie")
		Endif
		
		*** FILTRU PENTRU RECAPITULATIE
		lcWhere = pocump.ca_baza1.cfiltru
		
		*** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie)
		If Left(Upper(lcWhere),4) = 'LUNA'
			lnPos = Atc('AN=', lcWhere,1)
			If m.lnPos > 0
				lcWhere = Alltrim(Substr(m.lcWhere, m.lnPos + 11))
			Endif
		Endif
		SET STEP ON 
		Do Case
			Case m.lnTipJurnal = 1
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
				lcRaport   = [registru_cumparari_jtva2010_ro]
		
				*!* facturile RO <> 0 SAU facturile cu toate coloanele <> 0
				lcWhere = m.lcWhere + [ and ((RO11B<>0 OR RO11T<>0 OR RO21B<>0 OR RO21T<>0 OR RO24B<>0 OR RO24T<>0 OR RO20B<>0 OR RO20T<>0 OR RO19B<>0 OR RO19T<>0 OR RO09B<>0 OR RO09T<>0 ] + ;
					[OR RO05B<>0 OR RO05T<>0 OR ROSCN<>0 OR ROTN<>0 OR ROTN50<>0 OR ROTN100<>0 ] + ;
					[ OR RO11nb<>0 OR RO11nt<>0 OR RO21nb<>0 OR RO21nt<>0 OR RO24nb<>0 OR RO24nt<>0 OR RO20nb<>0 OR RO20nt<>0 OR ro19nb<>0 OR ro19nt<>0 ro09nb<>0 OR ro09nt<>0 OR ro05nb<>0 OR ro05nt<>0) OR ] + ;
					[(TOTCTVA = 0 and RO11B = 0 and RO11T = 0 and RO21B = 0 and RO21T = 0 and RO24B = 0 and RO24T = 0 and RO20B = 0 and RO20T = 0 and RO19B = 0 and RO19T = 0 and RO09B = 0 and RO09T = 0 ] + ;
					[ and RO05B = 0 and RO05T = 0 and ROSCN = 0 and ROTN = 0 and ROTN50 = 0 and ROTN100 = 0 ] + ;
					[ and FO21B = 0 and FO21T = 0 and FO11B = 0 and FO11T = 0 and FO24B = 0 and FO24T = 0 and FO20B = 0 and FO20T = 0 and FO19B = 0 and FO19T = 0 and FO09B = 0 and FO09T = 0 and FOSCN = 0 ] + ;
					[ and CEB = 0 and CET = 0 and CESC = 0 and CEN = 0 ] + ;
					[ and XX21TIB = 0 AND XX21TIT = 0 and XX11TIB = 0 AND XX11TIT = 0 and XX19TIB = 0 AND XX19TIT = 0 and XX9TIB = 0 AND XX9TIT = 0 ] + ;
					[ and TI21B = 0 and TI21T = 0 and TI11B = 0 and TI11T = 0 and TI24B = 0 and TI24T = 0 and TI20B = 0 and TI20T = 0 and TI19B = 0 and TI19T = 0 and TI09B = 0 and TI09T = 0 ] + ;
					[ and RO11nb = 0 and RO11nt = 0 and RO21nb = 0 and RO21nt = 0 and RO24nb = 0 and RO24nt = 0 and RO20nb = 0 and RO20nt = 0 and ro19nb = 0 and ro19nt = 0 and ro09nb = 0 and ro09nt = 0 and ro05nb = 0 and ro05nt = 0))]
		
			Case  m.lnTipJurnal = 2
				pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din import"
				lcRaport   = [registru_cumparari_jtva2010_fo]
		
				lcWhere = m.lcWhere + [ and (FO21B<>0 OR FO21T<>0 OR FO11B<>0 OR FO11T<>0 OR FO24B<>0 OR FO24T<>0 OR FO20B<>0 OR FO20T<>0 OR FO19B<>0 OR FO19T<>0 OR FO09B<>0 OR FO09T<>0 OR FOSCN<>0)]
		
			Case m.lnTipJurnal = 3
				pcSubtitlu = "Achizitii intracomunitare de bunuri"
				lcRaport   = [registru_cumparari_jtva2010_ce]
		
				lcWhere = m.lcWhere + [ and (CEB<>0 OR CET<>0 OR CESC<>0 OR CEN<>0)]
		
			Case  m.lnTipJurnal = 4
				pcSubtitlu = "Bunuri si Sevicii pentru care cumparatorul este obligat la plata taxei (din Tara, Import) - Taxare Inversa"
				lcRaport   = [registru_cumparari_jtva2010_ti]
		
				lcWhere = m.lcWhere + [ and (TI21B<>0 OR TI21T<>0 OR TI11B<>0 OR TI11T<>0 OR TI24B<>0 OR TI24T<>0 OR TI20B<>0 OR TI20T<>0 OR TI19B<>0 OR TI19T<>0 OR TI09B<>0 OR TI09T<>0 OR ] + ;
				[ XX21TIB <> 0 OR XX21TIT <> 0 OR XX11TIB <> 0 OR XX11TIT <> 0 OR XX19TIB <> 0 OR XX19TIT <> 0 OR XX9TIB <> 0 OR XX9TIT <> 0)]
		
		Endcase
		
		&& REGISTRE TVA RECAPITULATIE
		If INLIST(m.lnMeniu, 2, 3) && recapitulatie 3 luni  / an curent
			Private m.pnAn, m.pnLuna
			IF m.lnMeniu = 2
				* recapitulatie 3 luni
				lnPerioada = Ceil(m.gnLuna / 3)		
				pnLuna	   = (m.lnPerioada - 1) * 3 + 1
			ELSE
				pnLuna = 1
			ENDIF  	
			pnAn	   = m.gnAn
		
			lddata1	= Date(m.pnAn, m.pnLuna, 1)
			lddata2	= Date(m.gnAn, m.gnLuna, 1)
		
			pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn))
			TEXT to lcSelect textmerge noshow
			select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract,
		       (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire,
		        SUM(v.TOTCTVA) AS TOTCTVA,
				SUM(v.CEB) AS CEB, SUM(v.CET) AS CET, 
				SUM(v.CEBB) AS CEBB, SUM(v.CEBT) AS CEBT,
				SUM(v.CESB) AS CESB, SUM(v.CEST) AS CEST,		
				SUM(v.CEN) AS CEN,
				SUM(v.CESC) AS CESC,
				SUM(v.FOSCN) AS FOSCN, 
				SUM(v.FO21B) AS FO21B, SUM(v.FO21T) AS FO21T, SUM(v.FO11B) AS FO11B, SUM(v.FO11T) AS FO11T, 
				SUM(v.FO24B) AS FO24B, SUM(v.FO24T) AS FO24T, SUM(v.FO20B) AS FO20B, SUM(v.FO20T) AS FO20T, 
				SUM(v.FO19B) AS FO19B, SUM(v.FO19T) AS FO19T, SUM(v.FO09B) AS FO09B, SUM(v.FO09T) AS FO09T,
				SUM(v.XX21TIB) AS XX21TIB, SUM(v.XX21TIT) AS XX21TIT,SUM(v.XX11TIB) AS XX11TIB, SUM(v.XX11TIT) AS XX11TIT,		
				SUM(v.XX19TIB) AS XX19TIB, SUM(v.XX19TIT) AS XX19TIT,SUM(v.XX9TIB) AS XX9TIB, SUM(v.XX9TIT) AS XX9TIT,		
				SUM(v.ROSCN) AS ROSCN,
				SUM(v.RO11B) AS RO11B, SUM(v.RO11T) AS RO11T, SUM(v.RO21B) AS RO21B, SUM(v.RO21T) AS RO21T, 
				SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, 		
				SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO09B) AS RO09B, SUM(v.RO09T) AS RO09T, SUM(v.RO05B) AS RO05B, SUM(v.RO05T) AS RO05T,
				Sum(v.ROTN) AS ROTN, Sum(v.ROTN50) AS ROTN50, Sum(v.ROTN100) AS ROTN100,
				SUM(v.TI21B) AS TI21B, SUM(v.TI21T) AS TI21T, SUM(v.TI11B) AS TI11B, SUM(v.TI11T) AS TI11T,
				SUM(v.TI09B) AS TI09B, SUM(v.TI09T) AS TI09T, SUM(v.TI19B) AS TI19B, SUM(v.TI19T) AS TI19T, 
				SUM(v.TI24B) AS TI24B, SUM(v.TI24T) AS TI24T, SUM(v.TI20B) AS TI20B, SUM(v.TI20T) AS TI20T
				FROM (select <<m.pnAn>> as an, <<m.pnLuna>> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l
				left JOIN VJC2010 V on v.an = l.an and v.luna = l.luna
				WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <<Iif(!Empty(m.lcWhere), " and " + m.lcWhere, "")>>
				GROUP BY v.an, v.luna
				ORDER BY v.an, v.luna
			ENDTEXT
		
			lnSucces = goExecutor.oExecute(m.lcSelect, "crsTotal")
			If m.lnSucces < 0
				amessagebox(goExecutor.cEroare, 0 + 16, "Eroare")
			Else
				Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal
				Replace All cod With Int(Val(Dtos(dataact))) In crsTotal
		
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && m.lnMeniu  = 2
		
		*** FORMAT TVA INCASARE 2013
		Select cListRC
		Index On denumire + Str(nract, 14, 0) Tag numeact
		Index On cod Tag cod
		
		update_jtva_coloane('JC')
		
		*** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN
		*** doar pe cele din filtrul curent (interne, import, CE, taxare inversa, total)
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
			(RO11B + RO21B + RO24B + RO20B + RO19B + RO09B + RO05B + ROSCN + TI21B + TI11B+ TI09B + TI19B + TI24B + TI20B + CEB + CEN + CESC + FOSCN + FO21B + FO11B + FO24B + FO20B + FO09B + FO19B + XX21TIB + XX11TIB + XX19TIB + XX9TIB) As BAZA, ;
			(RO11T + RO21T + RO24T + RO20T + RO19T + RO09T + RO05T + TI21T + TI11T + TI09T + TI19T + TI24T + TI20T + CET + FO21T + FO11T  + FO09T + FO19T + FO24T + FO20T + XX21TIT + XX11TIT + XX19TIT + XX9TIT) As TVA, ;
			(RO11NB + RO21NB + RO24NB + RO20NB + RO19NB + RO09NB + RO05NB) As BAZAN, ;
			(RO11NT + RO21NT + RO24NT + RO20NT + RO19NT + RO09NT + RO05NT) As TVAN, ;
			cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ;
			FROM cListRC r ;
			where tip = 0 And TVA_INCASARE = 1 ;
			INTO Cursor cListRCTemp Readwrite
		
		Select cListRCTemp
		Index On id_fact Tag id_fact
		Set Order To
		
		
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		* Pe un calculator statea 10 minute pana facea selectia 
		* Am refacut join-ul ca doua scan-uri
		lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0')))
		
		
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 0 AND tva_incasare = 0
				SCATTER NAME loRC
				WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jc = 1 And (INLIST(ALLTRIM(coloana_jc), 'RO11B','RO21B', 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI21B', 'TI11B', 'TI09BFB', 'TI19BFB', 'TI24B', 'TI20B') OR ;
					 INLIST(ALLTRIM(coloana_jc), 'CE21SB', 'CE21CTB', 'CEBFN', 'CEBFSC','FOSCN', 'FO21B', 'FO11B', 'FO24B', 'FO20B','FO09BVB', 'FO19BVB', 'XX21TIB', 'XX11TIB', 'XX19TIB', 'XX9TIB','ROTN','ROTN50','ROTN100'))
					loRC.cod_tva = ALLTRIM(coloana_jc)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza = Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ;
					Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ;	
					Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;				
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ;
					IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ;
					IIF(loRC.cod_tva = 'TI21B', loRC.TI21B, ;
					IIF(loRC.cod_tva = 'TI11B', loRC.TI11B, ;	
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ;			
					IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBB, ;
					IIF(loRC.cod_tva = 'CE21SB', loRC.CESB, ;	
					IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ;
					IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ;
					IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ;
					IIF(loRC.cod_tva = 'FO21B', loRC.FO21B, ;
					IIF(loRC.cod_tva = 'FO11B', loRC.FO11B, ;
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ;			
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ;
					IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIB, ;	
					IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIB, ;		
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ;			
					0)))))))))))))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ;
					Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ;	
					Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;				
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ;
					IIF(loRC.cod_tva = 'TI21B', loRC.TI21T, ;
					IIF(loRC.cod_tva = 'TI11B', loRC.TI11T, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ;	
					IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBT, ;
					IIF(loRC.cod_tva = 'CE21SB', loRC.CEST, ;	
					IIF(loRC.cod_tva = 'FO21B', loRC.FO21T, ;
					IIF(loRC.cod_tva = 'FO1B', loRC.FO11T, ;	
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ;	
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ;
					IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIT, ;	
					IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIT, ;		
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ;				
					IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ;
					IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ;
					IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ;		
					0))))))))))))))))))))))))))))
		
		*!*				IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
		*!*				ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		
		*** SELECTEZ FACTURILE CU VALOARE 0 pe toate randurile
		WAIT WINDOW 'Facturi fara TVA Incasare cu valoare 0' NOWAIT
		Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ;
			baza, tva ;
			FROM cListRCTemp1 ;
			WHERE BAZA = 0 And TVA = 0 ;
			AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ;	
			INTO CURSOR cListRCTemp2 NOFILTER 
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
		Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'FO19B', EXPLICATIE_TVA = 'ACH. IMP. 19%' Where Left(COD_TVA,5) = 'FO19B'
		Update cListRCTemp1 Set COD_TVA = 'FO09B', EXPLICATIE_TVA = 'ACH. IMP. 9%' Where Left(COD_TVA,5) = 'FO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		* TOATE ACHIZITIILE CE, FARA NEIMPOZABILE (..N) SI SCUTITE (..SC)
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N')
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE19SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE21SB'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,7) = 'CE21CTB'
			
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE
		*** PE FACTURILE TVA_INCASARE POATE APAREA SI TAXARE INVERSA
		WAIT WINDOW 'Facturi TVA 0% exigibile in perioada pentru facturile cu TVA Incasare' NOWAIT
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JC As COD_TVA, J.denumire As EXPLICATIE_TVA, ;
			CAST(Iif(J.COLOANA_JC = 'ROSCN', r.ROSCN, ;
			IIF(J.COLOANA_JC = 'CEBFSC', r.CESC, ;
			IIF(J.COLOANA_JC = 'FOSCN', r.FOSCN, ;
			IIF(J.COLOANA_JC = 'TI21B', r.TI21B, ;	
			IIF(J.COLOANA_JC = 'TI11B', r.TI11B, ;	
			IIF(J.COLOANA_JC = 'TI09BFB', r.TI09B, ;	
			IIF(J.COLOANA_JC = 'TI19BFB', r.TI19B, ;	
			IIF(J.COLOANA_JC = 'TI24B', r.TI24B, ;	
			IIF(J.COLOANA_JC = 'TI20B', r.TI20B, ;
			0))))))))) As N(16, 4)) As BAZA, ;
			CAST(Iif(J.COLOANA_JC = 'ROTN', r.ROTN, ;
			Iif(J.COLOANA_JC = 'ROTN50', r.ROTN50, ;
			Iif(J.COLOANA_JC = 'ROTN100', r.ROTN100, ;	
			IIF(J.COLOANA_JC = 'TI21B', r.TI21T, ;	
			IIF(J.COLOANA_JC = 'TI11B', r.TI11T, ;		
			IIF(J.COLOANA_JC = 'TI09BFB', r.TI09T, ;	
			IIF(J.COLOANA_JC = 'TI19BFB', r.TI19T, ;	
			IIF(J.COLOANA_JC = 'TI24B', r.TI24T, ;	
			IIF(J.COLOANA_JC = 'TI20B', r.TI20T, ;	
			0))))))))) As N(16, 4)) As TVA ;
			FROM cListRC r, JTVA_COLOANE J ;
			WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JC = 1 And !Empty(Nvl(J.COLOANA_JC, '')) And (Nvl(J.COTA_TVA, 0) = 0 OR LEFT(J.COLOANA_JC,2) = 'TI');
			INTO Cursor cListRCTemp1 Readwrite
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Use In (Select('cListRCTemp1'))
		
		*!*	*** Daca am pus filtru in RC, sterg facturile care nu se potrivesc filtrului
		*!*	If !Empty(m.lcWhere)
		*!*		Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
		*!*			(Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) )
		*!*	Endif
		SET STEP ON 
		WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT
		*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
		TEXT to m.lcSql textmerge noshow
			select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jc.id_fact, jc.nract As nract, jc.serie_act, jc.dataact, a.nract As NRACTI, a.dataact As DATAACTI,  fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL,
			J.COTA_TVA, J2.COLOANA_JC As COD_TVA, J2.denumire As EXPLICATIE_TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT,
			(select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factd = a.id_fact and a1.cod = a.cod) as INCASAT2
			from act a left join jc2007 jc on a.id_fact = jc.id_fact
		    left join nom_parteneri p on jc.id_part = p.id_part
			Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana
			LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
			left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
			where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4426' And a.scc = '4428' And Nvl(a.id_jtva_coloana, 0) <> 0
			and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
			ORDER BY a.cod, J2.COLOANA_JC
		ENDTEXT
		
		*!*	round(a.suma * 100 / J.COTA_TVA, 2) As BAZA
		*!*	Round(a.suma * (100 + J.COTA_TVA) / J.COTA_TVA, 2) As INCASAT
		
		llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1")
		
		If m.llSucces
			Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
			Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		
			*** daca am pus filtru in Registru pe Nume sau altceva
			*** sterg incasarile/platile care nu apartin de facturile filtrate
			*** ca sa am doar incasarile/platile care tin de filtru
			If !Empty(m.lcWhere)
				Delete From cListRCTemp1 Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
					(Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRCTemp WHERE !EMPTY(NVL(denumire,'')) )
			Endif
		
			***  ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE
			*** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA
			Select cListRCTemp1
			Go Top
			lnCod = cod
			lnNrAct = nract
			lcSerieAct = NVL(serie_act, '')
			ldDataAct = dataact
			lcDenumire = denumire
			lnNrc = 0
			Scan
				lnNrc = m.lnNrc + 1
				If m.lnCod <> cod Or m.lnNrAct <> nract OR m.lcSerieAct <> NVL(serie_act, '') Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire
					lnNrc = 1
				Endif
				lnCod = cod
				Replace nrc With m.lnNrc
			Endscan
		
			*** adun diferenta la prima baza
			Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ;
				from cListRCTemp1 ;
				group By cod, nract, serie_act, dataact, denumire, INCASAT2 ;
				into Cursor cIncasariTVA
		
			Select cIncasariTVA
			Scan
				lnCod = cod
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')
				ldDataAct = dataact
				lcDenumire = denumire
				lnIncasat = Nvl(INCASAT, 0)
				lnIncasat2 = Nvl(INCASAT2,0)
				lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE
		
				*!*			select cListRcTemp1
				*!*			locate for cod = m.lnCod and nrc = 1
				*!*			if found()
				*!*				lnIdFact = id_fact
				*!*				select cListRcTemp
				*!*				calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0%
				*!*			endif
				Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0%
				lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0)
		
				*** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva)
				*** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta
				If Abs(m.lnDiferenta) > 1
					m.lnDiferenta = 0
				Endif
				If m.lnDiferenta <> 0
					Select cListRCTemp1
					Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1
					If Found()
						Replace INCASAT With INCASAT + m.lnDiferenta,  BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cIncasariTVA'))
		
			Update cListRCTemp1 Set nract = 0 Where Isnull(nract)
			Update cListRCTemp1 Set denumire = '' Where Isnull(denumire)
			Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL)
			Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI)
		
			Select cListRCTemp
			Append From Dbf('cListRcTemp1')
		
			*** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE
			*** bazele exigibile de pe facturile cu TVA INCASARE
			Select nract, serie_act, dataact, denumire, Sum(BAZA) As BAZA ;
				from cListRCTemp ;
				where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ;
				group By nract, serie_act, dataact, denumire ;
				into Cursor cFacturiTVAIncasare
		
			Select cFacturiTVAIncasare
			Scan
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')
				ldDataAct = dataact
				lcDenumire = denumire
				lnBazaFact = BAZA
				*** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati)
				Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And ;
					nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct
		
				lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0)
				If m.lnDiferenta <> 0
					Select cListRCTemp
					Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct ;
						AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct
					If Found()
						Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cFacturiTVAIncasare'))
		
		Endif
		Use In (Select('cListRcTemp1'))
		
		WAIT WINDOW 'Recapitulatie' NOWAIT
		*** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE
		
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 1
				SCATTER NAME loRC
				WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jc = 1 And (INLIST(ALLTRIM(coloana_jc), 'RO11B','RO21B', 'RO24B','RO20B', 'RO19BVB', 'RO09BVB', 'RO05B', 'ROSCN', 'TI21B', 'TI11B','TI09BFB', 'TI19BFB', 'TI24B', 'TI20B') OR ;
					 INLIST(ALLTRIM(coloana_jc), 'CE21SB', 'CE21CTB', 'CEBFN', 'CEBFSC','FOSCN', 'FO21B', 'FO11B', 'FO24B', 'FO20B','FO09BVB', 'FO19BVB', 'XX21TIB', 'XX11TIB', 'XX19TIB', 'XX9TIB','ROTN','ROTN50','ROTN100'))
					loRC.cod_tva = ALLTRIM(coloana_jc)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza = Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ;
					Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ;	
					Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;				
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19B, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09B, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05B, ;
					IIF(loRC.cod_tva = 'ROSCN', loRC.ROSCN, ;
					IIF(loRC.cod_tva = 'TI21B', loRC.TI21B, ;
					IIF(loRC.cod_tva = 'TI11B', loRC.TI11B, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09B, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19B, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24B, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20B, ;	
					IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBB, ;
					IIF(loRC.cod_tva = 'CE21SB', loRC.CESB, ;	
					IIF(loRC.cod_tva = 'CEBFN', loRC.CEN, ;
					IIF(loRC.cod_tva = 'CEBFSC', loRC.CESC, ;
					IIF(loRC.cod_tva = 'FOSCN', loRC.FOSCN, ;
					IIF(loRC.cod_tva = 'FO21B', loRC.FO21B, ;
					IIF(loRC.cod_tva = 'FO11B', loRC.FO11B, ;
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24B, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20B, ;						
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09B, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19B, ;
					IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIB, ;	
					IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIB, ;		
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIB, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIB, ;				
					0)))))))))))))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ;
					Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ;	
					Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;				
					IIF(loRC.cod_tva = 'RO19BVB', loRC.RO19T, ;
					IIF(loRC.cod_tva = 'RO09BVB', loRC.RO09T, ;
					IIF(loRC.cod_tva = 'RO05B', loRC.RO05T, ;
					IIF(loRC.cod_tva = 'TI21B', loRC.TI21T, ;
					IIF(loRC.cod_tva = 'TI11B', loRC.TI11T, ;
					IIF(loRC.cod_tva = 'TI09BFB', loRC.TI09T, ;
					IIF(loRC.cod_tva = 'TI19BFB', loRC.TI19T, ;
					IIF(loRC.cod_tva = 'TI24B', loRC.TI24T, ;
					IIF(loRC.cod_tva = 'TI20B', loRC.TI20T, ;	
					IIF(loRC.cod_tva = 'CE21CTB', loRC.CEBT, ;
					IIF(loRC.cod_tva = 'CE21SB', loRC.CEST, ;
					IIF(loRC.cod_tva = 'FO21B', loRC.FO21T, ;
					IIF(loRC.cod_tva = 'FO11B', loRC.FO11T, ;
					IIF(loRC.cod_tva = 'FO24B', loRC.FO24T, ;
					IIF(loRC.cod_tva = 'FO20B', loRC.FO20T, ;							
					IIF(loRC.cod_tva = 'FO09BVB', loRC.FO09T, ;
					IIF(loRC.cod_tva = 'FO19BVB', loRC.FO19T, ;
					IIF(loRC.cod_tva = 'XX21TIB', loRC.XX21TIT, ;	
					IIF(loRC.cod_tva = 'XX11TIB', loRC.XX11TIT, ;		
					IIF(loRC.cod_tva = 'XX19TIB', loRC.XX19TIT, ;	
					IIF(loRC.cod_tva = 'XX9TIB', loRC.XX9TIT, ;				
					IIF(loRC.cod_tva = 'ROTN', loRC.ROTN, ;
					IIF(loRC.cod_tva = 'ROTN50', loRC.ROTN50, ;
					IIF(loRC.cod_tva = 'ROTN100', loRC.ROTN100, ;		
					0))))))))))))))))))))))))))))
		
					IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
					ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		
		
		WAIT WINDOW 'Completare recapitulatie cu facturi neexigibile' NOWAIT
		*** adaug si lunile care nu au nimic exigibil
		Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ;
			from cListRCTemp1 r ;
			where cod Not In (Select cod From cListRCTemp1  Where !(BAZA = 0 And TVA = 0)) ;
			into Cursor cListRCTemp2
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Update cListRCTemp1 Set COD_TVA = 'RO19B', EXPLICATIE_TVA = 'ACH. INT. 19%' Where Left(COD_TVA,5) = 'RO19B'
		Update cListRCTemp1 Set COD_TVA = 'RO09B', EXPLICATIE_TVA = 'ACH. INT. 9%' Where Left(COD_TVA,5) = 'RO09B'
		
		Update cListRCTemp1 Set COD_TVA = 'TI19B', EXPLICATIE_TVA = 'ACH. TX. INV. 19%' Where Left(COD_TVA,5) = 'TI19B'
		Update cListRCTemp1 Set COD_TVA = 'TI09B', EXPLICATIE_TVA = 'ACH. TX INV. 9%' Where Left(COD_TVA,5) = 'TI09B'
		
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,3) = 'CEB' AND !INLIST(RIGHT(ALLTRIM(COD_TVA), 1), 'C', 'N')
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE19B'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,5) = 'CE9SB'
		Update cListRCTemp1 Set COD_TVA = 'CES', EXPLICATIE_TVA = 'ACH. SERVICII CE' Where Left(COD_TVA,6) = 'CE21SB'
		Update cListRCTemp1 Set COD_TVA = 'CEB', EXPLICATIE_TVA = 'ACH. BUNURI CE' Where Left(COD_TVA,7) = 'CE21CTB'
		
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate
		WAIT WINDOW 'Completare infomatii inregistrari TVA' NOWAIT
		Select cListRCTemp
		Scan For tip = 2
			lcNumeAct = denumire + Str(nract, 14, 0)
			lnCod	  = cod
			If Seek(m.lnCod, 'cListRC', 'cod')
				Replace denumire With cListRC.denumire, nract With cListRC.nract, dataact With cListRC.dataact In cListRCTemp
			Else
				If Seek(m.lcNumeAct, 'cListRC', 'numeact')
					Replace cod With cListRC.cod, dataact With cListRC.dataact In cListRCTemp
				Endif && seek
			Endif && seek
		Endscan
		
		Use In (Select('cListRC'))
		
		Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite
		
		Update cListRC Set tip = 0 Where tip  = 2 && incasarile pe acelasi nivel cu facturile
		Use In (Select('cListRCTemp'))
		
		*** INSUMEZ FACTURILE DUPA NRACT, DATAACT, DENUMIRE
		*!*	SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, min(COD) as COD, min(ID_FACT) as ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		sum(INCASAT) AS INCASAT, sum(TOTCTVA) AS TOTCTVA, sum(TOTFTVATAX) AS TOTFTVATAX, sum(TOTTVATAX) AS TOTTVATAX, sum(BAZA) AS BAZA, sum(TVA) AS TVA, sum(BAZAN) AS BAZAN, sum(TVAN) AS TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip = 0 ;
		*!*		group by TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ;
		*!*	union all ;
		*!*	SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, COD, ID_FACT, TIP, DENUMIRE, NRACT, SERIE_ACT, DATAACT, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip <> 0 ;
		*!*	Into Cursor cListRC ;
		*!*	Order By 9, 7, 6, 5 Readwrite
		
		
		*** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA
		Select cListRC
		Go Top
		lnCod	 = 0
		lcSerieAct = ""
		lnNrAct = 0
		ldDataAct = {}
		lcDenumire = ""
		lnNrCrt	 = 0
		lnNrCrtF = 0
		Scan
			*!*		If m.lnCod <> cod && prima linie din fiecare factura
			If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract Or m.ldDataAct <> dataact Or m.lcDenumire <> denumire && prima linie din fiecare factura
				lnCod	 = cod
				lcSerieAct = serie_act
				lnNrAct = nract
				ldDataAct = dataact
				lcDenumire = denumire
				lnNrCrt	 = m.lnNrCrt + 1
				lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF
			Else && liniile 2..n din facturi
				lnNrCrtF = m.lnNrCrtF + 1
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0
			Endif
		Endscan
		
		*** TOTALURI EXIGIBIL PE COTE TVA
		*** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1
		WAIT WINDOW 'Total exigibil pe cote TVA' NOWAIT
		lnTip = Iif(m.lnMeniu  = 1, 0, 1)
		Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ;
			Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ;
			from cListRC ;
			where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ;
			ORDER By COD_TVA ;
			group By COD_TVA, EXPLICATIE_TVA
		Select cListRC
		
		Use In (Select('JTVA_COLOANE'))
		*** FORMAT TVA INCASARE 2013 ^
		
		If Reccount('cListRC') > 0
			Thisform.AlwaysOnTop = .F.
		
			IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6
				goExport.export2frx([cListRc], [registru_jtva2013])
			ELSE		
				goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.)
			ENDIF 	
			
			Thisform.AlwaysOnTop = .T.
		Endif
		
		Use In (Select('cListRC'))
		
		
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JC],lnLuna,lnAn) && IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		
		*!*		Do inainte With "CUMP2007" In oinainte_de.prg
		
			This._grdbase1.SetFocus
		
			aMESSAGEBOX('Refacerea s-a terminat!',64,"Info refacere")
		Endif
	ENDPROC

	PROCEDURE do_reset
		*Thisform.cbo_tip_jurnal_cump.ListItemId = 1
		
		
		If Not Pemstatus(Thisform,"filtru_pretty",5)
			Thisform.AddProperty("filtru_pretty")
		Endif
		If Not Pemstatus(Thisform,"filtru_pretty_ro",5)
			Thisform.AddProperty("filtru_pretty_ro")
		Endif
		
		Thisform.filtru_pretty=""
		Thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		Thisform.but_start_criterii1.pornit="nu"
		Thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = SELECT()
		
		SELECT actcv
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
		
		If EMPTY(m.lnOptiune)
			Return
		ENDIF
		
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		If INLIST(m.lnOptiune, 1, 4) && un singur nume
			loPartener = Null
			loDate = Createobject("empty")
		
			AddProperty(loDate, "denumire",  m.lcDenumire)
			AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
			AddProperty(loDate, "tip_verificare", IIF(m.lnOptiune = 1, "ANAF_SERVICIU_WEB", "MFIN_AUTO_FARA_CAPTCHA"))
		
			lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		Else
			llDontCloseCursor = .F.
			llExperimental = .F.
			llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
			llMFIN = .T. && verific MFIN pentru toata lumea
			llValidare = .T. && verific algoritmul codurilor fiscale
			llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
			llServiciuWebANAF = .T.
		
			lcFilter = Filter("actcv")
			lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
			Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
				From actcv ;
				Where &lcWhere ;
				Into Cursor crsCoduriFiscale ;
				Order By denumire, cod_fiscal  ;
				Readwrite
		
		
			Local lcXMLParteneri
			lcXMLParteneri = ""
			Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
			Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endif && x = 1
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE grdfooterevent
		LPARAMETERS toObj, tcEvt
		
		IF TYPE('this._grdfooter1') = 'O' 
			IF PEMSTATUS(this._grdfooter1, "eventhandler", 5)
				this._grdfooter1.eventhandler(,toObj,tcEvt)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	ENDPROC

	PROCEDURE inainte_de_do_listare
		If This.lactiv2
			If gnAn >= 2013
				This.do_listare2013()
			Else
				This.do_listare()
			Endif
		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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,nract,serie_act,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+;
			['from ]+gcS+[.vact where 2=2']
		
		Select actcv
		pcTitlu="PLATI LA FACTURA NR. "+Alltrim(Str(nract,14))
		pcfiltru=[id_partd=']+Alltrim(Str(id_part))+[' and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheD=]+Alltrim(Str(nract,14))+[ or nrord=']+Alltrim(Str(nract,14))+[')]+gcCondSucursala
		pcorder=[dataact,serie_act,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.Show(1)
		
		pcTitlu=""
		Thisform.AlwaysOnTop=.T.
		Thisform.but_teRMIN1.Enabled=.T.
		If Used('acn1')
			Use In acn1
		Endif
		Release ORC,poact
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tlAfisareTot
		* tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular
		
		This.lAfisareTot = m.tlAfisareTot
		
		DoDefault()
		if m.gnAn < 2013
			Thisform.cbo_tip_jurnal_cump.ListItemId = Thisform.nlistitemiddef && achizitii din tara
		else
			Thisform.cbo_tip_jurnal_cump.ListItemId = 1	&& complet
		endif 	
		Thisform.do_executa(Thisform.nlistitemiddef)
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		ENDIF
		
		This.cmdTVAIncasare.Visible = !(luna_inchisa Or m.glEMama)
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scd,1,3))='401' or TRIM(SUBSTR(scd,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partd=]+ALLTRIM(STR(id_part))+[ ]+;
			[and (TRIM(SUBSTR(scc,1,3))='401' or TRIM(SUBSTR(scc,1,3))='404') ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		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=denumire
			pcschema=[DATAIREG D,DATAACT D,SERIE_ACT C(10),nract N(20),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),EXPLICATIE_TVA C(100)]
			pcselect=[select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva ]+;
				[from vact]
			pcorder=[dataact,serie_act,nract,id_act]
			pcfiltru=[]
			llAfisare=.F.
			lcGroup = ""
			pcfiltru=[luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+;
				[ and cod=]+Alltrim(Str(cod))+[ and nract=]+Alltrim(Str(nract,14))+;
				[ and dataact=to_date(']+Dtos(dataact)+[','YYYY-MM-DD')] + gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare, lcGroup, .T.)
		
			poact.ca_baza1.afisare()
			Go Top
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			Thisform.ck_nract.SetFocus()
		Endif
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		dodefault(nStyle)
		
		* Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine
		IF this.lAfisareTot
			This.do_reset() && afisarea tuturor inregistrarilo
		ENDIF
		
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
		
		
		*** Inregistrarile selectate GRI
		This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column")
		
		THIS._grdfooter1.attachtogrid(This._grdbase1)
		This._grdfooter1.calcTotal
		this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter
		
		this.WindowState = 2 
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		#define lf CHR(10)
		#define lf2 CHR(10) + CHR(10)
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" 	+ crlf + ; 
						  "Serie act\serie_act\T\none\" 			+ crlf + ;
						  "Nr. act\nract\N\none\"   				+ crlf + ;
						  "Data act\dataact\D\none\"				+ crlf + ;
						  "Data inreg.\dataireg\D\none\"			+ crlf + ;				  
						  "Fel document\fel_document\T\id_fdoc\nom_feldoc" 		+ crlf + ;
						  "Cod Fiscal\cod_fiscal\T\none\" 			+ crlf + ;
					      "Sold TVA Neex.\(RO11NT + RO21NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ;				  
		                 "Perioada\an*12+luna\D1\none\" + crlf + ;
		                 "Data ireg in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ;
		                 "Data ireg nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ;
		                 "Data doc nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ;
						  "EroareTVA\nofiled\E\" 					+ ;
						[ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA -(RO11B + RO11T + RO21B + RO21T + RO19B + RO19T + RO09B + RO09T + RO05B + RO05T + ROSCN + ]  + ;
						[ RO11NB + RO11NT + RO21NB + RO21NT + RO19NB + RO19NT + RO9NB + RO9NT + RO5NB + RO5NT + ] + ;
						[ FO21B + FO21T + FO11B + FO11T + FO19B + FO19T + FO09B + FO09T + FOSCN + ] + ;
						[ CEB + CET + CESC + CEN + ] + ;
						[TI21B + TI21T + TI11B + TI11T + TI19B + TI19T + TI09B + TI09T + XX21TIB + XX21TIT + XX11TIB + XX11TIT + XX19TIB + XX19TIT + XX9TIB + XX9TIT)) >= 1) OR ] + ;
						[ABS(RO11T) NOT BETWEEN ROUND(0.108*ABS(RO11B),?gnPc) AND ROUND(0.113*ABS(RO11B),?gnPc) OR ] + ;
						[ABS(RO21T) NOT BETWEEN ROUND(0.208*ABS(RO21B),?gnPc) AND ROUND(0.213*ABS(RO21B),?gnPc) OR ] + ;				
						[ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ;
						[ABS(RO09T) NOT BETWEEN ROUND(0.088*ABS(RO09B),?gnPc) AND ROUND(0.093*ABS(RO09B),?gnPc) OR ] + ;
						[ABS(RO05T) NOT BETWEEN ROUND(0.048*ABS(RO05B),?gnPc) AND ROUND(0.053*ABS(RO05B),?gnPc) OR ] + ;		
						[ABS(RO11NT) NOT BETWEEN ROUND(0.108*ABS(RO11NB),?gnPc) AND ROUND(0.113*ABS(RO11NB),?gnPc) OR ] + ;
						[ABS(RO21NT) NOT BETWEEN ROUND(0.208*ABS(RO21NB),?gnPc) AND ROUND(0.213*ABS(RO21NB),?gnPc) OR ] + ;				
						[ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ;								
						[ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ;
						[ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc) OR ] + ;				
						[ABS(FO21T) NOT BETWEEN ROUND(0.208*ABS(FO21B),?gnPc) AND ROUND(0.213*ABS(FO21B),?gnPc) OR ] + ;
						[ABS(FO11T) NOT BETWEEN ROUND(0.108*ABS(FO11B),?gnPc) AND ROUND(0.113*ABS(FO11B),?gnPc) OR ] + ;				
						[ABS(FO19T) NOT BETWEEN ROUND(0.188*ABS(FO19B),?gnPc) AND ROUND(0.193*ABS(FO19B),?gnPc) OR ] + ;				
						[ABS(FO09T) NOT BETWEEN ROUND(0.088*ABS(FO09B),?gnPc) AND ROUND(0.093*ABS(FO09B),?gnPc) OR ] + ;
						[ABS(TI21T) NOT BETWEEN ROUND(0.208*ABS(TI21B),?gnPc) AND ROUND(0.213*ABS(TI21B),?gnPc) OR ] + ;
						[ABS(TI11T) NOT BETWEEN ROUND(0.108*ABS(TI11B),?gnPc) AND ROUND(0.113*ABS(TI11B),?gnPc) OR ] + ;				
						[ABS(TI19T) NOT BETWEEN ROUND(0.188*ABS(TI19B),?gnPc) AND ROUND(0.193*ABS(TI19B),?gnPc) OR ] + ;				
						[ABS(TI09T) NOT BETWEEN ROUND(0.088*ABS(TI09B),?gnPc) AND ROUND(0.093*ABS(TI09B),?gnPc) OR ] + ;				
						[ABS(XX21TIT) NOT BETWEEN ROUND(0.208*ABS(XX21TIB),?gnPc) AND ROUND(0.213*ABS(XX21TIB),?gnPc) OR ] + ;		
						[ABS(XX11TIT) NOT BETWEEN ROUND(0.108*ABS(XX11TIB),?gnPc) AND ROUND(0.113*ABS(XX11TIB),?gnPc) OR ] + ;				
						[ABS(XX19TIT) NOT BETWEEN ROUND(0.188*ABS(XX19TIB),?gnPc) AND ROUND(0.193*ABS(XX19TIB),?gnPc) OR ] + ;
						[ABS(XX9TIT) NOT BETWEEN ROUND(0.088*ABS(XX9TIB),?gnPc) AND ROUND(0.093*ABS(XX9TIB),?gnPc))\-\] + ;
						"Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ;	
						"Plati fara TVA Incasare\nofiled\E\2=2\-\" + ;
						"Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ;
						"este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ;
						"Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ;
						"Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ;
						"Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ;
						"Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ;
						"Exigibilizati sumele ramase neexigibile." + crlf + ;
				IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
		DODEFAULT()
		
		
		
		
	ENDPROC

	PROCEDURE cbo_tip_jurnal_cump.Valid
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE cmdTVAIncasare.Click
		*!* 24.05.2011
		*!* marius.mutu
		*!* nu se pot introduce documente de pe mama
		
		*!*	25.08.2014
		*!*	marius.mutu
		*!*	se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
		SET STEP ON 
		Local lcXMLFacturi
		If !(luna_inchisa Or m.glEMama)
			Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO09NB+RO05NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO09NT+RO05NT) as soldn, ;
				RO11NB+RO11NT as soldn11, RO21NB+RO21NT as soldn21, ;
				RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, ;
				RO19NB+RO19NT as soldn19, RO09NB+RO09NT as soldn9, ;
				RO05NB+RO05NT as soldn5;
				From actcv With (Buffering = .T.) ;
				Where ales = 1 ;
				Into Cursor crsTVAIncasareTemp
				
			If _Tally > 0
				Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1")
				Use In (Select('crsTVAIncasareTemp'))
		
				Do inchidere_tva_sold With 'JC', m.lcXMLFacturi IN oproceduri_inchidere.prg
			Endif
			Use In (Select('crsTVAIncasareTemp'))
		Endif
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFdoc.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo11b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo11t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.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="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_notacontab" 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
		*p: nproctvared
		*p: nproctvast
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = _grdbase1
		DoCreate = .T.
		Height = 500
		Name = "frm_regvanz"
		nproctvared = 0
		nproctvast = 0
		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
		Gridsort1.Name = "Gridsort1"
	*</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 = .F., ;
		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 = .F., ;
		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 = .F., ;
		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 = .F., ;
		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, ;
		lvizibil = .F., ;
		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=.t.
		
		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 (not((ROUND(ABS(TOTFTVAM)*(" + ALLTRIM(STR(this.nProcTvaSt,5,2)) + "-1.01),"+ALLTRIM(STR(gnPc))+")<=ABS(TVAM) and ABS(TVAM)<=ROUND(ABS(TOTFTVAM)*(" + ALLTRIM(STR(this.nProcTvaSt,5,2)) + "-0.99),"+ALLTRIM(STR(gnPc))+"))) " +;
		                          "OR not((ROUND(ABS(TOTFTVAI)*(" + ALLTRIM(STR(this.nProcTvaRed,5,2)) + "-1.01),"+ALLTRIM(STR(gnPc))+")<=ABS(TVAI) and ABS(TVAI)<=ROUND(ABS(TOTFTVAI)*(" + ALLTRIM(STR(this.nProcTvaRed,5,2)) + "-0.99),"+ALLTRIM(STR(gnPc))+"))) or ABS((totftvam+totftvai+neimpozab+tvai+tvam)-totctva)>1)"
		
		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
			aMESSAGEBOX("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
		PRIVATE 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
		
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA],[0],[4427],lnLuna,lnAn) && IN orefaceri.prg
		IF lnSucces > 0
			THISFORM.actualizeaza_grid1()
			*** verificare INAINTE_DE
			lcCoresp = ['4111']
			lcExceptii = ['667,622']
			do inainte WITH "VANZ",,,,lcExceptii,lcCoresp in oinainte_de.prg
		
			*this.LockScreen = .f.
			this._grdbase1.SetFocus 
			aMESSAGEBOX('Refacerea s-a terminat!',0+64,"Info refacere")
		ENDIF 
		
		
		
	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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		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='4111 '
		*!*	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)='4111']
		*!*		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		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 TRIM(SUBSTR(scd,1,3))='4111' and TRIM(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 TRIM(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 (TRIM(SUBSTR(scd,1,3))='401' or TRIM(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 TRIM(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 TRIM(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 (TRIM(SUBSTR(scc,1,3))='401' or TRIM(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 TRIM(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 TRIM(SUBSTR(scc,1,3))='4111' and TRIM(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 TRIM(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 TRIM(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(20),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
			aMessagebox("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

DEFINE CLASS frm_regvanz2007 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="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerie_act.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro5b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro5b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro5t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cro5t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*a: aconditie[1,4]
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		filtru_pretty_ro = 
		Height = 500
		Name = "frm_regvanz2007"
		Width = 795
		WindowState = 2
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_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.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 16
		Lb_titlu_alb_b121.Top = 0
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 2
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 23, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 53, ;
		Height = 384, ;
		HighlightStyle = 2, ;
		Left = 12, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		RecordSource = "actcv", ;
		TabIndex = 9, ;
		Top = 72, ;
		Width = 768, ;
		ZOrderSet = 9, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "fel_document", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cFdoc", ;
		Column1.Width = 66, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cDataact", ;
		Column2.Width = 52, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "nract", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cNract", ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cDenumire", ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cCod_fiscal", ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.InputMask = (get_mask(12,gnPA)), ;
		Column6.Name = "cTotctva", ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "ro19b", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.InputMask = (get_mask(12,gnPA)), ;
		Column7.Name = "cRo19b", ;
		Column7.Width = 76, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "ro19t", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.InputMask = (get_mask(12,gnPA)), ;
		Column8.Name = "cRo19t", ;
		Column8.Width = 84, ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "ro9b", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.InputMask = (get_mask(12,gnPA)), ;
		Column9.Name = "cRo9b", ;
		Column9.Width = 89, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "ro9t", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.InputMask = (get_mask(12,gnPA)), ;
		Column10.Name = "cRo9t", ;
		Column10.Width = 85, ;
		Column11.ColumnOrder = 15, ;
		Column11.ControlSource = "roti", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.InputMask = (get_mask(12,gnPA)), ;
		Column11.Name = "cRoti", ;
		Column11.Width = 93, ;
		Column12.ColumnOrder = 16, ;
		Column12.ControlSource = "cescdd1", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.InputMask = (get_mask(12,gnPA)), ;
		Column12.Name = "cCescdd1", ;
		Column12.Width = 109, ;
		Column13.ColumnOrder = 17, ;
		Column13.ControlSource = "cescdd2", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.InputMask = (get_mask(12,gnPA)), ;
		Column13.Name = "cCescdd2", ;
		Column13.Width = 102, ;
		Column14.ColumnOrder = 18, ;
		Column14.ControlSource = "wrscdd", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.InputMask = (get_mask(12,gnPA)), ;
		Column14.Name = "cWrscdd", ;
		Column15.ColumnOrder = 19, ;
		Column15.ControlSource = "fodd", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.InputMask = (get_mask(12,gnPA)), ;
		Column15.Name = "cFodd", ;
		Column15.Width = 88, ;
		Column16.ColumnOrder = 20, ;
		Column16.ControlSource = "fofdd", ;
		Column16.FontName = "Arial Narrow", ;
		Column16.InputMask = (get_mask(12,gnPA)), ;
		Column16.Name = "cFofdd", ;
		Column16.Width = 93, ;
		Column17.ColumnOrder = 21, ;
		Column17.ControlSource = "wrscfdd", ;
		Column17.FontName = "Arial Narrow", ;
		Column17.InputMask = (get_mask(12,gnPA)), ;
		Column17.Name = "cWrscfdd", ;
		Column17.Width = 77, ;
		Column18.ColumnOrder = 22, ;
		Column18.ControlSource = "wrn", ;
		Column18.FontName = "Arial Narrow", ;
		Column18.InputMask = (get_mask(12,gnPA)), ;
		Column18.Name = "cWrn", ;
		Column18.Width = 85, ;
		Column19.ColumnOrder = 4, ;
		Column19.ControlSource = "serie_act", ;
		Column19.FontName = "Arial Narrow", ;
		Column19.Name = "cSerie_act", ;
		Column19.Width = 43, ;
		Column20.ColumnOrder = 23, ;
		Column20.ControlSource = "sucursala", ;
		Column20.FontName = "Arial Narrow", ;
		Column20.Name = "cSucursala", ;
		Column21.ColumnOrder = 13, ;
		Column21.ControlSource = "ro5b", ;
		Column21.FontName = "Arial Narrow", ;
		Column21.InputMask = (get_mask(12,gnPA)), ;
		Column21.Name = "cro5b", ;
		Column22.ColumnOrder = 14, ;
		Column22.ControlSource = "ro5t", ;
		Column22.FontName = "Arial Narrow", ;
		Column22.InputMask = (get_mask(12,gnPA)), ;
		Column22.Name = "cro5t", ;
		Column23.ColumnOrder = 3, ;
		Column23.ControlSource = "dataireg", ;
		Column23.FontName = "Arial Narrow", ;
		Column23.Name = "cDataIreg", ;
		Column23.Width = 71
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd1.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.cCescdd2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd2.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.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F. / C.N.P.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.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.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.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.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.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.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.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.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.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.cFodd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO cu drept de deducere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFodd.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.cFofdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO fara drept de deducere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFofdd.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.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.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.cRo19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19b.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.cRo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 19%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19t.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.cro5b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 5%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cro5b.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.cro5t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cro5t.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.cRo9b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9b.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.cRo9t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 9%=", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9t.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.cRoti.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern - Taxare inversa", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRoti.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.cSerie_act.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerie_act.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.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.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.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.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.cWrn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrn.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.cWrscdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Alte livr. cu drept de deducere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscdd.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.cWrscfdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scutite fara drept de deducere", ;
		FontName = "Arial Narrow", ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscfdd.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 '_grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cfdoc, ;
		csourcegrid = _grdbase1, ;
		csumcolumns = cTotctva,cRo19b,cRo19t,cRo9b,cRo9t,cRo5b,cRo5t,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 25, ;
		Left = 12, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 456, ;
		Width = 768
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 674, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 584, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 614, ;
		Name = "But_start_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 645, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Validare coduri fiscale", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_vanz", ;
		RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ;
		RowSourceType = 1, ;
		TabIndex = 15, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 41, ;
		Width = 254
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 385, ;
		Name = "Gridextra1", ;
		Top = 51, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 17, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters lcFiltru
		If Empty(lcFiltru)
			lcFiltru = povanz.ca_baza1.cfiltru
		Endif
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		
		save_grid_tag(Thisform._grdbase1)
		povanz.ca_baza1.cfiltru=lcFiltru
		povanz.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdbase1)
		Thisform._grdfooter1.calcTotal()
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
	ENDPROC

	PROCEDURE butdrept
		*!* 16.04.2007
		x = xmenu("\<Note contabile;\<Incasari/Plati;Istoric \<debit-credit")
		DO CASE 
			CASE x = 1
				this.notacontab()
			CASE x = 2 
				this.incaspl()
			CASE x = 3
				this.ist_deb_cred()
		ENDCASE 
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		ELSE 
			lcFiltru = SUBSTR(gcCondSucursala, 6)	
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_vanz.ListItemId
		
		*!*	If Thisform.ck_dataact.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_dataact.filtru
		*!*	Endif
		
		*!*	If Thisform.ck_codfiscal.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_codfiscal.filtru
		*!*	Endif
		
		*!*	If Thisform.ck_nract.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_nract.filtru
		*!*	Endif
		
		*!*	If Thisform.ck_denumire.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_denumire.filtru
		*!*	Endif
		
		*!*	If Thisform.ck_fdoc.Value=1
		*!*		lcFiltru = lcFiltru + Thisform.ck_fdoc.filtru
		*!*	Endif
		
		
		*!*	If Thisform.ck_eroare_tva.Value = 1
		*!*		lcFiltru = lcFiltru + [ AND ABS(TOTCTVA - (RO19B + RO19T + RO9B + RO9T + ROTI + CESCDD1 + CESCDD2 +] + ;
		*!*			[WRSCDD + FODD + FOFDD + WRSCFDD + WRN)) >= 1 AND ] + ;
		*!*			[ABS(RO19T) BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) AND ] + ;
		*!*			[ABS(RO9T) BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc)]
		*!*	Endif
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI]
			Case lnOptiune = 2 && Livrari taxabile intern
				lcFiltru = lcFiltru+ [ and (ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN]
			Case lnOptiune = 3 && Livrari cu taxare inversa
				lcFiltru = lcFiltru + [ and (roti<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA]
			Case lnOptiune = 4 && Livrari scutite cu drept de deducere
				lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE]
			Case lnOptiune = 5 && Livrari scutite fara drept de deducere
				lcFiltru = lcFiltru + [ and (wrscfdd<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE]
			Case lnOptiune = 6 && Livrari in afara Romaniei
				lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI]
			Case lnOptiune = 7 && Operatiuni neimpozabile
				lcFiltru = lcFiltru + [ and (wrn<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE]
		Endcase
		
		If (This.filtru_pretty#"none")
			Thisform.actualizeaza_grid1(lcFiltru)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
			Else
		
			Endif
		Endif
		
	ENDPROC

	PROCEDURE do_excel
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
		
		return
		
		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
		Private pctitlu, pcSubtitlu, pcdataora
		lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1
		
		x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans")
		
		pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1)))
		Store "" To pcSubtitlu
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu = This.filtru_pretty_ro + lctext
		
		
		*!*	pcdataora = get_ora(2)
		
		Do Case
			Case lnTipJurnal = 1
				pcSubtitlu = "LIVRARI TAXABILE LA INTERN"
			Case lnTipJurnal = 2
				pcSubtitlu = "LIVRARI CU TAXARE INVERSA"
			Case lnTipJurnal = 3
				pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE"
			Case lnTipJurnal = 4
				pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE"
			Case lnTipJurnal = 5
				pcSubtitlu = "LIVRARI IN AFARA ROMANIEI"
			Case lnTipJurnal = 6
				pcSubtitlu = "OPERATIUNI NEIMPOZABILE"
		Endcase
		
		If x = 1
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If x = 3
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			If lnTipJurnal <> 0
				Do Case
					Case lnTipJurnal = 1 && Livrari taxabile intern
						lcWhere = "(ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )"
					Case lnTipJurnal = 2 && Livrari cu taxare inversa
						lcWhere = "(roti<>0)"
					Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere
						lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)"
					Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere
						lcWhere = "(wrscfdd<>0)"
					Case lnTipJurnal = 5 && Livrari in afara Romaniei
						lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)"
					Case lnTipJurnal = 6 && Operatiuni neimpozabile
						lcWhere = "(wrn<>0)"
				Endcase
			Else
				lcWhere = ''
			Endif
		
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CESCDD1+CEOPTR) AS CESCDD1, SUM(CESCDD2) AS CESCDD2, ] + ;
				[SUM(FODD+CESVDD) AS FODD, SUM(FOFDD+CESVFDD) AS FOFDD, ] + ;
				[SUM(CESVFS) AS CESVFS,] + ;
				[SUM(ROTI) AS ROTI, ] + ;
				[SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ;
				[SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+;
				[SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ;
				[ FROM JV2007 ] + ;
				[ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				gcCondSucursala + ;
				[ GROUP BY an, luna]
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && x = 3
		
		If x = 5
			x = raport_regvanz2007_restrans(x,[actcv])
		Endif
		
		If Inlist(x,1,3,5)
			*!*		If Reccount('cListRC') = 0
			*!*			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
			*!*		Else
			*!*			Thisform.AlwaysOnTop=.F.
			*!*			Select cListRC
			*!*			Report Format registru_vanzari_jtva2007 To Printer Prompt Preview
			*!*			Thisform.AlwaysOnTop=.T.
			*!*		Endif
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRC],[registru_vanzari_jtva2007])
		
			*!*		registru vanzari 5%
			Select cListRC
			Set Filter To ro5b<>0 Or ro5t<>0
			GO TOP 
			If  !EMPTY(denumire)
				goExport.export2frx([cListRC],[registru_vanzari_jtva2007_5])
			Endif
			*!*		registru vanzari 5% ^
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		*** verificare INAINTE_DE
			lcCoresp = ['4111']
			lcExceptii = ['667,622']
		*!*		Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg
		
		*this.LockScreen = .f.
			This._grdbase1.SetFocus
			aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere")
		Endif
		
		
	ENDPROC

	PROCEDURE do_reset
		*!*	Thisform.ck_dataact.Value=0
		*!*	*Thisform.ck_fel_document.Value=0
		*!*	Thisform.ck_nract.Value=0
		*!*	Thisform.ck_denumire.Value=0
		*!*	Thisform.ck_eROARE_TVA.Value=0
		Thisform.cbo_tip_jurnal_vanz.ListItemId = 1
		
		IF NOT PEMSTATUS(thisform,"filtru_pretty",5)
		thisform.AddProperty("filtru_pretty")
		ENDIF
		IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5)
		thisform.AddProperty("filtru_pretty_ro")
		ENDIF
		
		thisform.filtru_pretty=""
		thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		thisform.but_start_criterii1.pornit="nu"
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		*!* 20.08.2009
		*!* marius.mutu
		*!* imbunatatit verificarea CIF/CNP + validare atribut TVA pe site-ul VIES
		
		#Define CRLF Chr(13) + Chr(10)
		Local lcFile, lcRun, lcSelect, llPlatitorTVA, lcCoduriEronate
		Local X, llVerificarePlatitorTVA, lcWhere, lcCodFiscal, llAtributFiscalRO
		Local lcXml, loPartener, lcEroare, lcKey
		
		lcSelect = Select()
		X = XMENU('Inregistrarea curenta - verificare validitate;Inregistrarea curenta - verificare validitate + platitor TVA;\-;Toate inregistrarile - verificare validitate;Toate inregistrarile - verificare validitate + platitor TVA')
		IF !BETWEEN(x,1,5)
			RETURN
		ENDIF 
		llVerificarePlatitorTVA = INLIST(x, 2, 5)
		*!*	aMessagebox('Se verifica si calitatea de platitor TVA?' + CRLF + ;
		*!*		'Atentie verificarea se face pe internet si este posibil ca serviciul web sa functioneze incet!',4+32, _Screen.Caption) = 6
		
		lcWhere = IIF(INLIST(x, 1, 2), "recno() = " + ALLTRIM(STR(RECNO())), ".T.")
		Select Distinct COD_FISCAL, denumire, .T. As IsCIF, .F. As codvalid ;
			FROM ACTCV ;
			WHERE &lcWhere ;
			INTO Cursor crsCoduriFiscale ;
			ORDER By denumire, COD_FISCAL  ;
			READWRITE
		
		*!* VERIFIC CIF, CNP VALID
		Local loVerificare
		*!*	glRCViesURL = .T.
		*!*	gcRCVIESURL = "http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/VIES"
		loVerificare = Createobject("verificarecod", glRCViesURL, glRCMfinURL, gcRCRomfastURL, gcRCMfinanteURL, gcRCMfinanteParams) && validare.prg
		
		
		Select crsCoduriFiscale
		Replace All IsCIF With loVerificare.IsCIF(COD_FISCAL)
		Replace All codvalid With Iif(IsCIF, loVerificare.validare('CIF', COD_FISCAL), loVerificare.validare('CNP', COD_FISCAL))
		
		lcCoduriEronate = ""
		Set Textmerge On To Memvar lcCoduriEronate
		
		\CODURI FISCALE ERONATE
		Select crsCoduriFiscale
		Scan For !codvalid
			\<<ALLTRIM(DENUMIRE)>>, <<ALLTRIM(COD_FISCAL)>>
		Endscan
		
		*!* VERIFIC CODURILE FISCALE VALIDE PENTRU ATRIBUTUL FISCAL IN VIES
		If llVerificarePlatitorTVA
			\
			\PARTENERI CU ATRIBUT TVA RO ERONAT
			Select crsCoduriFiscale
			Scan For codvalid AND IsCIF
		
				lcCodFiscal = Alltrim(Upper(COD_FISCAL))
				llAtributFiscalRO = LEFT(lcCodFiscal,2) = 'RO'
				
				WAIT WINDOW ALLTRIM(denumire) + ' ' + TRANSFORM(ROUND(RECNO()/RECCOUNT()*100,2)) + ' %' NOWAIT 
						
				lcXml = loVerificare.Verificare('CIF', lcCodFiscal, 'VIES')
				IF TYPE('loVerificare.oEntitate') = 'O'
					loPartener = loVerificare.oEntitate
					llPlatitorTva = loPartener.platitortva
					lcEroare = loPartener.eroare
					IF !EMPTY(lcEroare) AND aMESSAGEBOX(lcEroare + CRLF + 'Doriti sa continuati?', 4+ 32, _screen.caption) <> 6
						EXIT
					ENDIF 
		
					IF (llAtributFiscalRO AND !llPlatitorTVA) OR (!llAtributFiscalRO AND llPlatitorTVA)
						\<<ALLTRIM(DENUMIRE)>>, <<ALLTRIM(COD_FISCAL)>>, <<IIF(llPlatitorTVA, 'PLATITOR TVA', 'NEPLATITOR TVA')>>	
					ENDIF 
				ENDIF 	
		
				lcKey = INKEY(0.1)
				IF lcKey = 27 && ESC
					IF aMESSAGEBOX('Doriti sa intrerupeti operatia?', 4+32, _screen.Caption) = 6
						EXIT 
					ENDIF 
				ENDIF 	
			Endscan
		Endif
		Set Textmerge To
		
		Use In Select('crsCoduriFiscale')
		lcFile = gcTempPath + 'coduri_fiscale_eronate.txt'
		Strtofile(lcCoduriEronate,lcFile)
		lcRun = [RUN /n notepad "] + lcFile + ["]
		&lcRun
		
		Select (lcSelect)
		
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia '+]+;
			['from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		Select actcv
		pcTitlu="INCASARI LA FACTURA NR.  "+Alltrim(Str(nract))
		pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala
		gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		poact.ca_baza1.afisare()
		
		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()
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		ENDIF
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		
		pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+;
			[extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partD=]+ALLTRIM(STR(id_part))+[ ]+;
			[and TRIM(SUBSTR(scc,1,3))='4111' and TRIM(SUBSTR(scc,1,3))='4118' ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		
		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,SERIE_ACT C(10),nract N(20),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,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod '+]+;
				['from ]+gcS+[.vact where 2=2']
			pcorder=[dataact,serie_act,nract]
			llAfisare=.F.
			lunanan=gnLuna+gnAn*12
			THISFORM.but_TERMIN1.ENABLED=.F.
			THISFORM.ALWAYSONTOP=.F.
		
			SELE actcv
			pcnume=denumire
			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 (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +;
				[ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
			poact.ca_baza1.afisare()
			GO TOP
		
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			THISFORM.ck_nract.SETFOCUS()
		ENDIF
		
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ;
						 "Serie act\serie_act\T\none\" + crlf + ;
						 "Nr. act\nract\N\none\"+ crlf + ;
						 "Data act\dataact\D\none\" + crlf + ;
						 "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ;
						 "Cod Fiscal\cod_fiscal\T\none\" + crlf + ;
		                 "Perioada\an*12+luna\D1\none\" + crlf + ;						 
						 "EroareTVA\nofiled\E\" + ;
						[ ABS(TOTCTVA - (RO19B + RO19T + RO9B + RO9T + RO5B + RO5T + ROTI + CESCDD1 + CESCDD2 +] + ;
						[WRSCDD + FODD + FOFDD + WRSCFDD + WRN)) >= 1 OR ] + ;
						[ABS(RO19T) BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ;
						[ABS(RO9T) BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc)\] + crlf + ;
						IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
					*	"Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\"
		DODEFAULT()
		
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Init
		This.ListItemId = 1
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Valid
		thisform.do_cauta()
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFdoc.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo19b.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo19t.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9b.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9t.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRoti.Text1.DblClick
		thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.Text1.DblClick
		thisform.butdrept()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_regvanz2007_restrans 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="grd_feldocument" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_feldocument.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_feldocument.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_feldocument.cFel_document.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_feldocument.cFel_document.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="opt_zile" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_explicatie1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_parteneri.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_explicatie2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_select_adv1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_denumire" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 505
		Name = "frm_regvanz2007_restrans"
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 67
		Lb_titlu_alb_b121.Caption = "REGISTRU VANZARI RESTRANS"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Left = 344
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
		Left = 314, ;
		Name = "BUT_RENUNT1", ;
		TabIndex = 6, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_denumire' AS clb_tx_simplu WITH ;
		Left = 17, ;
		Name = "Clb_denumire", ;
		Top = 218, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Denumire", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_select_adv1' AS cmd_select_adv WITH ;
		ccoloana = ales, ;
		cgrid = thisform.grd_parteneri, ;
		Left = 12, ;
		Name = "Cmd_select_adv1", ;
		TabIndex = 3, ;
		Top = 409
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grd_feldocument' AS _grdbase WITH ;
		ColumnCount = 2, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 135, ;
		Left = 12, ;
		Name = "grd_feldocument", ;
		Panel = 1, ;
		RecordSource = "crsdocumente", ;
		TabIndex = 1, ;
		Top = 52, ;
		Width = 348, ;
		Column1.ControlSource = "ales", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cAles", ;
		Column1.Sparse = .F., ;
		Column1.Width = 30, ;
		Column2.ControlSource = "fel_document", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cFel_document", ;
		Column2.Width = 285
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grd_feldocument.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "", ;
		Centered = .T., ;
		FontName = "Arial Narrow", ;
		Left = 23, ;
		Name = "_checkbox1", ;
		Top = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'grd_feldocument.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_feldocument.cFel_document.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_feldocument.cFel_document.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 'grd_parteneri' AS _grdbase WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 152, ;
		Left = 12, ;
		Name = "grd_parteneri", ;
		Panel = 1, ;
		RecordSource = "crsparteneri", ;
		TabIndex = 2, ;
		Top = 252, ;
		Width = 348, ;
		Column1.ControlSource = "ales", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cAles", ;
		Column1.Sparse = .F., ;
		Column1.Width = 30, ;
		Column2.ControlSource = "denumire", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cDenumire", ;
		Column2.Width = 209, ;
		Column3.ControlSource = "cod_fiscal", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cCod_fiscal"
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grd_parteneri.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		AutoSize = .F., ;
		Caption = "", ;
		Centered = .T., ;
		FontName = "Arial Narrow", ;
		Left = 23, ;
		Name = "_checkbox1", ;
		Top = 34
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'grd_parteneri.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_parteneri.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F./C.N.P.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_parteneri.cCod_fiscal.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 'grd_parteneri.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_parteneri.cDenumire.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 'Lb_explicatie1' AS lb_simplu WITH ;
		Caption = "Alegeti felurile de document care se vor cumula", ;
		Left = 12, ;
		Name = "Lb_explicatie1", ;
		TabIndex = 8, ;
		Top = 35
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_explicatie2' AS lb_simplu WITH ;
		Caption = "Alegeti partenerii pentru care se vor cumula tipurile alese mai sus", ;
		Left = 12, ;
		Name = "Lb_explicatie2", ;
		TabIndex = 9, ;
		Top = 197
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'opt_zile' AS _optiongrup WITH ;
		Left = 12, ;
		Name = "opt_zile", ;
		TabIndex = 4, ;
		Top = 444, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Se cumuleaza pe toata perioada", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Se cumuleaza in fiecare zi din perioada", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
	
	PROCEDURE inainte_de_do_termin
		Local llReturn,lnDocAles,lnPartAles
		Store .T. To llReturn
		
		Select crsdocumente
		lnRecno = Recno()
		Calculate Cnt() For ales = 1 To lnDocAles
		Go (lnRecno)
		
		Select crsparteneri
		lnRecno = Recno()
		Calculate Cnt() For ales = 1 To lnPartAles
		Go (lnRecno)
		
		pnTipZile = This.opt_zile.Value
		
		Do Case
		Case lnDocAles = 0
			amessagebox("Nu ati ales tipul de document pentru care se va face cumularea!",48,"Atentie")
			This.grd_feldocument.SetFocus()
			llReturn = .F.
		Case lnPartAles = 0
			amessagebox("Nu ati ales partenerii pentru care se va face cumularea!",48,"Atentie")
			This.grd_parteneri.SetFocus()
			llReturn = .F.
		Otherwise
			llReturn = .T.
		Endcase
		
		Return llReturn
	ENDPROC

	PROCEDURE Clb_denumire.Text_simplu1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode = 13 And !Empty(This.Value)
			Nodefault
			Select crsparteneri
			Locate For Like(Alltrim(This.Value)+[*],denumire)
			If !Found()
				Go Top
			Endif
			Thisform.grd_parteneri.SetFocus()
		Else
			DoDefault()
		Endif
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_regvanz2010 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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo24t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO24NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column44.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column44.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO20NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column52.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column52.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column53.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column53.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column54.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column54.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: do_listare2013
		*m: grdfooterevent
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*p: lafisaretot		&& Se afiseaza toate inregistrarile lal intrarea in formular
		*p: lvfp9
		*a: aconditie[1,4]
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		filtru_pretty_ro = 
		Height = 500
		lafisaretot = .F.
		lvfp9 = .T.
		Name = "frm_regvanz2010"
		Width = 795
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="lafisaretot" display="lAfisareTot"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_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.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 16
		Lb_titlu_alb_b121.Top = 0
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 2
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 54, ;
		Comment = "*:OnResize=ss", ;
		DeleteMark = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 49, ;
		Height = 398, ;
		Left = 11, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcv", ;
		RowHeight = 19, ;
		TabIndex = 7, ;
		Top = 70, ;
		Width = 768, ;
		ZOrderSet = 2, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "fdoc", ;
		Column1.FontCharSet = 238, ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cFdoc", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 109, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontCharSet = 238, ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cDataact", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 82, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "nract", ;
		Column3.FontCharSet = 238, ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cNract", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 109, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontCharSet = 238, ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cDenumire", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 212, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontCharSet = 238, ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cCod_fiscal", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 99, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontCharSet = 238, ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.InputMask = (get_mask(12,gnZ)), ;
		Column6.Name = "cTotctva", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 121, ;
		Column7.ColumnOrder = 21, ;
		Column7.ControlSource = "ro24b", ;
		Column7.FontCharSet = 238, ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "RK", ;
		Column7.InputMask = (get_mask(12,gnZ)), ;
		Column7.Name = "cRo24b", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 116, ;
		Column8.ColumnOrder = 22, ;
		Column8.ControlSource = "ro24t", ;
		Column8.FontCharSet = 238, ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "RK", ;
		Column8.InputMask = (get_mask(12,gnZ)), ;
		Column8.Name = "cRo24t", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 124, ;
		Column9.ColumnOrder = 25, ;
		Column9.ControlSource = "ro9b", ;
		Column9.FontCharSet = 238, ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.InputMask = (get_mask(12,gnZ)), ;
		Column9.Name = "cRo9b", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 127, ;
		Column10.ColumnOrder = 26, ;
		Column10.ControlSource = "ro9t", ;
		Column10.FontCharSet = 238, ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.InputMask = (get_mask(12,gnZ)), ;
		Column10.Name = "cRo9t", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 112, ;
		Column11.ColumnOrder = 33, ;
		Column11.ControlSource = "roti", ;
		Column11.FontCharSet = 238, ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.InputMask = (get_mask(12,gnZ)), ;
		Column11.Name = "cRoti", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 113, ;
		Column12.ColumnOrder = 34, ;
		Column12.ControlSource = "cescdd1", ;
		Column12.FontCharSet = 238, ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.InputMask = (get_mask(12,gnZ)), ;
		Column12.Name = "cCescdd1", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 130, ;
		Column13.ColumnOrder = 36, ;
		Column13.ControlSource = "cescdd2", ;
		Column13.FontCharSet = 238, ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.InputMask = (get_mask(12,gnZ)), ;
		Column13.Name = "cCescdd2", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 132, ;
		Column14.ColumnOrder = 37, ;
		Column14.ControlSource = "wrscdd", ;
		Column14.FontCharSet = 238, ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.InputMask = (get_mask(12,gnZ)), ;
		Column14.Name = "cWrscdd", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 101, ;
		Column15.ColumnOrder = 40, ;
		Column15.ControlSource = "fofdd", ;
		Column15.FontCharSet = 238, ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.InputMask = (get_mask(12,gnZ)), ;
		Column15.Name = "cFofdd", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 121, ;
		Column16.ColumnOrder = 38, ;
		Column16.ControlSource = "fodd", ;
		Column16.FontCharSet = 238, ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.InputMask = (get_mask(12,gnZ)), ;
		Column16.Name = "cFodd", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 108, ;
		Column17.ColumnOrder = 42, ;
		Column17.ControlSource = "wrscfdd", ;
		Column17.FontCharSet = 238, ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.InputMask = (get_mask(12,gnZ)), ;
		Column17.Name = "cWrscfdd", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 103, ;
		Column18.ColumnOrder = 43, ;
		Column18.ControlSource = "wrn", ;
		Column18.FontCharSet = 238, ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cWrn", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 125, ;
		Column19.ColumnOrder = 4, ;
		Column19.ControlSource = "serie_act", ;
		Column19.FontCharSet = 238, ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Name = "cSerieAct", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 62, ;
		Column20.ColumnOrder = 29, ;
		Column20.ControlSource = "ro5b", ;
		Column20.FontCharSet = 238, ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cRo5B", ;
		Column20.ReadOnly = .T., ;
		Column20.Width = 106, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "ro5t", ;
		Column21.FontCharSet = 238, ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cRo5T", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 116, ;
		Column22.ColumnOrder = 13, ;
		Column22.ControlSource = "ro19b", ;
		Column22.FontCharSet = 238, ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Format = "rk", ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cRo19b", ;
		Column22.ReadOnly = .T., ;
		Column22.Width = 108, ;
		Column23.ColumnOrder = 14, ;
		Column23.ControlSource = "ro19t", ;
		Column23.FontCharSet = 238, ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Format = "rk", ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cRo19t", ;
		Column23.ReadOnly = .T., ;
		Column23.Width = 109, ;
		Column24.ColumnOrder = 44, ;
		Column24.ControlSource = "cesvfs", ;
		Column24.FontCharSet = 238, ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnPA)), ;
		Column24.Name = "cCesvfs", ;
		Column24.ReadOnly = .T., ;
		Column24.Width = 119, ;
		Column25.ColumnOrder = 35, ;
		Column25.ControlSource = "ceoptr", ;
		Column25.FontCharSet = 238, ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.InputMask = (get_mask(12,gnZ)), ;
		Column25.Name = "cCeoptr", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 92, ;
		Column26.ColumnOrder = 39, ;
		Column26.ControlSource = "cesvdd", ;
		Column26.FontCharSet = 238, ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cCesvdd", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 116, ;
		Column27.ColumnOrder = 41, ;
		Column27.ControlSource = "cesvfdd", ;
		Column27.FontCharSet = 238, ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "Column27", ;
		Column27.ReadOnly = .T., ;
		Column27.Width = 114, ;
		Column28.ColumnOrder = 23, ;
		Column28.ControlSource = "RO24NB", ;
		Column28.FontCharSet = 238, ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Format = (get_mask(12,gnZ)), ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cRO24NB", ;
		Column28.ReadOnly = .T., ;
		Column28.Width = 117, ;
		Column29.ColumnOrder = 24, ;
		Column29.ControlSource = "RO24NT", ;
		Column29.FontCharSet = 238, ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Format = "RK", ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cRO24NT", ;
		Column29.ReadOnly = .T., ;
		Column29.Width = 131, ;
		Column30.ColumnOrder = 27, ;
		Column30.ControlSource = "RO9NB", ;
		Column30.FontCharSet = 238, ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cRO9NB", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 115, ;
		Column31.ColumnOrder = 28, ;
		Column31.ControlSource = "RO9NT", ;
		Column31.FontCharSet = 238, ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cRO9NT", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 127, ;
		Column32.ColumnOrder = 31, ;
		Column32.ControlSource = "RO5NB", ;
		Column32.FontCharSet = 238, ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cRO5NB", ;
		Column32.ReadOnly = .T., ;
		Column32.Width = 129, ;
		Column33.ColumnOrder = 32, ;
		Column33.ControlSource = "RO5NT", ;
		Column33.FontCharSet = 238, ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.InputMask = (get_mask(12,gnZ)), ;
		Column33.Name = "cRO5NT", ;
		Column33.ReadOnly = .T., ;
		Column33.Width = 141, ;
		Column34.ColumnOrder = 9, ;
		Column34.ControlSource = "totftvatax", ;
		Column34.FontCharSet = 238, ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.InputMask = (get_mask(12,gnZ)), ;
		Column34.Name = "cTotftvaTax", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 93, ;
		Column35.ColumnOrder = 10, ;
		Column35.ControlSource = "tottvatax", ;
		Column35.FontCharSet = 238, ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.InputMask = (get_mask(12,gnZ)), ;
		Column35.Name = "cTotTVATax", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 99, ;
		Column36.ColumnOrder = 11, ;
		Column36.ControlSource = "RO24NB+RO20NB+RO19NB+RO9NB+RO5NB", ;
		Column36.FontCharSet = 238, ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.InputMask = (get_mask(12,gnZ)), ;
		Column36.Name = "cRONB", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 94, ;
		Column37.ColumnOrder = 12, ;
		Column37.ControlSource = "RO24NT+RO20NT+RO19NT+RO9NT+RO5NT", ;
		Column37.FontCharSet = 238, ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.InputMask = (get_mask(12,gnZ)), ;
		Column37.Name = "cRONT", ;
		Column37.ReadOnly = .T., ;
		Column37.Width = 84, ;
		Column38.ColumnOrder = 45, ;
		Column38.ControlSource = "tva_incasare", ;
		Column38.CurrentControl = "Check1", ;
		Column38.FontCharSet = 238, ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "cTVAIncasare", ;
		Column38.ReadOnly = .T., ;
		Column38.Sparse = .F., ;
		Column38.Width = 29, ;
		Column39.ColumnOrder = 48, ;
		Column39.ControlSource = "sucursala", ;
		Column39.FontCharSet = 238, ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "cSucursala", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 193, ;
		Column40.ColumnOrder = 46, ;
		Column40.ControlSource = "actcv.ales", ;
		Column40.CurrentControl = "_checkbox1", ;
		Column40.FontCharSet = 238, ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "cAles", ;
		Column40.ReadOnly = .F., ;
		Column40.Sparse = .F., ;
		Column40.Width = 30, ;
		Column41.ColumnOrder = 47, ;
		Column41.ControlSource = "cont", ;
		Column41.FontCharSet = 238, ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cCont", ;
		Column41.ReadOnly = .T., ;
		Column41.Width = 56, ;
		Column42.ColumnOrder = 49, ;
		Column42.ControlSource = "soldf", ;
		Column42.FontCharSet = 238, ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.InputMask = (get_mask(12,gnZ)), ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .T., ;
		Column43.ColumnOrder = 50, ;
		Column43.ControlSource = "RO24NB+RO20NB+RO19NB+RO9NB+RO5NB+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT", ;
		Column43.FontCharSet = 238, ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.InputMask = (get_mask(12,gnZ)), ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .T., ;
		Column44.ColumnOrder = 51, ;
		Column44.ControlSource = "solddif", ;
		Column44.FontCharSet = 238, ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.InputMask = (get_mask(12,gnZ)), ;
		Column44.Name = "Column44", ;
		Column44.ReadOnly = .T., ;
		Column44.Width = 104, ;
		Column45.ColumnOrder = 18, ;
		Column45.ControlSource = "ro20b", ;
		Column45.FontCharSet = 238, ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Format = "RK", ;
		Column45.InputMask = (get_mask(12,gnZ)), ;
		Column45.Name = "cRO20B", ;
		Column45.ReadOnly = .T., ;
		Column45.Width = 106, ;
		Column46.ColumnOrder = 19, ;
		Column46.ControlSource = "ro20t", ;
		Column46.FontCharSet = 238, ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Format = "RK", ;
		Column46.InputMask = (get_mask(12,gnZ)), ;
		Column46.Name = "cRO20T", ;
		Column46.ReadOnly = .T., ;
		Column46.Width = 111, ;
		Column47.ColumnOrder = 20, ;
		Column47.ControlSource = "ro20nb", ;
		Column47.FontCharSet = 238, ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Format = "RK", ;
		Column47.InputMask = (get_mask(12,gnZ)), ;
		Column47.Name = "cRO20NB", ;
		Column47.ReadOnly = .T., ;
		Column47.Width = 118, ;
		Column48.ColumnOrder = 17, ;
		Column48.ControlSource = "ro20nt", ;
		Column48.FontCharSet = 238, ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Format = "RK", ;
		Column48.InputMask = (get_mask(12,gnZ)), ;
		Column48.Name = "cRO20NT", ;
		Column48.ReadOnly = .T., ;
		Column48.Width = 127, ;
		Column49.ColumnOrder = 3, ;
		Column49.ControlSource = "dataireg", ;
		Column49.FontCharSet = 238, ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.Name = "cDataIreg", ;
		Column49.ReadOnly = .T., ;
		Column49.Width = 98, ;
		Column50.ColumnOrder = 15, ;
		Column50.ControlSource = "RO19NB", ;
		Column50.FontCharSet = 238, ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.Format = "R", ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cRO19NB", ;
		Column50.ReadOnly = .T., ;
		Column50.Width = 118, ;
		Column51.ColumnOrder = 16, ;
		Column51.ControlSource = "RO19NT", ;
		Column51.FontCharSet = 238, ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.Format = "R", ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cRO19NT", ;
		Column51.ReadOnly = .T., ;
		Column51.Width = 119, ;
		Column52.ControlSource = "incasat_tot", ;
		Column52.FontCharSet = 238, ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.InputMask = (get_mask(12,gnZ)), ;
		Column52.Name = "Column52", ;
		Column52.ReadOnly = .T., ;
		Column53.ControlSource = "incasat_exigibil", ;
		Column53.FontCharSet = 238, ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,gnZ)), ;
		Column53.Name = "Column53", ;
		Column53.ReadOnly = .T., ;
		Column54.ControlSource = "diferenta_incasare_tva", ;
		Column54.FontCharSet = 238, ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "Column54", ;
		Column54.ReadOnly = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		ControlSource = "ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 11, ;
		Name = "_checkbox1", ;
		ReadOnly = .F., ;
		Top = 133
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCeoptr.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. bunuri op. triunghiulare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCeoptr.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCescdd2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCesvdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. cu drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCesvdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCesvfs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. fara scutire in statul membru", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCesvfs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F. / C.N.P.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFodd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO cu drept deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFodd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFofdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO fara drept deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFofdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column27.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. fara drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column27.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column42.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold factura", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Neexigibil", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column43.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column44.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta sold (sold fact. - sold neex.)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column44.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column52.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasat in luna", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column52.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column53.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Exigibilizat (Baza+TVA)", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column53.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column54.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta incasat - exigibilizat", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column54.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 20%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 20%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 20%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO20T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 20%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO20T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo24b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 24%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo24b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO24NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 24%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO24NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO24NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 24%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO24NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo24t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 24%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo24t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo5B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo5B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO5NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO5NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO5NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO5NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo5T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo5T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo9b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO9NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO9NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO9NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO9NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo9t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =Baza=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =TVA=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRoti.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern - Taxare inversa", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRoti.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotftvaTax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total fara TVA la intern", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotftvaTax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total TVA la intern", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 15, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 123, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA Inc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrscdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Alte livr. scutite cu drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrscfdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scutite fara drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscfdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cfdoc, ;
		Comment = "*:OnResize=sb", ;
		csourcegrid = _grdbase1, ;
		csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo20b,cRo20t,cRo20Nb,cRo20Nt,cRo24b,cRo24t,cRo24Nb,cRo24Nt,cRo19b,cRo19t,cRo19Nb,cRo19Nt,cRo9b,cRo9t,cRo9Nb,cRo9Nt,cRo5b,cRo5t,cRo5Nb,cRo5Nt,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 25, ;
		Left = 11, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 468, ;
		Width = 768, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 674, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 584, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 614, ;
		Name = "But_start_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 645, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		FontCharSet = 238, ;
		FontName = "Segoe UI", ;
		FontSize = 10, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_vanz", ;
		RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ;
		RowSourceType = 1, ;
		TabIndex = 15, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 41, ;
		Width = 254
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		Caption = "\<Exigibilizare TVA Incasare", ;
		Height = 29, ;
		Left = 596, ;
		Name = "cmdTVAIncasare", ;
		ToolTipText = "Genereaza note TVA Incasare 4426 = 4428 pentru facturile selectate. Se foloseste pentru facturile achitate integral, dar cu sold TVA neexigibil diferit de 0.", ;
		Top = 37, ;
		Width = 190
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		allowgridpreferences = .F., ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 329, ;
		Name = "Gridextra1", ;
		Top = 41, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 17, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters lcFiltru
		If Empty(lcFiltru)
			lcFiltru = povanz.ca_baza1.cfiltru
		Endif
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		
		save_grid_tag(Thisform._grdbase1)
		povanz.ca_baza1.cfiltru=lcFiltru
		povanz.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdbase1)
		Thisform._grdfooter1.calcTotal()
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
	ENDPROC

	PROCEDURE butdrept
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener
		lcOptiuniMeniuAnte = "\<Note contabile;" + ;
			"\<Incasari/Plati;" + ;
			"Istoric \<debit-credit;\-;"
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = 0
		loPartener = Null
		loDate = Createobject("empty")
		AddProperty(loDate, "denumire", m.lcDenumire)
		AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
		AddProperty(loDate, "optiuni_meniu_ante", m.lcOptiuniMeniuAnte)
		
		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		
		Do Case
			Case m.lnOptiune = 1
				Thisform.NOTACONTAB()
			Case m.lnOptiune = 2
				Thisform.incaspl()
			Case m.lnOptiune = 3
				This.ist_deb_cred()
		Endcase
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		*!* 19.03.2013
		*!* marius.mutu
		*!* filtru plati fara tva incasare (baza+tva exigibil din Registru TVA <> plata din Registrul Jurnal)
		
		*!* 25.09.2013
		*!* marius.mutu
		*!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
		
		*!* 16.12.2015
		*!* marius.mutu
		*!* cota tva 20%
		
		* 10.01.2022
		* CORECTAT FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE: INCLUSIV TVA 19%
		* CORECTAT FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE: FARA SOLD 472
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		ELSE 
			lcFiltru = SUBSTR(gcCondSucursala, 6)	
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_vanz.ListItemId
		
		
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI]
			Case lnOptiune = 2 && Livrari taxabile intern
				lcFiltru = lcFiltru+ [ and (ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ] + ;
									[ro24nb<>0 OR ro24nt<>0 or ro20nb<>0 OR ro20nt<>0 or ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN]
			Case lnOptiune = 3 && Livrari cu taxare inversa
				lcFiltru = lcFiltru + [ and (roti<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA]
			Case lnOptiune = 4 && Livrari scutite cu drept de deducere
				lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE]
			Case lnOptiune = 5 && Livrari scutite fara drept de deducere
				lcFiltru = lcFiltru + [ and (wrscfdd<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE]
			Case lnOptiune = 6 && Livrari in afara Romaniei
				lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI]
			Case lnOptiune = 7 && Operatiuni neimpozabile
				lcFiltru = lcFiltru + [ and (wrn<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE]
		Endcase
		
		If (This.filtru_pretty#"none")
			*** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil
			*** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact
			if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full))
				povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2013], [vjv2010],1,1,1)
				povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2013], [vjv2010],1,1,1)
			ELSE
				povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2010], [vjv2013],1,1,1)
				povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2010], [vjv2013],1,1,1)		
			ENDIF 	
			
			Thisform.actualizeaza_grid1(lcFiltru)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
			endif
			
			*** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE
			If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full)
		
				TEXT to lcSql noshow textmerge
		select an,
		       luna,
		       min(id_fact) as id_fact,
		       dataact,
		       nract,
		       serie_act,
		       id_part,
		       id_fdoc,
		       id_sucursala,
		       sum(totctva) as totctva,
		       sum(nvl(total_incasat, 0)) as incasat_tot,
		       sum(nvl(tva_exigibil, 0)) as incasat_exigibil,       
		       sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva
		  from (select a.an,
		               a.luna,
		               a.id_fact,
		               a.dataact,
		               a.nract,
		               a.serie_act,
		               a.id_fdoc,
		               a.id_sucursala,
		               a.id_part,
		               a.totctva,
		               nvl(b.total_incasat, 0) as total_incasat,
		               (a.ro24b + a.ro24t + a.ro20b + a.ro20t + a.ro19b + a.ro19t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) as tva_exigibil
		          from (select an,
		                       luna,
		                       id_fact,
		                       id_sucursala,
		                       id_part,
		                       id_fdoc,
		                       nract,
		                       dataact,
		                       serie_act,
		                       totctva,
		                       ro24b,
		                       ro24t,
		                       ro20b,
		                       ro20t,
		                       ro19b,
		                       ro19t,                                              
		                       ro9b,
		                       ro9t,
		                       ro5b,
		                       ro5t
		                  from jv2007 jc
		                 where an = <<m.gnAn>>
		                   and luna = <<m.gnLuna>>
			           and (ro24nb <> 0
			            or ro20nb <> 0
			            or ro19nb <> 0	            
		    	        or ro9nb <> 0
		        	    or ro5nb <> 0) <<m.gcCondSucursala>>) a
		          left join (select an,
		                           luna,
		                           id_sucursala,
				                    (case
				                      when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                       id_fact
				                      else
				                       id_factc
				                    end) as id_fact,
				                    sum(case
				                          when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                           suma
				                          else
				                           0
				                        end) as ex,
				                    sum(case
				                          when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                           0
				                          else
				                           suma
				                        end) as total_incasat
		                      from act
		                     where sters = 0
		                       and an = <<m.gnAn>>
		                       and luna = <<m.gnLuna>>
		                     <<m.gcCondSucursala>>
		                       and (id_jtva_coloana in (2, 4, 14, 16, 28) or
		                           id_factc <> 0)
		                     group by an,
		                              luna,
		                              id_sucursala,
		                              (case
		                                when id_jtva_coloana in
		                                     (2, 4, 14, 16, 28) then
		                                 id_fact
		                                else
		                                 id_factc
		                              end)) b
		            on a.id_fact = b.id_fact
		           and a.an = b.an
		           and a.luna = b.luna
		           and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0)
		         where nvl(b.total_incasat, 0.00) <> 0 and nvl(b.total_incasat, 0.00) -
		               (a.ro24b + a.ro24t + a.ro20b + a.ro19b + a.ro19t + a.ro20t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) <> 0)
		 group by an,
		          luna,
		          dataact,
		          nract,
		          serie_act,
		          id_part,
		          id_fdoc,
		          id_sucursala
		
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA")
				If m.llSucces
					Select crsDiferenteTVA
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0
					go top in actcv
					thisform._grdbase1.Refresh()
					THISFORM._grdfooter1.calcTotal
				Endif && m.llSucces
			Endif && 'TVA INCASARE'	
			
			*** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
			If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)
				TEXT to lcSql noshow textmerge
				select jv.id_fact,
				       ip.cont,
				       nvl(ip.sold, 0) as soldf,
				       (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
				       nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
				       jv.denumire,
				       jv.nract,
				       jv.serie_act,
				       jv.id_sucursala,
				       jv.id_fdoc,
				       jv.id_part,
				       jv.dataact,
				       jv.totctva,
				       jv.ro24nb,
				       jv.ro24nt,
				       jv.ro20nb,
				       jv.ro20nt,		       
				       jv.ro19nb,
				       jv.ro19nt,		       
				       jv.ro9nb,
				       jv.ro9nt,
				       jv.ro5nb,
				       jv.ro5nt
				  from vjv2010 jv
				  left join (select id_fact,
				                    cont,
				                    sum((precdeb + debit) - (preccred + credit)) as sold
				               from vireg_parteneri
				              where an = <<m.gnAn>>
				                and luna = <<m.gnLuna>>
				                and SUBSTR(cont,1,1) = '4' and cont not in ('419', '472')
				                and id_fact in
				                    (select distinct id_fact
				                       from vjv2010
				                      where an = <<m.gnAn>>
				                        and luna = <<m.gnLuna>>
				                        and (ro24nt <> 0 or ro20nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
				                        and tva_incasare = 1)
				              group by id_fact, cont) ip
				    on jv.id_fact = ip.id_fact
				 where jv.an = <<m.gnAn>>
				   and jv.luna = <<m.gnLuna>>
		           and jv.tva_incasare = 1
				   and (jv.ro24nt <> 0 or jv.ro20nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
				   and  nvl(ip.sold, 0) - (ro24nb + ro24nt + ro20nb + ro20nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif")
				If m.llSucces
					Select crsSoldDif
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(solddif, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
					SELECT actcv
				Endif && m.llSucces
			Endif && DIFERENTA SOLD
				
		endif && (This.filtru_pretty#"none")
		
	ENDPROC

	PROCEDURE do_excel
		SET STEP ON 
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
		
		return
		
		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
		Private pctitlu, pcSubtitlu, pcdataora
		lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1
		
		x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans")
		
		pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1)))
		Store "" To pcSubtitlu
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu = This.filtru_pretty_ro + lctext
		
		
		*!*	pcdataora = get_ora(2)
		
		Do Case
			Case lnTipJurnal = 1
				pcSubtitlu = "LIVRARI TAXABILE LA INTERN"
			Case lnTipJurnal = 2
				pcSubtitlu = "LIVRARI CU TAXARE INVERSA"
			Case lnTipJurnal = 3
				pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE"
			Case lnTipJurnal = 4
				pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE"
			Case lnTipJurnal = 5
				pcSubtitlu = "LIVRARI IN AFARA ROMANIEI"
			Case lnTipJurnal = 6
				pcSubtitlu = "OPERATIUNI NEIMPOZABILE"
		Endcase
		
		If x = 1
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If x = 3
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			If lnTipJurnal <> 0
				Do Case
					Case lnTipJurnal = 1 && Livrari taxabile intern
						lcWhere = "(ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )"
					Case lnTipJurnal = 2 && Livrari cu taxare inversa
						lcWhere = "(roti<>0)"
					Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere
						lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)"
					Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere
						lcWhere = "(wrscfdd<>0)"
					Case lnTipJurnal = 5 && Livrari in afara Romaniei
						lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)"
					Case lnTipJurnal = 6 && Operatiuni neimpozabile
						lcWhere = "(wrn<>0)"
				Endcase
			Else
				lcWhere = ''
			Endif
		
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CESCDD1) AS CESCDD1, SUM(CESCDD2) AS CESCDD2,SUM(CEOPTR) as CEOPTR, ] + ;
				[SUM(FODD) AS FODD, SUM(FOFDD) AS FOFDD,SUM(CESVDD) as CESVDD, SUM(CESVFDD) AS CESVFDD,SUM(CESVFS) AS CESVFS,] + ;
				[SUM(ROTI) AS ROTI, ] + ;
				[SUM(RO24B) AS RO24B, SUM(RO24T) AS RO24T, SUM(RO20B) AS RO20B, SUM(RO20T) AS RO20T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ;
				[SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+;
				[SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ;
				[ FROM VJV2010 ] + ;
				[ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				gcCondSucursala + ;
				[ GROUP BY an, luna ] + ;
				[ ORDER BY an, luna ]
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && x = 3
		
		If x = 5
			x = raport_regvanz2007_restrans(x,[actcv])
		Endif
		
		If Inlist(x,1,3,5)
			*!*		If Reccount('cListRC') = 0
			*!*			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
			*!*		Else
			*!*			Thisform.AlwaysOnTop=.F.
			*!*			Select cListRC
			*!*			Report Format registru_vanzari_jtva2007 To Printer Prompt Preview
			*!*			Thisform.AlwaysOnTop=.T.
			*!*		Endif
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRC],[registru_vanzari_jtva2010])
		
			*!*		registru vanzari 5%
			Select cListRC
			Set Filter To ro19b<>0 Or ro19t<>0 OR ro5b<>0 Or ro5t<>0 OR cesvfs <> 0	&&	modificare v 2.0.128 : am adaugat cesvfs 
			GO TOP 
			If  !EMPTY(denumire)
				goExport.export2frx([cListRC],[registru_vanzari_jtva2010_2])
			Endif
			*!*		registru vanzari 5% ^
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
	ENDPROC

	PROCEDURE do_listare2013
		*!* 14.03.2013
		*!* marius.mutu
		*!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare
		
		*!* 23.09.2013
		*!* marius.mutu
		*!* Se includ si facturile fara TVA INCASARE cu valoare 0
		
		*!* 17.10.2013
		*!* marius.mutu
		*!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala
		
		Private pctitlu, pcSubtitlu, pcdataora
		Local lcNumeAct, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lnDiferenta
		Local lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces, lnTip, lcSerieAct
		Local lnTipJurnal
		*:Global pcPerioada, pnAn, pnLuna
		
		lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1
		
		pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1)))
		pcSubtitlu = ""
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu = This.filtru_pretty_ro + lctext
		pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn))
		pcdataora = get_ora(2)
		
		lnMeniu = xmenu("Registru Vanzari lunar;Registru Vanzari - recapitulatie 3 luni;Registru Vanzari - recapitulatie an curent;Registru Vanzari lunar restrans")
		If !Inlist(m.lnMeniu, 1, 2, 3, 4)
			Return
		Endif
		
		Do Case
			Case lnTipJurnal = 1
				pcSubtitlu = "LIVRARI TAXABILE LA INTERN"
			Case lnTipJurnal = 2
				pcSubtitlu = "LIVRARI CU TAXARE INVERSA"
			Case lnTipJurnal = 3
				pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE"
			Case lnTipJurnal = 4
				pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE"
			Case lnTipJurnal = 5
				pcSubtitlu = "LIVRARI IN AFARA ROMANIEI"
			Case lnTipJurnal = 6
				pcSubtitlu = "OPERATIUNI NEIMPOZABILE"
		Endcase
		
		If Inlist(m.lnMeniu,1,2,3)
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		Endif
		
		*** FILTRU PENTRU RECAPITULATIE
		lcWhere = povanz.ca_baza1.cfiltru
		*** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie)
		if left(upper(lcWhere),4) = 'LUNA'
			lnPos = atc('AN=', lcWhere,1)
			if m.lnPos > 0
				lcWhere = alltrim(substr(m.lcWhere, m.lnPos + 11))
			endif 
		endif 	
		
		&& REGISTRE TVA RECAPITULATIE
		If INLIST(lnMeniu, 2, 3)
			Private m.pnAn, m.pnLuna
			IF m.lnMeniu = 2 
				* recapitulatie 3 luni
				lnPerioada = Ceil(m.gnLuna / 3)
				pnLuna	   = (m.lnPerioada - 1) * 3 + 1
			ELSE
				* recapitulatie an curent
				pnLuna = 1
			ENDIF 
			pnAn	   = m.gnAn
		
			lddata1	= Date(m.pnAn, m.pnLuna, 1)
			lddata2	= Date(m.gnAn, m.gnLuna, 1)
		
			pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn))
		
		
			Do Case
				Case lnTipJurnal = 1 && Livrari taxabile intern
					lcWhere = m.lcWhere + " and (ro24b<>0 OR ro24t<>0 OR ro20b<>0 OR ro20t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ro24nb<>0 OR ro24nt<>0 OR ro20nb<>0 OR ro20nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)"
				Case lnTipJurnal = 2 && Livrari cu taxare inversa
					lcWhere = m.lcWhere + " and (roti<>0)"
				Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere
					lcWhere = m.lcWhere + " and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)"
				Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere
					lcWhere = m.lcWhere + " and (wrscfdd<>0)"
				Case lnTipJurnal = 5 && Livrari in afara Romaniei
					lcWhere = m.lcWhere + " and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)"
				Case lnTipJurnal = 6 && Operatiuni neimpozabile
					lcWhere = m.lcWhere + " and (wrn<>0)"
			Endcase
		
			TEXT to lcSelect textmerge noshow
			select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract,
		       (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire,
				SUM(v.TOTCTVA) AS TOTCTVA,
				SUM(v.CESCDD1) AS CESCDD1, SUM(v.CESCDD2) AS CESCDD2,SUM(v.CEOPTR) as CEOPTR,
				SUM(v.FODD) AS FODD, SUM(v.FOFDD) AS FOFDD,SUM(v.CESVDD) as CESVDD, SUM(v.CESVFDD) AS CESVFDD,SUM(v.CESVFS) AS CESVFS,
				SUM(v.ROTI) AS ROTI,
				SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.RO20B) AS RO20B, SUM(v.RO20T) AS RO20T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO9B) AS RO9B, SUM(v.RO9T) AS RO9T,
				SUM(v.RO5B) AS RO5B, SUM(v.RO5T) AS RO5T,
				SUM(v.WRN) AS WRN, SUM(v.WRSCDD) AS WRSCDD, SUM(v.WRSCFDD) AS WRSCFDD
				FROM (select <<m.pnAn>> as an, <<m.pnLuna>> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l
				left JOIN VJV2010 V on v.an = l.an and v.luna = l.luna
				WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <<Iif(!Empty(m.lcWhere), " and " + m.lcWhere, "")>>
				GROUP BY v.an, v.luna
				ORDER BY v.an, v.luna
			ENDTEXT
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal
				Replace All cod With Int(Val(Dtos(dataact))) In crsTotal
		
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && lnMeniu = 2
		
		If m.lnMeniu = 4
			lnMeniu = raport_regvanz2007_restrans(m.lnMeniu ,[actcv])
		Endif
		
		*** FORMAT TVA INCASARE 2013
		Select cListRC
		Index On denumire + Str(nract, 14, 0) Tag numeact
		Index On cod Tag cod
		
		update_jtva_coloane('JV')
		*** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN
		SET STEP ON 
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
			(RO24B + RO20B + RO19B + RO9B + RO5B + CESCDD1 + CESCDD2 + CEOPTR + FODD + FOFDD + CESVDD + CESVFDD + CESVFS + ROTI + WRN + WRSCDD + WRSCFDD) As BAZA, ;
			(RO24T + RO20T + RO19T +  RO9T +  RO5T) As TVA, ;
			(RO24NB + RO20NB + RO19NB + RO9NB + RO5NB) As BAZAN, ;
			(RO24NT + RO20NT + RO19NT + RO9NT + RO5NT) As TVAN, ;
			cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ;
			FROM cListRC r ;
			where tip = 0 And TVA_INCASARE = 1 ; 
			INTO Cursor cListRCTemp READWRITE
		
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		goLog.Log('1', 'listare_jv')
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		* Pe un calculator statea 10 minute pana facea selectia 
		* Am refacut join-ul ca doua scan-uri
		lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0')))
		
		IF m.lnOptiuneBug = 1
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 0 AND tva_incasare = 0
				SCATTER NAME loRC
				WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO24B','RO20B', 'RO19B', 'RO9B', 'RO5B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ;
					 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD')   
					loRC.cod_tva = ALLTRIM(coloana_jv)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza =Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
						Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ;
						IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ;
						IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ;
						IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ;
						IIF(loRC.cod_tva = 'FODD', loRC.FODD , ;
						IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ;
						IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ;
						IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ;
						IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ;
						IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ;
						IIF(loRC.cod_tva = 'WRN', loRC.WRN , ;
						IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ;
						IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ;
						0)))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					    Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ;
						0)))))
		
		*!*				IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
		*!*				ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		ELSE 
		
			Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24B, ;
				Iif(J.COLOANA_JV = 'RO20B', r.RO20B, ;	
				IIF(J.COLOANA_JV = 'RO19B', r.RO19B, ;
				IIF(J.COLOANA_JV = 'RO9B', r.RO9B, ;
				IIF(J.COLOANA_JV = 'RO5B', r.RO5B, ;
				IIF(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ;
				IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ;
				IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ;
				IIF(J.COLOANA_JV = 'FODD', r.FODD , ;
				IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ;
				IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ;
				IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ;
				IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ;
				IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ;
				IIF(J.COLOANA_JV = 'WRN', r.WRN , ;
				IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ;
				IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ;
				0))))))))))))))))) As N(16, 4)) As BAZA, ;
				CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24T, ;
			    Iif(J.COLOANA_JV = 'RO20B', r.RO20T, ;	
				IIF(J.COLOANA_JV = 'RO19B', r.RO19T, ;
				IIF(J.COLOANA_JV = 'RO9B', r.RO9T, ;
				IIF(J.COLOANA_JV = 'RO5B', r.RO5T, ;
				0))))) As N(16, 4)) As TVA ;
				FROM cListRC r, JTVA_COLOANE J ;
				where tip = 0 And r.TVA_INCASARE = 0 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) ;
				INTO Cursor cListRCTemp1 Readwrite
			
		ENDIF && m.lnOptiuneBug = 1	
		goLog.Log('2', 'listare_jv')
		*** SELECTEZ FACTURILE CU VALOARE 0
		Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ;
			baza, tva ;
			FROM cListRCTemp1 ;
			WHERE BAZA = 0 And TVA = 0 ;
			AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ;
			INTO CURSOR cListRCTemp2 NOFILTER 
		goLog.Log('3', 'listare_jv')	
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, ;
			CAST(Iif(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ;
			IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ;
			IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ;
			IIF(J.COLOANA_JV = 'FODD', r.FODD , ;
			IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ;
			IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ;
			IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ;
			IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ;
			IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ;
			IIF(J.COLOANA_JV = 'WRN', r.WRN , ;
			IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ;
			IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ;
			0)))))))))))) As N(16, 4)) As BAZA, ;
			0 As TVA ;
			FROM cListRC r, JTVA_COLOANE J ;
			WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) And Nvl(J.COTA_TVA, 0) = 0 ;
			INTO Cursor cListRCTemp1 Readwrite
		goLog.Log('4', 'listare_jv')
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Use In (Select('cListRCTemp1'))
		
		*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
		
		TEXT to m.lcSql textmerge noshow
			select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jv.id_fact, jv.nract As nract, jv.serie_act, jv.dataact, a.nract As NRACTI, a.dataact As DATAACTI,  fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL,
			J.COTA_TVA, J2.COLOANA_JV As COD_TVA, J2.denumire As EXPLICATIE_TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT,
			(select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factc = a.id_fact and a1.cod = a.cod) as INCASAT2
			from act a left join jv2007 jv on a.id_fact = jv.id_fact
		    left join nom_parteneri p on jv.id_part = p.id_part
			Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana
			LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
			left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
			where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4428' And a.scc = '4427' And Nvl(a.id_jtva_coloana, 0) <> 0
			and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.ro24nt <> 0 or jv.ro20nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
			order by a.cod, J2.COLOANA_JC
		ENDTEXT
		
		llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1")
		goLog.Log('5', 'listare_jv')
		If m.llSucces
		
			*** daca am pus filtru in Registru pe Nume sau altceva
			*** sterg incasarile/platile care nu apartin de facturile filtrate
			*** ca sa am doar incasarile/platile care tin de filtru
			if !empty(m.lcWhere)
				delete from cListRcTemp1 where padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') not in ;
					(select padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') from cListRcTemp)
			endif 	
		
			***  ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE
			*** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA
			Select cListRCTemp1
			Go Top
			lnCod = cod
			lnNrAct = nract
			lcSerieAct = NVL(serie_act, '')
			ldDataAct = dataact
			lcDenumire = denumire
			lnNrc = 0
			Scan
				lnNrc = m.lnNrc + 1
				If m.lnCod <> cod Or m.lnNrAct <> nract Or m.lcSerieAct <> NVL(serie_act, '') OR m.ldDataAct <> dataact Or m.lcDenumire <> denumire
					lnNrc = 1
				Endif
				lnCod = cod
				Replace nrc With m.lnNrc
			Endscan
		
			*** adun diferenta la prima baza
			Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ;
				from cListRCTemp1 ;
				group By cod, nract, serie_act, dataact, denumire, INCASAT2 ;
				into Cursor cIncasariTVA
		
			Select cIncasariTVA
			Scan
				lnCod = cod
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')		
				ldDataAct = dataact
				lcDenumire = denumire
				lnIncasat = Nvl(INCASAT, 0)
				lnIncasat2 = Nvl(INCASAT2,0)
				lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE
		
				*!*			select cListRcTemp1
				*!*			locate for cod = m.lnCod and nrc = 1
				*!*			if found()
				*!*				lnIdFact = id_fact
				*!*				select cListRcTemp
				*!*				calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0%
				*!*			endif
				Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0%
				lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0)
		
				*** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva)
				*** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta
				If Abs(m.lnDiferenta) > 1
					m.lnDiferenta = 0
				Endif
				If m.lnDiferenta <> 0
					Select cListRCTemp1
					Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1
					If Found()
						Replace INCASAT With INCASAT + m.lnDiferenta,  BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cIncasariTVA'))
		
			Update cListRCTemp1 Set nract = 0 Where Isnull(nract)
			Update cListRCTemp1 Set denumire = '' Where Isnull(denumire)
			Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL)
			Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI)
		
			Select cListRCTemp
			Append From Dbf('cListRcTemp1')
		
			*** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE
			*** bazele exigibile de pe facturile cu TVA INCASARE
			Select nract, dataact, denumire, Sum(BAZA) As BAZA ;
				from cListRCTemp ;
				where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ;
				group By nract, dataact, denumire ;
				into Cursor cFacturiTVAIncasare
		
			Select cFacturiTVAIncasare
			Scan
				lnNrAct = nract
				ldDataAct = dataact
				lcDenumire = denumire
				lnBazaFact = BAZA
				*** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati)
				Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct
		
				lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0)
				If m.lnDiferenta <> 0
					Select cListRCTemp
					Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct
					If Found()
						Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cFacturiTVAIncasare'))
		Endif
		Use In (Select('cListRcTemp1'))
		goLog.Log('6', 'listare_jv')
		*** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE
		IF m.lnOptiuneBug = 1
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 1
				SCATTER NAME loRC
				WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO24B','RO20B', 'RO19B', 'RO9B', 'RO5B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ;
					 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD')     
					loRC.cod_tva = ALLTRIM(coloana_jv)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza =Iif(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
						Iif(loRC.cod_tva = 'RO20B', loRC.RO20B, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ;
						IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ;
						IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ;
						IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ;
						IIF(loRC.cod_tva = 'FODD', loRC.FODD , ;
						IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ;
						IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ;
						IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ;
						IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ;
						IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ;
						IIF(loRC.cod_tva = 'WRN', loRC.WRN , ;
						IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ;
						IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ;
						0)))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
					    Iif(loRC.cod_tva = 'RO20B', loRC.RO20T, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ;
						0)))))
						
					IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
					ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		ELSE
			Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24B, ;
				Iif(J.COLOANA_JV = 'RO20B', r.RO20B, ;
				IIF(J.COLOANA_JV = 'RO19B', r.RO19B, ;
				IIF(J.COLOANA_JV = 'RO9B', r.RO9B, ;
				IIF(J.COLOANA_JV = 'RO5B', r.RO5B, ;
				IIF(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ;
				IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ;
				IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ;
				IIF(J.COLOANA_JV = 'FODD', r.FODD , ;
				IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ;
				IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ;
				IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ;
				IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ;
				IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ;
				IIF(J.COLOANA_JV = 'WRN', r.WRN , ;
				IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ;
				IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ;
				0))))))))))))))))) As N(16, 4)) As BAZA, ;
				CAST(Iif(J.COLOANA_JV = 'RO24B', r.RO24T, ;
				Iif(J.COLOANA_JV = 'RO20B', r.RO20T, ;	
				IIF(J.COLOANA_JV = 'RO19B', r.RO19T, ;
				IIF(J.COLOANA_JV = 'RO9B', r.RO9T, ;
				IIF(J.COLOANA_JV = 'RO5B', r.RO5T, ;
				0))))) As N(16, 4)) As TVA ;
				FROM cListRC r, JTVA_COLOANE J ;
				where tip = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) ;
				INTO Cursor cListRCTemp1 Readwrite
		ENDIF 	
		goLog.Log('7', 'listare_jv')
		*** adaug si lunile care nu au nimic exigibil
		Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ;
			from cListRCTemp1 r ;
			where cod Not In (Select cod From cListRCTemp1  Where !(BAZA = 0 And TVA = 0)) ;
			into Cursor cListRCTemp2
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		
		*** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate
		Select cListRCTemp
		Scan For tip = 2 AND (EMPTY(dataact) OR EMPTY(nract) OR EMPTY(denumire))
			lcNumeAct = denumire + Str(nract, 14, 0)
			lnCod	  = cod
			If Seek(m.lnCod, 'cListRC', 'cod')
				SELECT cListRCTemp
				Replace denumire With cListRC.denumire FOR EMPTY(denumire)
				Replace nract With cListRC.nract FOR EMPTY(nract)
				Replace dataact With cListRC.dataact FOR EMPTY(dataact)
			Else
				If Seek(m.lcNumeAct, 'cListRC', 'numeact')
					SELECT cListRCTemp
					Replace cod With cListRC.cod, dataact With cListRC.dataact
				Endif && seek
			Endif && seek
		Endscan
		
		Use In (Select('cListRC'))
		Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite
		
		Update cListRC Set tip = 0 Where tip  = 2 && incasarile pe acelasi nivel cu facturile
		Use In (Select('cListRCTemp'))
		
		*!*	Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, Min(cod) As cod, Min(id_fact) As id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		sum(INCASAT) As INCASAT, Sum(TOTCTVA) As TOTCTVA, Sum(TOTFTVATAX) As TOTFTVATAX, Sum(TOTTVATAX) As TOTTVATAX, Sum(BAZA) As BAZA, Sum(TVA) As TVA, Sum(BAZAN) As BAZAN, Sum(TVAN) As TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip = 0 ;
		*!*		group By tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ;
		*!*		union All ;
		*!*		SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip <> 0 ;
		*!*		Into Cursor cListRC ;
		*!*		Order By 9, 7, 6, 5 Readwrite
		
		*** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA
		Select cListRC
		Go Top
		lnCod	 = 0
		lnNract = 0
		ldDataAct = {}
		lcDenumire = ""
		lnNrCrt	 = 0
		lnNrCrtF = 0
		lcSerieAct = ""
		Scan
			If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract or m.ldDataAct <> dataact or m.lcDenumire <> denumire && prima linie din fiecare factura
				lnCod	 = cod
				lcSerieAct = serie_act
				lnNract = nract
				ldDataAct = dataact	
				lcDenumire = denumire			
				lnNrCrt	 = m.lnNrCrt + 1
				lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF
			Else && liniile 2..n din facturi
				lnNrCrtF = m.lnNrCrtF + 1
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0
			Endif
		Endscan
		goLog.Log('8', 'listare_jv')
		*** TOTALURI EXIGIBIL PE COTE TVA
		*** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1
		lnTip = Iif(Inlist(m.lnMeniu,1,4), 0, 1)
		Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ;
			Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ;
			from cListRC ;
			where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ;
			ORDER By COD_TVA ;
			group By COD_TVA, EXPLICATIE_TVA
		Select cListRC
		
		Use In (Select('JTVA_COLOANE'))
		*** FORMAT TVA INCASARE 2013 ^
		goLog.Log('9', 'listare_jv')
		
		If Reccount('cListRC') > 0
			Thisform.AlwaysOnTop = .F.
		
			IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6
				goExport.export2frx([cListRc], [registru_jtva2013])
			ELSE		
				goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.)
			ENDIF 	
			
			Thisform.AlwaysOnTop = .T.
		Endif
		
		Use In (Select('cListRC'))
		
		
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		*** verificare INAINTE_DE
			lcCoresp = ['4111']
			lcExceptii = ['667,622']
		*!*		Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg
		
		*this.LockScreen = .f.
			This._grdbase1.SetFocus
			aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere")
		Endif
		
		
	ENDPROC

	PROCEDURE do_reset
		*!*	Thisform.ck_dataact.Value=0
		*!*	*Thisform.ck_fel_document.Value=0
		*!*	Thisform.ck_nract.Value=0
		*!*	Thisform.ck_denumire.Value=0
		*!*	Thisform.ck_eROARE_TVA.Value=0
		Thisform.cbo_tip_jurnal_vanz.ListItemId = 1
		
		IF NOT PEMSTATUS(thisform,"filtru_pretty",5)
		thisform.AddProperty("filtru_pretty")
		ENDIF
		IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5)
		thisform.AddProperty("filtru_pretty_ro")
		ENDIF
		
		thisform.filtru_pretty=""
		thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		thisform.but_start_criterii1.pornit="nu"
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = SELECT()
		
		SELECT actcv
		lcDenumire = Alltrim(Nvl(actcv.denumire, ''))
		lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, ''))
		
		lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
		
		If EMPTY(m.lnOptiune)
			Return
		Endif
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		If INLIST(m.lnOptiune, 1, 4) && un singur nume
			loPartener = Null
			loDate = Createobject("empty")
		
			AddProperty(loDate, "denumire",  m.lcDenumire)
			AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
			AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
		
			lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		Else
			llDontCloseCursor = .F.
			llExperimental = .F.
			llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
			llMFIN = .T. && verific MFIN pentru toata lumea
			llValidare = .T. && verific algoritmul codurilor fiscale
			llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
			llServiciuWebANAF = .T.
		
			lcFilter = Filter("actcv")
			lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
			Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
				From actcv ;
				Where &lcWhere ;
				Into Cursor crsCoduriFiscale ;
				Order By denumire, cod_fiscal  ;
				Readwrite
		
		
			Local lcXMLParteneri
			lcXMLParteneri = ""
			Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
			Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endif && x = 1
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE grdfooterevent
		LPARAMETERS toObj, tcEvt
		
		IF TYPE('this._grdfooter1') = 'O' 
			IF PEMSTATUS(this._grdfooter1, "eventhandler", 5)
				this._grdfooter1.eventhandler(,toObj,tcEvt)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	ENDPROC

	PROCEDURE inainte_de_do_listare
		If This.lactiv2
			If gnAn >= 2013
				This.do_listare2013()
			Else
				This.do_listare()
			Endif
		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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+;
			['from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		Select actcv
		pcTitlu="INCASARI LA FACTURA NR.  "+Alltrim(Str(nract))
		pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala
		gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		poact.ca_baza1.afisare()
		
		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
		LPARAMETERS tlAfisareTot
		* tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular
		
		This.lAfisareTot = m.tlAfisareTot
		
		DoDefault()
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		ENDIF
		
		
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		
		pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+;
			[extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partD=]+ALLTRIM(STR(id_part))+[ ]+;
			[and TRIM(SUBSTR(scc,1,3))='4111' and TRIM(SUBSTR(scc,1,3))='4118' ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		
		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,SERIE_ACT C(10),nract N(20),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),EXPLICATIE_TVA C(100)']
			pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva '+]+;
				['from ]+gcS+[.vact where 2=2']
			pcorder=[dataact,serie_act,nract]
			llAfisare=.F.
			lunanan=gnLuna+gnAn*12
			THISFORM.but_TERMIN1.ENABLED=.F.
			THISFORM.ALWAYSONTOP=.F.
		
			SELE actcv
			pcnume=denumire
			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 (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +;
				[ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
			poact.ca_baza1.afisare()
			GO TOP
		
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			THISFORM.ck_nract.SETFOCUS()
		ENDIF
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		dodefault(nStyle)
		
		* Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine
		IF this.lAfisareTot
			This.do_reset() && afisarea tuturor inregistrarilor
		ENDIF
		
		This.WindowState = 2
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
		
		THIS._grdfooter1.attachtogrid(This._grdbase1)
		This._grdfooter1.calcTotal
		
		*** Inregistrarile selectate GRI
		This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column")
		this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter
		
		
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		#define lf CHR(10)
		#define lf2 CHR(10) + CHR(10)
		
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ;
						 "Serie act\serie_act\T\none\" + crlf + ;
						 "Nr. act\nract\N\none\"+ crlf + ;
						 "Data act\dataact\D\none\" + crlf + ;
						 "Data inreg.\dataireg\D\none\" + crlf + ;				 
						 "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ;
						 "Cod Fiscal\cod_fiscal\T\none\" + crlf + ;
		                 "Sold TVA Neex.\(RO24NT + RO20NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ;					 
		                 "Perioada\an*12+luna\D1\none\" + crlf + ;						 				 
		                 "Data inreg. in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ;
		                 "Data inreg. nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ;
		                 "Data doc. nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ;
						 "EroareTVA\nofiled\E\" + ;
						[ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA - (RO24B+RO24T+RO20B+RO20T+RO19B+RO19T+RO9B+RO9T+RO5B+RO5T+ROTI+CESCDD1+CESCDD2+] + ;
						[WRSCDD+FODD+FOFDD+WRSCFDD+WRN+CEOPTR+CESVDD+CESVFDD+CESVFS+RO24NB+RO24NT+RO20NB+RO20NT+RO19NB+RO19NT+RO9NB+RO9NT+RO5NB+RO5NT)) >= 1) OR ] + ;
						[ABS(RO24T) NOT BETWEEN ROUND(0.238*ABS(RO24B),?gnPc) AND ROUND(0.243*ABS(RO24B),?gnPc) OR ] + ;
						[ABS(RO20T) NOT BETWEEN ROUND(0.198*ABS(RO20B),?gnPc) AND ROUND(0.203*ABS(RO20B),?gnPc) OR ] + ;
						[ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ;				
						[ABS(RO9T) NOT BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc) OR ] + ;
						[ABS(RO5T) NOT BETWEEN ROUND(0.048*ABS(RO5B),?gnPc) AND ROUND(0.053*ABS(RO5B),?gnPc) OR ] + ;								
						[ABS(RO24NT) NOT BETWEEN ROUND(0.238*ABS(RO24NB),?gnPc) AND ROUND(0.243*ABS(RO24NB),?gnPc) OR ] + ;
						[ABS(RO20NT) NOT BETWEEN ROUND(0.198*ABS(RO20NB),?gnPc) AND ROUND(0.203*ABS(RO20NB),?gnPc) OR ] + ;				
						[ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ;								
						[ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ;				
						[ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc))\-\] + ;
						"Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ;	
						"Incasari fara TVA Incasare\nofiled\E\2=2\-\" + ;
						"Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ;
						"este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ;
						"Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ;				
						"Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ;				
						"Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ;
						"Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ;
						"Exigibilizati sumele ramase neexigibile." + crlf + ;				
						IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
					*	"Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\"
		DODEFAULT()
		
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Init
		This.ListItemId = 1
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Valid
		thisform.do_cauta()
	ENDPROC

	PROCEDURE cmdTVAIncasare.Click
		*!* 24.05.2011
		*!* marius.mutu
		*!* nu se pot introduce documente de pe mama
		
		*!*	25.08.2014
		*!*	marius.mutu
		*!*	se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
		SET STEP ON 
		Local lcXMLFacturi
		If !(luna_inchisa Or m.glEMama)
			Select *, (RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ;
				RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, RO19NB+RO19NT as soldn19, RO9NB+RO9NT as soldn9, RO5NB+RO5NT as soldn5 ;
				From actcv With (Buffering = .T.) ;
				Where ales = 1 ;
				Into Cursor crsTVAIncasareTemp
				
			If _Tally > 0
				Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1")
				Use In (Select('crsTVAIncasareTemp'))
		
				Do inchidere_tva_sold With 'JV', m.lcXMLFacturi IN oproceduri_inchidere.prg
			Endif
			Use In (Select('crsTVAIncasareTemp'))
		Endif
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFdoc.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo24b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo24t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRoti.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_regvanz2025 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="_grdbase1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFdoc.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cNract.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDenumire.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCod_fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotctva.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo11t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo9t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRoti.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCescdd2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFofdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cFodd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrscfdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cWrn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSerieAct.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo5T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19b.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRo19t.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvfs.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCeoptr.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCesvdd.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column27.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column27.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO11NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO9NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO5NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotftvaTax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTotTVATax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRONT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cTVAIncasare.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cAles._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cCont.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column42.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column42.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column43.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column43.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column44.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column44.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21B.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21T.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO21NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cDataIreg.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NB.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.cRO19NT.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column52.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column52.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column53.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column53.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column54.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdbase1.Column54.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdfooter1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reface1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="oMenuShortcut" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cbo_tip_jurnal_vanz" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_reset_criterii1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_shortcuts1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cmdTVAIncasare" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: butdrept
		*m: do_listare2013
		*m: grdfooterevent
		*m: incaspl
		*m: ist_deb_cred
		*m: notacontab
		*p: lafisaretot		&& Se afiseaza toate inregistrarile lal intrarea in formular
		*p: lvfp9
		*a: aconditie[1,4]
	*</DefinedPropArrayMethod>

	*<PropValue>
		cgridsortlist = _grdbase1
		DoCreate = .T.
		filtru_pretty = 
		filtru_pretty_ro = 
		Height = 500
		lafisaretot = .F.
		lvfp9 = .T.
		Name = "frm_regvanz2025"
		Width = 795
		WindowState = 2
		_memberdata = <VFPData>
			<memberdata name="lafisaretot" display="lAfisareTot"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 795
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_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.Left = 6
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 16
		Lb_titlu_alb_b121.Top = 0
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 765
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 10
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 2
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

	ADD OBJECT '_grdbase1' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 54, ;
		Comment = "*:OnResize=ss", ;
		DeleteMark = .F., ;
		FontCharSet = 238, ;
		FontSize = 10, ;
		GridLineColor = 192,192,192, ;
		HeaderHeight = 49, ;
		Height = 398, ;
		Left = 11, ;
		Name = "_grdbase1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "actcv", ;
		RowHeight = 19, ;
		TabIndex = 7, ;
		Top = 70, ;
		Width = 768, ;
		ZOrderSet = 2, ;
		Column1.ColumnOrder = 1, ;
		Column1.ControlSource = "fdoc", ;
		Column1.FontCharSet = 238, ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "cFdoc", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 109, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "dataact", ;
		Column2.FontCharSet = 238, ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "cDataact", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 82, ;
		Column3.ColumnOrder = 5, ;
		Column3.ControlSource = "nract", ;
		Column3.FontCharSet = 238, ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "cNract", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 109, ;
		Column4.ColumnOrder = 6, ;
		Column4.ControlSource = "denumire", ;
		Column4.FontCharSet = 238, ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "cDenumire", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 212, ;
		Column5.ColumnOrder = 7, ;
		Column5.ControlSource = "cod_fiscal", ;
		Column5.FontCharSet = 238, ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "cCod_fiscal", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 99, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "totctva", ;
		Column6.FontCharSet = 238, ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.InputMask = (get_mask(12,gnZ)), ;
		Column6.Name = "cTotctva", ;
		Column6.ReadOnly = .T., ;
		Column6.Width = 121, ;
		Column7.ColumnOrder = 17, ;
		Column7.ControlSource = "ro11b", ;
		Column7.FontCharSet = 238, ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "RK", ;
		Column7.InputMask = (get_mask(12,gnZ)), ;
		Column7.Name = "cRo11b", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 116, ;
		Column8.ColumnOrder = 18, ;
		Column8.ControlSource = "ro11t", ;
		Column8.FontCharSet = 238, ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "RK", ;
		Column8.InputMask = (get_mask(12,gnZ)), ;
		Column8.Name = "cRo11t", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 124, ;
		Column9.ColumnOrder = 25, ;
		Column9.ControlSource = "ro9b", ;
		Column9.FontCharSet = 238, ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.InputMask = (get_mask(12,gnZ)), ;
		Column9.Name = "cRo9b", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 127, ;
		Column10.ColumnOrder = 26, ;
		Column10.ControlSource = "ro9t", ;
		Column10.FontCharSet = 238, ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.InputMask = (get_mask(12,gnZ)), ;
		Column10.Name = "cRo9t", ;
		Column10.ReadOnly = .T., ;
		Column10.Width = 112, ;
		Column11.ColumnOrder = 33, ;
		Column11.ControlSource = "roti", ;
		Column11.FontCharSet = 238, ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.InputMask = (get_mask(12,gnZ)), ;
		Column11.Name = "cRoti", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 113, ;
		Column12.ColumnOrder = 34, ;
		Column12.ControlSource = "cescdd1", ;
		Column12.FontCharSet = 238, ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.InputMask = (get_mask(12,gnZ)), ;
		Column12.Name = "cCescdd1", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 130, ;
		Column13.ColumnOrder = 36, ;
		Column13.ControlSource = "cescdd2", ;
		Column13.FontCharSet = 238, ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.InputMask = (get_mask(12,gnZ)), ;
		Column13.Name = "cCescdd2", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 132, ;
		Column14.ColumnOrder = 37, ;
		Column14.ControlSource = "wrscdd", ;
		Column14.FontCharSet = 238, ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.InputMask = (get_mask(12,gnZ)), ;
		Column14.Name = "cWrscdd", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 101, ;
		Column15.ColumnOrder = 40, ;
		Column15.ControlSource = "fofdd", ;
		Column15.FontCharSet = 238, ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.InputMask = (get_mask(12,gnZ)), ;
		Column15.Name = "cFofdd", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 121, ;
		Column16.ColumnOrder = 38, ;
		Column16.ControlSource = "fodd", ;
		Column16.FontCharSet = 238, ;
		Column16.FontName = "Arial", ;
		Column16.FontSize = 10, ;
		Column16.InputMask = (get_mask(12,gnZ)), ;
		Column16.Name = "cFodd", ;
		Column16.ReadOnly = .T., ;
		Column16.Width = 108, ;
		Column17.ColumnOrder = 42, ;
		Column17.ControlSource = "wrscfdd", ;
		Column17.FontCharSet = 238, ;
		Column17.FontName = "Arial", ;
		Column17.FontSize = 10, ;
		Column17.InputMask = (get_mask(12,gnZ)), ;
		Column17.Name = "cWrscfdd", ;
		Column17.ReadOnly = .T., ;
		Column17.Width = 103, ;
		Column18.ColumnOrder = 43, ;
		Column18.ControlSource = "wrn", ;
		Column18.FontCharSet = 238, ;
		Column18.FontName = "Arial", ;
		Column18.FontSize = 10, ;
		Column18.InputMask = (get_mask(12,gnZ)), ;
		Column18.Name = "cWrn", ;
		Column18.ReadOnly = .T., ;
		Column18.Width = 125, ;
		Column19.ColumnOrder = 4, ;
		Column19.ControlSource = "serie_act", ;
		Column19.FontCharSet = 238, ;
		Column19.FontName = "Arial", ;
		Column19.FontSize = 10, ;
		Column19.Name = "cSerieAct", ;
		Column19.ReadOnly = .T., ;
		Column19.Width = 62, ;
		Column20.ColumnOrder = 29, ;
		Column20.ControlSource = "ro5b", ;
		Column20.FontCharSet = 238, ;
		Column20.FontName = "Arial", ;
		Column20.FontSize = 10, ;
		Column20.InputMask = (get_mask(12,gnZ)), ;
		Column20.Name = "cRo5B", ;
		Column20.ReadOnly = .T., ;
		Column20.Width = 106, ;
		Column21.ColumnOrder = 30, ;
		Column21.ControlSource = "ro5t", ;
		Column21.FontCharSet = 238, ;
		Column21.FontName = "Arial", ;
		Column21.FontSize = 10, ;
		Column21.InputMask = (get_mask(12,gnZ)), ;
		Column21.Name = "cRo5T", ;
		Column21.ReadOnly = .T., ;
		Column21.Width = 116, ;
		Column22.ColumnOrder = 21, ;
		Column22.ControlSource = "ro19b", ;
		Column22.FontCharSet = 238, ;
		Column22.FontName = "Arial", ;
		Column22.FontSize = 10, ;
		Column22.Format = "rk", ;
		Column22.InputMask = (get_mask(12,gnZ)), ;
		Column22.Name = "cRo19b", ;
		Column22.ReadOnly = .T., ;
		Column22.Width = 108, ;
		Column23.ColumnOrder = 22, ;
		Column23.ControlSource = "ro19t", ;
		Column23.FontCharSet = 238, ;
		Column23.FontName = "Arial", ;
		Column23.FontSize = 10, ;
		Column23.Format = "rk", ;
		Column23.InputMask = (get_mask(12,gnZ)), ;
		Column23.Name = "cRo19t", ;
		Column23.ReadOnly = .T., ;
		Column23.Width = 109, ;
		Column24.ColumnOrder = 44, ;
		Column24.ControlSource = "cesvfs", ;
		Column24.FontCharSet = 238, ;
		Column24.FontName = "Arial", ;
		Column24.FontSize = 10, ;
		Column24.InputMask = (get_mask(12,gnPA)), ;
		Column24.Name = "cCesvfs", ;
		Column24.ReadOnly = .T., ;
		Column24.Width = 119, ;
		Column25.ColumnOrder = 35, ;
		Column25.ControlSource = "ceoptr", ;
		Column25.FontCharSet = 238, ;
		Column25.FontName = "Arial", ;
		Column25.FontSize = 10, ;
		Column25.InputMask = (get_mask(12,gnZ)), ;
		Column25.Name = "cCeoptr", ;
		Column25.ReadOnly = .T., ;
		Column25.Width = 92, ;
		Column26.ColumnOrder = 39, ;
		Column26.ControlSource = "cesvdd", ;
		Column26.FontCharSet = 238, ;
		Column26.FontName = "Arial", ;
		Column26.FontSize = 10, ;
		Column26.InputMask = (get_mask(12,gnZ)), ;
		Column26.Name = "cCesvdd", ;
		Column26.ReadOnly = .T., ;
		Column26.Width = 116, ;
		Column27.ColumnOrder = 41, ;
		Column27.ControlSource = "cesvfdd", ;
		Column27.FontCharSet = 238, ;
		Column27.FontName = "Arial", ;
		Column27.FontSize = 10, ;
		Column27.InputMask = (get_mask(12,gnZ)), ;
		Column27.Name = "Column27", ;
		Column27.ReadOnly = .T., ;
		Column27.Width = 114, ;
		Column28.ColumnOrder = 19, ;
		Column28.ControlSource = "RO11NB", ;
		Column28.FontCharSet = 238, ;
		Column28.FontName = "Arial", ;
		Column28.FontSize = 10, ;
		Column28.Format = (get_mask(12,gnZ)), ;
		Column28.InputMask = (get_mask(12,gnZ)), ;
		Column28.Name = "cRO11NB", ;
		Column28.ReadOnly = .T., ;
		Column28.Width = 117, ;
		Column29.ColumnOrder = 20, ;
		Column29.ControlSource = "RO11NT", ;
		Column29.FontCharSet = 238, ;
		Column29.FontName = "Arial", ;
		Column29.FontSize = 10, ;
		Column29.Format = "RK", ;
		Column29.InputMask = (get_mask(12,gnZ)), ;
		Column29.Name = "cRO11NT", ;
		Column29.ReadOnly = .T., ;
		Column29.Width = 131, ;
		Column30.ColumnOrder = 27, ;
		Column30.ControlSource = "RO9NB", ;
		Column30.FontCharSet = 238, ;
		Column30.FontName = "Arial", ;
		Column30.FontSize = 10, ;
		Column30.InputMask = (get_mask(12,gnZ)), ;
		Column30.Name = "cRO9NB", ;
		Column30.ReadOnly = .T., ;
		Column30.Width = 115, ;
		Column31.ColumnOrder = 28, ;
		Column31.ControlSource = "RO9NT", ;
		Column31.FontCharSet = 238, ;
		Column31.FontName = "Arial", ;
		Column31.FontSize = 10, ;
		Column31.InputMask = (get_mask(12,gnZ)), ;
		Column31.Name = "cRO9NT", ;
		Column31.ReadOnly = .T., ;
		Column31.Width = 127, ;
		Column32.ColumnOrder = 31, ;
		Column32.ControlSource = "RO5NB", ;
		Column32.FontCharSet = 238, ;
		Column32.FontName = "Arial", ;
		Column32.FontSize = 10, ;
		Column32.InputMask = (get_mask(12,gnZ)), ;
		Column32.Name = "cRO5NB", ;
		Column32.ReadOnly = .T., ;
		Column32.Width = 129, ;
		Column33.ColumnOrder = 32, ;
		Column33.ControlSource = "RO5NT", ;
		Column33.FontCharSet = 238, ;
		Column33.FontName = "Arial", ;
		Column33.FontSize = 10, ;
		Column33.InputMask = (get_mask(12,gnZ)), ;
		Column33.Name = "cRO5NT", ;
		Column33.ReadOnly = .T., ;
		Column33.Width = 141, ;
		Column34.ColumnOrder = 9, ;
		Column34.ControlSource = "totftvatax", ;
		Column34.FontCharSet = 238, ;
		Column34.FontName = "Arial", ;
		Column34.FontSize = 10, ;
		Column34.InputMask = (get_mask(12,gnZ)), ;
		Column34.Name = "cTotftvaTax", ;
		Column34.ReadOnly = .T., ;
		Column34.Width = 93, ;
		Column35.ColumnOrder = 10, ;
		Column35.ControlSource = "tottvatax", ;
		Column35.FontCharSet = 238, ;
		Column35.FontName = "Arial", ;
		Column35.FontSize = 10, ;
		Column35.InputMask = (get_mask(12,gnZ)), ;
		Column35.Name = "cTotTVATax", ;
		Column35.ReadOnly = .T., ;
		Column35.Width = 99, ;
		Column36.ColumnOrder = 11, ;
		Column36.ControlSource = "RO21NB+RO11NB+RO19NB+RO9NB+RO5NB+RO24NB+RO20NB", ;
		Column36.FontCharSet = 238, ;
		Column36.FontName = "Arial", ;
		Column36.FontSize = 10, ;
		Column36.InputMask = (get_mask(12,gnZ)), ;
		Column36.Name = "cRONB", ;
		Column36.ReadOnly = .T., ;
		Column36.Width = 94, ;
		Column37.ColumnOrder = 12, ;
		Column37.ControlSource = "RO21NT+RO11NT+RO19NT+RO9NT+RO5NT+RO24NT+RO20NT", ;
		Column37.FontCharSet = 238, ;
		Column37.FontName = "Arial", ;
		Column37.FontSize = 10, ;
		Column37.InputMask = (get_mask(12,gnZ)), ;
		Column37.Name = "cRONT", ;
		Column37.ReadOnly = .T., ;
		Column37.Width = 84, ;
		Column38.ColumnOrder = 45, ;
		Column38.ControlSource = "tva_incasare", ;
		Column38.CurrentControl = "Check1", ;
		Column38.FontCharSet = 238, ;
		Column38.FontName = "Arial", ;
		Column38.FontSize = 10, ;
		Column38.Name = "cTVAIncasare", ;
		Column38.ReadOnly = .T., ;
		Column38.Sparse = .F., ;
		Column38.Width = 29, ;
		Column39.ColumnOrder = 48, ;
		Column39.ControlSource = "sucursala", ;
		Column39.FontCharSet = 238, ;
		Column39.FontName = "Arial", ;
		Column39.FontSize = 10, ;
		Column39.Name = "cSucursala", ;
		Column39.ReadOnly = .T., ;
		Column39.Width = 193, ;
		Column40.ColumnOrder = 46, ;
		Column40.ControlSource = "actcv.ales", ;
		Column40.CurrentControl = "_checkbox1", ;
		Column40.FontCharSet = 238, ;
		Column40.FontName = "Arial", ;
		Column40.FontSize = 10, ;
		Column40.Name = "cAles", ;
		Column40.ReadOnly = .F., ;
		Column40.Sparse = .F., ;
		Column40.Width = 30, ;
		Column41.ColumnOrder = 47, ;
		Column41.ControlSource = "cont", ;
		Column41.FontCharSet = 238, ;
		Column41.FontName = "Arial", ;
		Column41.FontSize = 10, ;
		Column41.Name = "cCont", ;
		Column41.ReadOnly = .T., ;
		Column41.Width = 56, ;
		Column42.ColumnOrder = 49, ;
		Column42.ControlSource = "soldf", ;
		Column42.FontCharSet = 238, ;
		Column42.FontName = "Arial", ;
		Column42.FontSize = 10, ;
		Column42.InputMask = (get_mask(12,gnZ)), ;
		Column42.Name = "Column42", ;
		Column42.ReadOnly = .T., ;
		Column43.ColumnOrder = 50, ;
		Column43.ControlSource = "RO21NB+RO11NB+RO19NB+RO9NB+RO5NB+RO21NT+RO11NT+RO19NT+RO9NT+RO5NT", ;
		Column43.FontCharSet = 238, ;
		Column43.FontName = "Arial", ;
		Column43.FontSize = 10, ;
		Column43.InputMask = (get_mask(12,gnZ)), ;
		Column43.Name = "Column43", ;
		Column43.ReadOnly = .T., ;
		Column44.ColumnOrder = 51, ;
		Column44.ControlSource = "solddif", ;
		Column44.FontCharSet = 238, ;
		Column44.FontName = "Arial", ;
		Column44.FontSize = 10, ;
		Column44.InputMask = (get_mask(12,gnZ)), ;
		Column44.Name = "Column44", ;
		Column44.ReadOnly = .T., ;
		Column44.Width = 104, ;
		Column45.ColumnOrder = 13, ;
		Column45.ControlSource = "ro21b", ;
		Column45.FontCharSet = 238, ;
		Column45.FontName = "Arial", ;
		Column45.FontSize = 10, ;
		Column45.Format = "RK", ;
		Column45.InputMask = (get_mask(12,gnZ)), ;
		Column45.Name = "cRO21B", ;
		Column45.ReadOnly = .T., ;
		Column45.Width = 106, ;
		Column46.ColumnOrder = 14, ;
		Column46.ControlSource = "ro21t", ;
		Column46.FontCharSet = 238, ;
		Column46.FontName = "Arial", ;
		Column46.FontSize = 10, ;
		Column46.Format = "RK", ;
		Column46.InputMask = (get_mask(12,gnZ)), ;
		Column46.Name = "cRO21T", ;
		Column46.ReadOnly = .T., ;
		Column46.Width = 111, ;
		Column47.ColumnOrder = 15, ;
		Column47.ControlSource = "ro21nb", ;
		Column47.FontCharSet = 238, ;
		Column47.FontName = "Arial", ;
		Column47.FontSize = 10, ;
		Column47.Format = "RK", ;
		Column47.InputMask = (get_mask(12,gnZ)), ;
		Column47.Name = "cRO21NB", ;
		Column47.ReadOnly = .T., ;
		Column47.Width = 118, ;
		Column48.ColumnOrder = 16, ;
		Column48.ControlSource = "ro21nt", ;
		Column48.FontCharSet = 238, ;
		Column48.FontName = "Arial", ;
		Column48.FontSize = 10, ;
		Column48.Format = "RK", ;
		Column48.InputMask = (get_mask(12,gnZ)), ;
		Column48.Name = "cRO21NT", ;
		Column48.ReadOnly = .T., ;
		Column48.Width = 127, ;
		Column49.ColumnOrder = 3, ;
		Column49.ControlSource = "dataireg", ;
		Column49.FontCharSet = 238, ;
		Column49.FontName = "Arial", ;
		Column49.FontSize = 10, ;
		Column49.Name = "cDataIreg", ;
		Column49.ReadOnly = .T., ;
		Column49.Width = 98, ;
		Column50.ColumnOrder = 23, ;
		Column50.ControlSource = "RO19NB", ;
		Column50.FontCharSet = 238, ;
		Column50.FontName = "Arial", ;
		Column50.FontSize = 10, ;
		Column50.Format = "R", ;
		Column50.InputMask = (get_mask(12,gnZ)), ;
		Column50.Name = "cRO19NB", ;
		Column50.ReadOnly = .T., ;
		Column50.Width = 118, ;
		Column51.ColumnOrder = 24, ;
		Column51.ControlSource = "RO19NT", ;
		Column51.FontCharSet = 238, ;
		Column51.FontName = "Arial", ;
		Column51.FontSize = 10, ;
		Column51.Format = "R", ;
		Column51.InputMask = (get_mask(12,gnZ)), ;
		Column51.Name = "cRO19NT", ;
		Column51.ReadOnly = .T., ;
		Column51.Width = 119, ;
		Column52.ControlSource = "incasat_tot", ;
		Column52.FontCharSet = 238, ;
		Column52.FontName = "Arial", ;
		Column52.FontSize = 10, ;
		Column52.InputMask = (get_mask(12,gnZ)), ;
		Column52.Name = "Column52", ;
		Column52.ReadOnly = .T., ;
		Column53.ControlSource = "incasat_exigibil", ;
		Column53.FontCharSet = 238, ;
		Column53.FontName = "Arial", ;
		Column53.FontSize = 10, ;
		Column53.InputMask = (get_mask(12,gnZ)), ;
		Column53.Name = "Column53", ;
		Column53.ReadOnly = .T., ;
		Column54.ControlSource = "diferenta_incasare_tva", ;
		Column54.FontCharSet = 238, ;
		Column54.FontName = "Arial", ;
		Column54.FontSize = 10, ;
		Column54.InputMask = (get_mask(12,gnZ)), ;
		Column54.Name = "Column54", ;
		Column54.ReadOnly = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdbase1.cAles._checkbox1' AS _checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		ControlSource = "ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Left = 11, ;
		Name = "_checkbox1", ;
		ReadOnly = .F., ;
		Top = 133
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cAles.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Ales", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cAles.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCeoptr.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. bunuri op. triunghiulare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCeoptr.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCescdd1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (a si d)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCescdd2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Livr. intracom. scutite cu drept de ded. conf art 143, alin 2 (b si c)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCescdd2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCesvdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. cu drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCesvdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCesvfs.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. fara scutire in statul membru", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCesvfs.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "C.I.F. / C.N.P.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCod_fiscal.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cCont.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cCont.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataact.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDataIreg.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDataIreg.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cDenumire.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cDenumire.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFdoc.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel doc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFdoc.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFodd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO cu drept deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFodd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cFofdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Locul livr./prest. este in afara RO fara drept deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cFofdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cNract.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cNract.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column27.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serv. intracom. fara drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column27.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column42.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold factura", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column42.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column43.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold Neexigibil", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column43.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column44.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta sold (sold fact. - sold neex.)", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column44.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column52.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Incasat in luna", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column52.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column53.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Exigibilizat (Baza+TVA)", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column53.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.Column54.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Diferenta incasat - exigibilizat", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.Column54.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo11b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 11%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo11b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO11NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 11%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO11NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO11NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 11%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO11NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo11t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 11%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo11t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO19NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO19NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo19t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 19%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo19t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 21%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 21%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 21%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO21T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 21%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO21T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo5B.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo5B.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO5NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO5NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO5NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO5NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo5T.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 5%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo5T.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo9b.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =Baza 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9b.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO9NB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =Baza 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO9NB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRO9NT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibile la intern =TVA 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRO9NT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRo9t.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern =TVA 9%=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRo9t.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONB.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =Baza=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONB.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRONT.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Neexigibil =TVA=", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRONT.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cRoti.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Taxabile la intern - Taxare inversa", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cRoti.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSerieAct.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie act", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSerieAct.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cSucursala.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotctva.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total cu TVA", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotctva.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotftvaTax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total fara TVA la intern", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotftvaTax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTotTVATax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Total TVA la intern", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTotTVATax.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		Caption = "", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Height = 17, ;
		Left = 15, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 123, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "TVA Inc.", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cTVAIncasare.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Oper. neimpozabile /neincluse in baza de impozitare", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrn.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrscdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Alte livr. scutite cu drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdbase1.cWrscfdd.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scutite fara drept de deducere", ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1", ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdbase1.cWrscfdd.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontCharSet = 238, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		SelectedBackColor = 100,185,255
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_grdfooter1' AS _grdfooter WITH ;
		Anchor = 14, ;
		ccolwithlabel = cfdoc, ;
		Comment = "*:OnResize=sb", ;
		csourcegrid = _grdbase1, ;
		csumcolumns = cTotctva,cTotfTvaTax,cTotTvaTax,cRONB,cRONT,cRo21b,cRo21t,cRo21Nb,cRo21Nt,cRo11b,cRo11t,cRo11Nb,cRo11Nt,cRo19b,cRo19t,cRo19Nb,cRo19Nt,cRo9b,cRo9t,cRo9Nb,cRo9Nt,cRo5b,cRo5t,cRo5Nb,cRo5Nt,cRoti,cCescdd1,cCescdd2,cWrscdd,cFodd,cFofdd,cWrscfdd,cWrn, ;
		ctotallabelexpression = 'TOTAL', ;
		Height = 25, ;
		Left = 11, ;
		Name = "_grdfooter1", ;
		TabIndex = 18, ;
		Top = 468, ;
		Width = 768, ;
		ZOrderSet = 3
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		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 ;
		Anchor = 8, ;
		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_reface1' AS but_reface WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 674, ;
		Name = "But_reface1", ;
		TabIndex = 13, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_reset_criterii1' AS but_reset_criterii WITH ;
		Anchor = 9, ;
		Left = 584, ;
		Name = "But_reset_criterii1", ;
		Top = 1, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
		Anchor = 9, ;
		Left = 614, ;
		Name = "But_start_criterii1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
		Anchor = 8, ;
		Left = 645, ;
		Name = "But_verifica1", ;
		TabIndex = 14, ;
		ToolTipText = "Verificare coduri fiscale", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cbo_tip_jurnal_vanz' AS _combobox WITH ;
		Alignment = 0, ;
		Anchor = 3, ;
		FontCharSet = 238, ;
		FontName = "Segoe UI", ;
		FontSize = 10, ;
		Height = 24, ;
		Left = 12, ;
		Name = "cbo_tip_jurnal_vanz", ;
		RowSource = "Complet,Livrari taxabile la intern,Livrari cu taxare inversa,Livrari scutite cu drept de deducere,Livrari scutite fara drept de deducere,Livrari in afara Romaniei,Operatiuni neimpozabile", ;
		RowSourceType = 1, ;
		TabIndex = 15, ;
		ToolTipText = 'Apasati "Cauta" dupa ce alegeti un tip de vizualizare', ;
		Top = 41, ;
		Width = 254
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'cmdTVAIncasare' AS cmd_executa WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		Caption = "\<Exigibilizare TVA Incasare", ;
		Height = 29, ;
		Left = 596, ;
		Name = "cmdTVAIncasare", ;
		ToolTipText = "Genereaza note TVA Incasare 4426 = 4428 pentru facturile selectate. Se foloseste pentru facturile achitate integral, dar cu sold TVA neexigibil diferit de 0.", ;
		Top = 37, ;
		Width = 190
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		allowgridpreferences = .F., ;
		companyname = ROA, ;
		gridexpression = Thisform._grdbase1, ;
		Height = 17, ;
		Left = 329, ;
		Name = "Gridextra1", ;
		Top = 41, ;
		Width = 19
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Lb_shortcuts1' AS lb_shortcuts WITH ;
		Caption = "CTRL+F = Terminare; ESC = Renuntare; CTRL+Q = Cautare; CTRL+T = Resetare", ;
		Left = 6, ;
		Name = "Lb_shortcuts1", ;
		Top = 16
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'oMenuShortcut' AS menulib WITH ;
		Left = 216, ;
		Name = "oMenuShortcut", ;
		TabIndex = 17, ;
		Top = 7, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\utility.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters lcFiltru
		If Empty(lcFiltru)
			lcFiltru = povanz.ca_baza1.cfiltru
		Endif
		Thisform.MousePointer= 11
		Thisform.LockScreen=.T.
		
		save_grid_tag(Thisform._grdbase1)
		povanz.ca_baza1.cfiltru=lcFiltru
		povanz.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdbase1)
		Thisform._grdfooter1.calcTotal()
		
		Thisform.LockScreen=.F.
		Thisform.MousePointer= 0
		
	ENDPROC

	PROCEDURE butdrept
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcOptiuniMeniuAnte, lnOptiune, lnRaspuns, loPartener
		lcOptiuniMeniuAnte = "\<Note contabile;" + ;
			"\<Incasari/Plati;" + ;
			"Istoric \<debit-credit;\-;"
		lcCodFiscal = Alltrim(actcv.cod_fiscal)
		lcDenumire = Alltrim(actcv.denumire)
		
		lnOptiune = 0
		loPartener = Null
		loDate = Createobject("empty")
		AddProperty(loDate, "denumire", m.lcDenumire)
		AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
		AddProperty(loDate, "optiuni_meniu_ante", m.lcOptiuniMeniuAnte)
		
		lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		
		Do Case
			Case m.lnOptiune = 1
				Thisform.NOTACONTAB()
			Case m.lnOptiune = 2
				Thisform.incaspl()
			Case m.lnOptiune = 3
				This.ist_deb_cred()
		Endcase
	ENDPROC

	PROCEDURE do_cauta
		*!* 23.07.2010
		*!* marius.mutu
		*!* registru tva cumulat pe o perioada
		
		*!* 19.03.2013
		*!* marius.mutu
		*!* filtru plati fara tva incasare (baza+tva exigibil din Registru TVA <> plata din Registrul Jurnal)
		
		*!* 25.09.2013
		*!* marius.mutu
		*!* FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
		
		*!* 16.12.2015
		*!* marius.mutu
		*!* cota tva 20%
		
		* 10.01.2022
		* CORECTAT FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE: INCLUSIV TVA 19%
		* CORECTAT FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE: FARA SOLD 472
		
		Local lcFiltru
		lcFiltru = [luna=]+Alltrim(Str(gnLuna))+[ and an=]+Alltrim(Str(gnAn))+ gcCondSucursala
		
		*!* 23.07.2010
		&& DACA FILTRUL NU CONTINE PERIOADA, SELECTEZ DOAR INREGISTRARILE DIN LUNA CURENTA
		If !'PERIOADA'$Upper(Thisform.filtru_pretty_ro_full)
			lcFiltru = [LUNA=]+Alltrim(Str(gnLuna))+[ AND AN=]+Alltrim(Str(gnAn)) + gcCondSucursala
		ELSE 
			lcFiltru = SUBSTR(gcCondSucursala, 6)	
		Endif
		*!* 23.07.2010 ^
		
		lnOptiune = Thisform.cbo_tip_jurnal_vanz.ListItemId
		
		
		If Len(Thisform.filtru_pretty)>0
			filtrutext=Thisform.filtru_pretty
			If At("AND",filtrutext)=1
				filtrutext=Right(filtrutext,Len(filtrutext)-4)
			Endif
		
			lcFiltru = lcFiltru + IIF(!EMPTY(m.lcFiltru), " and ", "") + Alltrim(filtrutext)
		Endif
		
		Do Case
			Case lnOptiune = 1
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI]
			Case lnOptiune = 2 && Livrari taxabile intern
				lcFiltru = lcFiltru+ [ and (RO11b<>0 OR RO11t<>0 OR RO21b<>0 OR RO21t<>0 OR ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or ] + ;
									[RO11nb<>0 OR RO11nt<>0 or RO21nb<>0 OR RO21nt<>0 or ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXABILE INTERN]
			Case lnOptiune = 3 && Livrari cu taxare inversa
				lcFiltru = lcFiltru + [ and (roti<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - TAXARE INVERSA]
			Case lnOptiune = 4 && Livrari scutite cu drept de deducere
				lcFiltru = lcFiltru + [ and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE CU DREPT DE DEDUCERE]
			Case lnOptiune = 5 && Livrari scutite fara drept de deducere
				lcFiltru = lcFiltru + [ and (wrscfdd<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - SCUTITE FARA DREPT DE DEDUCERE]
			Case lnOptiune = 6 && Livrari in afara Romaniei
				lcFiltru = lcFiltru + [ and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - IN AFARA ROMANIEI]
			Case lnOptiune = 7 && Operatiuni neimpozabile
				lcFiltru = lcFiltru + [ and (wrn<>0)]
				Thisform.lb_titlu_alb_b121.Caption = [REGISTRUL VANZARI - OPERATIUNI NEIMPOZABILE]
		Endcase
		
		If (This.filtru_pretty#"none")
			*** daca sunt inainte de 2013 sau vreau sa vad facturile TVA Incasare cu diferenta sold inregistrari parteneri fata de sold neexigibil
			*** pentru exibilizare fortata, arat facturile defalcate dupa id_fact (vjc2010), altfel arat facturile cumulate dupa nract, dataact
			if(m.gnAn < 2013 or 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full))
				povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2013], [vjv2010],1,1,1)
				povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2013], [vjv2010],1,1,1)
			ELSE
				povanz.ca_baza1.SELECTCMD = STRTRAN(povanz.ca_baza1.SELECTCMD, [vjv2010], [vjv2013],1,1,1)
				povanz.ca_baza1.cSelect = STRTRAN(povanz.ca_baza1.cSelect, [vjv2010], [vjv2013],1,1,1)		
			ENDIF 	
			
			Thisform.actualizeaza_grid1(lcFiltru)
			If Reccount('actcv')=0
				aMESSAGEBOX("Cautarea nu a intors rezultate!",64,"Info cautare")
			endif
			
			*** FILTRU DIFERENTE INCASAT - TVA EXIGIBIL PENTRU FACTURILE TVA INCASARE
			If 'TVA INCASARE'$Upper(Thisform.filtru_pretty_ro_full)
		
				TEXT to lcSql noshow textmerge
		select an,
		       luna,
		       min(id_fact) as id_fact,
		       dataact,
		       nract,
		       serie_act,
		       id_part,
		       id_fdoc,
		       id_sucursala,
		       sum(totctva) as totctva,
		       sum(nvl(total_incasat, 0)) as incasat_tot,
		       sum(nvl(tva_exigibil, 0)) as incasat_exigibil,       
		       sum(nvl(total_incasat, 0) - tva_exigibil) as diferenta_incasare_tva
		  from (select a.an,
		               a.luna,
		               a.id_fact,
		               a.dataact,
		               a.nract,
		               a.serie_act,
		               a.id_fdoc,
		               a.id_sucursala,
		               a.id_part,
		               a.totctva,
		               nvl(b.total_incasat, 0) as total_incasat,
		               (a.RO11b + a.RO11t + a.RO21b + a.RO21t + a.ro19b + a.ro19t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) as tva_exigibil
		          from (select an,
		                       luna,
		                       id_fact,
		                       id_sucursala,
		                       id_part,
		                       id_fdoc,
		                       nract,
		                       dataact,
		                       serie_act,
		                       totctva,
		                       RO11b,
		                       RO11t,
		                       RO21b,
		                       RO21t,
		                       ro19b,
		                       ro19t,                                              
		                       ro9b,
		                       ro9t,
		                       ro5b,
		                       ro5t
		                  from jv2007 jc
		                 where an = <<m.gnAn>>
		                   and luna = <<m.gnLuna>>
			           and (RO11nb <> 0
			            or RO21nb <> 0
			            or ro19nb <> 0	            
		    	        or ro9nb <> 0
		        	    or ro5nb <> 0) <<m.gcCondSucursala>>) a
		          left join (select an,
		                           luna,
		                           id_sucursala,
				                    (case
				                      when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                       id_fact
				                      else
				                       id_factc
				                    end) as id_fact,
				                    sum(case
				                          when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                           suma
				                          else
				                           0
				                        end) as ex,
				                    sum(case
				                          when id_jtva_coloana in (2, 4, 14, 16, 28) then
				                           0
				                          else
				                           suma
				                        end) as total_incasat
		                      from act
		                     where sters = 0
		                       and an = <<m.gnAn>>
		                       and luna = <<m.gnLuna>>
		                     <<m.gcCondSucursala>>
		                       and (id_jtva_coloana in (2, 4, 14, 16, 28) or
		                           id_factc <> 0)
		                     group by an,
		                              luna,
		                              id_sucursala,
		                              (case
		                                when id_jtva_coloana in
		                                     (2, 4, 14, 16, 28) then
		                                 id_fact
		                                else
		                                 id_factc
		                              end)) b
		            on a.id_fact = b.id_fact
		           and a.an = b.an
		           and a.luna = b.luna
		           and nvl(a.id_sucursala, 0) = nvl(b.id_sucursala, 0)
		         where nvl(b.total_incasat, 0.00) <> 0 and nvl(b.total_incasat, 0.00) -
		               (a.RO11b + a.RO11t + a.RO21b + a.ro19b + a.ro19t + a.RO21t + a.ro9b + a.ro9t + a.ro5b + a.ro5t) <> 0)
		 group by an,
		          luna,
		          dataact,
		          nract,
		          serie_act,
		          id_part,
		          id_fdoc,
		          id_sucursala
		
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsDiferenteTVA")
				If m.llSucces
					Select crsDiferenteTVA
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace diferenta_incasare_tva With .diferenta_incasare_tva, incasat_tot WITH .incasat_tot, incasat_exigibil WITH .incasat_exigibil
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(diferenta_incasare_tva, 0) <> 0
					go top in actcv
					thisform._grdbase1.Refresh()
					THISFORM._grdfooter1.calcTotal
				Endif && m.llSucces
			Endif && 'TVA INCASARE'	
			
			*** FILTRU DIFERENTA SOLD FACTURA - SOLD NEEXIGIBIL (BAZA + TVA) PENTRU FACTURILE TVA INCASARE
			If 'DIFERENTA SOLD'$Upper(Thisform.filtru_pretty_ro_full)
				TEXT to lcSql noshow textmerge
				select jv.id_fact,
				       ip.cont,
				       nvl(ip.sold, 0) as soldf,
				       (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
				       nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
				       jv.denumire,
				       jv.nract,
				       jv.serie_act,
				       jv.id_sucursala,
				       jv.id_fdoc,
				       jv.id_part,
				       jv.dataact,
				       jv.totctva,
				       jv.RO11nb,
				       jv.RO11nt,
				       jv.RO21nb,
				       jv.RO21nt,		       
				       jv.ro19nb,
				       jv.ro19nt,		       
				       jv.ro9nb,
				       jv.ro9nt,
				       jv.ro5nb,
				       jv.ro5nt
				  from vjv2010 jv
				  left join (select id_fact,
				                    cont,
				                    sum((precdeb + debit) - (preccred + credit)) as sold
				               from vireg_parteneri
				              where an = <<m.gnAn>>
				                and luna = <<m.gnLuna>>
				                and SUBSTR(cont,1,1) = '4' and cont not in ('419', '472')
				                and id_fact in
				                    (select distinct id_fact
				                       from vjv2010
				                      where an = <<m.gnAn>>
				                        and luna = <<m.gnLuna>>
				                        and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
				                        and tva_incasare = 1)
				              group by id_fact, cont) ip
				    on jv.id_fact = ip.id_fact
				 where jv.an = <<m.gnAn>>
				   and jv.luna = <<m.gnLuna>>
		           and jv.tva_incasare = 1
				   and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
				   and  nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
				ENDTEXT
		
				llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif")
				If m.llSucces
					Select crsSoldDif
					Scan
						Scatter Name loDiferenta
						With loDiferenta
							Select actcv
							Locate For id_fact = .id_fact && nract = .nract And dataact = .dataact And id_part = .id_part And Nvl(serie_act,'') = Nvl(.serie_act,'') And Nvl(id_sucursala,0) = Nvl(.id_sucursala,0) And Nvl(id_fdoc,0) = Nvl(.id_fdoc, 0)
							If Found()
								Replace cont With .cont, soldf WITH .soldf, solddif WITH .solddif
							Endif
						Endwith
					Endscan && crsDiferenteTVA
		
					Select actcv
					Set Filter To Nvl(solddif, 0) <> 0
					Go Top In actcv
					Thisform._grdbase1.Refresh()
					Thisform._grdfooter1.calcTotal
					SELECT actcv
				Endif && m.llSucces
			Endif && DIFERENTA SOLD
				
		endif && (This.filtru_pretty#"none")
		
	ENDPROC

	PROCEDURE do_excel
		SET STEP ON 
		do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
		
		return
		
		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
		Private pctitlu, pcSubtitlu, pcdataora
		lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1
		
		x=xmenu("Registru Vanzari;\-;Recapitulatie - Registru Vanzari;\-;Registru Vanzari restrans")
		
		pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1)))
		Store "" To pcSubtitlu
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu = This.filtru_pretty_ro + lctext
		
		
		*!*	pcdataora = get_ora(2)
		
		Do Case
			Case lnTipJurnal = 1
				pcSubtitlu = "LIVRARI TAXABILE LA INTERN"
			Case lnTipJurnal = 2
				pcSubtitlu = "LIVRARI CU TAXARE INVERSA"
			Case lnTipJurnal = 3
				pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE"
			Case lnTipJurnal = 4
				pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE"
			Case lnTipJurnal = 5
				pcSubtitlu = "LIVRARI IN AFARA ROMANIEI"
			Case lnTipJurnal = 6
				pcSubtitlu = "OPERATIUNI NEIMPOZABILE"
		Endcase
		
		If x = 1
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		Endif
		
		&& REGISTRE TVA RECAPITULATIE
		If x = 3
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		
			Private pnAn, pnLuna
			pnAn = 0
			pnLuna = 0
			locaut = Createobject('frm_caut_anluna')
			locaut.Show(1)
			If buton = 2
				Return
			Endif
		
			If lnTipJurnal <> 0
				Do Case
					Case lnTipJurnal = 1 && Livrari taxabile intern
						lcWhere = "(RO11b<>0 OR RO11t<>0 OR RO21b<>0 OR RO21t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 )"
					Case lnTipJurnal = 2 && Livrari cu taxare inversa
						lcWhere = "(roti<>0)"
					Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere
						lcWhere = "(cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)"
					Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere
						lcWhere = "(wrscfdd<>0)"
					Case lnTipJurnal = 5 && Livrari in afara Romaniei
						lcWhere = "(fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)"
					Case lnTipJurnal = 6 && Operatiuni neimpozabile
						lcWhere = "(wrn<>0)"
				Endcase
			Else
				lcWhere = ''
			Endif
		
		
			lcSelect = [select 1 as tip, an, luna, to_date('','ddmmyyyy') as dataact, 000000000 as nract,] + ;
				[ (select numeluna from lunilean where nrluna = luna) as denumire,' ' as cod_fiscal, ] +;
				[SUM(TOTCTVA) AS TOTCTVA, ] + ;
				[SUM(CESCDD1) AS CESCDD1, SUM(CESCDD2) AS CESCDD2,SUM(CEOPTR) as CEOPTR, ] + ;
				[SUM(FODD) AS FODD, SUM(FOFDD) AS FOFDD,SUM(CESVDD) as CESVDD, SUM(CESVFDD) AS CESVFDD,SUM(CESVFS) AS CESVFS,] + ;
				[SUM(ROTI) AS ROTI, ] + ;
				[SUM(RO11B) AS RO11B, SUM(RO11T) AS RO11T, SUM(RO21B) AS RO21B, SUM(RO21T) AS RO21T, SUM(RO19B) AS RO19B, SUM(RO19T) AS RO19T, SUM(RO9B) AS RO9B, SUM(RO9T) AS RO9T, ] + ;
				[SUM(RO5B) AS RO5B, SUM(RO5T) AS RO5T,]+;
				[SUM(WRN) AS WRN, SUM(WRSCDD) AS WRSCDD, SUM(WRSCFDD) AS WRSCFDD ] + ;
				[ FROM VJV2010 ] + ;
				[ WHERE (an*12+luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna) ] + Iif(!Empty(lcWhere), " and " + lcWhere, "") + ;
				gcCondSucursala + ;
				[ GROUP BY an, luna ] + ;
				[ ORDER BY an, luna ]
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && x = 3
		
		If x = 5
			x = raport_regvanz2007_restrans(x,[actcv])
		Endif
		
		If Inlist(x,1,3,5)
			*!*		If Reccount('cListRC') = 0
			*!*			amessagebox("Nu exista inregistrari pentru listare!",48,"Atentie")
			*!*		Else
			*!*			Thisform.AlwaysOnTop=.F.
			*!*			Select cListRC
			*!*			Report Format registru_vanzari_jtva2007 To Printer Prompt Preview
			*!*			Thisform.AlwaysOnTop=.T.
			*!*		Endif
			Thisform.AlwaysOnTop = .F.
			goExport.export2frx([cListRC],[registru_vanzari_jtva2010])
		
			*!*		registru vanzari 5%
			Select cListRC
			Set Filter To ro19b<>0 Or ro19t<>0 OR ro5b<>0 Or ro5t<>0 OR cesvfs <> 0	&&	modificare v 2.0.128 : am adaugat cesvfs 
			GO TOP 
			If  !EMPTY(denumire)
				goExport.export2frx([cListRC],[registru_vanzari_jtva2010_2])
			Endif
			*!*		registru vanzari 5% ^
			Thisform.AlwaysOnTop = .T.
		Endif
		
		If Used('cListRC')
			Use In cListRC
		Endif
		
		
	ENDPROC

	PROCEDURE do_listare2013
		*!* 14.03.2013
		*!* marius.mutu
		*!* corectare mai multe facturi cu acelasi cod (nota fara predefinire) - nu aparea nume, nract, dataact in listare
		
		*!* 23.09.2013
		*!* marius.mutu
		*!* Se includ si facturile fara TVA INCASARE cu valoare 0
		
		*!* 17.10.2013
		*!* marius.mutu
		*!* la facturile fara TVA Incasare cu valoare 0, aparea o linie goala
		
		Private pctitlu, pcSubtitlu, pcdataora
		Local lcNumeAct, lcSelect, lcSql, lcWhere, lctext, lddata1, lddata2, llSucces, lnCod, lnDiferenta
		Local lnIdFact, lnIncasat3, lnMeniu, lnNrCrt, lnNrCrtF, lnNrc, lnPerioada, lnSucces, lnTip, lcSerieAct
		Local lnTipJurnal
		*:Global pcPerioada, pnAn, pnLuna
		
		lnTipJurnal = Thisform.cbo_tip_jurnal_vanz.ListItemId - 1
		
		pctitlu = [JURNAL DE VANZARI ] + Alltrim(Substr(Thisform.lb_tITLU_ALB_B121.Caption,At([-],Thisform.lb_tITLU_ALB_B121.Caption,1)))
		pcSubtitlu = ""
		If This.filtru_traducere()#""
			lctext=" si "+This.filtru_traducere()
		Else
			lctext=""
		Endif
		
		pcSubtitlu = This.filtru_pretty_ro + lctext
		pcPerioada = Padl(m.gnLuna,2,'0') + '/' + Alltrim(Str(m.gnAn))
		pcdataora = get_ora(2)
		
		lnMeniu = xmenu("Registru Vanzari lunar;Registru Vanzari - recapitulatie 3 luni;Registru Vanzari - recapitulatie an curent;Registru Vanzari lunar restrans")
		If !Inlist(m.lnMeniu, 1, 2, 3, 4)
			Return
		Endif
		
		Do Case
			Case lnTipJurnal = 1
				pcSubtitlu = "LIVRARI TAXABILE LA INTERN"
			Case lnTipJurnal = 2
				pcSubtitlu = "LIVRARI CU TAXARE INVERSA"
			Case lnTipJurnal = 3
				pcSubtitlu = "LIVRARI SCUTITE CU DREPT DE DEDUCERE"
			Case lnTipJurnal = 4
				pcSubtitlu = "LIVRARI SCUTITE FARA DREPT DE DEDUCERE"
			Case lnTipJurnal = 5
				pcSubtitlu = "LIVRARI IN AFARA ROMANIEI"
			Case lnTipJurnal = 6
				pcSubtitlu = "OPERATIUNI NEIMPOZABILE"
		Endcase
		
		If Inlist(m.lnMeniu,1,2,3)
			&& REGISTRU TVA LUNA CURENTA
			Select 0 As tip, * ;
				FROM actcv ;
				INTO Cursor cListRC ;
				ORDER By dataact, nract ;
				READWRITE
		Endif
		
		*** FILTRU PENTRU RECAPITULATIE
		lcWhere = povanz.ca_baza1.cfiltru
		*** STERG LUNA=XX AND AN=XXXX DIN FILTRU (in cazul in care vreau sa aduc si lunile din recapitulatie)
		if left(upper(lcWhere),4) = 'LUNA'
			lnPos = atc('AN=', lcWhere,1)
			if m.lnPos > 0
				lcWhere = alltrim(substr(m.lcWhere, m.lnPos + 11))
			endif 
		endif 	
		
		&& REGISTRE TVA RECAPITULATIE
		If INLIST(lnMeniu, 2, 3)
			Private m.pnAn, m.pnLuna
			IF m.lnMeniu = 2 
				* recapitulatie 3 luni
				lnPerioada = Ceil(m.gnLuna / 3)
				pnLuna	   = (m.lnPerioada - 1) * 3 + 1
			ELSE
				* recapitulatie an curent
				pnLuna = 1
			ENDIF 
			pnAn	   = m.gnAn
		
			lddata1	= Date(m.pnAn, m.pnLuna, 1)
			lddata2	= Date(m.gnAn, m.gnLuna, 1)
		
			pcPerioada = m.pcPerioada + " * Recap. " + Padl(m.pnLuna, 2, '0') + '/' + Alltrim(Str(m.pnAn)) + ' - ' + Padl(m.gnLuna, 2, '0') + '/' + Alltrim(Str(m.gnAn))
		
		
			Do Case
				Case lnTipJurnal = 1 && Livrari taxabile intern
					lcWhere = m.lcWhere + " and (RO11b<>0 OR RO11t<>0 OR ro21b<>0 OR ro21t<>0 OR ro19b<>0 or ro19t<>0 OR ro9b<>0 OR ro9t<>0 OR ro5b<>0 OR ro5t<>0 or RO24b<>0 OR RO24t<>0 OR ro20b<>0 OR ro20t<>0 or " + ;
					"RO11nb<>0 OR RO11nt<>0 OR ro21nb<>0 OR ro21nt<>0 OR ro19nb<>0 OR ro19nt<>0 OR ro9nb<>0 OR ro9nt<>0 OR ro5nb<>0 OR ro5nt<>0 or RO24nb<>0 OR RO24nt<>0 OR ro20nb<>0 OR ro20nt<>0 )"
				Case lnTipJurnal = 2 && Livrari cu taxare inversa
					lcWhere = m.lcWhere + " and (roti<>0)"
				Case lnTipJurnal = 3 && Livrari scutite cu drept de deducere
					lcWhere = m.lcWhere + " and (cescdd1<>0 or cescdd2<>0 or wrscdd<>0 or ceoptr<>0)"
				Case lnTipJurnal = 4 && Livrari scutite fara drept de deducere
					lcWhere = m.lcWhere + " and (wrscfdd<>0)"
				Case lnTipJurnal = 5 && Livrari in afara Romaniei
					lcWhere = m.lcWhere + " and (fofdd<>0 or fodd<>0 or cesvdd<>0 or cesvfdd<>0 or cesvfs<>0)"
				Case lnTipJurnal = 6 && Operatiuni neimpozabile
					lcWhere = m.lcWhere + " and (wrn<>0)"
			Endcase
		
			TEXT to lcSelect textmerge noshow
			select 1 as tip, v.an, v.luna, cast(0 as Number(20)) as cod, to_date('','ddmmyyyy') as dataact, 000000000 as nract,
		       (select la.numeluna || ' ' || to_char(v.an) from lunilean la where la.nrluna = v.luna) as denumire,
				SUM(v.TOTCTVA) AS TOTCTVA,
				SUM(v.CESCDD1) AS CESCDD1, SUM(v.CESCDD2) AS CESCDD2,SUM(v.CEOPTR) as CEOPTR,
				SUM(v.FODD) AS FODD, SUM(v.FOFDD) AS FOFDD,SUM(v.CESVDD) as CESVDD, SUM(v.CESVFDD) AS CESVFDD,SUM(v.CESVFS) AS CESVFS,
				SUM(v.ROTI) AS ROTI,
				SUM(v.RO11B) AS RO11B, SUM(v.RO11T) AS RO11T, SUM(v.ro21B) AS ro21B, SUM(v.ro21T) AS ro21T, SUM(v.RO19B) AS RO19B, SUM(v.RO19T) AS RO19T, SUM(v.RO9B) AS RO9B, SUM(v.RO9T) AS RO9T,
				SUM(v.RO5B) AS RO5B, SUM(v.RO5T) AS RO5T,
				SUM(v.RO24B) AS RO24B, SUM(v.RO24T) AS RO24T, SUM(v.ro20B) AS ro20B, SUM(v.ro20T) AS ro20T, 
				SUM(v.WRN) AS WRN, SUM(v.WRSCDD) AS WRSCDD, SUM(v.WRSCFDD) AS WRSCFDD
				FROM (select <<m.pnAn>> as an, <<m.pnLuna>> + rownum - 1 as luna from dual connect by level <= <<(m.gnAn*12 + m.gnLuna) - (m.pnAn*12 + m.pnLuna ) + 1>>) l
				left JOIN VJV2010 V on v.an = l.an and v.luna = l.luna
				WHERE v.an*12+v.luna between ?pnAn*12 + ?pnLuna and ?gnAn*12 + ?gnLuna <<Iif(!Empty(m.lcWhere), " and " + m.lcWhere, "")>>
				GROUP BY v.an, v.luna
				ORDER BY v.an, v.luna
			ENDTEXT
		
			lnSucces = goExecutor.oExecute(lcSelect, "crsTotal")
			If lnSucces < 0
				amessagebox(goExecutor.cEroare,0+16,"Eroare")
			Else
				Replace All dataact With Gomonth(Date(an, luna, 1), 120) In crsTotal
				Replace All cod With Int(Val(Dtos(dataact))) In crsTotal
		
				Select cListRC
				Append From Dbf('crsTotal')
				Use In crsTotal
			Endif
		Endif && lnMeniu = 2
		
		If m.lnMeniu = 4
			lnMeniu = raport_regvanz2007_restrans(m.lnMeniu ,[actcv])
		Endif
		
		*** FORMAT TVA INCASARE 2013
		Select cListRC
		Index On denumire + Str(nract, 14, 0) Tag numeact
		Index On cod Tag cod
		
		update_jtva_coloane('JV')
		*** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
			(RO11B + ro21B + RO19B + RO9B + RO5B + RO24B + ro20B + CESCDD1 + CESCDD2 + CEOPTR + FODD + FOFDD + CESVDD + CESVFDD + CESVFS + ROTI + WRN + WRSCDD + WRSCFDD) As BAZA, ;
			(RO11T + ro21T + RO19T +  RO9T +  RO5T + RO24T + ro20T) As TVA, ;
			(RO11NB + ro21NB + RO19NB + RO9NB + RO5NB + RO24NB + ro20NB) As BAZAN, ;
			(RO11NT + ro21NT + RO19NT + RO9NT + RO5NT + RO24NT + RO20NT) As TVAN, ;
			cast(0 As N(14)) As NRACTI, Cast({} As D) As DATAACTI, Space(20) As FDOCI, Cast(0 As N(16, 4)) As INCASAT ;
			FROM cListRC r ;
			where tip = 0 And TVA_INCASARE = 1 ; 
			INTO Cursor cListRCTemp READWRITE
		
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		goLog.Log('1', 'listare_jv')
		*** SELECTEZ FACTURILE FARA TVA_INCASARE CU TOTAL, BAZA, TVA
		* tratare bug se bloca la listare doar pe calculatorul Silviei la selectie din (cListRC, jtva_coloane)
		* Pe un calculator statea 10 minute pana facea selectia 
		* Am refacut join-ul ca doua scan-uri
		lnOptiuneBug = INT(VAL(NVL(citeste_optiune_utilizator('RC_REGCUMP_LISTARE_BUG'), '0')))
		
		
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 0 AND tva_incasare = 0
				SCATTER NAME loRC
				WAIT WINDOW 'Facturi fara TVA Incasare ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO11B','RO21B', 'RO19B', 'RO9B', 'RO5B', 'RO24B','RO20B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ;
					 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD')   
					loRC.cod_tva = ALLTRIM(coloana_jv)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza =Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ;
						Iif(loRC.cod_tva = 'RO21B', loRC.ro21B, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ;
						IIF(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
						IIF(loRC.cod_tva = 'RO20B', loRC.RO20B, ;				
						IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ;
						IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ;
						IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ;
						IIF(loRC.cod_tva = 'FODD', loRC.FODD , ;
						IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ;
						IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ;
						IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ;
						IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ;
						IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ;
						IIF(loRC.cod_tva = 'WRN', loRC.WRN , ;
						IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ;
						IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ;
						0)))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ;
					    Iif(loRC.cod_tva = 'RO21B', loRC.ro21T, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ;
						IIF(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
						IIF(loRC.cod_tva = 'RO20B', loRC.RO20T, ;				
						0)))))))
		
		*!*				IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
		*!*				ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
		
		goLog.Log('2', 'listare_jv')
		*** SELECTEZ FACTURILE CU VALOARE 0
		Select distinct cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, '' as COD_TVA, '' as EXPLICATIE_TVA, TOTCTVA, TOTFTVATAX, TOTTVATAX, TVA_INCASARE, ;
			baza, tva ;
			FROM cListRCTemp1 ;
			WHERE BAZA = 0 And TVA = 0 ;
			AND id_fact NOT in (SELECT id_fact FROM cListRCTemp1 Where !(BAZA = 0 And TVA = 0)) ;
			INTO CURSOR cListRCTemp2 NOFILTER 
		goLog.Log('3', 'listare_jv')	
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		*** SELECTEZ EXPLICATIILE DE TVA 0% EXIGIBILE IN PERIOADA PENTRU FACTURILE CU TVA_INCASARE
		Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, J.COLOANA_JV As COD_TVA, J.denumire As EXPLICATIE_TVA, ;
			CAST(Iif(J.COLOANA_JV = 'CESCDD1', r.CESCDD1 , ;
			IIF(J.COLOANA_JV = 'CESCDD2', r.CESCDD2 , ;
			IIF(J.COLOANA_JV = 'CEOPTR', r.CEOPTR , ;
			IIF(J.COLOANA_JV = 'FODD', r.FODD , ;
			IIF(J.COLOANA_JV = 'FOFDD', r.FOFDD , ;
			IIF(J.COLOANA_JV = 'CESVDD', r.CESVDD , ;
			IIF(J.COLOANA_JV = 'CESVFDD', r.CESVFDD , ;
			IIF(J.COLOANA_JV = 'CESVFS', r.CESVFS , ;
			IIF(J.COLOANA_JV = 'ROTI', r.ROTI , ;
			IIF(J.COLOANA_JV = 'WRN', r.WRN , ;
			IIF(J.COLOANA_JV = 'WRSCDD', r.WRSCDD , ;
			IIF(J.COLOANA_JV = 'WRSCFDD', r.WRSCFDD, ;
			0)))))))))))) As N(16, 4)) As BAZA, ;
			0 As TVA ;
			FROM cListRC r, JTVA_COLOANE J ;
			WHERE tip = 0 And r.TVA_INCASARE = 1 And J.JV = 1 And !Empty(Nvl(J.COLOANA_JV, '')) And Nvl(J.COTA_TVA, 0) = 0 ;
			INTO Cursor cListRCTemp1 Readwrite
		goLog.Log('4', 'listare_jv')
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Use In (Select('cListRCTemp1'))
		
		*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
		
		TEXT to m.lcSql textmerge noshow
			select cast(0 as Number(10)) as nrc, a.cod, 2 As tip, jv.id_fact, jv.nract As nract, jv.serie_act, jv.dataact, a.nract As NRACTI, a.dataact As DATAACTI,  fdoc.fel_document as FDOCI, p.denumire As denumire, p.COD_FISCAL,
			J.COTA_TVA, J2.COLOANA_JV As COD_TVA, J2.denumire As EXPLICATIE_TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) As BAZA, a.suma As TVA,
			round(a.suma * 100 / J.COTA_TVA, 2) + a.suma As INCASAT,
			(select sum(suma) from act a1 where a1.an = ?m.gnAn and a1.luna = ?m.gnLuna and a1.sters = 0 and a1.id_factc = a.id_fact and a1.cod = a.cod) as INCASAT2
			from act a left join jv2007 jv on a.id_fact = jv.id_fact
		    left join nom_parteneri p on jv.id_part = p.id_part
			Left Join JTVA_COLOANE J On a.id_jtva_coloana = J.id_jtva_coloana
			LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
			left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
			where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4428' And a.scc = '4427' And Nvl(a.id_jtva_coloana, 0) <> 0
			and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
			order by a.cod, J2.COLOANA_JC
		ENDTEXT
		
		llSucces = goExecutor.oExecuta(m.lcSql, "cListRcTemp1")
		goLog.Log('5', 'listare_jv')
		If m.llSucces
		
			*** daca am pus filtru in Registru pe Nume sau altceva
			*** sterg incasarile/platile care nu apartin de facturile filtrate
			*** ca sa am doar incasarile/platile care tin de filtru
			if !empty(m.lcWhere)
				delete from cListRcTemp1 where padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') not in ;
					(select padl(nract,14,'0') + '|' + dtos(dataact) + '|' + padr(denumire,100,' ') from cListRcTemp)
			endif 	
		
			***  ROTUNJIRE BAZA EXIGIBILA = BAZA INCASAT - TVA EXIGIBIL PENTRU FIECARE INCASARE
			*** INCASAT ESTE TOATA SUMA INCASATA, TREBUIE SA CALCULEZ BAZELE AFERENTE TVA-URILOR DIN SUMA INCASATA
			Select cListRCTemp1
			Go Top
			lnCod = cod
			lnNrAct = nract
			lcSerieAct = NVL(serie_act, '')
			ldDataAct = dataact
			lcDenumire = denumire
			lnNrc = 0
			Scan
				lnNrc = m.lnNrc + 1
				If m.lnCod <> cod Or m.lnNrAct <> nract Or m.lcSerieAct <> NVL(serie_act, '') OR m.ldDataAct <> dataact Or m.lcDenumire <> denumire
					lnNrc = 1
				Endif
				lnCod = cod
				Replace nrc With m.lnNrc
			Endscan
		
			*** adun diferenta la prima baza
			Select cod, nract, serie_act, dataact, denumire, INCASAT2, Sum(INCASAT) As INCASAT ;
				from cListRCTemp1 ;
				group By cod, nract, serie_act, dataact, denumire, INCASAT2 ;
				into Cursor cIncasariTVA
		
			Select cIncasariTVA
			Scan
				lnCod = cod
				lnNrAct = nract
				lcSerieAct = NVL(serie_act, '')		
				ldDataAct = dataact
				lcDenumire = denumire
				lnIncasat = Nvl(INCASAT, 0)
				lnIncasat2 = Nvl(INCASAT2,0)
				lnIncasat3 = 0 && suma baza EXPLICATII DE TVA 0% EXIGIBILE
		
				*!*			select cListRcTemp1
				*!*			locate for cod = m.lnCod and nrc = 1
				*!*			if found()
				*!*				lnIdFact = id_fact
				*!*				select cListRcTemp
				*!*				calculate sum(baza) to lnIncasat3 for id_Fact = m.lnIdFact and tip = 0 and tva = 0 in cListRcTemp && baza TVA 0%
				*!*			endif
				Calculate Sum(BAZA) To lnIncasat3 For denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And tip = 0 And TVA = 0 In cListRCTemp && baza TVA 0%
				lnDiferenta = Iif(m.lnIncasat2 <> 0, m.lnIncasat2 - m.lnIncasat - m.lnIncasat3, 0)
		
				*** exista posibilitatea ca tva-ul din suma achitata sa nu fie corespunzator intregii sume (daca am si limitare deductibilitate tva)
				*** daca este prea mare diferenta dintre suma incasata si baza calculata, nu mai adun diferenta
				If Abs(m.lnDiferenta) > 1
					m.lnDiferenta = 0
				Endif
				If m.lnDiferenta <> 0
					Select cListRCTemp1
					Locate For cod = m.lnCod And denumire = m.lcDenumire And nract = m.lnNrAct AND NVL(serie_act, '') = m.lcSerieAct And dataact = m.ldDataAct And nrc = 1
					If Found()
						Replace INCASAT With INCASAT + m.lnDiferenta,  BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cIncasariTVA'))
		
			Update cListRCTemp1 Set nract = 0 Where Isnull(nract)
			Update cListRCTemp1 Set denumire = '' Where Isnull(denumire)
			Update cListRCTemp1 Set COD_FISCAL = '' Where Isnull(COD_FISCAL)
			Update cListRCTemp1 Set FDOCI = '' Where Isnull(FDOCI)
		
			Select cListRCTemp
			Append From Dbf('cListRcTemp1')
		
			*** ROTUNJIRE BAZA FACTURA - BAZE EXIGIBILE
			*** bazele exigibile de pe facturile cu TVA INCASARE
			Select nract, dataact, denumire, Sum(BAZA) As BAZA ;
				from cListRCTemp ;
				where TVA_INCASARE = 0 And tip = 0 And TOTCTVA <> 0 ;
				group By nract, dataact, denumire ;
				into Cursor cFacturiTVAIncasare
		
			Select cFacturiTVAIncasare
			Scan
				lnNrAct = nract
				ldDataAct = dataact
				lcDenumire = denumire
				lnBazaFact = BAZA
				*** baza exigibila din tip = 0 (tva 0%) si tip = 2 (incasari/plati)
				Calculate Sum(BAZA) To lnBazaExigibila In cListRCTemp For TVA_INCASARE = 0 And Inlist(tip, 0, 2) And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct
		
				lnDiferenta = Iif(m.lnBazaFact <> 0, m.lnBazaFact - m.lnBazaExigibila, 0)
				If m.lnDiferenta <> 0
					Select cListRCTemp
					Locate For BAZA <> 0 And TVA_INCASARE = 0 And tip = 2 And TOTCTVA = 0 And denumire = m.lcDenumire And nract = m.lnNrAct And dataact = m.ldDataAct
					If Found()
						Replace INCASAT With BAZA + m.lnDiferenta + TVA, BAZA With BAZA + m.lnDiferenta
					Endif
				Endif
			Endscan
			Use In (Select('cFacturiTVAIncasare'))
		Endif
		Use In (Select('cListRcTemp1'))
		goLog.Log('6', 'listare_jv')
		*** SELECTEZ INREGISTRARILE TIP = 1 RECAPITULATIE
		
			SELECT r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, SPACE(20) as COD_TVA, SPACE(250) as EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
				CAST(0 As N(16, 4)) As BAZA, ;
				CAST(0 As N(16, 4)) As TVA ;
				FROM cListRC r ;
				WHERE .F. ;
				INTO Cursor cListRCTemp1 Readwrite
		
			SELECT cListRC
			lcRecc = ALLTRIM(STR(RECCOUNT()))
			SCAN FOR tip = 1
				SCATTER NAME loRC
				WAIT WINDOW 'Recapitulatie ' + ALLTRIM(STR(RECNO())) + '/'+ m.lcRecc NOWAIT 
				ADDPROPERTY(loRC,'cod_tva', '')
				ADDPROPERTY(loRC,'explicatie_tva', '')
				ADDPROPERTY(loRC,'baza',0.00)
				ADDPROPERTY(loRC,'tva', 0.00)
					
				SELECT JTVA_COLOANE 
				SCAN FOR jv = 1 And INLIST(ALLTRIM(coloana_jv), 'RO11B','RO21B', 'RO19B', 'RO9B', 'RO5B', 'RO24B','RO20B', 'CESCDD1', 'CESCDD2', 'FODD', 'FOFDD', 'CESVDD', ;
					 'CESVFDD', 'CESVFS', 'ROTI', 'WRN','WRSCDD','WRSCFDD')     
					loRC.cod_tva = ALLTRIM(coloana_jv)
					loRC.explicatie_tva = ALLTRIM(denumire)
					
					loRC.baza =Iif(loRC.cod_tva = 'RO11B', loRC.RO11B, ;
						Iif(loRC.cod_tva = 'RO21B', loRC.RO21B, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19B, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9B, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5B, ;
						IIF(loRC.cod_tva = 'RO24B', loRC.RO24B, ;
						IIF(loRC.cod_tva = 'RO20B', loRC.RO20B, ;
						IIF(loRC.cod_tva = 'CESCDD1', loRC.CESCDD1 , ;
						IIF(loRC.cod_tva = 'CESCDD2', loRC.CESCDD2 , ;
						IIF(loRC.cod_tva = 'CEOPTR', loRC.CEOPTR , ;
						IIF(loRC.cod_tva = 'FODD', loRC.FODD , ;
						IIF(loRC.cod_tva = 'FOFDD', loRC.FOFDD , ;
						IIF(loRC.cod_tva = 'CESVDD', loRC.CESVDD , ;
						IIF(loRC.cod_tva = 'CESVFDD', loRC.CESVFDD , ;
						IIF(loRC.cod_tva = 'CESVFS', loRC.CESVFS , ;
						IIF(loRC.cod_tva = 'ROTI', loRC.ROTI , ;
						IIF(loRC.cod_tva = 'WRN', loRC.WRN , ;
						IIF(loRC.cod_tva = 'WRSCDD', loRC.WRSCDD , ;
						IIF(loRC.cod_tva = 'WRSCFDD', loRC.WRSCFDD, ;
						0)))))))))))))))))))
					
					loRC.tva = Iif(loRC.cod_tva = 'RO11B', loRC.RO11T, ;
					    Iif(loRC.cod_tva = 'RO21B', loRC.RO21T, ;	
						IIF(loRC.cod_tva = 'RO19B', loRC.RO19T, ;
						IIF(loRC.cod_tva = 'RO9B', loRC.RO9T, ;
						IIF(loRC.cod_tva = 'RO5B', loRC.RO5T, ;
						IIF(loRC.cod_tva = 'RO24B', loRC.RO24T, ;
						IIF(loRC.cod_tva = 'RO20B', loRC.RO20T, ;				
						0)))))))
						
					IF !(loRC.baza = 0 AND loRC.tva = 0)
						SELECT cListRCTemp1 
						APPEND BLANK 
						GATHER NAME loRC
					ENDIF 
					
				ENDSCAN && JTVA_COLOANE  JC = 1 And !Empty(Nvl(J.COLOANA_JC, ''))
			ENDSCAN && cListRC tip = 0 AND tva_incasare = 0
			
		goLog.Log('7', 'listare_jv')
		*** adaug si lunile care nu au nimic exigibil
		Select Distinct r.cod, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL ;
			from cListRCTemp1 r ;
			where cod Not In (Select cod From cListRCTemp1  Where !(BAZA = 0 And TVA = 0)) ;
			into Cursor cListRCTemp2
		
		Delete From cListRCTemp1 Where BAZA = 0 And TVA = 0
		Select cListRCTemp
		Append From Dbf('cListRCTemp1')
		Append From Dbf('cListRCTemp2')
		Use In (Select('cListRCTemp1'))
		Use In (Select('cListRCTemp2'))
		
		
		*** completez nume, nract, dataact pentru inregistrarile TVA care nu le au completate
		Select cListRCTemp
		Scan For tip = 2 AND (EMPTY(dataact) OR EMPTY(nract) OR EMPTY(denumire))
			lcNumeAct = denumire + Str(nract, 14, 0)
			lnCod	  = cod
			If Seek(m.lnCod, 'cListRC', 'cod')
				SELECT cListRCTemp
				Replace denumire With cListRC.denumire FOR EMPTY(denumire)
				Replace nract With cListRC.nract FOR EMPTY(nract)
				Replace dataact With cListRC.dataact FOR EMPTY(dataact)
			Else
				If Seek(m.lcNumeAct, 'cListRC', 'numeact')
					SELECT cListRCTemp
					Replace cod With cListRC.cod, dataact With cListRC.dataact
				Endif && seek
			Endif && seek
		Endscan
		
		Use In (Select('cListRC'))
		Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, * From cListRCTemp Into Cursor cListRC Order By dataact, nract, denumire, tip Readwrite
		
		Update cListRC Set tip = 0 Where tip  = 2 && incasarile pe acelasi nivel cu facturile
		Use In (Select('cListRCTemp'))
		
		*!*	Select Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, Min(cod) As cod, Min(id_fact) As id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		sum(INCASAT) As INCASAT, Sum(TOTCTVA) As TOTCTVA, Sum(TOTFTVATAX) As TOTFTVATAX, Sum(TOTTVATAX) As TOTTVATAX, Sum(BAZA) As BAZA, Sum(TVA) As TVA, Sum(BAZAN) As BAZAN, Sum(TVAN) As TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip = 0 ;
		*!*		group By tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI ;
		*!*		union All ;
		*!*		SELECT Cast(0 As I) As nrcrt, Cast(0 As I) As nrcrtf, cod, id_fact, tip, denumire, nract, SERIE_ACT, dataact, COD_FISCAL, COD_TVA, EXPLICATIE_TVA, TVA_INCASARE, NRACTI, DATAACTI, FDOCI, ;
		*!*		INCASAT, TOTCTVA, TOTFTVATAX, TOTTVATAX, BAZA, TVA, BAZAN, TVAN ;
		*!*		from cListRCTemp ;
		*!*		where tip <> 0 ;
		*!*		Into Cursor cListRC ;
		*!*		Order By 9, 7, 6, 5 Readwrite
		
		*** STERG NUME, NRACT... DE PE INREGISTRARILE 2..N (EXPLICATII_TVA) PENTRU ACEEASI FACTURA
		Select cListRC
		Go Top
		lnCod	 = 0
		lnNract = 0
		ldDataAct = {}
		lcDenumire = ""
		lnNrCrt	 = 0
		lnNrCrtF = 0
		lcSerieAct = ""
		Scan
			If m.lcSerieAct <> serie_act OR m.lnNrAct <> nract or m.ldDataAct <> dataact or m.lcDenumire <> denumire && prima linie din fiecare factura
				lnCod	 = cod
				lcSerieAct = serie_act
				lnNract = nract
				ldDataAct = dataact	
				lcDenumire = denumire			
				lnNrCrt	 = m.lnNrCrt + 1
				lnNrCrtF = 1 && numar curent in cadrul fiecarei facturi
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF
			Else && liniile 2..n din facturi
				lnNrCrtF = m.lnNrCrtF + 1
				Replace nrcrt With m.lnNrCrt, nrcrtf With m.lnNrCrtF, denumire With '', nract With 0, SERIE_ACT With '', dataact With {}, COD_FISCAL With "", TOTCTVA With 0, TOTFTVATAX With 0, TOTTVATAX With 0
			Endif
		Endscan
		goLog.Log('8', 'listare_jv')
		*** TOTALURI EXIGIBIL PE COTE TVA
		*** ADUN FIE INREGISTRARILE DIN LUNA CURENTA TIP = 0, FIE INREGISTRARILE TIP RECAPITULATIE TIP = 1
		lnTip = Iif(Inlist(m.lnMeniu,1,4), 0, 1)
		Insert Into cListRC (tip, COD_TVA, EXPLICATIE_TVA, INCASAT, BAZA, TVA) ;
			Select 2 As tip, COD_TVA, EXPLICATIE_TVA, Sum(INCASAT) As INCASAT, Sum(BAZA) As BAZA, Sum(TVA) As TVA ;
			from cListRC ;
			where tip = m.lnTip And !Empty(Nvl(COD_TVA, '')) ;
			ORDER By COD_TVA ;
			group By COD_TVA, EXPLICATIE_TVA
		Select cListRC
		
		Use In (Select('JTVA_COLOANE'))
		*** FORMAT TVA INCASARE 2013 ^
		goLog.Log('9', 'listare_jv')
		
		If Reccount('cListRC') > 0
			Thisform.AlwaysOnTop = .F.
		
			IF AMESSAGEBOX('Doriti listare clasica?',4+32,_screen.Caption) = 6
				goExport.export2frx([cListRc], [registru_jtva2013])
			ELSE		
				goExport.export2frx([cListRc], [registru_jtva2013], , , , , , .T.)
			ENDIF 	
			
			Thisform.AlwaysOnTop = .T.
		Endif
		
		Use In (Select('cListRC'))
		
		
		
		
	ENDPROC

	PROCEDURE do_reface
		lnAn = gnAn
		lnLuna = gnLuna
		lnSucces = refacere([TVA_2007],[],[JV],lnLuna,lnAn)&& IN orefaceri.prg
		If lnSucces > 0
			Thisform.actualizeaza_grid1()
		*** verificare INAINTE_DE
			lcCoresp = ['4111']
			lcExceptii = ['667,622']
		*!*		Do inainte With "VANZ2007",,,,lcExceptii,lcCoresp In oinainte_de.prg
		
		*this.LockScreen = .f.
			This._grdbase1.SetFocus
			aMESSAGEBOX("Refacerea s-a terminat!",64,"Info refacere")
		Endif
		
		
	ENDPROC

	PROCEDURE do_reset
		*!*	Thisform.ck_dataact.Value=0
		*!*	*Thisform.ck_fel_document.Value=0
		*!*	Thisform.ck_nract.Value=0
		*!*	Thisform.ck_denumire.Value=0
		*!*	Thisform.ck_eROARE_TVA.Value=0
		Thisform.cbo_tip_jurnal_vanz.ListItemId = 1
		
		IF NOT PEMSTATUS(thisform,"filtru_pretty",5)
		thisform.AddProperty("filtru_pretty")
		ENDIF
		IF NOT PEMSTATUS(thisform,"filtru_pretty_ro",5)
		thisform.AddProperty("filtru_pretty_ro")
		ENDIF
		
		thisform.filtru_pretty=""
		thisform.filtru_pretty_ro=""
		Thisform.but_start_criterii1.SetFocus
		Thisform.Refresh
		thisform.but_start_criterii1.pornit="nu"
		thisform.do_cauta()
		
	ENDPROC

	PROCEDURE do_termin
		THIS.BUT_STArt_criterii1.RESETstatus()
		DODEFAULT()
	ENDPROC

	PROCEDURE do_verifica
		Local loDate As "empty"
		Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
		Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
		Local lnRaspuns, loPartener
		lcSelect = SELECT()
		
		SELECT actcv
		lcDenumire = Alltrim(Nvl(actcv.denumire, ''))
		lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, ''))
		
		lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
		
		If EMPTY(m.lnOptiune)
			Return
		Endif
		* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
		If INLIST(m.lnOptiune, 1, 4) && un singur nume
			loPartener = Null
			loDate = Createobject("empty")
		
			AddProperty(loDate, "denumire",  m.lcDenumire)
			AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
			AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
		
			lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
		Else
			llDontCloseCursor = .F.
			llExperimental = .F.
			llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
			llMFIN = .T. && verific MFIN pentru toata lumea
			llValidare = .T. && verific algoritmul codurilor fiscale
			llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
			llServiciuWebANAF = .T.
		
			lcFilter = Filter("actcv")
			lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
			Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", "  ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
				From actcv ;
				Where &lcWhere ;
				Into Cursor crsCoduriFiscale ;
				Order By denumire, cod_fiscal  ;
				Readwrite
		
		
			Local lcXMLParteneri
			lcXMLParteneri = ""
			Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
		
			Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
		Endif && x = 1
		
		SELECT (m.lcSelect)
	ENDPROC

	PROCEDURE grdfooterevent
		LPARAMETERS toObj, tcEvt
		
		IF TYPE('this._grdfooter1') = 'O' 
			IF PEMSTATUS(this._grdfooter1, "eventhandler", 5)
				this._grdfooter1.eventhandler(,toObj,tcEvt)
			ENDIF 	
		ENDIF 	
	ENDPROC

	PROCEDURE grid_sort_bind
		*!* 09.09.2010
		*!*	am folosit gridextra
		*!*	nu sterge
		*!* 09.09.2010 ^
	ENDPROC

	PROCEDURE inainte_de_do_listare
		If This.lactiv2
			If gnAn >= 2013
				This.do_listare2013()
			Else
				This.do_listare()
			Endif
		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='4111'
		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(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select partD,dataact,serie_act,nract,dataireg,suma,perecheC,util,dataora,fdoc,scc,scd,partC,explicatia,explicatie_tva '+]+;
			['from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		Select actcv
		pcTitlu="INCASARI LA FACTURA NR.  "+Alltrim(Str(nract))
		pcfiltru=[id_partc=]+Alltrim(STR(id_part))+[ and extract(year from dataireg)*12+extract(month from dataireg)<=]+Alltrim(Str(pnlunanan))+[ ]+;
			[and (perecheC=]+Alltrim(Str(nract))+[ or nract=']+Alltrim(Str(nract))+[')]+gcCondSucursala
		gencursor("poact","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		poact.ca_baza1.afisare()
		
		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
		LPARAMETERS tlAfisareTot
		* tlAfisareTot = .T. daca se afiseaza toate inregistrarile la intrarea in formular
		
		This.lAfisareTot = m.tlAfisareTot
		
		DoDefault()
		If !glEMama
			Thisform._grdbase1.RemoveObject([cSucursala])
		ENDIF
		
		
	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=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=denumire
		pcschema=['ID_ACT N(20),LUNA N(2),AN N(4),COD N(20),DATAIREG D,nract N(20),DATAACT D,'+]+;
			['EXPLICATIA C(100),SCD C(4),ASCD C(4),SCC C(4),ASCC C(4),SUMA N(19,2),PERECHED N(14),'+]+;
			['PERECHEC N(14),SUMA_VAL N(19,2),NUME_VAL C(5),CURS N(8,2),DATASCAD D,NEIMPOZAB N(19,2),'+]+;
			['NNIR N(10),ID_UTIL N(5),UTIL C(30),DATAORA T,ID_UTILS N(5),UTILS C(30),DATAORAS T,'+]+;
			['ID_RESPONSABIL N(5),NRESP C(30),ID_VENCHELT N(5),DST_CHLT C(100),ID_LUCRARE N(5),NRORD C(30),ID_SECTIE N(5),'+]+;
			['SECTIE C(30),PROC_TVA N(5,2),ID_SET N(20),ID_FACT N(20),ID_PARTD N(10),PARTD C(50),ID_PARTC N(10),'+]+;
			['PARTC C(50),ID_SUCURSALA N(5),SUCURSALA C(50),ID_FDOC N(5),FDOC C(30),'+]+;
			['EXPLICATIA4 C(100),EXPLICATIA5 C(100),ID_GESTD N(5),GESTD C(50),ID_GESTC N(5),GESTC C(50)']
		pcschema=['']
		pcselect=['select * from ]+gcS+[.vact where 2=2']
		pcorder=[dataact,serie_act,nract]
		
		
		pcfiltru=[id_partD=]+ALLTRIM(STR(id_part))+[ and TRIM(SUBSTR(scd,1,3))='4111' and TRIM(scd)!='4118' and ]+;
			[extract(year from dataireg)*12+extract(month from dataireg) between ]+;
			ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		gencursor("poacn1","acn1",pcselect,pcfiltru,pcschema,pcorder,llAfisare)
		
		
		pcfiltru=[dataact<add_months(to_date(']+pcdatacrt+[','YYYY-MM-DD'),1) and id_partD=]+ALLTRIM(STR(id_part))+[ ]+;
			[and TRIM(SUBSTR(scc,1,3))='4111' and TRIM(SUBSTR(scc,1,3))='4118' ]+;
			[and extract(year from dataireg)*12+extract(month from dataireg) ]+;
			[between ]+ALLTRIM(STR(pnlunaanales))+[ and ]+ALLTRIM(STR(pnlunanan))+gcCondSucursala
		
		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)
		
		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,SERIE_ACT C(10),nract N(20),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),EXPLICATIE_TVA C(100)']
			pcselect=['select dataireg,dataact,serie_act,nract,partd,partc,explicatia,suma,scd,scc,fdoc,luna,an,cod,explicatie_tva '+]+;
				['from ]+gcS+[.vact where 2=2']
			pcorder=[dataact,serie_act,nract]
			llAfisare=.F.
			lunanan=gnLuna+gnAn*12
			THISFORM.but_TERMIN1.ENABLED=.F.
			THISFORM.ALWAYSONTOP=.F.
		
			SELE actcv
			pcnume=denumire
			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 (id_partc=]+ALLTRIM(STR(id_part))+[ or id_partd=]+ALLTRIM(STR(id_part))+[) ] +;
				[ and dataact=to_date(']+DTOS(dataact)+[','YYYY-MM-DD')]+gcCondSucursala
			gencursor('poact','ACN1',pcselect,pcfiltru,pcschema,pcorder,llAfisare)
			poact.ca_baza1.afisare()
			GO TOP
		
			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
			aMessagebox("Nu aveti date in cautare!",48,"Atentie")
			THISFORM.ck_nract.SETFOCUS()
		ENDIF
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		
		dodefault(nStyle)
		
		* Afisez toate inregistrarile cand intru pentru banca/casa. Sunt putine
		IF this.lAfisareTot
			This.do_reset() && afisarea tuturor inregistrarilor
		ENDIF
		
		This.WindowState = 2
		
		*!* 09.09.2010
		this.gridextra1.setup()
		*!* 09.09.2010 ^
		
		THIS._grdfooter1.attachtogrid(This._grdbase1)
		This._grdfooter1.calcTotal
		
		*** Inregistrarile selectate GRI
		This._grdbase1.SetAll("DynamicBackColor","iif(ales = 1, RGB(150,150,150), RGB(255,255,255))", "Column")
		this._grdbase1.HeaderHeight = 53 && se face mic probabil din cauza gridextra sau grdfooter
		
		
	ENDPROC

	PROCEDURE But_start_criterii1.loadcriterii
		PARAMETERS tacriterii
		EXTERNAL ARRAY tacriterii
		#define crlf CHR(13)+CHR(10)
		#define lf CHR(10)
		#define lf2 CHR(10) + CHR(10)
		
		lcStringCriterii="Nume\denumire\T\ID_PART\nom_parteneri" + crlf + ;
						 "Serie act\serie_act\T\none\" + crlf + ;
						 "Nr. act\nract\N\none\"+ crlf + ;
						 "Data act\dataact\D\none\" + crlf + ;
						 "Data inreg.\dataireg\D\none\" + crlf + ;				 
						 "Fel document\fel_document\T\ID_FDOC\nom_feldoc" + crlf + ;
						 "Cod Fiscal\cod_fiscal\T\none\" + crlf + ;
		                 "Sold TVA Neex.\(RO11NT + RO21NT + RO19NT + RO9NT + RO5NT)\N|get_mask(12,gnPA)\none\" + crlf + ;					 
		                 "Perioada\an*12+luna\D1\none\" + crlf + ;						 				 
		                 "Data inreg. in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) = an*12 + luna)\" + crlf + ;
		                 "Data inreg. nu in luna\nofiled\E\(extract(year from dataireg) * 12 + extract(month from dataireg) <> an*12 + luna)\" + crlf + ;
		                 "Data doc. nu in luna\nofiled\E\(extract(year from dataact) * 12 + extract(month from dataact) <> an*12 + luna)\" + crlf + ;
						 "EroareTVA\nofiled\E\" + ;
						[ ((EXTRACT (YEAR FROM DATAACT) = AN AND EXTRACT (MONTH FROM DATAACT) = LUNA AND ABS(TOTCTVA - (RO11B+RO11T+RO21B+RO21T+RO19B+RO19T+RO9B+RO9T+RO5B+RO5T+ROTI+CESCDD1+CESCDD2+] + ;
						[WRSCDD+FODD+FOFDD+WRSCFDD+WRN+CEOPTR+CESVDD+CESVFDD+CESVFS+RO11NB+RO11NT+RO21NB+RO21NT+RO19NB+RO19NT+RO9NB+RO9NT+RO5NB+RO5NT)) >= 1) OR ] + ;
						[ABS(RO11T) NOT BETWEEN ROUND(0.108*ABS(RO11B),?gnPc) AND ROUND(0.113*ABS(RO11B),?gnPc) OR ] + ;
						[ABS(RO21T) NOT BETWEEN ROUND(0.208*ABS(RO21B),?gnPc) AND ROUND(0.213*ABS(RO21B),?gnPc) OR ] + ;
						[ABS(RO19T) NOT BETWEEN ROUND(0.188*ABS(RO19B),?gnPc) AND ROUND(0.193*ABS(RO19B),?gnPc) OR ] + ;				
						[ABS(RO9T) NOT BETWEEN ROUND(0.088*ABS(RO9B),?gnPc) AND ROUND(0.093*ABS(RO9B),?gnPc) OR ] + ;
						[ABS(RO5T) NOT BETWEEN ROUND(0.048*ABS(RO5B),?gnPc) AND ROUND(0.053*ABS(RO5B),?gnPc) OR ] + ;								
						[ABS(RO11NT) NOT BETWEEN ROUND(0.108*ABS(RO11NB),?gnPc) AND ROUND(0.113*ABS(RO11NB),?gnPc) OR ] + ;
						[ABS(RO21NT) NOT BETWEEN ROUND(0.208*ABS(RO21NB),?gnPc) AND ROUND(0.213*ABS(RO21NB),?gnPc) OR ] + ;				
						[ABS(RO19NT) NOT BETWEEN ROUND(0.188*ABS(RO19NB),?gnPc) AND ROUND(0.193*ABS(RO19NB),?gnPc) OR ] + ;								
						[ABS(RO9NT) NOT BETWEEN ROUND(0.088*ABS(RO9NB),?gnPc) AND ROUND(0.093*ABS(RO9NB),?gnPc) OR ] + ;				
						[ABS(RO5NT) NOT BETWEEN ROUND(0.048*ABS(RO5NB),?gnPc) AND ROUND(0.053*ABS(RO5NB),?gnPc))\-\] + ;
						"Valoarea TVA difera cu +/- 5% fata de valoarea bazei. Verificati valorile baza si TVA în Registrul Jurnal." + crlf + ;	
						"Incasari fara TVA Incasare\nofiled\E\2=2\-\" + ;
						"Facturi cu sold TVA neexigibil, achitate partial/integral în luna, fara TVA exigibil corespunzator." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care suma achitata din Registrul Jurnal luna curenta " + ;
						"este diferita de suma baza si TVA exigibil din Registrul de TVA." + lf2 + ;
						"Identificati problema la nivelul fiecarei facturi si se corectati prin adaugarea notei TVA exigibil în Registrul Jurnal." + crlf + ;				
						"Diferenta sold fact. / neex.\nofiled\E\2=2\-\" + ;				
						"Resturi de sold TVA neexigibil care nu s-au exigibilizat odata cu achitarea integrala a facturilor." + lf2 + ;
						"Se vor afisa facturile din sistemul TVA încasare pentru care soldul facturii este diferit de fata de soldul Baza + TVA neexigibile din Registrul de TVA." + lf2 + ;
						"Facturile cu sold 0 si sold neexigibil diferit de 0 semnifica ca facturile au fost achitate, dar nu s-a exigibilizat complet TVA." + lf2 + ;
						"Exigibilizati sumele ramase neexigibile." + crlf + ;				
						IIF(glEMama,[Sucursala\sucursala\C\none\] + crlf,[])
					*	"Altele\1\A\REGISTRUL VANZARI - TAXABILE INTERN,REGISTRUL VANZARI - TAXARE INVERSA#ro19b<>0 OR ro19t<>0 OR ro9b<>0 OR ro9t<>0,roti<>0\"
		DODEFAULT()
		
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Init
		This.ListItemId = 1
	ENDPROC

	PROCEDURE cbo_tip_jurnal_vanz.Valid
		thisform.do_cauta()
	ENDPROC

	PROCEDURE cmdTVAIncasare.Click
		*!* 24.05.2011
		*!* marius.mutu
		*!* nu se pot introduce documente de pe mama
		
		*!*	25.08.2014
		*!*	marius.mutu
		*!*	se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
		SET STEP ON 
		Local lcXMLFacturi
		If !(luna_inchisa Or m.glEMama)
			Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ;
				RO11NB+RO11NT as soldn11, RO21NB+RO21NT as soldn21, ;
				RO24NB+RO24NT as soldn24, RO20NB+RO20NT as soldn20, ;
				RO19NB+RO19NT as soldn19, RO9NB+RO9NT as soldn9, RO5NB+RO5NT as soldn5 ;
				From actcv With (Buffering = .T.) ;
				Where ales = 1 ;
				Into Cursor crsTVAIncasareTemp
				
			If _Tally > 0
				Cursortoxml('crsTVAIncasareTemp', "lcXMLFacturi", 1, 0, 0, "1")
				Use In (Select('crsTVAIncasareTemp'))
		
				Do inchidere_tva_sold With 'JV', m.lcXMLFacturi IN oproceduri_inchidere.prg
			Endif
			Use In (Select('crsTVAIncasareTemp'))
		Endif
		
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		Thisform._grdfooter1.calcTotal()
	ENDPROC

	PROCEDURE _grdbase1.cCod_fiscal.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDataact.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cDenumire.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cFdoc.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cNract.Header1.Init
		this.ForeColor =IIF(!EMPTY(this.tag),RGB(0,0,255),RGB(0,0,0))
	ENDPROC

	PROCEDURE _grdbase1.cNract.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo11b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo11t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9b.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRo9t.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cRoti.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

	PROCEDURE _grdbase1.cTotctva.Text1.DblClick
		Thisform.butdrept()
	ENDPROC

ENDDEFINE