1180 lines
36 KiB
Plaintext
1180 lines
36 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="oactualizari.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS frm_actualizare_facturi_valuta 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="Label3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdConturi.cCont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNume.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNume.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNrAct.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cDataact.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cDataact.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.csoldval.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.csoldval.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.csoldlei.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCurs.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCurs.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCursBNR.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cDifLei.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cNumeVal.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cCont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cAcont.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cAcont.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cAles.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdFacturi.cAles.Check1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdValuta" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdValuta.cValuta.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdValuta.cValuta.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdValuta.cCurs.Header1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="grdValuta.cCurs.Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtDiferentaNefavorabila" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="txtDiferentaFavorabila" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Cmd_executa1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ddataact
|
|
*p: ndiferentafavorabila
|
|
*p: ndiferentanefavorabila
|
|
*p: nnract
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
cgridsortlist = grdFacturi
|
|
ddataact = (date())
|
|
DoCreate = .T.
|
|
Height = 482
|
|
Name = "frm_actualizare_facturi_valuta"
|
|
ndiferentafavorabila = 0
|
|
ndiferentanefavorabila = 0
|
|
nnract = 0
|
|
Width = 772
|
|
_shape1.Anchor = 10
|
|
_shape1.Height = 29
|
|
_shape1.Left = 0
|
|
_shape1.Name = "_shape1"
|
|
_shape1.Top = 0
|
|
_shape1.Width = 780
|
|
_shape2.Anchor = 8
|
|
_shape2.Height = 29
|
|
_shape2.Left = 677
|
|
_shape2.Name = "_shape2"
|
|
_shape2.Top = 0
|
|
_shape2.Width = 112
|
|
Lb_titlu_alb_b121.Caption = "Actualizare solduri in valuta la 31.12"
|
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
|
BUT_TERMIN1.Anchor = 8
|
|
BUT_TERMIN1.Left = 740
|
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
|
BUT_TERMIN1.Top = 1
|
|
Gridsort1.Name = "Gridsort1"
|
|
*</PropValue>
|
|
|
|
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
|
Anchor = 8, ;
|
|
Left = 679, ;
|
|
Name = "But_excel1", ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
|
|
Anchor = 8, ;
|
|
Left = 711, ;
|
|
Name = "But_renunt1", ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
|
|
Anchor = 8, ;
|
|
Caption = "Selecteaza \<facturi", ;
|
|
Height = 27, ;
|
|
Left = 489, ;
|
|
Name = "Cmd_cauta1", ;
|
|
Top = 32, ;
|
|
Width = 120
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'Cmd_executa1' AS cmd_executa WITH ;
|
|
Anchor = 8, ;
|
|
Caption = "\<Scrie nota in Jurnal", ;
|
|
Height = 27, ;
|
|
Left = 625, ;
|
|
Name = "Cmd_executa1", ;
|
|
Top = 32, ;
|
|
Width = 132
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'grdConturi' AS grid WITH ;
|
|
Anchor = 5, ;
|
|
ColumnCount = 2, ;
|
|
Comment = "*:OnResize=LS", ;
|
|
DeleteMark = .F., ;
|
|
FontSize = 10, ;
|
|
Height = 238, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 12, ;
|
|
Name = "grdConturi", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsConturi", ;
|
|
RowHeight = 19, ;
|
|
ScrollBars = 3, ;
|
|
TabIndex = 5, ;
|
|
Top = 64, ;
|
|
Width = 221, ;
|
|
Column1.ColumnOrder = 2, ;
|
|
Column1.ControlSource = "explicatie", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Name = "cExplicatie", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 146, ;
|
|
Column2.ColumnOrder = 1, ;
|
|
Column2.ControlSource = "cont", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Name = "cCont", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column2.Width = 42
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdConturi.cCont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.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.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdConturi.cExplicatie.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Explicatie", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdConturi.cExplicatie.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi' AS grid WITH ;
|
|
Anchor = 15, ;
|
|
ColumnCount = 12, ;
|
|
Comment = "*:OnResize=SS", ;
|
|
DeleteMark = .F., ;
|
|
FontSize = 10, ;
|
|
Height = 366, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 241, ;
|
|
Name = "grdFacturi", ;
|
|
Panel = 1, ;
|
|
ReadOnly = .T., ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsFacturi", ;
|
|
RowHeight = 19, ;
|
|
TabIndex = 6, ;
|
|
Top = 63, ;
|
|
Width = 516, ;
|
|
Column1.ColumnOrder = 4, ;
|
|
Column1.ControlSource = "nume", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Name = "cNume", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 190, ;
|
|
Column2.ColumnOrder = 5, ;
|
|
Column2.ControlSource = "nract", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Name = "cNrAct", ;
|
|
Column2.ReadOnly = .T., ;
|
|
Column3.ColumnOrder = 6, ;
|
|
Column3.ControlSource = "dataact", ;
|
|
Column3.FontName = "Arial", ;
|
|
Column3.FontSize = 10, ;
|
|
Column3.Name = "cDataact", ;
|
|
Column3.ReadOnly = .T., ;
|
|
Column3.Width = 72, ;
|
|
Column4.ColumnOrder = 7, ;
|
|
Column4.ControlSource = "soldval", ;
|
|
Column4.FontName = "Arial", ;
|
|
Column4.FontSize = 10, ;
|
|
Column4.Format = "RK", ;
|
|
Column4.InputMask = (get_mask(12,GnPval)), ;
|
|
Column4.Name = "csoldval", ;
|
|
Column4.ReadOnly = .T., ;
|
|
Column4.Width = 86, ;
|
|
Column5.ColumnOrder = 9, ;
|
|
Column5.ControlSource = "soldlei", ;
|
|
Column5.FontName = "Arial", ;
|
|
Column5.FontSize = 10, ;
|
|
Column5.Format = "RK", ;
|
|
Column5.InputMask = (get_mask(12,GnPA)), ;
|
|
Column5.Name = "csoldlei", ;
|
|
Column5.ReadOnly = .T., ;
|
|
Column5.Width = 91, ;
|
|
Column6.ColumnOrder = 10, ;
|
|
Column6.ControlSource = "curs", ;
|
|
Column6.FontName = "Arial", ;
|
|
Column6.FontSize = 10, ;
|
|
Column6.Format = "RK", ;
|
|
Column6.InputMask = (get_mask(12,GnPcurs)), ;
|
|
Column6.Name = "cCurs", ;
|
|
Column6.ReadOnly = .T., ;
|
|
Column6.Width = 60, ;
|
|
Column7.ColumnOrder = 11, ;
|
|
Column7.ControlSource = "cursBNR", ;
|
|
Column7.FontName = "Arial", ;
|
|
Column7.FontSize = 10, ;
|
|
Column7.Format = "RK", ;
|
|
Column7.InputMask = (get_mask(12,GnPcurs)), ;
|
|
Column7.Name = "cCursBNR", ;
|
|
Column7.ReadOnly = .T., ;
|
|
Column7.Width = 58, ;
|
|
Column8.ColumnOrder = 12, ;
|
|
Column8.ControlSource = "diferenta", ;
|
|
Column8.FontName = "Arial", ;
|
|
Column8.FontSize = 10, ;
|
|
Column8.Format = "RK", ;
|
|
Column8.InputMask = (get_mask(12,GnPA)), ;
|
|
Column8.Name = "cDifLei", ;
|
|
Column8.ReadOnly = .T., ;
|
|
Column8.Width = 104, ;
|
|
Column9.ColumnOrder = 8, ;
|
|
Column9.ControlSource = "NUME_VAL", ;
|
|
Column9.FontName = "Arial", ;
|
|
Column9.FontSize = 10, ;
|
|
Column9.Name = "cNumeVal", ;
|
|
Column9.ReadOnly = .T., ;
|
|
Column9.Width = 42, ;
|
|
Column10.ColumnOrder = 2, ;
|
|
Column10.ControlSource = "cont", ;
|
|
Column10.FontName = "Arial", ;
|
|
Column10.FontSize = 10, ;
|
|
Column10.Name = "cCont", ;
|
|
Column10.ReadOnly = .T., ;
|
|
Column10.Width = 39, ;
|
|
Column11.ColumnOrder = 3, ;
|
|
Column11.ControlSource = "acont", ;
|
|
Column11.FontName = "Arial", ;
|
|
Column11.FontSize = 10, ;
|
|
Column11.Name = "cAcont", ;
|
|
Column11.ReadOnly = .T., ;
|
|
Column11.Width = 40, ;
|
|
Column12.Alignment = 2, ;
|
|
Column12.ColumnOrder = 1, ;
|
|
Column12.ControlSource = "ales", ;
|
|
Column12.FontName = "Arial", ;
|
|
Column12.FontSize = 10, ;
|
|
Column12.Name = "cAles", ;
|
|
Column12.ReadOnly = .F., ;
|
|
Column12.Sparse = .F., ;
|
|
Column12.Width = 33
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdFacturi.cAcont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Analitic", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cAcont.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cAles.Check1' AS checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "", ;
|
|
Centered = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 17, ;
|
|
Left = 48, ;
|
|
Name = "Check1", ;
|
|
ReadOnly = .F., ;
|
|
Top = 44, ;
|
|
Width = 60
|
|
*< END OBJECT: BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cAles.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Ales", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cCont.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Cont", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.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.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cCurs.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Curs", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cCurs.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cCursBNR.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Curs BNR", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cCursBNR.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cDataact.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Data act", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.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.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cDifLei.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Diferenta in lei", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cDifLei.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cNrAct.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nr. act", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.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.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cNume.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Nume", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cNume.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.cNumeVal.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valuta", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.cNumeVal.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.csoldlei.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold in lei", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.csoldlei.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdFacturi.csoldval.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Sold in valuta", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdFacturi.csoldval.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdValuta' AS grid WITH ;
|
|
Anchor = 4, ;
|
|
ColumnCount = 2, ;
|
|
Comment = "*:OnResize=LB", ;
|
|
DeleteMark = .F., ;
|
|
FontSize = 10, ;
|
|
Height = 110, ;
|
|
HighlightStyle = 2, ;
|
|
Left = 12, ;
|
|
Name = "grdValuta", ;
|
|
Panel = 1, ;
|
|
RecordMark = .T., ;
|
|
RecordSource = "crsValute", ;
|
|
RowHeight = 19, ;
|
|
ScrollBars = 3, ;
|
|
TabIndex = 9, ;
|
|
Top = 322, ;
|
|
Width = 160, ;
|
|
Column1.ControlSource = "nume_val", ;
|
|
Column1.FontName = "Arial", ;
|
|
Column1.FontSize = 10, ;
|
|
Column1.Format = "K", ;
|
|
Column1.Name = "cValuta", ;
|
|
Column1.ReadOnly = .T., ;
|
|
Column1.Width = 63, ;
|
|
Column2.ControlSource = "curs", ;
|
|
Column2.FontName = "Arial", ;
|
|
Column2.FontSize = 10, ;
|
|
Column2.Format = "RK", ;
|
|
Column2.InputMask = (get_mask(16,GnPcurs)), ;
|
|
Column2.Name = "cCurs", ;
|
|
Column2.Width = 65
|
|
*< END OBJECT: BaseClass="grid" />
|
|
|
|
ADD OBJECT 'grdValuta.cCurs.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Curs", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdValuta.cCurs.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1"
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'grdValuta.cValuta.Header1' AS header WITH ;
|
|
Alignment = 2, ;
|
|
Caption = "Valuta", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Name = "Header1"
|
|
*< END OBJECT: BaseClass="header" />
|
|
|
|
ADD OBJECT 'grdValuta.cValuta.Text1' AS textbox WITH ;
|
|
BackColor = 255,255,255, ;
|
|
BorderStyle = 0, ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
ForeColor = 0,0,0, ;
|
|
Margin = 0, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T.
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Facturi", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 242, ;
|
|
Name = "Label1", ;
|
|
TabIndex = 14, ;
|
|
Top = 44, ;
|
|
Width = 46
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
Anchor = 4, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Curs BNR", ;
|
|
Comment = "*:OnResize=LB", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 12, ;
|
|
Name = "Label2", ;
|
|
TabIndex = 15, ;
|
|
Top = 304, ;
|
|
Width = 61
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label3' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Situatia", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 12, ;
|
|
Name = "Label3", ;
|
|
TabIndex = 13, ;
|
|
Top = 44, ;
|
|
Width = 51
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label4' AS label WITH ;
|
|
Anchor = 4, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Daca se sterg notele de reevaluare din Registrul Jurnal, trebuie refacute situatiile de facturi ", ;
|
|
Comment = "*:OnResize=LB", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 17, ;
|
|
Left = 12, ;
|
|
Name = "Label4", ;
|
|
TabIndex = 15, ;
|
|
Top = 444, ;
|
|
Width = 500
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label5' AS label WITH ;
|
|
Anchor = 12, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Diferenta nefavorabila", ;
|
|
Comment = "*:OnResize=RB", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 503, ;
|
|
Name = "Label5", ;
|
|
TabIndex = 20, ;
|
|
Top = 434, ;
|
|
Width = 144
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label6' AS label WITH ;
|
|
Anchor = 12, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Diferenta favorabila", ;
|
|
Comment = "*:OnResize=RB", ;
|
|
FontBold = .T., ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Height = 18, ;
|
|
Left = 504, ;
|
|
Name = "Label6", ;
|
|
TabIndex = 22, ;
|
|
Top = 459, ;
|
|
Width = 128
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label7' AS label WITH ;
|
|
Anchor = 4, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "pentru a se reveni la cursul de schimb original", ;
|
|
Comment = "*:OnResize=LB", ;
|
|
FontBold = .F., ;
|
|
FontName = "Arial", ;
|
|
ForeColor = 255,0,0, ;
|
|
Height = 17, ;
|
|
Left = 12, ;
|
|
Name = "Label7", ;
|
|
TabIndex = 15, ;
|
|
Top = 460, ;
|
|
Width = 255
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'txtDiferentaFavorabila' AS textbox WITH ;
|
|
Anchor = 12, ;
|
|
Comment = "*:OnResize=RB", ;
|
|
ControlSource = "thisform.nDiferentaFavorabila", ;
|
|
FontName = "Arial", ;
|
|
FontSize = 10, ;
|
|
Format = "R", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,GnPA)), ;
|
|
Left = 654, ;
|
|
Name = "txtDiferentaFavorabila", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 21, ;
|
|
Top = 457, ;
|
|
Width = 102
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'txtDiferentaNefavorabila' AS textbox WITH ;
|
|
Anchor = 12, ;
|
|
Comment = "*:OnResize=RB", ;
|
|
ControlSource = "thisform.nDiferentaNefavorabila", ;
|
|
FontSize = 10, ;
|
|
Format = "R", ;
|
|
Height = 23, ;
|
|
InputMask = (get_mask(12,GnPA)), ;
|
|
Left = 654, ;
|
|
Name = "txtDiferentaNefavorabila", ;
|
|
ReadOnly = .T., ;
|
|
TabIndex = 18, ;
|
|
Top = 432, ;
|
|
Width = 102
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE do_cauta
|
|
Local lcCont, lnFelCont, lnCuInregistrari, llNuExistaCurs, lnIdValuta, lnCursBNR
|
|
|
|
SELECT crsConturi
|
|
lcCont = UPPER(ALLTRIM(CONT))
|
|
lnFelCont = fel_cont
|
|
lnCuInregistrari = Nvl(cu_inregistrari,0)
|
|
|
|
THISFORM.LOCKSCREEN = .T.
|
|
SELECT crsFacturi
|
|
save_grid(THISFORM.grdFacturi)
|
|
|
|
*!* 09.05.2008
|
|
*!* banca/casa in valuta - selectez soldurile din balanta parteneri
|
|
*!* IF LEFT(lcCont,1) = '5'
|
|
If lnCuInregistrari = 0
|
|
pobalanta_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')]
|
|
pobalanta_parteneri.ca_baza1.afisare()
|
|
ELSE
|
|
poIreg_parteneri.ca_baza1.cFiltru = [(cont = '] + lcCont + [')]
|
|
poIreg_parteneri.ca_baza1.afisare()
|
|
ENDIF
|
|
*!* 09.05.2008 ^
|
|
|
|
llNuExistaCurs = .F.
|
|
SELECT crsFacturi
|
|
SCAN
|
|
lnIdValuta = id_valuta
|
|
lnCursBNR = 0
|
|
SELECT crsValute
|
|
LOCATE FOR id_valuta = lnIdValuta
|
|
IF FOUND()
|
|
lnCursBNR = CURS
|
|
IF curs = 0
|
|
llNuExistaCurs = .T.
|
|
ENDIF
|
|
ELSE
|
|
llNuExistaCurs = .T.
|
|
ENDIF
|
|
|
|
SELECT crsFacturi
|
|
REPLACE cursBNR WITH lnCursBNR
|
|
ENDSCAN
|
|
|
|
SELECT crsFacturi
|
|
IF lnFelCont = 0 && ACTIV
|
|
lcSoldVal = [precvaldeb + valdebit - precvalcred - valcredit]
|
|
lcSoldLei = [precdeb + debit - preccred - credit]
|
|
ELSE
|
|
lcSoldVal = [precvalcred + valcredit - precvaldeb - valdebit]
|
|
lcSoldLei = [preccred + credit - precdeb - debit]
|
|
ENDIF
|
|
REPLACE ALL soldval WITH &lcSoldVal, soldLei WITH &lcSoldLei
|
|
|
|
REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS # 0
|
|
REPLACE ALL DIFERENTA WITH ROUND(cursBNR * soldval, gnPA) - ROUND(soldLei, gnPA) FOR !EMPTY(cursBNR) AND CURS = 0
|
|
|
|
CALCULATE SUM(ABS(diferenta)) FOR diferenta > 0 TO thisform.ndiferentafavorabila
|
|
CALCULATE SUM(ABS(diferenta)) FOR diferenta < 0 TO thisform.ndiferentanefavorabila
|
|
GO TOP
|
|
|
|
restore_grid(THISFORM.grdFacturi)
|
|
this.txtDiferentaFavorabila.Refresh()
|
|
this.txtdiferentaNefavorabila.Refresh()
|
|
THISFORM.LOCKSCREEN = .F.
|
|
|
|
IF llNuExistaCurs
|
|
AMESSAGEBOX('Nu s-a completat cursul de schimb pentru una sau mai multe valute!', 0+48, 'Reevaluare')
|
|
ENDIF
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE do_excel
|
|
DO export_excel_grid WITH this.grdFacturi
|
|
ENDPROC
|
|
|
|
PROCEDURE do_executa
|
|
LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces
|
|
lnIdSet = 90501
|
|
llVerificAnalitic = .T.
|
|
llCompletareParteneri = .T.
|
|
|
|
lcCursor = "crsActTemp"
|
|
|
|
SELECT DISTINCT CONT FROM crsFacturi WITH (BUFFERING = .T.) WHERE ales = 1 INTO CURSOR crsContAles
|
|
IF _TALLY = 0
|
|
USE IN crsContAles
|
|
RETURN
|
|
ENDIF
|
|
SELECT crsContAles
|
|
lcContAles = UPPER(ALLTRIM(CONT))
|
|
USE IN crsContAles
|
|
|
|
SELECT fel_cont ;
|
|
FROM crsConturi ;
|
|
WHERE UPPER(ALLTRIM(CONT)) = lcContAles ;
|
|
INTO CURSOR crsFelCont
|
|
|
|
IF _TALLY > 0
|
|
SELECT crsFelCont
|
|
lnFelCont = fel_cont
|
|
ELSE
|
|
lnFelCont = 0
|
|
ENDIF
|
|
USE IN crsFelCont
|
|
|
|
|
|
|
|
SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ;
|
|
SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ;
|
|
cursBNR AS CURS, nume_val, id_valuta, ;
|
|
nract AS pereched, ID_FACT AS id_factd, ;
|
|
nract AS perechec, ID_FACT AS id_factc, ;
|
|
PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ;
|
|
PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4, proc_tva, id_jtva_coloana ;
|
|
FROM crsFacturi ;
|
|
WITH (BUFFERING = .T.) ;
|
|
WHERE ales = 1 AND diferenta <> 0 ;
|
|
INTO CURSOR crsActTemp ;
|
|
READWRITE
|
|
|
|
IF _TALLY > 0
|
|
SELECT crsActTemp
|
|
*!* 19.01.2015: 765-> 7651
|
|
*!* REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
|
|
*!* FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)
|
|
REPLACE ALL scd WITH lcContAles, scc WITH "7651", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
|
|
FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)
|
|
*!* 19.01.2015: 765-> 7651^
|
|
|
|
*!* 19.01.2015: 665-> 6651
|
|
*!* REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
|
|
*!* FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)
|
|
REPLACE ALL scd WITH "6651", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
|
|
FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)
|
|
*!* 19.01.2015: 665-> 6651 ^
|
|
*!* 19.01.2015: 765-> 7651
|
|
*!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765'
|
|
REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '7651'
|
|
*!* 19.01.2015: 765-> 7651^
|
|
*!* 19.01.2015: 665-> 6651
|
|
*!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665'
|
|
REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '6651'
|
|
|
|
*!* 19.01.2015: 665-> 6651 ^
|
|
|
|
REPLACE ALL SUMA WITH ABS(SUMA)
|
|
|
|
this.AlwaysOnTop = .F.
|
|
lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp")
|
|
IF lnSucces > 0
|
|
this.do_cauta()
|
|
AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare')
|
|
ELSE
|
|
AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare')
|
|
ENDIF
|
|
this.AlwaysOnTop = .T.
|
|
ENDIF
|
|
|
|
IF USED("crsActTemp")
|
|
USE IN crsActTemp
|
|
ENDIF
|
|
|
|
***-------------------------------------------------------------------------------------------------------------------------------------
|
|
*!* LOCAL lnIdSet, llVerificAnalitic, llCompletareParteneri, lnFelCont, lcContAles, lnSucces
|
|
*!* lnIdSet = 90501
|
|
*!* llVerificAnalitic = .T.
|
|
*!* llCompletareParteneri = .T.
|
|
|
|
*!* lcCursor = "crsActTemp"
|
|
|
|
|
|
*!* SELECT DISTINCT CONT FROM crsFacturi INTO CURSOR crsContAles
|
|
*!* IF _TALLY = 0
|
|
*!* USE IN crsContAles
|
|
*!* RETURN
|
|
*!* ENDIF
|
|
*!* SELECT crsContAles
|
|
*!* lcContAles = UPPER(ALLTRIM(CONT))
|
|
*!* USE IN crsContAles
|
|
|
|
*!* SELECT fel_cont ;
|
|
*!* FROM crsConturi ;
|
|
*!* WHERE UPPER(ALLTRIM(CONT)) = lcContAles ;
|
|
*!* INTO CURSOR crsFelCont
|
|
|
|
*!* IF _TALLY > 0
|
|
*!* SELECT crsFelCont
|
|
*!* lnFelCont = fel_cont
|
|
*!* ELSE
|
|
*!* lnFelCont = 0
|
|
*!* ENDIF
|
|
*!* USE IN crsFelCont
|
|
|
|
|
|
|
|
*!* SELECT an, luna, ID_FACT, ID_PART AS ID_PARTD, NUME AS PARTD, ID_PART AS ID_PARTC, NUME AS PARTC, ;
|
|
*!* SPACE(4) AS scd, acont AS ascd, SPACE(4) AS scc, acont AS ascc, diferenta AS SUMA, ;
|
|
*!* cursBNR AS CURS, nume_val, id_valuta, ;
|
|
*!* nract AS pereched, ID_FACT AS id_factd, ;
|
|
*!* nract AS perechec, ID_FACT AS id_factc, ;
|
|
*!* PADR('DIFERENTE REEVALUARE;' + ALLTRIM(STR(nract)) + ';' + ALLTRIM(TRANSFORM(CURS)) + ';' + ALLTRIM(TRANSFORM(cursBNR)), 50, ' ') AS explicatia, ;
|
|
*!* PADR(ALLTRIM(TRANSFORM(CURS)), 50, ' ') AS EXPLICATIA4 ;
|
|
*!* FROM crsFacturi ;
|
|
*!* WHERE diferenta <> 0 ;
|
|
*!* INTO CURSOR crsActTemp ;
|
|
*!* READWRITE
|
|
|
|
*!* IF _TALLY > 0
|
|
*!* SELECT crsActTemp
|
|
*!* REPLACE ALL scd WITH lcContAles, scc WITH "765 ", ascc WITH '', ID_PARTC WITH 0, PARTC WITH '', perechec WITH 0, id_factc WITH 0 ;
|
|
*!* FOR (SUMA>0 AND lnFelCont = 0) OR (SUMA<0 AND lnFelCont = 1)
|
|
|
|
*!* REPLACE ALL scd WITH "665 ", ascd WITH '', scc WITH lcContAles, ID_PARTD WITH 0, PARTD WITH '', pereched WITH 0, id_factd WITH 0 ;
|
|
*!* FOR (SUMA<0 AND lnFelCont = 0) OR (SUMA>0 AND lnFelCont = 1)
|
|
|
|
*!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'FAVORABILE') FOR scc = '765'
|
|
*!* REPLACE ALL explicatia WITH STRTRAN(explicatia, 'REEVALUARE', 'NEFAVORABILE') FOR scd = '665'
|
|
|
|
*!* REPLACE ALL SUMA WITH ABS(SUMA)
|
|
|
|
*!* this.AlwaysOnTop = .F.
|
|
*!* lnSucces = scrie_nota_import(lnIdSet, llVerificAnalitic, llCompletareParteneri, "crsActTemp")
|
|
*!* IF lnSucces > 0
|
|
*!* this.do_cauta()
|
|
*!* AMESSAGEBOX('Nota s-a scris in Registrul Jurnal.', 0+64, 'Reevaluare')
|
|
*!* ELSE
|
|
*!* AMESSAGEBOX('Nota nu s-a scris in Registrul Jurnal.', 0+16, 'Reevaluare')
|
|
*!* ENDIF
|
|
*!* this.AlwaysOnTop = .T.
|
|
*!* ENDIF
|
|
|
|
*!* IF USED("crsActTemp")
|
|
*!* USE IN crsActTemp
|
|
*!* ENDIF
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
this.WindowState= 2
|
|
DODEFAULT()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdConturi.AfterRowColChange
|
|
LPARAMETERS nColIndex
|
|
DELETE FROM crsFacturi
|
|
thisform.grdFacturi.Refresh()
|
|
ENDPROC
|
|
|
|
PROCEDURE grdFacturi.cAles.Check1.Click
|
|
*!* SELECT crsFacturi
|
|
*!* CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta > 0 TO thisform.ndiferentafavorabila
|
|
*!* CALCULATE SUM(ABS(diferenta)) FOR ales = 1 AND diferenta < 0 TO thisform.ndiferentanefavorabila
|
|
*!* GO TOP
|
|
|
|
SELECT SUM(NVL(ABS(diferenta),0.00)) AS difFav FROM crsFacturi WITH (BUFFERING = .T.) ;
|
|
WHERE ales = 1 AND diferenta > 0 ;
|
|
INTO CURSOR cDifFav
|
|
|
|
THISFORM.ndiferentafavorabila = NVL(difFav,0.00)
|
|
|
|
IF USED('cDifFav')
|
|
USE IN cDifFav
|
|
ENDIF
|
|
|
|
SELECT SUM(NVL(ABS(diferenta),0.00)) AS difNefav FROM crsFacturi WITH (BUFFERING = .T.) ;
|
|
WHERE ales = 1 AND diferenta < 0 ;
|
|
INTO CURSOR cDifNefav
|
|
|
|
THISFORM.ndiferentanefavorabila = NVL(difNefav,0.00)
|
|
|
|
IF USED('cDifNefav')
|
|
USE IN cDifNefav
|
|
ENDIF
|
|
|
|
THISFORM.txtDiferentaFavorabila.REFRESH()
|
|
THISFORM.txtdiferentaNefavorabila.REFRESH()
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE grdValuta.DblClick
|
|
SELECT V_VALUTA
|
|
APPEND BLANK
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS frm_actualizare_tva 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_renunt1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ck_act" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ck_ireg_part" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="ck_note" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_explicatie" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*p: ctip
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
BindControls = .T.
|
|
ctip =
|
|
DoCreate = .T.
|
|
Height = 180
|
|
Name = "frm_actualizare_tva"
|
|
Width = 338
|
|
_SHAPE1.Name = "_SHAPE1"
|
|
_SHAPE1.Width = 338
|
|
_SHAPE2.Height = 29
|
|
_SHAPE2.Left = 268
|
|
_SHAPE2.Name = "_SHAPE2"
|
|
_SHAPE2.Top = 0
|
|
_SHAPE2.Width = 71
|
|
LB_TITLU_ALB_B121.Caption = "Actualizari TVA"
|
|
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
|
|
LB_TITLU_ALB_B121.TabIndex = 7
|
|
BUT_TERMIN1.Left = 305
|
|
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 = 272, ;
|
|
Name = "But_renunt1", ;
|
|
TabIndex = 6, ;
|
|
Top = 1
|
|
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
|
|
|
ADD OBJECT 'ck_act' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Registrul jurnal", ;
|
|
ControlSource = "pnActAct", ;
|
|
Left = 51, ;
|
|
Name = "ck_act", ;
|
|
TabIndex = 2, ;
|
|
Top = 108
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'ck_ireg_part' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Inregistrarile de parteneri", ;
|
|
ControlSource = "pnActIregPart", ;
|
|
Height = 17, ;
|
|
Left = 51, ;
|
|
Name = "ck_ireg_part", ;
|
|
TabIndex = 3, ;
|
|
Top = 126
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'ck_note' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
Caption = "Notele contabile", ;
|
|
ControlSource = "pnActNote", ;
|
|
Left = 51, ;
|
|
Name = "ck_note", ;
|
|
TabIndex = 4, ;
|
|
Top = 146
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
|
|
Left = 25, ;
|
|
Name = "Clb_luna_intre1", ;
|
|
TabIndex = 1, ;
|
|
Top = 49, ;
|
|
tx_n1.ControlSource = "pcAnLuna1", ;
|
|
tx_n1.Name = "tx_n1", ;
|
|
Lb_simplu1.Caption = "Interval", ;
|
|
Lb_simplu1.Name = "Lb_simplu1", ;
|
|
tx_n2.ControlSource = "pcAnLuna2", ;
|
|
tx_n2.Name = "tx_n2"
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
|
|
|
ADD OBJECT 'lb_explicatie' AS lb_simplu WITH ;
|
|
Caption = "Se actualizeaza", ;
|
|
Left = 19, ;
|
|
Name = "lb_explicatie", ;
|
|
TabIndex = 8, ;
|
|
Top = 89
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
PROCEDURE inainte_de_do_termin
|
|
Local llReturn
|
|
Do Case
|
|
Case Empty(pnActAct) And Empty(pnActIregPart) And Empty(pnActNote)
|
|
amessagebox("Nu ati ales tabelele ce trebuie actualizate!",0+48,"Atentie")
|
|
Thisform.ck_act.SetFocus()
|
|
llReturn = .F.
|
|
Case Empty(pcAnLuna1)
|
|
amessagebox("Nu ati completat luna de inceput!",0+48,"Atentie")
|
|
Thisform.clb_luna_intre1.tx_n1.SetFocus()
|
|
llReturn=.F.
|
|
Case Empty(pcAnLuna2)
|
|
amessagebox("Nu ati completat luna de sfarsit!",0+48,"Atentie")
|
|
Thisform.clb_luna_intre1.tx_n2.SetFocus()
|
|
llReturn=.F.
|
|
Otherwise
|
|
llReturn=.T.
|
|
Endcase
|
|
Return llReturn
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|