romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r17979

Browse Source
This commit is contained in:
Marius Mutu
2026-08-06 00:34:35 +03:00
parent 72bf63cd04
commit c599a9c053
12 changed files with 1060 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
clase/ointroduceri.vc2
View File

@@ -10199,7 +10199,8 @@ DEFINE CLASS import_nota AS frm_termin_renunt OF "_frm_child.vcx"
*!* Randul D, unic pe nota (doc_key gol, nr_doc 99999999): diferenta = baza documentelor
*!* care participa la pret - Suma(pret*cant) cu pretul incarcat. Cont dominant = contul de
*!* clasa 3 cu baza ABS maxima; fara clasa 3 -> clasa 2, cu contul fix 6588. Diferenta se
*!* scrie doar in lei. Antetul se mosteneste de la documentul principal.
*!* scrie doar in lei, fara TVA si fara cod de taxa SAFT. Antetul se mosteneste de la
*!* documentul principal.
Local lcSel, lnMinNrDoc, lnTotalLei, lnTotalVal, lnBazaParticipa
Local lcContDominant, lnBazaDominantaAbs, lcScd1, lnDiferentaLei, lnDiferentaVal, lcExplicatie
Local llGasitClasa3, loAntet
@@ -10310,7 +10311,7 @@ DEFINE CLASS import_nota AS frm_termin_renunt OF "_frm_child.vcx"
Replace partc With '', id_partc With 0, partd With '', id_partd With 0
Endif
Replace scd With lcScd1, scc With lcContDominant, suma With lnDiferentaLei, suma_val With 0, ;
explicatia With lcExplicatie, id_jtva_coloana With Null, ptva With 0, cu_tva With 0, ;
explicatia With lcExplicatie, id_jtva_coloana With Null, taxcode With 0, ptva With 0, cu_tva With 0, ;
in_valuta With 0, participa_valuta With .F., nume_val With '', id_valuta With 0, curs With 0
Select (lcSel)

180
clase/omodificari.vc2
View File

@@ -6720,6 +6720,8 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
*< OBJECTDATA: ObjPath="Grid1.Column43.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column43.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column43._combobox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column44.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Grid1.Column44.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
@@ -6762,6 +6764,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
*m: grid_focus_prima_coloana
*m: resize_grid1
*m: salveazaxml
*m: sincronizeaza_nnir
*m: updateexplicatiesaft
*m: updateexplicatiesaftrul
*m: valideaza_data
@@ -6778,6 +6781,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
*p: lverificare
*p: lvizualizare
*p: nid_set
*p: nnnirvechi
*p: noldsuma && Valoarea la intrarea in campul "Suma"
*p: nprimadata
*p: nsuma && Total suma inregistrari
@@ -6809,6 +6813,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
lvizualizare = .F.
Name = "frm_modific2024"
nid_set = 0
nnnirvechi = 0
noldsuma = 0
nprimadata = 0
nsuma = 0
@@ -7143,7 +7148,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Grid1' AS grid WITH ;
Anchor = 10, ;
BackColor = 244,250,255, ;
ColumnCount = 43, ;
ColumnCount = 44, ;
DeleteMark = .F., ;
FontCharSet = 238, ;
FontSize = 10, ;
@@ -7185,7 +7190,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column2.Width = 71, ;
Column3.Alignment = 0, ;
Column3.BackColor = 244,250,255, ;
Column3.ColumnOrder = 15, ;
Column3.ColumnOrder = 16, ;
Column3.ControlSource = "fdoc", ;
Column3.FontCharSet = 238, ;
Column3.FontName = "Arial", ;
@@ -7215,7 +7220,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column5.Width = 53, ;
Column6.Alignment = 0, ;
Column6.BackColor = 244,250,255, ;
Column6.ColumnOrder = 7, ;
Column6.ColumnOrder = 8, ;
Column6.ControlSource = "partd", ;
Column6.FontCharSet = 238, ;
Column6.FontName = "Arial", ;
@@ -7225,7 +7230,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column6.Width = 114, ;
Column7.Alignment = 1, ;
Column7.BackColor = 244,250,255, ;
Column7.ColumnOrder = 10, ;
Column7.ColumnOrder = 11, ;
Column7.ControlSource = "scd", ;
Column7.FontCharSet = 238, ;
Column7.FontName = "Arial", ;
@@ -7235,7 +7240,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column7.Width = 57, ;
Column8.Alignment = 1, ;
Column8.BackColor = 244,250,255, ;
Column8.ColumnOrder = 12, ;
Column8.ColumnOrder = 13, ;
Column8.ControlSource = "scc", ;
Column8.FontCharSet = 238, ;
Column8.FontName = "Arial", ;
@@ -7245,7 +7250,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column8.Width = 62, ;
Column9.Alignment = 1, ;
Column9.BackColor = 244,250,255, ;
Column9.ColumnOrder = 14, ;
Column9.ColumnOrder = 15, ;
Column9.ControlSource = "suma", ;
Column9.DynamicForeColor = "IIF(SUMA>=0, RGB(0,0,0), RGB(255,0,0))", ;
Column9.FontCharSet = 238, ;
@@ -7258,7 +7263,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column9.Width = 93, ;
Column10.Alignment = 0, ;
Column10.BackColor = 244,250,255, ;
Column10.ColumnOrder = 8, ;
Column10.ColumnOrder = 9, ;
Column10.ControlSource = "partc", ;
Column10.FontCharSet = 238, ;
Column10.FontName = "Arial", ;
@@ -7268,7 +7273,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column10.Width = 100, ;
Column11.Alignment = 0, ;
Column11.BackColor = 244,250,255, ;
Column11.ColumnOrder = 9, ;
Column11.ColumnOrder = 10, ;
Column11.ControlSource = "explicatia", ;
Column11.FontCharSet = 238, ;
Column11.FontName = "Arial", ;
@@ -7277,7 +7282,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column11.ReadOnly = .F., ;
Column11.Width = 77, ;
Column12.BackColor = 244,250,255, ;
Column12.ColumnOrder = 37, ;
Column12.ColumnOrder = 38, ;
Column12.ControlSource = "cod", ;
Column12.FontCharSet = 238, ;
Column12.FontName = "Arial", ;
@@ -7286,7 +7291,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column12.ReadOnly = .T., ;
Column12.Width = 52, ;
Column13.BackColor = 244,250,255, ;
Column13.ColumnOrder = 16, ;
Column13.ColumnOrder = 17, ;
Column13.ControlSource = "pereched", ;
Column13.FontCharSet = 238, ;
Column13.FontName = "Arial", ;
@@ -7295,7 +7300,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column13.ReadOnly = .F., ;
Column13.Width = 106, ;
Column14.BackColor = 244,250,255, ;
Column14.ColumnOrder = 31, ;
Column14.ColumnOrder = 32, ;
Column14.ControlSource = "explicatia4", ;
Column14.FontCharSet = 238, ;
Column14.FontName = "Arial", ;
@@ -7304,7 +7309,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column14.ReadOnly = .F., ;
Column14.Width = 120, ;
Column15.BackColor = 244,250,255, ;
Column15.ColumnOrder = 24, ;
Column15.ColumnOrder = 25, ;
Column15.ControlSource = "nrord", ;
Column15.FontCharSet = 238, ;
Column15.FontName = "Arial", ;
@@ -7312,7 +7317,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column15.Name = "Column15", ;
Column15.ReadOnly = .F., ;
Column16.BackColor = 244,250,255, ;
Column16.ColumnOrder = 26, ;
Column16.ColumnOrder = 27, ;
Column16.ControlSource = "nresp", ;
Column16.FontCharSet = 238, ;
Column16.FontName = "Arial", ;
@@ -7322,7 +7327,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column16.Name = "Column16", ;
Column16.ReadOnly = .F., ;
Column17.BackColor = 244,250,255, ;
Column17.ColumnOrder = 27, ;
Column17.ColumnOrder = 28, ;
Column17.ControlSource = "dst_chlt", ;
Column17.FontCharSet = 238, ;
Column17.FontName = "Arial", ;
@@ -7332,7 +7337,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column17.Name = "Column17", ;
Column17.ReadOnly = .F., ;
Column18.BackColor = 244,250,255, ;
Column18.ColumnOrder = 32, ;
Column18.ColumnOrder = 33, ;
Column18.ControlSource = "explicatia5", ;
Column18.FontCharSet = 238, ;
Column18.FontName = "Arial", ;
@@ -7341,7 +7346,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column18.ReadOnly = .F., ;
Column18.Width = 119, ;
Column19.BackColor = 244,250,255, ;
Column19.ColumnOrder = 23, ;
Column19.ColumnOrder = 24, ;
Column19.ControlSource = "datascad", ;
Column19.FontCharSet = 238, ;
Column19.FontName = "Arial", ;
@@ -7351,7 +7356,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column19.Visible = .T., ;
Column19.Width = 87, ;
Column20.BackColor = 244,250,255, ;
Column20.ColumnOrder = 28, ;
Column20.ColumnOrder = 29, ;
Column20.ControlSource = "suma_val", ;
Column20.FontCharSet = 238, ;
Column20.FontName = "Arial", ;
@@ -7361,7 +7366,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column20.ReadOnly = .F., ;
Column20.Width = 89, ;
Column21.BackColor = 244,250,255, ;
Column21.ColumnOrder = 30, ;
Column21.ColumnOrder = 31, ;
Column21.ControlSource = "curs", ;
Column21.FontCharSet = 238, ;
Column21.FontName = "Arial", ;
@@ -7371,7 +7376,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column21.ReadOnly = .F., ;
Column21.Width = 72, ;
Column22.BackColor = 244,250,255, ;
Column22.ColumnOrder = 33, ;
Column22.ColumnOrder = 34, ;
Column22.ControlSource = "gestin", ;
Column22.FontCharSet = 238, ;
Column22.FontName = "Arial", ;
@@ -7380,7 +7385,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column22.ReadOnly = .F., ;
Column22.Width = 116, ;
Column23.BackColor = 244,250,255, ;
Column23.ColumnOrder = 11, ;
Column23.ColumnOrder = 12, ;
Column23.ControlSource = "ascd", ;
Column23.FontCharSet = 238, ;
Column23.FontName = "Arial", ;
@@ -7389,7 +7394,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column23.ReadOnly = .F., ;
Column23.Width = 46, ;
Column24.BackColor = 244,250,255, ;
Column24.ColumnOrder = 13, ;
Column24.ColumnOrder = 14, ;
Column24.ControlSource = "ascc", ;
Column24.FontCharSet = 238, ;
Column24.FontName = "Arial", ;
@@ -7398,7 +7403,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column24.ReadOnly = .F., ;
Column24.Width = 48, ;
Column25.BackColor = 244,250,255, ;
Column25.ColumnOrder = 38, ;
Column25.ColumnOrder = 39, ;
Column25.ControlSource = "id_set", ;
Column25.FontCharSet = 238, ;
Column25.FontName = "Arial", ;
@@ -7407,7 +7412,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column25.ReadOnly = .T., ;
Column25.Width = 71, ;
Column26.BackColor = 244,250,255, ;
Column26.ColumnOrder = 19, ;
Column26.ColumnOrder = 20, ;
Column26.ControlSource = "proc_tva", ;
Column26.FontCharSet = 238, ;
Column26.FontName = "Arial", ;
@@ -7416,7 +7421,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column26.ReadOnly = .T., ;
Column26.Width = 54, ;
Column27.BackColor = 244,250,255, ;
Column27.ColumnOrder = 17, ;
Column27.ColumnOrder = 18, ;
Column27.ControlSource = "perechec", ;
Column27.FontCharSet = 238, ;
Column27.FontName = "Arial", ;
@@ -7425,7 +7430,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column27.ReadOnly = .F., ;
Column27.Width = 104, ;
Column28.BackColor = 244,250,255, ;
Column28.ColumnOrder = 35, ;
Column28.ColumnOrder = 36, ;
Column28.ControlSource = "sectie", ;
Column28.FontCharSet = 238, ;
Column28.FontName = "Arial", ;
@@ -7434,7 +7439,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column28.ReadOnly = .F., ;
Column28.Width = 88, ;
Column29.BackColor = 244,250,255, ;
Column29.ColumnOrder = 29, ;
Column29.ColumnOrder = 30, ;
Column29.ControlSource = "nume_val", ;
Column29.FontCharSet = 238, ;
Column29.FontName = "Arial", ;
@@ -7443,7 +7448,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column29.ReadOnly = .F., ;
Column29.Width = 79, ;
Column30.BackColor = 244,250,255, ;
Column30.ColumnOrder = 39, ;
Column30.ColumnOrder = 40, ;
Column30.ControlSource = "id_partd", ;
Column30.FontCharSet = 238, ;
Column30.FontName = "Arial", ;
@@ -7452,7 +7457,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column30.ReadOnly = .T., ;
Column30.Width = 55, ;
Column31.BackColor = 244,250,255, ;
Column31.ColumnOrder = 40, ;
Column31.ColumnOrder = 41, ;
Column31.ControlSource = "id_partc", ;
Column31.FontCharSet = 238, ;
Column31.FontName = "Arial", ;
@@ -7461,7 +7466,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column31.ReadOnly = .T., ;
Column31.Width = 55, ;
Column32.BackColor = 244,250,255, ;
Column32.ColumnOrder = 34, ;
Column32.ColumnOrder = 35, ;
Column32.ControlSource = "gestout", ;
Column32.FontCharSet = 238, ;
Column32.FontName = "Arial", ;
@@ -7470,7 +7475,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column32.ReadOnly = .F., ;
Column32.Width = 92, ;
Column33.BackColor = 244,250,255, ;
Column33.ColumnOrder = 36, ;
Column33.ColumnOrder = 37, ;
Column33.ControlSource = "sucursala", ;
Column33.FontCharSet = 238, ;
Column33.FontName = "Arial", ;
@@ -7479,7 +7484,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column33.ReadOnly = .F., ;
Column33.Width = 121, ;
Column34.BackColor = 244,250,255, ;
Column34.ColumnOrder = 25, ;
Column34.ColumnOrder = 26, ;
Column34.ControlSource = "contract", ;
Column34.FontCharSet = 238, ;
Column34.FontName = "Arial", ;
@@ -7488,7 +7493,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column34.ReadOnly = .T., ;
Column34.Width = 65, ;
Column35.BackColor = 244,250,255, ;
Column35.ColumnOrder = 20, ;
Column35.ColumnOrder = 21, ;
Column35.ControlSource = "explicatie_tva", ;
Column35.FontCharSet = 238, ;
Column35.FontName = "Arial", ;
@@ -7497,7 +7502,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column35.ReadOnly = .F., ;
Column35.Width = 136, ;
Column36.BackColor = 244,250,255, ;
Column36.ColumnOrder = 18, ;
Column36.ColumnOrder = 19, ;
Column36.ControlSource = "cu_tva", ;
Column36.FontCharSet = 238, ;
Column36.FontName = "Arial", ;
@@ -7517,7 +7522,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column37.ReadOnly = .F., ;
Column37.Width = 58, ;
Column38.BackColor = 244,250,255, ;
Column38.ColumnOrder = 41, ;
Column38.ColumnOrder = 42, ;
Column38.ControlSource = "id_fact", ;
Column38.FontCharSet = 238, ;
Column38.FontName = "Arial", ;
@@ -7526,7 +7531,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column38.ReadOnly = .T., ;
Column38.Width = 94, ;
Column39.BackColor = 244,250,255, ;
Column39.ColumnOrder = 42, ;
Column39.ColumnOrder = 43, ;
Column39.ControlSource = "id_factd", ;
Column39.FontCharSet = 238, ;
Column39.FontName = "Arial", ;
@@ -7535,7 +7540,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column39.ReadOnly = .T., ;
Column39.Width = 75, ;
Column40.BackColor = 244,250,255, ;
Column40.ColumnOrder = 43, ;
Column40.ColumnOrder = 44, ;
Column40.ControlSource = "id_factc", ;
Column40.FontCharSet = 238, ;
Column40.FontName = "Arial", ;
@@ -7555,7 +7560,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column41.Width = 22, ;
Column42.BackColor = 244,250,255, ;
Column42.Bound = .F., ;
Column42.ColumnOrder = 21, ;
Column42.ColumnOrder = 22, ;
Column42.ControlSource = "Iif(Seek(tAct.taxcode,'saft_taxtable','taxcode'),saft_taxtable.taxname,'')", ;
Column42.CurrentControl = "_combobox1", ;
Column42.FontCharSet = 238, ;
@@ -7566,7 +7571,7 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column42.Width = 184, ;
Column43.BackColor = 244,250,255, ;
Column43.Bound = .F., ;
Column43.ColumnOrder = 22, ;
Column43.ColumnOrder = 23, ;
Column43.ControlSource = "Iif(Seek(tAct.paymentcode,'saft_mecanisme_plati','mcode'),saft_mecanisme_plati.paymentname,'')", ;
Column43.CurrentControl = "_combobox1", ;
Column43.FontCharSet = 238, ;
@@ -7574,7 +7579,17 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
Column43.Name = "Column43", ;
Column43.ReadOnly = .F., ;
Column43.Sparse = .F., ;
Column43.Width = 146
Column43.Width = 146, ;
Column44.Alignment = 1, ;
Column44.BackColor = 244,250,255, ;
Column44.ColumnOrder = 7, ;
Column44.ControlSource = "nnir", ;
Column44.FontCharSet = 238, ;
Column44.FontName = "Arial", ;
Column44.FontSize = 10, ;
Column44.Name = "Column44", ;
Column44.ReadOnly = .F., ;
Column44.Width = 60
*< END OBJECT: BaseClass="grid" />
ADD OBJECT 'Grid1.cAles._CHECKBOX1' AS _checkbox WITH ;
@@ -8442,6 +8457,29 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
SelectedBackColor = 49,106,197
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column44.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. NIR", ;
FontCharSet = 238, ;
FontName = "Arial", ;
FontSize = 10, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'Grid1.Column44.Text1' AS textbox WITH ;
Alignment = 1, ;
BackColor = 244,250,255, ;
BorderStyle = 0, ;
FontCharSet = 238, ;
FontName = "Arial", ;
FontSize = 10, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F., ;
SelectedBackColor = 49,106,197
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Grid1.Column5.Header5' AS header WITH ;
Alignment = 2, ;
Caption = "Nr.Doc.", ;
@@ -13613,6 +13651,9 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
This.grid1.Anchor = 11
This.but_renunt1.Anchor = 8
If This.nid_set = 90101
This.grid1.Column44.ReadOnly = .T.
Endif
ENDPROC
PROCEDURE Load
@@ -13683,6 +13724,19 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
this.gridextra1.setup()
LOCAL lcPrefFile, lcPrefFileContents, lcKey, lcPrefs
LOCAL ARRAY laNnirPrefs(1)
lcPrefFile = This.gridextra1.GetUserApplicationDataPath() + This.gridextra1.GridPreferenceFile
lcPrefFileContents = ""
IF FILE(m.lcPrefFile)
lcPrefFileContents = FILETOSTR(m.lcPrefFile)
ENDIF
lcKey = SYS(1272, This.grid1) + "("
lcPrefs = STREXTRACT(m.lcPrefFileContents, m.lcKey, ")", 1, 1)
*!* pozitioneaza coloana la prima deschidere, cat timp preferintele salvate nu o acopera
IF EMPTY(m.lcPrefs) OR ALINES(laNnirPrefs, m.lcPrefs, 7, ",") < This.grid1.ColumnCount * 2
This.grid1.Column44.ColumnOrder = 7
ENDIF
this.grid1.SetAll("dynamicbackcolor", "IIF(ALES, RGB(255,255,225), RGB(255,255,255))", "Column")
This.CalculeazaTotal()
*!* 24.05.2011 ^
@@ -13717,6 +13771,37 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
ENDPROC
PROCEDURE sincronizeaza_nnir
*!* propaga NNIR-ul modificat pe toate liniile notei si pe rulajele asociate
LPARAMETERS tnNnirVechi, tnNnirNou
LOCAL lcSelect, lnRecno
IF NVL(m.tnNnirVechi, 0) = NVL(m.tnNnirNou, 0)
RETURN
ENDIF
lcSelect = SELECT()
lnRecno = RECNO('tact')
UPDATE tact SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
IF USED('trul')
UPDATE trul SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
IF _TALLY > 0
Thisform.pgfArticole.page1.grdRulaje.Refresh()
ENDIF
ENDIF
IF USED('trul_obinv')
UPDATE trul_obinv SET nnir = m.tnNnirNou WHERE NVL(nnir, 0) = m.tnNnirVechi
IF _TALLY > 0
Thisform.pgfArticole.page2.grdRulajeObinv.Refresh()
ENDIF
ENDIF
SELECT tact
IF BETWEEN(m.lnRecno, 1, RECCOUNT('tact'))
GO m.lnRecno
ELSE
GO TOP
ENDIF
SELECT (m.lcSelect)
ENDPROC
PROCEDURE updateexplicatiesaft
* Daca nu este activata SAFT 406 nu fac nimic
IF !m.gl406
@@ -14201,6 +14286,10 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
.Column35.ReadOnly = .T. && cod
.Column25.ReadOnly = .T. && id_set
ENDWITH
*!* pastreaza blocarea NNIR pentru notele de inventar (id_set = 90101)
IF Thisform.nid_set = 90101
This.Column44.ReadOnly = .T.
ENDIF
*!* 10.08.2011 ^
*!* pot selecta inregistrari din alte sucursale pentru operatiile de copiere, adaugare care
This.cAles.ReadOnly = .F.
@@ -14674,6 +14763,19 @@ DEFINE CLASS frm_modific2024 AS _frmbase OF "_frm_base.vcx"
thisform.cPaymentCode = ALLTRIM(tAct.paymentcode)
ENDPROC
PROCEDURE Grid1.Column44.Text1.LostFocus
Local lnNnirNou, lnNnirVechi
lnNnirVechi = thisform.nnnirvechi
lnNnirNou = NVL(tAct.nnir, 0)
Thisform.sincronizeaza_nnir(m.lnNnirVechi, m.lnNnirNou)
Thisform.nnnirvechi = m.lnNnirNou
Thisform.Grid1.Refresh()
ENDPROC
PROCEDURE Grid1.Column44.Text1.When
Thisform.nnnirvechi = NVL(tAct.nnir, 0)
ENDPROC
PROCEDURE Grid1.Column6.Text1.InteractiveChange
ADDPROPERTY(this, 'lInteractiveChange')
LOCAL lnIdPart