romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
0c0bef543584b2b3991b166c26774f2c0e171bff
roaregistratura/Clase/ofundal_registratura.vc2
Marius Mutu d2e87327a4 Registratura: adaugare/editare fara erori la partener NULL, lista doar ultimul document, fonturi Arial 10 (M1-M5) 
M1 modifica_reg_dg: garda id_part NULL/empty (mesaj + Return .F.), NVL pe id_part/nr_pag, functia intoarce succes.
M2 validare partener in toate cele 3 puncte de salvare, INAINTE de blocarea campurilor (Command2.Click salveaza inainte sa blocheze; bara laterala si Page3.Deactivate nu mai salveaza/prompteaza cu partener NULL).
M3 do_adauga: documentul nou intra direct in editare (llock=.F., focus cmdDenumire); eliminat mesajul fals "Toate modificarile au efect imediat!".
M4 viz_registratura + do_cauta: filtru initial "doar ultimul document" (subquery max(id_reg)); fara criterii de cautare se pastreaza filtrul, nu se incarca toata baza.
M5 fonturi: eliminate 154 suprascrieri "Arial Narrow" si rebazate 96 controale baseclass pe COMUN _baza.vcx (textbox/label/checkbox/commandbutton/optiongroup); Init de grid propaga fontul la coloane si headere (fara asta raman Arial 9 - verificat empiric).

Teste: harness headless (init env dedicat, form, adaugare+editare cu verificare in baza) + test UI vizual cu screenshots pe fluxul real (19 PASS / 0 FAIL). Diff-uri de audit in docs/diff_runda1_*.patch.

M6 (build EXE) BLOCAT headless: roaRegistratura.pjx refera 48 fisiere hardcodate pe "c:\program files\...\vfp 9" (masina 32-bit din 2021) + COMUN\utile\hpdf\ReportOutput\ctl32_progressbar.vcx redenumit _old; necesita repathing o data in VFP9 IDE.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
2026-07-23 18:53:12 +03:00

314 lines
12 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_registratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Page1.shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Ct_registratura1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.CT_DATE_GENERALE1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.CT_PART_NR_DATA1" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 2
Anchor = 15
ErasePage = .T.
Height = 431
Name = "pg_meniu_princ"
PageCount = 3
Width = 800
Page1.Caption = "Definire"
Page1.Name = "Page1"
Page2.Caption = "Lista documentelor"
Page2.Name = "Page2"
Page3.BackColor = 255,255,255
Page3.Caption = "Datele documentului"
Page3.Name = "Page3"
*</PropValue>
ADD OBJECT 'Page1.Cw1' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw1", ;
nid_cw = 1, ;
ntip = 4, ;
Top = 12, ;
Width = 142, ;
Label_item1.Caption = "Parteneri", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw2' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw2", ;
nid_cw = 5, ;
ntip = 4, ;
Top = 61, ;
Width = 142, ;
Label_item1.Caption = "Optiuni", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw4' AS cw WITH ;
Left = 4, ;
linactiv = .T., ;
Name = "Cw4", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 36, ;
Width = 142, ;
Label_item1.Caption = "Modele de COVER PAGE", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.shape1' AS pict_meniu WITH ;
Anchor = 7, ;
Height = 406, ;
Left = 0, ;
Name = "shape1", ;
Picture = ..\grafice\f2.jpg, ;
Top = -2, ;
Width = 160
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Ct_registratura1' AS ct_registratura WITH ;
Anchor = 15, ;
Height = 356, ;
Left = -2, ;
Name = "Ct_registratura1", ;
Top = 0, ;
Width = 800, ;
_shape1.Name = "_shape1", ;
Gridsort1.Name = "Gridsort1", ;
_ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
grid_registratura.cAre_obs.Check1.Alignment = 0, ;
grid_registratura.cAre_obs.Check1.Name = "Check1", ;
grid_registratura.cAre_obs.Header1.Name = "Header1", ;
grid_registratura.cAre_obs.Name = "cAre_obs", ;
grid_registratura.cAvizat.Check1.Alignment = 0, ;
grid_registratura.cAvizat.Check1.Name = "Check1", ;
grid_registratura.cAvizat.Header1.Name = "Header1", ;
grid_registratura.cAvizat.Name = "cAvizat", ;
grid_registratura.cData_ctr.Header1.Name = "Header1", ;
grid_registratura.cData_ctr.Name = "cData_ctr", ;
grid_registratura.cData_ctr.Text1.Name = "Text1", ;
grid_registratura.cData_intern.Header1.Name = "Header1", ;
grid_registratura.cData_intern.Name = "cData_intern", ;
grid_registratura.cData_intern.Text1.Name = "Text1", ;
grid_registratura.cDescriere.Header1.Name = "Header1", ;
grid_registratura.cDescriere.Name = "cDescriere", ;
grid_registratura.cDescriere.Text1.Name = "Text1", ;
grid_registratura.cFel_document.Header1.Name = "Header1", ;
grid_registratura.cFel_document.Name = "cFel_document", ;
grid_registratura.cFel_document.Text1.Name = "Text1", ;
grid_registratura.cIE.Header1.Name = "Header1", ;
grid_registratura.cIE.Name = "cIE", ;
grid_registratura.cIE.Text1.Name = "Text1", ;
grid_registratura.cMediu_transmisie.Header1.Name = "Header1", ;
grid_registratura.cMediu_transmisie.Name = "cMediu_transmisie", ;
grid_registratura.cMediu_transmisie.Text1.Name = "Text1", ;
grid_registratura.cNresp.Header1.Name = "Header1", ;
grid_registratura.cNresp.Name = "cNresp", ;
grid_registratura.cNresp.Text1.Name = "Text1", ;
grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
grid_registratura.cNr_pag.Header1.Name = "Header1", ;
grid_registratura.cNr_pag.Name = "cNr_pag", ;
grid_registratura.cNr_pag.Text1.Name = "Text1", ;
grid_registratura.cNumar_intern.Header1.Name = "Header1", ;
grid_registratura.cNumar_intern.Name = "cNumar_intern", ;
grid_registratura.cNumar_intern.Text1.Name = "Text1", ;
grid_registratura.cNume.Header1.Name = "Header1", ;
grid_registratura.cNume.Name = "cNume", ;
grid_registratura.cNume.Text1.Name = "Text1", ;
grid_registratura.Column12.Header1.Name = "Header1", ;
grid_registratura.Column12.Name = "Column12", ;
grid_registratura.Column12.Text1.Name = "Text1", ;
grid_registratura.COLUMN13.Header1.Name = "Header1", ;
grid_registratura.COLUMN13.Name = "COLUMN13", ;
grid_registratura.COLUMN13.Text1.Name = "Text1", ;
grid_registratura.Column14.Header1.Name = "Header1", ;
grid_registratura.Column14.Name = "Column14", ;
grid_registratura.Column14.Text1.Name = "Text1", ;
grid_registratura.Column15.Header1.Name = "Header1", ;
grid_registratura.Column15.Name = "Column15", ;
grid_registratura.Column15.Text1.Name = "Text1", ;
grid_registratura.COLUMN16.Header1.Name = "Header1", ;
grid_registratura.COLUMN16.Name = "COLUMN16", ;
grid_registratura.COLUMN16.Text1.Name = "Text1", ;
grid_registratura.COLUMN17.Header1.Name = "Header1", ;
grid_registratura.COLUMN17.Name = "COLUMN17", ;
grid_registratura.COLUMN17.Text1.Name = "Text1", ;
grid_registratura.COLUMN22.Header1.Name = "Header1", ;
grid_registratura.COLUMN22.Name = "COLUMN22", ;
grid_registratura.COLUMN22.Text1.Name = "Text1", ;
grid_registratura.Column23.Command1.Name = "Command1", ;
grid_registratura.Column23.Command2.Name = "Command2", ;
grid_registratura.Column23.Header1.Name = "Header1", ;
grid_registratura.Column23.Name = "Column23", ;
grid_registratura.Column23.Text1.Name = "Text1", ;
grid_registratura.cPers_contact.Header1.Name = "Header1", ;
grid_registratura.cPers_contact.Name = "cPers_contact", ;
grid_registratura.cPers_contact.Text1.Name = "Text1", ;
grid_registratura.Name = "grid_registratura", ;
Ck_data.Alignment = 0, ;
Ck_data.Name = "Ck_data", ;
But_nou1.Name = "But_nou1", ;
But_sterge1.Name = "But_sterge1", ;
Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
But_listare1.Name = "But_listare1", ;
But_excel1.Name = "But_excel1", ;
Ck_nume.Alignment = 0, ;
Ck_nume.Name = "Ck_nume", ;
Ck_numar.Alignment = 0, ;
Ck_numar.Name = "Ck_numar", ;
Cmd_reset1.Name = "Cmd_reset1", ;
Cmd_cauta1.Name = "Cmd_cauta1", ;
_lbbase1.Name = "_lbbase1", ;
Ck_tipdoc.Alignment = 0, ;
Ck_tipdoc.Name = "Ck_tipdoc", ;
Ck_sters.Alignment = 0, ;
Ck_sters.Name = "Ck_sters"
*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />
ADD OBJECT 'Page3.CT_DATE_GENERALE1' AS ct_date_generale WITH ;
Anchor = 15, ;
Left = -1, ;
Name = "CT_DATE_GENERALE1", ;
Top = 0, ;
OUTLOOK2003BAR1.Name = "OUTLOOK2003BAR1", ;
OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Height = 16, ;
OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Name = "IMGPICTURE", ;
OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Width = 16, ;
OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.Name = "MENUBUTTON", ;
OUTLOOK2003BAR1.OVERFLOWPANEL.Name = "OVERFLOWPANEL", ;
OUTLOOK2003BAR1.Panel.Name = "Panel", ;
OUTLOOK2003BAR1.PANES.ErasePage = .T., ;
OUTLOOK2003BAR1.PANES.Height = 328, ;
OUTLOOK2003BAR1.PANES.Name = "PANES", ;
OUTLOOK2003BAR1.PANES.PANE1.Name = "PANE1", ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Height = 328, ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Left = 0, ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Name = "OLECONTROL1", ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Top = 0, ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Width = 198, ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Height = 150, ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Name = "OLECONTROL2", ;
OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Width = 200, ;
OUTLOOK2003BAR1.PANES.PANE2.Name = "PANE2", ;
OUTLOOK2003BAR1.PANES.PANE3.Name = "PANE3", ;
OUTLOOK2003BAR1.PANES.PANE4.Name = "PANE4", ;
OUTLOOK2003BAR1.PANES.Top = 33, ;
OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Height = 3, ;
OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Name = "IMGSPLITTER", ;
OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Width = 35, ;
OUTLOOK2003BAR1.SplitBar.Name = "SplitBar", ;
OUTLOOK2003BAR1.SPLITTER.Name = "SPLITTER", ;
OUTLOOK2003BAR1.TITLE.LBLCAPTION.Name = "LBLCAPTION", ;
OUTLOOK2003BAR1.TITLE.LINBORDER.Name = "LINBORDER", ;
OUTLOOK2003BAR1.TITLE.Name = "TITLE"
*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />
ADD OBJECT 'Page3.CT_PART_NR_DATA1' AS ct_part_nr_data WITH ;
Anchor = 11, ;
Left = 203, ;
Name = "CT_PART_NR_DATA1", ;
Top = 0, ;
cmdDenumire.Name = "cmdDenumire", ;
Label3.Name = "Label3", ;
txtClient.Name = "txtClient", ;
Label4.Name = "Label4", ;
txtNumar.Name = "txtNumar", ;
Label9.Name = "Label9", ;
txtData_ctr.Name = "txtData_ctr", ;
Command2.Name = "Command2"
*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />
PROCEDURE Page1.Activate
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.Click()
Endif
If Type('podg_referinte.but_termin1') <> 'U'
podg_referinte.but_termin1.Click()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.but_termin1.Click()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.but_termin1.Click()
Endif
ENDPROC
PROCEDURE Page1.Cw1.do_actiune
DO viz_parteneri IN onomenclatoare.prg
ENDPROC
PROCEDURE Page2.Activate
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.Click()
Endif
If Type('podg_referinte.but_termin1') <> 'U'
podg_referinte.but_termin1.Click()
Endif
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.but_termin1.Click()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.but_termin1.Click()
Endif
This.ct_registratura1.do_cauta()
ENDPROC
PROCEDURE Page3.Activate
If Empty(goRegistratura.id_reg)
AMESSAGEBOX('Nu este selectat niciun document!',0+48,'Atentie')
This.Parent.ActivePage = 2
Else
Do make_cursoare_reg In oproceduri_roaregistratura.prg && imi creeaza cursoarele
This.ct_part_nr_data1.Refresh
This.ct_date_generale1.outlook2003bar1.Panel.button1.Click
Endif
ENDPROC
PROCEDURE Page3.Deactivate
Local lnRaspuns
*!* 23.07.2026 MM - partener NULL: nu se salveaza, se renunta explicit (P1/P2)
If !This.ct_part_nr_data1.llock And (Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part))
This.ct_part_nr_data1.llock = .T.
AMESSAGEBOX('Alegeti partenerul! Modificarile nu au fost salvate.',0+48,'Atentie')
This.ct_part_nr_data1.Refresh()
Endif
If !This.ct_part_nr_data1.llock
This.ct_part_nr_data1.llock = .T.
lnRaspuns = AMESSAGEBOX('Dori<72>i s<> salva<76>i modific<69>rile f<>cute?',4+32,'Confirmare')
This.ct_part_nr_data1.Refresh()
If lnRaspuns = 7
Return
Else
Do modifica_reg_dg With goRegistratura In oproceduri_roaregistratura.prg
Endif
Endif
If Used('cRegLink')
Use In cRegLink
Endif
If Used('cRegReferinte')
Use In cRegReferinte
Endif
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink