romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6769eb61d1e27eb7cf738169d385daf19b39b361
roaregistratura/Clase/ferestre_registratura.vc2
Marius Mutu 6769eb61d1 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

2121 lines
82 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="ferestre_registratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
*< LIBCOMMENT: Application Wizard framework class library. />
*
DEFINE CLASS ct_date_generale 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="outlook2003bar1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="outlook2003bar1.Panes.Pane1.Olecontrol2" UniqueID="" Timestamp="" />
*<PropValue>
BackColor = 255,255,255
Height = 401
Name = "ct_date_generale"
Width = 800
*</PropValue>
ADD OBJECT 'outlook2003bar1' AS outlook2003bar WITH ;
Anchor = 7, ;
Left = 5, ;
Name = "outlook2003bar1", ;
Top = 1, ;
Panes.ErasePage = .T., ;
Panes.Height = 328, ;
Panes.Name = "Panes", ;
Panes.PageCount = 4, ;
Panes.Pane1.Caption = "Date generale", ;
Panes.Pane1.Name = "Pane1", ;
Panes.Pane1.picture16 = Email Envelope 16.png, ;
Panes.Pane1.picture24 = Email Envelope 24.png, ;
Panes.Pane2.Caption = "Referinte", ;
Panes.Pane2.Name = "Pane2", ;
Panes.Pane2.picture16 = Contacts 16.png, ;
Panes.Pane2.picture24 = Contacts 24.png, ;
Panes.Pane3.Caption = "Observatii", ;
Panes.Pane3.Name = "Pane3", ;
Panes.Pane3.picture16 = Favourites 16.png, ;
Panes.Pane3.picture24 = Favourites 24.png, ;
Panes.Pane4.Caption = "Documente atasate", ;
Panes.Pane4.Enabled = .F., ;
Panes.Pane4.Name = "Pane4", ;
Panes.Pane4.picture16 = Calendar Multiweek 16.png, ;
Panes.Pane4.picture24 = Calendar Multiweek 24.png, ;
Panes.Top = 33, ;
overflowpanel.MenuButton.imgPicture.Height = 16, ;
overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
overflowpanel.MenuButton.imgPicture.Width = 16, ;
overflowpanel.MenuButton.Name = "MenuButton", ;
overflowpanel.Name = "overflowpanel", ;
SplitBar.imgSplitter.Height = 3, ;
SplitBar.imgSplitter.Name = "imgSplitter", ;
SplitBar.imgSplitter.Width = 35, ;
SplitBar.Name = "SplitBar", ;
Panel.Name = "Panel", ;
Splitter.Name = "Splitter", ;
Title.lblCaption.Name = "lblCaption", ;
Title.linBorder.Name = "linBorder", ;
Title.Name = "Title"
*< END OBJECT: ClassLib="outlook2003bar.vcx" BaseClass="container" />
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol1' AS olecontrol WITH ;
Anchor = 15, ;
Height = 328, ;
Left = 0, ;
Name = "Olecontrol1", ;
Top = 0, ;
Width = 198
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMBx4fRDIcgBAwAAAIACAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAigAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAwAAAA8BAAAAAAAABwAAAAIAAAD+////BAAAAAUAAAAGAAAACQAAAAgAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+2kEHHiYXREbFqAMDwKDYoIUM0EggAAAB3FAAA5iEAALE8wWoBAAYAIgAAAD0AMgCNAQAACAAAAMFtIgAB782rXAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAACQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RS04NUZFLTExZDEtOEJFMy0wMDAwRjg3NTREQTEBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaNYaADwAAAABAACADgAAAEhpZGVTZWxlY3Rpb24ABQAAAEwAAAAADAAAAEluZGVudGF0aW9uABEAAABODQAAAAcAAAAAAAAAAAAuQAoAAABMYWJlbEVkaXQACQAAAEkKAAAAAQAAAAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAQAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAA4AAABQYXRoU2VwYXJhdG9yAAoAAABIAAAAAAEAAABcDAAAAE9MRURyYWdNb2RlAAkAAABJCgAAAAAAAAAMAAAAT0xFRHJvcE1vZGUACQAAAEkKAAAAAAAAAAwAAABCb3JkZXJTdHlsAAAFAJBvIgAGAAAAAAAAAAUAAIBk5xIAAQAAAFwAH97svQEABQCp5xIAA1LjC5GPzhGd4wCqAEu4UQEAAACQAURCAQAFQXJpYWxCAV0gWwB4AxUASMIaADUAbAB7AD0AYwBkAFIAJgBhAEYAIQBaAFoAdQBbAEwAfQAtADkAKwBlAAkAAABJCgAAAAAAAAAAJQB5AEkAeAA5AGoAXQB5AFUANgBgAHsAPQB0ADYAQQBzADIAWgB4AEoAMwBFAFUAKgA0AEMAXQB9AFcAdgBQAHQALABeAD8AVQBbACgAQwAoAHMAcABaAHUAYgBtAC4ANAAlAGIALgBDAHoAMgA9AHgAQwBYAFEAQABBACUAagBQAFAARQBlAC0AKwBtACgAXgBdAE8APQBxAEEAawBBAHMAYQB7AHEALgAhAE8ARABzAEMATgBYAFEAXgB9AEAAMgBbADQAPQBhAEUAMQBTAHYAawBCACgAVAAsAHMAaABtAFgAQwA/ACgAMwBYAFEAYABZAHcAQAA2AF8AQwB0AGUAJQBrAHoAWABeAG4AOABAAGoALQB6AGEAWABdAEgAdwBOAFMAVABxAE0AeABFAD0AQABZAD0AKQApAFcAJQBvACYAcwBpADIAZQA0AHsAJABhAD0ASQBNACUANgA/AGUAdgBhAGwANgB4AHUAcgB3AGMAQgBiAHUAdwAuACUAcgBwAFYAOQArAFQAbgBTAC0AbgAsAGUATABDAFYARgBvAGwAJgAhAGwAMABWAD8A" />
ADD OBJECT 'outlook2003bar1.Panes.Pane1.Olecontrol2' AS olecontrol WITH ;
Height = 150, ;
Name = "Olecontrol2", ;
Visible = .F., ;
Width = 200
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\mscomctl.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+////BQAAAAYAAAAHAAAACAAAAAkAAAAKAAAACwAAABYAAAANAAAADgAAAA8AAAAQAAAAEQAAABIAAAATAAAAFAAAABUAAAAEAAAAFwAAABgAAAD+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMBx4fRDIcgBAwAAAAABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMAAAADikAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABcAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAFcAAAAAAAAAAQAAAP7///8DAAAA/v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9cAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAJAAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkzNjgyNjVFLTg1RkUtMTFkMS04QkUzLTAwMDBGODc1NERBMSQAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA5MzY4MjY1RQEAAIAMAAAASW1hZ2VIZWlnaHQACQAAAEkKAAAAEAAAAAsAAABJbWFnZVdpZHRoAAkAAABJCgAAABAAAAANAAAAVXNlTWFza0NvbG9yAAUAAABMAQAAAABJCgAAABgAAAALAAAASW1hZ2V3aWR0aAAJAAAASQoAAAAYAAAADQAAI38kLJGF0RGxagDA8Cg2KCFDNBIIAAAA7QMAAO0DAACAfuHmAAAGAAgAAAAQABAAwMDAAP//AAAB782rAAAFAJgQIgAGAAAA/////wUAAIAAAAAADAAAAAETAAAARABhAHQAZQBsAGUAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABEAAAAEMAYQBpAHgAYQAgAGQAZQAgAGUAbgB0AHIAYQBkAGEAAQ4AAABDAGEAaQB4AGEAIABkAGUAIABzAGEA7QBkAGEAAQ4AAABJAHQAZQBuAHMAIABlAG4AdgBpAGEAZABvAHMAAQ8AAABJAHQAZQBuAHMAIABlAHgAY///5I50/+3h/+bU/tjE/cy2/sSr67+yT6rnA7P/D5H+XpTShn98qKio4ODg+/v7////55N4/MWq+7ma+8au/+LR/+jW8trTMdL1AMf/B7P+H474PHmsg4ODtra25eXl+/v79+Tf/fDj+97P8KOH85Ry/MCl/cCniMbMBNz+AMH/DK79I4/5SXighoaGubm56enp/////O3d//bs++nh8aB+/9/G/9vC+c65bNjkAtv/AL//JanwXozCcXN5jIyMxsbG/////////OjX/u/i+7uY/9S0/97D/+XL793ORt3xJdTzi6DITl7aID3ZX2B/qamp//////////38+eXa97OT/93G/+XK/+HE/+DB2eDYfrPMe4fvRGv/EUT/Hj3UtLS0/////////////v797rKg4o555peC8bik+9vI/9vGt3N2gJTwVXr/OGD+Xnbe3Nzc/////////////////////v39+enl7Lqs5J6K435e2aqhubvfg5btoazr3d/p+Pj4BwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398/Pz6Ojo5+fn6+vr8fHx+Pj4/f39/////////////////////////v7+/Pz89PT01tbWsrKyqKiosrKyvb29y8vL2tra5eXl7+/v+fn5/v7+////////9/f34uLi2Lmt4LGhx56QsYBxn3ZqkHt1i4aFlZWVpaWlvr6+4ODg+fn5/////f39zdnhmqu2k46R/9/O//fs/u/i+9/O88Sx3aOQv4FvpnFjkoaCwsLC8fHx////9PT0VazcDrz+U6HC+tfH//Dl/dfI/tW9/9zA/+XL//Df+93Mp3tvuLi47u7u/v7+stHlFbLzHcv/dcTS/+bX//Pr/eTc/dG9/s+0/+LJ//jt/eTTr4R4u7u78PDw+/v7b7viEcT+Mcj2tc7I//Pp/uba/dC9/c22/cy1/cmy/smq/drFpH1wubm57+/v5+7zNrnrGMv/S8To693N//38/eDV/dfH/c+7/c+5/Myz/9a689HAf3yCsLCw6+vrvtrrL8n6INH/e8LV//Lm//z7/+ff/+jh/ePa/dfG/ciu/9zF39DCVpe1qqqq6Ojols3oO9j/Ndb+p8PF+e3p9erm89jO+NbK/drO/dnM/dfG/+PSzdvNZKrCqqqq5+fngcfoTeT/Rt3+qry75byo17OmyZyQxLa0/f///////////OznwdrOba7Gra2t6Ojods3tZvP/U9/7l+P2+f32//Hh9MKvzquh////////////8eHbuNfWdq3FsbGx6urqgs3ubOr8aer8atz3huX6z+7x+trJ2L60////////////9ePax9rae6rEwsLC8PDw9fr90Of2sNvwktLscsnrZdLypNfhybes8ufc8+PW4drS3MjA3uDdkrvV4uLi+Pj4/////////////////v7++Pz+4fD5gsTlhPT1gvT2cebxaafIq8bY1uTt+vr6/v7+////////////////////////////1en2h9Dud9jxcs3sz93m9fX1/v7+////////CAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////////////////+vr67u7u6Ojo8fHx/Pz8/////////////////////v7++fn59/f3+vr6/v7+////7e3twsLCrKyswcHB4uLi8vLy+Pj4/f39////////9vb23d3dy8vL1dXV5+fn8vLy3J2K3KSIm3Bjh4eHqampwsLC2NjY8/Pz/////v7+y9rkfqnBg4ySk5OTrKyswL296IRj//jR+d+5qXFekW1jmXtzr6+v5+fn////9/f3Wa7dGr74JrHmQZC4YoCRjXl1+Jhw/ujB//DI/ezF/O3G2a+Qo6Oj5OTk////y97pFrX1KcX5Mdj/Kdn/SbHSw4p7/8Sb/du0/d63/uS9//PMyZp/p6en5ubm/v7+gcDjEsL9NMj3Ref/dcHM7LCL/7+W/Mqk/Mym/dGr/dav/+W+uoZwo6Oj5eXl+Pn5TrvpHMr/Pcz3Wuv6gM3S5sWj/8We/LuV+76Y+8Se/Mmj/9avx410o6Oj5OTk3OnxNcT1KNL/SdH2s8zBn8O8hL6+srSh+saf/LKM+7eS/riQ/bqU15J1ra2t6enpttfrPtX8NdX/VtX04+bU/8ur9cSns6yd1sCi/7aO/6B43KOGqsi9mYB6t7e37u7un9TrT+D+Rdv+cNr04tC89cq4/9bB08i6s7+z/6yB1YVuitDemPf3f5uovLy87+/vjs/tafL/Wub+ft35ydvT7NvQ//Ho3NjPmtTgn6uzjsjch9v0o9/tfaS1xMTE8vLyodXwadr0Z+b6Zdv2ct/6h+P2neLztubvvvb+vfn/vvX/seHwv+TsiKe61dXV+Pj4/f7+8Pj8zub1rNvwk9XubsjsYNHxXNj2bNz3f973lOH4td3uw+DusMfW7u7u/f39////////////////////////9fv9i9HuePj/dfr/XuL5iLDJvNLh8PP1/f39////////////////////////////////4fD5n9jwhdLtjMrn7e3t+vr6////////////CQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+/Pz89/f37e3t5ubm5eXl5eXl6+vr9fX1+/v7/v7+////////////////////+Pj44+PjzMzMtbW1pqampKSkpaWlsLCwyMjI39/f9fX1////////////////////5N3ss6XFlnHApWvojmLBoGjgkWPHfW+Ni4CXsrKy6Ojo/////v7+9fX16Ojo6Ojot4Txs3H/tXb9vIP/vIH/vIL/t3r+s3H/mmLcmpqa4ODg////9/f31tbWr6+vqampqnXowIr/v4j/v4n/wIr/wIn/v4f/v4n/pW3nmpqa4ODg////ytznPq3gQKLLWYOcmmrYxZT/xJP/xpT/xpX/xZT/xJH/xJD/p3Dmmpqa4ODg/Pz8crvhGr74LtP/Ls/9i3rwzKD/y5//zaL/0qX/zqL/ypz/zZ7/rHjmmpqa4ODg6+/zLrXsHsD4Rt3+RuH/k4r40ar/0an/zqj6tpXexJ7w0ab/t5LkmmzOmpqa4ODguNboIcf8J8f7YtrwX+HympD51rP/2LL/oI63LC4tbGN3wKTgUVJSUTlto6Oj5OTkfMTmM9j/MdD+r9XQ0ryjq4jh3Lz/2rv+sqfBrrGtop2puaPSub20oYPDvb297+/vacXqROL/QNH6wOLd/8qt353A0an/6NL/49L0xbXXybHn2rn+xabqqYjP4eHh+/v7YdTzWu7/V9j7ydnS/9nI/+DNrYri1rP/7+D/79z/4sb/0ar/roHh4eDj+fn5////cczuZ+H3Z+H5iuXzoNvoueTwuebsqL/4s6P5uJn3oYblqI/F4N/h/Pz8////////+fz+4O/4tt3xlNXuasvuWtLzY9z4f9/3k9/2wuPxqMjb39/f9/f3/////////////////////////////f7+4/H6btjyev3/Wtr1l7bJytrl+vr6/v7+////////////////////////////////////wuP1kNXvmM3o8fHx+/v7////////////////////CgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////////////////+vr67Ozs4uLi6enp+Pj4/////////v7+/v7+/////////////////f39+vr6+/v76+vrv7+/oKCgs7Oz4ODg+Pj48vLy4uLi4ODg8PDw/Pz8/////v7+8fHx2tra1dXVfHR1STs/QUBCgYGBwsLC6urqzMzMn5+foKCgyMjI8fHx////+fn5tcnXkKOtkpKSp3Bz2IyRbkxRVlZXs7Ozvbu8W0lNPzY5WltcoaGh4+Pj////2uXrLKzmHrnyN5TAdX+V9KSmrGZqUlFToKCgrJWX2I6Vr3N5QTk7m5ub3d3d/f39hcHgFrj2LdD+LNb/Ksr5U63JY3aHXG6Ce31+kJGUxIiE5JaaYUVKr6+v4uLi8vT2PLbqGMD7QtX7R+D/RuD/Pun/TLDJYpOpQrjfUnuPaHR/iXuAeWJktra25eXlyd7sIsL5IMb7Udr6V+v/W+7/XfP/YbTDbJ+rVvb/Xff/VOD0VoihcGJop6en4+PjlMvnLNH/J87/cdHlqca6gMzPbOXsd8TOq4GJjJiheKiybsLGU6rAZ1lelpaW3d3ddMPnPNz/NNH9jNzm/9q8+cCh2r6mjp+cz3eB0G92ql5khFNYWENIOzM2nJyc4ODgZsjsTub/QtT8od7j8c67/865/82ysMG6nauzo4+XkG15f1ZgY0JGNy4xvLy87+/vY9b0Y/L/V9f4quvy4cu4/ujd/+rgvdfVhOX7gNnvhtXsgrzRgqKuc3Fz2dnZ+/v7ac7wbev7ZuT5c973h+T4nOHyvuTpwOvxv/T9v/X9p+T4suLwotbnsbKy5+fn////7/f7yuP0qtrwjc/sbcvtXdDyWdT1a9v4ft33leH3ruX34fL1nsjg19na9PT0/////////////////////f7+8fj8yOP0Zdv1d/z/bfT+WsLlmrjNwdfm+Pj4/f39////////////////////////////////rtzyhtPud9fvos3k8PDw+/v7////////////CwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////v7+9vb26+vr6Ojo6+vr8vLy+/v7////////////////////////////////////+vr639/fuLi4qqqqsLCwwcHB3d3d9PT0/v7+////////////////+/v77+/v6Ojo5dfS4rqpw5mIwJmHpIN2hIKBoqKiysrK5+fn9/f3/f39/////v7+7Ozsw8PDrKysuaii//To/+bU/+zd/uXS0Z+Jh3Vujo6OsLCw1tbW9fX1////+vr6iLzbPKraTYuqhZyn0+S4993J+eLS//Pj/+/c67idrXtolH11tbW16+vr////3ufuKLDsJtL/KND/jtDLgNZ258m344Fd7bmX/+vW/+zY/+TGzZJ6t7e37u7u/v7+mMfhFb/7OM/7Str8rta6v+ojfyQskYXREbFqAMDwKDYoIUM0EggAAADtAwAA7QMAAIB+4eYAAAYAugEAABAAEADAwMAA//8AAAHvzasAAAUAmBAiAAYAAAD/////BQAAgAAAAAAMAAAAARMAAABEAGEAdABlAGwAZQAgAGMAbwBuAHQAcgBhAGMAdAB1AGwAdQBpAAEQAAAAQwBhAGkAeABhACAAZABlACAAZQBuAHQAcgBhAGQAYQABDgAAAEMAYQBpAHgAYQAgAGQAZQAgAHMAYQDtAGQAYQABDgAAAEkAdABlAG4AcwAgAGUAbgB2AGkAYQBkAG8AcwABDwAAAEkAdABlAG4AcwAgAGUAeABjAGwAdQDtAGQAbwBzAAEJAAAAUgBhAHMAYwB1AG4AaABvAHMAASEAAABPAGIAaQBlAGMAdAB1AGwAIABzAGkAIAB2AGEAbABvAGEAcgBlAGEAIABjAG8AbgB0AHIAYQBjAHQAdQBsAHUAaQABIAAAAFQAZQByAG0AZQBuAGUAIABkAGUAIABmAGEAYwB0AHUAcgBhAHIAZQAgAHMAaQAgAGEAYwBoAGkAdABhAHIAZQABBQAAAEoAbwBnAG8AcwABBwAAAE0A+gBzAGkAYwBhAHMAAQUAAABGAG8AdABvAHMAAQYAAABWAO0AZABlAG8AcwAMAAAAAQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////////+/v77u7u5ubm7Ozs9/f3/f39////////////////////////////////////////7e3twsLCp6ensrKyzMzM4+Pj8vLy+/v7////////////////////////////+/v715iH13NVrGtYi3JrjIyMpqamwMDA2NjY6+vr9/f3/f39////////////////8Ojm1WNE7ohj8Y9r4XpZuWhQlGldh399mJiYsrKyzMzM4+Pj8vLy+/v7/v7+////4bOo3GNA6YRf9aJ+9Jx385dy74pm0nJVpmVTi3JrjIyMpaWlw8PD4uLi+fn5/f392Ypz4G9L6IZi96+K9KaB9KJ99KB79J158pVw4X9dumlRlm1ij4aEu7u77e3t9e/t3XlZ5HxY6Ytm+LWN+rGI/LGJ+K2H9KeC9KWA9KN99J5575FssG5apqam5ubm683F5oJf6Ydh6ZFtsbmzqKmf0aiO66yI97WO9bGL9a2I9KmE9qyHx39kp6en5ubm5bSn7JRv7I9p6pdyr93egub5e8ncia6236+P+8Ka97yW9reS97aRxIxzq6ur6Ojo4aKP8aR+7pZw66WBt+Dfi9v0ddL1hd/1xKqU9q2F8rKM9bqU88CcwpR9ra2t6Ojo45yE9bKM8qB69biQjdbfjtHqs+f7oODzyLKc9raN8LON7qeC6bOQwZmDsLCw6enp6Z2B/MWe97SO9LKK3tG0xdjR3OfixeHk5dKy98ig8LWQ8bWP5rSRw52Hs7Oz6enp7bWl66WH7qWD75969qqC9a2E8bOM7cOg9s+o+dy1/Oa/+Nex59WzyqiSw8PD7u7u/////fn49d3X8dHH6bOh55+H6p1+7Jhz8aiD8KmD8K2I7bSO5NCx17Og4+Pj9/f3/////////////////////////fj27Lao+b+Y/caf+r+Z14Rnyayk6NTO+vr6/v7+/////////////////////////////PXz66mT66aI76aD37Gl7+/v/Pz8////////AgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////////////////////v7++Pj46+vr5ubm7+/v+/v7/////////////////f399fX18vLy+Pj4/v7+/v7+8vLy1tbWs7OzpqamwMDA6enp/f39////////////8fHx0dHRwcHBz8/P4+Pj5eXltsC2WKZmVMx1T4ZXjY2NxcXF8fHx/v7+////+/v72rWrvH9ujn15jo6OpKSkjqKPN6pKR+lxVPSDUed+WnZdm5ub1tbW+Pj4////8Ovq1WZJ7odj5X1bwWZRaGxLEJcnMtdTO9xfRONsVPOCRr5jdn52uLi47u7u/v7+4LOn3GM/7Itn9p9795h1kIdEIooXDaggL9JOO9teReRtU/OCTZRZs7Oz7Ozs+/v72YVt4XFN6o1o+K+I9aaB/6GEqZZWB6gXIsk+MNNQO9xfQeFoQKBWxMTE9PT08+nm33lX5HxY6ZNu6bOS9a2F/7KOuKloELckGcEwJcpBK9pTW6ZGhYF3yMjI9vb26Ma96Ilk6YZh5Jl4kcTNmbi5wKmen6ZuI8g+DbgiFr0rGc4+cKtSoHlyxcXF9PT05K6e75x27ZNs6aaFrOnxeNz7dNPza7GiPshTLNJQJdVNFM09c65aqYF3xcXF8vLy46KN9KyF8p946LaVetHpldXwmuT9pMjMza+Bsbt8is1+jbNr0LKPr4t/ysrK9PT06J+G+8Kc9KuE9cCZttbMyeDgyuz0vNHP9sOd/bmW8qiF66eF4b6hrYl+0tLS9/f37bSj7KSE76WB76B796Z+77GM7LuZ8sij+tu0+du1+dmy6cyp3sOlvKGZ4eHh+/v7/////fr5+u3o78q/7b2t56GJ6JZ38aB78aeB8KmD8LGL37eY4bKW4NPQ9PT0/v7+/////////////////////////vv66qeP/MSe/MSe6pRxzLWv6NnV+vr6/v7+////////////////////////////////+Ofj8MOz7LWg5bir8/Pz/Pz8////////////AwAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////////////////f398fHx2dnZycnJy8vLyMjItra2t7e32NjY9fX1/v7+////////////+fn57Ozs4ODgtL60bY5tb4Jveoh8RYlLQpBNeYF6pKSk2NjY+Pj4/////////Pz85eXlu7u7gpmMGJkaKchEMcBMKqtALLhGVO2CR65gc3pzqqqq39/f+vr6////8fLyZbDXPaLYL4ViGsQqKM1EMtZTPN9iQuBoS+l3WvmLPo1KgICAsLCw4uLi/v7+rc/jFbn2JcD/IJ+RMNNJIcY7Isc9Lc9LNthZP95lSul0Ue19Q4NLh4eHv7+/+vr6W7jkFML8NcH8KKWTT+5zH8Q3E7onIcU6Ks5HM9VUPNxhSOhyTux6S4hSvr6+4OrwJr3zGcL7P8f8K6SqSdttOttVGsMsFr4rHcI1KMtDMdRQONtYOs1QUZhW2dnZr9ToJcv9IsX7WNj4S7DUJ5uiLLKaIrJcE7AmE70nF8AqHsAyNMVmR5GMqKio5ubmhMXlM9f/J8r9e9vo17qhuLawgam8S5i/JqtjLdFEIrBEUM+lffT1X6DDo6Oj4+PjaMHoROL/NM/9gdrn+d3G/8mr/8ilvJaLPKeYY9qzh+71lP//mfv7cbnNnqCg4ODgVc/zU+j/RNf+nNjf8r2j98++/97L1burftDtgN/+iOT5heL2ouzwh8zcoqWm4+PjXdn2aPT/Wtr5oez64NO/+dvN/+jd4sKyjdPkjN/1j9/0itjxsubshb3Sq62t6OjocdPxaeb5aOf7ceP6ddj1m9fku+Lnwd/mzvz+xvj+s+v4ruT0xeXsfarDv7+/7u7u7PT7yeX0tOHxhM3rcNXwYtT0XNb2beP8eNz3it32sOv6x+v24vT6jrnT39/f9/f3////////////////////8vj8z+b1c9Duefz/cfX/Zen8aazQscna1OHq+Pj4/v7+////////////////////////////xuP1e8/uct7zcdXuxNbi9PT0/f39////////BAAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA+/v77Ozs2dnZy8vLyMjIwsLCsLCwsrKy19fX9vb2/v7+////////////////////6enps7u0dY12aIFoan9rOn89K5U1d313o6Oj1tbW9fX1/v7+////////////////gbKGRctmPtViNM1SKL5BHbk0G8UyJI0uc3lzoKCgy8vL4+Pj7+/v+Pj4/f39////S89uW/yOTvF9PedqLtVOIsg8GL4tDrggHIUgenhyjIyMo6Ojubm5zc3N4ODg8fHxZuiNdveiYNd6a9F2QtBiLdFMFcAsF8k4HL88u7aI0J6Mq4x+koN9i4uLpaWl0dHRmO+2HaItcpZC/62Xl6lqHMdFQNJhZMFopcKN/+vb/+7c/+bT+dK73aGHrYt/v7+/gdmYPrpQpbN4/+zl06yDlK5u3MCX/tbE//fz//ry//Lo/uDP/tfA+syxu5OEyMjI0OTSbMR9y8ej//r1/+ze/+HUyLm/lqrB+O7m9OHZ/NbE/+HP/+zc8ci0r5+Y19fX////6e7n5trI//jx2tDPd6fJQKXgP6fiZqHJWZrGqbK9//bm//fs2rCdsaWg4+Pj/////OHZ8dnSlLjOXLfjVsX4Xsf4XMX2UsD3Tb/4Uarc1c3N///4y6GRurOx7e3t/////fbzhavFT7nnZcnxZMXtZcfwZMfxYcXxYcXyWsn5d7bY+OTbwqedzs7O9vb2////////6/L2abTYb8vre9r2c9Lxb83vbMzvasrvZ8jvV8Dtl6q70buz6+vr/f39////////////6fL3crfYedPtiOX4huP4hOL5geD4cM3sVabOpLjH7+/v/Pz8////////////////////6/P4drvZg9vtk+35i+X1b8Tib6HA1dvf+Pj4/v7+////////////////////////////6vL3erzYgNXna7PRnrjJ7Ozs/Pz8////////////////////////////////////////0ePujbnVxNfj9fX1/f39////////////////////BQAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA////+fn54+PjxcXFr6+vpKSkpaWlsrKyv7+/u7u7qqqqoaGho6OjtLS02NjY9vb2/Pz84+PjwZiNv4VwyYVrx4xyso98knJpl29lu11ExmhNxnNZuGtWhnh1qamp4ODg9PLx14t19KB7+riS+8Ga/+O7+ty15H9b3Fg16HhU+6WA/aR+/Jp2wWtShYSEwsLC6MO57YFd8KJ9+ryW8qaA/dCq8beR4mtH6nVR+a6I8JFt4WdE9I5q+ZVxlmtfrKys57Gf6YBb65Zx97aQ7ZZx+8qj7a2H5GlG9JFs/cag6Yhj6HFO631a+p14vG5Yo6Oj5a6c53tW6o5q9a+J54Ne+MCZ6qJ9739b+6mE/NKs/ceh9aB764Rg8o5qx3ZcpaWl5Kua5XVQ6Ilk9KuF4GxJ87SO6Zt37o5p/cWe/d+4/dCq+LiS86yG7pdzxXBWsbGx5KiX5nZS43lV8Z143WM/6JJs5Y5q5oRf/uG6/uvE/d62/dCq8amE76WAuntmyMjI4aKR53ZS53dT75Zy9rqV9s6o77mU6Jdy/vHJ//3V/u/I/d63+MOd9KuGvJ2U5ubm4aOS8IVh/bGM+rWQ+biS+8ag/+C5+sym9LmT/daw//nR//rT/dy21ZmF4+Pj+vr65JmC+K6J5oBc425J6G5M8YFd9Ypm8Ypm9pp2z3JVxYh03aaR6MK08fHx+/v7////6KqP5X9b1kon31876HBP8YVh9Ytn5WpH7HxXsW1asLCw6+vr////////////////6qaM+JZy4GE+3l065GdF7XlV8IJe6n1Z+Z14vXVgwsLC8vLy////////////////7LWh/a6J+ZVx8Y1p741o8Zp1+LOM/baR+6WAw5KE4+Pj+/v7////////////////+/Px7LGY+aeD+qB7/76Y/9Ks/smi+K6K2ZaD5ePj+fn5////////////////////////////9NbL8ce07K6U5qSM5rel6c/H9vb2/f39////////////////////////BgAAAGx0AAA2AwAAQk02AwAAAAAAADYAAAAoAAAAEAAAABAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA/////f395ubmuLi4nZ2do6OjtbW1yMjI2dnZ5eXl8PDw+Pj4/f39////////////////9PT04LSe7bSUzKCHspB9koV9jImGlZWVp6enu7u7zc3N3d3d6+vr+Pj4/v7+/v7+59HI9cKq/////vj1/ObZ+tbA5byiyJyCpoR1kIJ8jIqJmpqaubm54+Pj+/v7+vr6462Y/fPu//Pv/uff/////////u/q+7ed+q+S96eH3pl9wpF6oJuZ19fX+vr68enm7LGb//////fy/NLC/Mq4/NDB+7ih+7GX+7ii+7ig+7mj+8Cev7Sr5eXl/f395r+x9tDC//n1/dvN/vDq//r2//Dq/7ie/KaH+qWH+7qj+9XFyquX0dDP+Pj4////4qWR+uHX//rz/t7Q/M28/Mu59sOw3p6H+7ad/8Om/+jf676ks6yo5+fn/v7+////4JeA/vHo/uHR/dfG/ure//nx0b+2Qk5hdqbYgLnt8OHbyJd8u7u77+/v/////7X1y7rgkGvuiGTBn2Hf8MP/5866hXLNzc34+Pj3+PhSt+Ubyf9E0vlo5Pfl3cXz6NLUu6tOlc6EdXFVklOI04jlv66ZjovX19f8/PzR4+4wxvcnz/9X1vTCzr386d391cOqj4YngsIlSmEkZ6LUw7ShsLWPkpTU1NT6+vqo0eg61v401P9n2vLw2b/67eTvuaPym3rTmIGjcl16amz0zLePy9KAk57S0tL5+fmFyehQ5P9J3P6H4vLw07v/8+r449f70r3/yaz/xqr/vaDk08GP1eGDlqLU1NT6+vp4zO1n8v9c4fyi8fza3c763cv/6Nnl0L2+zsywwcfD09O519ma1uSJm6Xa2tr8/PyBz+907/tp6vxy3veB4Pig5vTK7e3D6+6y9f+19P+o6vyx4e6h0uOqs7jm5ub+/v7v9/vZ7PfH5vOt2vCg2u+Azexiye9w3fmD6/uI5vqQ4Pe+3e2bxd7c3t/19fX////////////////////////////1+v140O98//9z+v9X1PObs8PM2+X6+vr+/v7////////////////////////////////K5/aI1O902fGNx+Tt7e36+vr///////////8MAAAAbHQAADYDAABCTTYDAAAAAAAANgAAACgAAAAQAAAAEAAAAAEAGAAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////////////8/Pzy8vLn5+fm5ubx8fH8/Pz////////////////+/v77+/v6+vr9/f3////+/v7s7OzGxsapqamnp6fCwsLn5+f7+/v////////////29vbg4ODT09Pd3d3t7e3x8fGVlJVaUFNjTVFfW1yKioq4uLjj4+P6+vr////9/f3R2uCPqLeNkJKbm5u2trapp6cuKC2VgHLLspx5UFdbVFeIiIi+vr7v7+/////v8fNHruAawfsuqdpOi6hxgIlYZ3FfQzn/zKT/7sTYwqmWZmlyYWS7u7vu7u7///+01OcTuPcsy/wv1/8w0/410PUtbYpFKyTKkHT/2K7CrJR1UFNwX2HZ2dn4+Pj9/f1nvOUUxf8/zfhL4v9J4P9M7v80gpNFLCdHNzSAZlhMODpTUVadnZ3d3d38/Pzu8/U1vO8cyf5G0Pdd6PpZ7P9i/f87g5OcZFDfl3ZXOTMyRkxMnbyIjI7Nzc339/fE3OwvzPslzf9X0fG9uqeVvrl93dtHfoiicV//w5bFeFxOeHt19f5xjp/IyMj19fWa0eo/2f401P9p1vD/17v/xqj2yKuHcWl7XVbwt5Kxc1lWjpOR8vJ0kaLJycn19fWDyOdR5f9I3v+H3O3vv6fxy7r/2MCfgXtsS01tUE1KMy9ZhYyl7O10kaLKysr19fV0zu5q9v9Y4v2L3vXewKr21cXh1c+NaGvswKHgq4xNNTNcg5Kq5Ox2k6TMzMz39/eJ0e9u5fhr6/xt3vh+4feQoqepaWvZqpr/8cbksZNlSEicw83B6O+GorTa2tr6+vr5/P7e8Pi02/Ch3/J2zexTmbRzip2MhIqXfXhubHF2orfY8fe+3u2/zNXu7u7+/v7////////////////////3/P7k8/pmxOZ26u118/ln6f+Irsa30OHz9PX8/Pz////////////////////////////////M5/eV2/J41/CN0Ons7Oz6+vr///////////8=" />
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.Init
With This
.Imagelist = .Parent.oleControl2
With .Nodes
Local laNos[12,3]
Store Null To laNos
laNos[1,1] = "Datele contractului"
laNos[2,1] = "Caixa de entrada"
laNos[3,1] = "Caixa de sa<73>da"
laNos[4,1] = "Itens enviados"
laNos[5,1] = "Itens exclu<6C>dos"
laNos[6,1] = "Rascunhos"
laNos[7,1] = "Obiectul si valoarea contractului"
laNos[8,1] = "Termene de facturare si achitare"
laNos[9,1] = "Jogos"
laNos[10,1] = "M<>sicas"
laNos[11,1] = "Fotos"
laNos[12,1] = "V<>deos"
*!* Store laNos[1,1] To laNos[2,2], laNos[3,2], laNos[4,2], laNos[5,2], laNos[6,2]
*!* Store 4 To laNos[2,3], laNos[3,3], laNos[4,3], laNos[5,3], laNos[6,3]
*!* Local lnNo
*!* For lnNo=1 To Alen(laNos,1)
*!* .Add(laNos[lnNo,2],laNos[lnNo,3],laNos[lnNo,1],laNos[lnNo,1],laNos[lnNo,1])
*!* Endfor
ENDWITH
*!* Local loNo
*!* loNo = .Nodes(0)
*!* loNo.Expanded = .T.
*!* .SelectedItem = loNo
*!* loNo = Null
Endwith
ENDPROC
PROCEDURE outlook2003bar1.Panes.Pane1.Olecontrol1.NodeClick
*** ActiveX Control Event ***
LPARAMETERS node
LOCAL TX
TX = THIS.SelectedItem.TEXT
aMESSAGEBOX(tx)
ENDPROC
ENDDEFINE
DEFINE CLASS ct_part_nr_data 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="cmdDenumire" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtClient" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_ctr" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Command2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: blocheaza_campuri
*m: deblocheaza_campuri
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 197,214,254
Height = 55
llock = .T.
Name = "ct_part_nr_data"
Width = 614
*</PropValue>
ADD OBJECT 'cmdDenumire' AS _commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 22, ;
Left = 532, ;
Name = "cmdDenumire", ;
Picture = ..\grafice\find.bmp, ;
TabIndex = 2, ;
Top = 5, ;
Width = 29
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Command2' AS _commandbutton WITH ;
Anchor = 3, ;
Caption = "Modifica", ;
FontBold = .T., ;
ForeColor = 0,0,255, ;
Height = 47, ;
Left = 9, ;
Name = "Command2", ;
Picture = ..\comun\grafice\lock.bmp, ;
TabIndex = 1, ;
Top = 3, ;
Width = 131
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label3' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Partener", ;
FontBold = .T., ;
Height = 17, ;
Left = 170, ;
Name = "Label3", ;
TabIndex = 6, ;
Top = 8, ;
Width = 52
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label4' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. doc.", ;
FontBold = .T., ;
Height = 17, ;
Left = 170, ;
Name = "Label4", ;
TabIndex = 7, ;
Top = 31, ;
Width = 45
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label9' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Data doc.", ;
FontBold = .T., ;
Height = 17, ;
Left = 380, ;
Name = "Label9", ;
TabIndex = 8, ;
Top = 31, ;
Width = 55
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'txtClient' AS _textbox WITH ;
ControlSource = "goRegistratura.denumire", ;
Height = 21, ;
Left = 241, ;
Name = "txtClient", ;
ReadOnly = .T., ;
TabIndex = 5, ;
TabStop = .F., ;
Top = 6, ;
Width = 289
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtData_ctr' AS _textbox WITH ;
ControlSource = "goRegistratura.data", ;
Height = 21, ;
Left = 442, ;
Name = "txtData_ctr", ;
ReadOnly = .T., ;
TabIndex = 4, ;
Top = 29, ;
Width = 119
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtNumar' AS _textbox WITH ;
ControlSource = "goRegistratura.numar", ;
Format = "k", ;
Height = 21, ;
Left = 241, ;
Name = "txtNumar", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 29, ;
Width = 113
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.cmdDenumire.Enabled = .F.
this.txtNumar.ReadOnly = .T.
this.txtData_ctr.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
this.cmdDenumire.Enabled = .T.
this.txtNumar.ReadOnly = .F.
this.txtData_ctr.ReadOnly = .F.
ENDPROC
PROCEDURE cmdDenumire.Click
LOCAL lcIdTipPart, lcTitlu
STORE '' TO lcIdTipPart, lcTitlu
*!* DO CASE
*!* CASE gnParametru_prog = 1 && contracte clienti
*!* lcIdTipPart = [-1]
*!* lcTitlu = 'Clienti'
*!* lcLista = ['4111']
*!* lcContul = '4111'
*!* CASE gnParametru_prog = 2 && contracte furnizori
*!* lcIdTipPart = [-2]
*!* lcTitlu = 'Furnizori'
*!* lcLista = ['401','404']
*!* lcContul = '401'
*!* ENDCASE
lcTitlu = 'Parteneri'
lnIdTipPart = 0 && GetContIdTipPart(lcContul)
* locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??lAdaugCorespondente=>1??cTipuriParteneri=>] + ALLTRIM(STR(lnIdTipPart))))
locauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu ))
IF buton = 2
RETURN
ENDIF
goRegistratura.id_part = loCauta.id_part
goRegistratura.denumire = loCauta.denumire
THIS.PARENT.txtClient.REFRESH
ENDPROC
PROCEDURE Command2.Click
If This.Parent.lLock
This.Picture = 'unlock.bmp'
This.Parent.lLock = .F.
This.Caption = 'Salveaza'
This.Parent.deblocheaza_campuri()
******
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.deblocheaza_campuri()
Endif
If Type('podg_referinte.but_termin1') <> 'U'
podg_referinte.deblocheaza_campuri()
ENDIF
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.deblocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.deblocheaza_campuri()
Endif
******
Else
*!* 23.07.2026 MM - validare partener si salvare INAINTE de blocarea campurilor (P2/P3)
If Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part)
AMESSAGEBOX('Alegeti partenerul!',48,'Atentie')
This.Parent.cmdDenumire.SetFocus()
Return
Endif
If !modifica_reg_dg(goRegistratura)
Return
Endif
This.Picture = 'lock.bmp'
This.Parent.lLock = .T.
This.Caption = 'Modifica'
This.Parent.blocheaza_campuri()
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.blocheaza_campuri()
Endif
If Type('podg_referinte.but_termin1') <> 'U'
podg_referinte.blocheaza_campuri()
ENDIF
If Type('podg_obs.but_termin1') <> 'U'
podg_obs.blocheaza_campuri()
Endif
If Type('podg_link.but_termin1') <> 'U'
podg_link.blocheaza_campuri()
Endif
Endif
ENDPROC
PROCEDURE Command2.Refresh
IF THIS.PARENT.lLock
THIS.PICTURE = 'lock.bmp'
THIS.CAPTION = 'Modifica'
ELSE
THIS.PICTURE = 'unlock.bmp'
THIS.CAPTION = 'Salveaza'
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
*< 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="grid_registratura" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNume.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_ctr.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cDescriere.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cDescriere.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNumar_intern.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNumar_intern.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_intern.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cData_intern.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cIE.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cIE.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cFel_document.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cFel_document.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cAvizat.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cAvizat.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cPers_contact.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cPers_contact.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cMediu_transmisie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cMediu_transmisie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column12.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column13.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column13.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column14.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column15.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column16.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column16.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column17.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column17.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cAre_obs.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cAre_obs.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNresp.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNresp.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_pag.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.cNr_pag.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column22.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column22.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column23.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column23.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column23.Command1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_registratura.Column23.Command2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_data" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_numar" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_tipdoc" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_lbbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_sters" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: arata_linkuri
*m: do_initializeaza_cursor
*p: nireg
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
cgridsortlist = grid_registratura
Height = 362
Name = "ct_registratura"
nireg = 0
Width = 800
Gridsort1.Left = 528
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 48
_ct_controller_keypress1.Name = "_ct_controller_keypress1"
*</PropValue>
ADD OBJECT '_lbbase1' AS _lbbase WITH ;
Caption = "Lista documentelor", ;
ForeColor = 0,0,0, ;
Left = 8, ;
Name = "_lbbase1", ;
Top = 7
*< END OBJECT: ClassLib="..\comun\clase\_lb_base.vcx" BaseClass="label" />
ADD OBJECT '_shape1' AS _shape WITH ;
Anchor = 11, ;
BackColor = 197,214,254, ;
BorderColor = 197,214,254, ;
Height = 24, ;
Left = 0, ;
Name = "_shape1", ;
Top = 0, ;
Width = 804, ;
ZOrderSet = 0
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 769, ;
Name = "But_excel1", ;
TabIndex = 12, ;
Top = -1, ;
Visible = .T., ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_listare1' AS but_listare WITH ;
Anchor = 9, ;
Left = 741, ;
Name = "But_listare1", ;
TabIndex = 11, ;
Top = -1, ;
Visible = .T., ;
ZOrderSet = 8
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 9, ;
Left = 684, ;
Name = "But_nou1", ;
Picture = ..\comun\grafice\nou_sus.bmp, ;
TabIndex = 9, ;
ToolTipText = "Adaugare contract (CTRL+N)", ;
Top = -1, ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 9, ;
Left = 713, ;
Name = "But_sterge1", ;
TabIndex = 10, ;
Top = -1, ;
Visible = .T., ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Ck_data' AS ck_filtru_numar WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = data, ;
Caption = "Data doc.", ;
Left = 93, ;
Name = "Ck_data", ;
TabIndex = 4, ;
tip = D, ;
Top = 46, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_numar' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = numar, ;
Caption = "Nr.doc.", ;
Comment = "*:OnResize=LT", ;
Left = 93, ;
Name = "Ck_numar", ;
TabIndex = 3, ;
Top = 32, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
AutoSize = .T., ;
camp_nume = denumire, ;
Caption = "Partener", ;
Comment = "*:OnResize=LT", ;
Left = 8, ;
Name = "Ck_nume", ;
TabIndex = 1, ;
Top = 32, ;
ZOrderSet = 10
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_sters' AS _checkbox WITH ;
Alignment = 0, ;
Anchor = 3, ;
Caption = "Sterse", ;
ForeColor = 255,0,0, ;
Left = 171, ;
Name = "ck_sters", ;
TabIndex = 5, ;
Top = 32
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_tipdoc' AS ck_filtru_text WITH ;
Alignment = 0, ;
Anchor = 3, ;
AutoSize = .T., ;
camp_nume = fel_document, ;
Caption = "Tip document", ;
Comment = "*:OnResize=LT", ;
Left = 8, ;
Name = "Ck_tipdoc", ;
TabIndex = 2, ;
Top = 46, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\..\roacont\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
Anchor = 12, ;
Height = 27, ;
Left = 632, ;
Name = "Clb_tx_simplu1", ;
TabIndex = 13, ;
Top = 328, ;
Width = 153, ;
ZOrderSet = 7, ;
Text_simplu1.ControlSource = "this.parent.parent.nIreg", ;
Text_simplu1.Height = 21, ;
Text_simplu1.Left = 76, ;
Text_simplu1.Name = "Text_simplu1", ;
Text_simplu1.ReadOnly = .T., ;
Text_simplu1.Top = 3, ;
Text_simplu1.Width = 72, ;
LB_SIMPLU1.Caption = "Inregistrari", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 608, ;
Name = "Cmd_cauta1", ;
TabIndex = 6, ;
Top = 35, ;
Width = 67, ;
ZOrderSet = 13
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
Anchor = 9, ;
Comment = "*:OnResize=LT", ;
Left = 679, ;
Name = "Cmd_reset1", ;
TabIndex = 8, ;
Top = 35, ;
Width = 67, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_registratura' AS _grdrow WITH ;
Anchor = 15, ;
ColumnCount = 22, ;
DeleteMark = .F., ;
GridLineColor = 192,192,192, ;
HeaderHeight = 38, ;
Height = 258, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grid_registratura", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordMark = .F., ;
RecordSource = "cRegistratura", ;
TabIndex = 7, ;
Top = 66, ;
Width = 784, ;
ZOrderSet = 3, ;
Column1.ColumnOrder = 7, ;
Column1.ControlSource = "denumire", ;
Column1.Name = "cNume", ;
Column1.ReadOnly = .T., ;
Column1.Width = 193, ;
Column2.ColumnOrder = 5, ;
Column2.ControlSource = "numar", ;
Column2.Name = "cNr_ctr", ;
Column2.ReadOnly = .T., ;
Column2.Width = 48, ;
Column3.ColumnOrder = 6, ;
Column3.ControlSource = "data", ;
Column3.Format = "d", ;
Column3.Name = "cData_ctr", ;
Column3.ReadOnly = .T., ;
Column3.Width = 51, ;
Column4.ColumnOrder = 10, ;
Column4.ControlSource = "descriere", ;
Column4.Name = "cDescriere", ;
Column4.ReadOnly = .T., ;
Column5.ColumnOrder = 3, ;
Column5.ControlSource = "numar_intern", ;
Column5.Name = "cNumar_intern", ;
Column5.ReadOnly = .T., ;
Column5.Width = 45, ;
Column6.ColumnOrder = 4, ;
Column6.ControlSource = "data_intern", ;
Column6.Name = "cData_intern", ;
Column6.ReadOnly = .T., ;
Column6.Width = 51, ;
Column7.ColumnOrder = 2, ;
Column7.ControlSource = "iif(ie=1,'Intrare',iif(ie=2,'Iesire',''))", ;
Column7.Name = "cIE", ;
Column7.ReadOnly = .T., ;
Column7.Width = 59, ;
Column8.ColumnOrder = 12, ;
Column8.ControlSource = "fel_document", ;
Column8.Name = "cFel_document", ;
Column8.ReadOnly = .T., ;
Column8.Width = 67, ;
Column9.Alignment = 2, ;
Column9.ColumnOrder = 18, ;
Column9.ControlSource = "avizat", ;
Column9.Name = "cAvizat", ;
Column9.ReadOnly = .T., ;
Column9.Sparse = .F., ;
Column9.Width = 41, ;
Column10.ColumnOrder = 8, ;
Column10.ControlSource = "pers_contact", ;
Column10.Name = "cPers_contact", ;
Column10.ReadOnly = .T., ;
Column10.Width = 80, ;
Column11.ColumnOrder = 11, ;
Column11.ControlSource = "mediu_transmisie", ;
Column11.Name = "cMediu_transmisie", ;
Column11.ReadOnly = .T., ;
Column12.ColumnOrder = 14, ;
Column12.ControlSource = "util", ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column13.ColumnOrder = 15, ;
Column13.ControlSource = "dataora", ;
Column13.Name = "Column13", ;
Column13.ReadOnly = .T., ;
Column14.ColumnOrder = 16, ;
Column14.ControlSource = "utils", ;
Column14.Name = "Column14", ;
Column14.ReadOnly = .T., ;
Column15.ColumnOrder = 17, ;
Column15.ControlSource = "dataoras", ;
Column15.Name = "Column15", ;
Column15.ReadOnly = .T., ;
Column16.ColumnOrder = 19, ;
Column16.ControlSource = "util_avizat", ;
Column16.Name = "Column16", ;
Column16.ReadOnly = .T., ;
Column17.ColumnOrder = 20, ;
Column17.ControlSource = "dataora_avizat", ;
Column17.Name = "Column17", ;
Column17.ReadOnly = .T., ;
Column18.ColumnOrder = 21, ;
Column18.ControlSource = "are_obs", ;
Column18.Name = "cAre_obs", ;
Column18.ReadOnly = .T., ;
Column18.Sparse = .F., ;
Column19.ColumnOrder = 9, ;
Column19.ControlSource = "nresp", ;
Column19.Name = "cNresp", ;
Column19.ReadOnly = .T., ;
Column19.Width = 83, ;
Column20.ColumnOrder = 13, ;
Column20.ControlSource = "nr_pag", ;
Column20.Name = "cNr_pag", ;
Column20.ReadOnly = .T., ;
Column20.Width = 39, ;
Column21.ColumnOrder = 22, ;
Column21.ControlSource = "proiect", ;
Column21.Name = "Column22", ;
Column21.ReadOnly = .T., ;
Column22.ColumnOrder = 1, ;
Column22.ControlSource = "are_link", ;
Column22.CurrentControl = "Command1", ;
Column22.DynamicCurrentControl = "iif(are_link=1,'command1','command2')", ;
Column22.Name = "Column23", ;
Column22.ReadOnly = .T., ;
Column22.Sparse = .F., ;
Column22.Width = 47
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_registratura.cAre_obs.Check1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 37, ;
Name = "Check1", ;
Top = 48, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'grid_registratura.cAre_obs.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Observatii", ;
Name = "Header1", ;
Picture = ..\grafice\wzedit.bmp
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cAvizat.Check1' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Centered = .T., ;
Height = 17, ;
Left = 54, ;
Name = "Check1", ;
Top = 60, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'grid_registratura.cAvizat.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Avizat", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cData_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data doc.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cData_ctr.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cData_intern.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inreg.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cData_intern.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cDescriere.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Descriere", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cDescriere.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cFel_document.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Fel document", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cFel_document.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cIE.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Intrare/Iesire", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cIE.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cMediu_transmisie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Mediu tr./rec.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cMediu_transmisie.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cNr_ctr.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. doc.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNr_ctr.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cNr_pag.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. pag.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNr_pag.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cNresp.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Responsabil", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNresp.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cNumar_intern.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. inreg.", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNumar_intern.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cNume.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Partener", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cNume.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column12.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilizator", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column12.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column13.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column13.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column14.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilizator stergere", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column14.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column15.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora stergerii", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column15.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column16.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Utilzator avizare", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column16.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column17.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Dataora avizarii ", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column17.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column22.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Proiect", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column22.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.Column23.Command1' AS _commandbutton WITH ;
Caption = "", ;
Height = 27, ;
Left = 15, ;
Name = "Command1", ;
Picture = ..\comun\grafice\attach_mic.bmp, ;
SpecialEffect = 1, ;
Top = 77, ;
Width = 84
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_registratura.Column23.Command2' AS _commandbutton WITH ;
Caption = "", ;
Height = 27, ;
Left = 27, ;
Name = "Command2", ;
SpecialEffect = 1, ;
Top = 125, ;
Width = 84
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid_registratura.Column23.Header1' AS header WITH ;
Caption = "Link", ;
Name = "Header1", ;
Picture = ..\comun\grafice\attach_mic.bmp
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.Column23.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_registratura.cPers_contact.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Persoana contact a partenerului", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_registratura.cPers_contact.Text1' AS _textbox WITH ;
Alignment = 3, ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
PROCEDURE actualizeaza_grid1
LPARAMETERS pcFiltru
LOCAL lcFiltru
lcFiltru = pcFiltru
IF EMPTY(lcFiltru)
lcFiltru = poReg.ca_baza1.cfiltru
ENDIF
save_grid_tag(THIS.grid_registratura)
poReg.ca_baza1.cfiltru = lcFiltru
poReg.ca_baza1.afisare()
SELECT cRegistratura
IF RECCOUNT()>0
THIS.nireg = RECCOUNT()
ELSE
THIS.nireg = 0
ENDIF
restore_grid_tag(THIS.grid_registratura)
IF RECCOUNT('cRegistratura')>0
SELECT cRegistratura
LOCATE FOR id_reg = goRegistratura.id_reg
IF !FOUND()
GO TOP
ENDIF
THIS.grid_registratura.SETFOCUS()
ENDIF
THIS.clb_tx_simplu1.text_simplu1.REFRESH
ENDPROC
PROCEDURE arata_linkuri
DO arata_linkuri IN oproceduri_atasamente.prg
ENDPROC
PROCEDURE do_adauga
Local lcAlias, lnId_reg
lcAlias = This.grid_registratura.RecordSource
Store 0 To lnId_ctr
Local loGeneratorNumere
loGeneratorNumere = Createobject('oGeneratorNumere')
loGeneratorNumere.creeaza_cursor_serii(10)
** numar intern ^
lnId_reg = adauga_registratura(lcAlias, Alltrim(Str(loGeneratorNumere.aloca_numar(10))))
This.actualizeaza_grid1()
Select (lcAlias)
Locate For id_reg = lnId_reg
If Found()
This.grid_registratura.SetFocus()
This.Parent.Parent.ActivePage = 3
*!* 23.07.2026 MM - documentul nou intra direct in editare (P3)
With This.Parent.Parent.Page3.ct_part_nr_data1
.lLock = .F.
.deblocheaza_campuri()
.Refresh()
.cmdDenumire.SetFocus()
Endwith
If Type('podg_dg.but_termin1') <> 'U'
podg_dg.deblocheaza_campuri()
Endif
Endif
Release loGeneratorNumere
***--------------------------
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
lcFiltru = ""
If This.ck_nume.Value = 1
lcFiltru = lcFiltru + This.ck_nume.filtru
Endif
If This.ck_numar.Value = 1
lcFiltru = lcFiltru + This.ck_numar.filtru
Endif
If This.ck_data.Value = 1
lcFiltru = lcFiltru + This.ck_data.filtru
ENDIF
* fel document
IF this.ck_tipdoc.Value = 1
lcFiltru = lcFiltru + this.ck_tipDoc.filtru
ENDIF
*!* If !Empty(lcFiltru)
*!* lcFiltru = Substr(lcFiltru,6)
*!* Else
*!* lcFiltru = [1=1]
*!* ENDIF
* inregistrari sterse
IF this.ck_sters.Value = 1
lcFiltru = [ 2=2] + lcFiltru
ELSE
*!* 23.07.2026 MM - fara criterii: doar ultimul document, nu toata baza (P4)
If Empty(lcFiltru)
lcFiltru = [ sters=0 and id_reg=(select max(id_reg) from vregistratura where sters=0)]
Else
lcFiltru = [ STERS=0] + lcFiltru
Endif
ENDIF
This.actualizeaza_grid1(lcFiltru)
If Reccount('cRegistratura')=0
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
Select cRegistratura
Scatter Name goRegistratura Memo Blank
ENDIF
This.grid_registratura.SetFocus()
ENDPROC
PROCEDURE do_initializeaza_cursor
Do viz_registratura In oproceduri_roaregistratura.prg
Select cRegistratura
Go Top
Scatter Name goRegistratura Blank
Select cRegistratura
If Reccount()>0
This.nireg = Reccount()
Else
This.nireg = 0
Endif
This.clb_tx_simplu1.text_simplu1.Refresh
ENDPROC
PROCEDURE do_reset
With This
For i=1 To .Objects.Count
If Upper(.Objects(i).BaseClass)='CHECKBOX'
.Objects(i).Value=0
Endif
Endfor
ENDWITH
*!* this.optIncetat.Value=1
*!* this.optInactiv.Value=1
this.ck_nume.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_excel
DO export_excel_grid WITH this.grid_registratura
ENDPROC
PROCEDURE inainte_de_do_listare
*!* modificare v 2.0.3
*!* *Thisform.AlwaysOnTop = .F.
*!* Private pcDataOra, pcTitlu
*!* pcDataOra = get_ora(2)
*!* pcTitlu = "Lista documentelor"
*!* Local lcTabel
*!* lcTabel = This.grid_registratura.RecordSource
*!* Select (lcTabel)
*!* Report Form rRegistratura.frx To Printer Prompt Preview
*!* *Thisform.AlwaysOnTop = .T.
Thisform.AlwaysOnTop = .F.
goExport.export2frx(This.grid_registratura.RecordSource,[rRegistratura])
Thisform.AlwaysOnTop = .T.
*!* modificare v 2.0.3 ^
ENDPROC
PROCEDURE inainte_de_do_sterge
PRIVATE pnId_ctr, pnTip
LOCAL lnRaspuns, lcSql, lnSucces, lcId, lcId_util
STORE 0 TO lnRaspuns, lnSucces
STORE '' TO lcSql
IF !EMPTY(goRegistratura.id_reg)
lnRaspuns = amessagebox('Doriti sa stergeti documentul?',4+32,"Confirmare stergere")
IF lnRaspuns = 7 && 7 = No ; 6 = Yes
RETURN
ENDIF
lcId = ALLTRIM(STR(goRegistratura.id_reg))
lcId_util = ALLTRIM(STR(gnIdUtil))
lcSql = [begin pack_registratura.sterge_registratura(]+lcId+[,]+lcId_util+[); end;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.oprelucrareEroare(),0+16,"Eroare")
RETURN
ENDIF
THIS.actualizeaza_grid1()
ENDIF
ENDPROC
PROCEDURE grid_registratura.AfterRowColChange
LPARAMETERS nColIndex
LOCAL lcTabel
lcTabel = this.RecordSource
SELECT (lcTabel)
SCATTER NAME goRegistratura MEMO
ENDPROC
PROCEDURE grid_registratura.Column23.Command1.Click
this.Parent.Parent.Parent.arata_linkuri()
ENDPROC
PROCEDURE grid_registratura.Column23.Command2.Click
this.Parent.Parent.Parent.arata_linkuri()
ENDPROC
PROCEDURE grid_registratura.Init
DODEFAULT()
* This.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column")
this.Parent.grid_registratura.SetAll("DynamicForeColor", "IIF(sters=1, RGB(255,0,0), RGB(0,0,0))", "Column")
*!* 23.07.2026 MM - propaga fontul gridului la coloane si headere (P5)
This.SetAll('FontName', This.FontName, 'Column')
This.SetAll('FontSize', This.FontSize, 'Column')
This.SetAll('FontName', This.FontName, 'Header')
This.SetAll('FontSize', This.FontSize, 'Header')
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_actaditional AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_actaditional"
*</PropValue>
PROCEDURE make_sql
LPARAMETERS toRec,tnId
lcActiune = ALLTRIM(THIS.cActiune)
lcId_util = ALLTRIM(STR(gnidutil))
IF INLIST(lcActiune, "UPDATE",'INSERT') AND TYPE('toRec') != "O"
RETURN .F.
ENDIF
IF INLIST(lcActiune, "UPDATE",'DELETE') AND TYPE('tnId') != "N"
RETURN .F.
ENDIF
IF INLIST(lcActiune, "UPDATE",'DELETE')
lcId = ALLTRIM(STR(tnId))
ENDIF
IF INLIST(lcActiune, "UPDATE",'INSERT')
lcId_ctr = NVL(ALLTRIM(STR(goContract.id_ctr)),"0")
lcId_part = NVL(ALLTRIM(STR(goContract.id_part)),"0")
lcId_tip_ctr = NVL(ALLTRIM(STR(goContract.id_tip_ctr)),"0")
lcNumar = NVL(ALLTRIM(toRec.numar),"0")
lcData = ALLTRIM(DTOS(toRec.data))
lcDescriere = NVL(ALLTRIM(toRec.descriere),"")
ENDIF
Do Case
Case lcActiune = "INSERT"
lcSql = [begin pack_crm.adauga_act_aditional(]+lcId_ctr+ [,]+lcId_part+ [,] + lcId_tip_ctr+[,']+ lcNumar+[',]+;
[to_date(']+lcData+[','YYYYMMDD'),']+lcDescriere+ [',]+lcId_util+[); end;]
Case lcActiune = "UPDATE"
lcSql = [begin pack_def.modifica_contract(]+lcId+[,']+lcNumar+[',]+;
[to_date(']+lcData+[','YYYYMMDD'),]+lcId_tip_ctr + [,]+lcInactiv+[,]+lcId_util+[); end;]
Case lcActiune = "DELETE"
lcSql = [begin pack_def.sterge_contract(]+lcId+[,]+lcId_util+[); end;]
ENDCASE
this.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS cus_odata_selectie AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Name = "cus_odata_selectie"
*</PropValue>
PROCEDURE make_sql
Lparameters toRec,tnId
lcActiune = Alltrim(This.cActiune)
lcId_util = Alltrim(Str(gnIdUtil))
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
Return .F.
Endif
If Inlist(lcActiune, "UPDATE",'DELETE')
lcId = Alltrim(Str(tnId))
Endif
If Inlist(lcActiune, "UPDATE",'INSERT')
lcSelectie = Strtran(Alltrim(toRec.selectie),['],[''])
ENDIF
Do Case
Case lcActiune = "INSERT"
lcSql = [begin PACK_CTR_FURNIZORI.adauga_selectie('] + lcSelectie + [',]+lcId_util+[); end;]
Case lcActiune = "UPDATE"
lcSql = [begin PACK_CTR_FURNIZORI.modifica_selectie(]+lcId +[,']+lcSelectie+ [',]+ lcId_util+[); end;]
Case lcActiune = "DELETE"
* lcSql = [begin pack_nomenclatoare.sterge_tip_ctr(]+lcId+[,]+lcId_util+[); end;]
lcSql = [begin PACK_CTR_FURNIZORI.sterge_selectie(]+lcId+ [,]+ lcId_util+[); end;]
Endcase
This.csql = lcSql
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamente.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape7" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtData_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtDescriere" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdNresp" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdMedii_transmisie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdPers_contact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="cmdFel_document" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNresp" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtMediu_transmisie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtPers_contact" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label17" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtFel_document" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_avizat" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNumar_intern" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="optIE" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="txtNr_pag" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: llock
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 330
llock = .F.
Name = "frm_dg_date_generale"
Width = 633
WindowType = 0
_shape3.Name = "_shape3"
_shape1.Height = 29
_shape1.Left = -12
_shape1.Name = "_shape1"
_shape1.Top = 800
_shape1.Width = 561
_shape1.ZOrderSet = 3
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Visible = .F.
_shape2.ZOrderSet = 4
Lb_titlu_alb_b121.Caption = "Date generale"
Lb_titlu_alb_b121.Left = 8
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 14
Lb_titlu_alb_b121.ZOrderSet = 5
Gridsort1.Left = 132
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 12
BUT_TERMIN1.Left = 530
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 15
BUT_TERMIN1.Top = 1000
BUT_TERMIN1.ZOrderSet = 6
*</PropValue>
ADD OBJECT 'ck_avizat' AS _checkbox WITH ;
Alignment = 0, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Avizat", ;
ControlSource = "goRegistratura.avizat", ;
Height = 17, ;
Left = 8, ;
Name = "ck_avizat", ;
ReadOnly = .T., ;
TabIndex = 10, ;
Top = 223, ;
Width = 48, ;
ZOrderSet = 23
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'cmdFel_document' AS _commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 24, ;
Left = 277, ;
Name = "cmdFel_document", ;
Picture = ..\..\roacontracte\grafice\find.bmp, ;
TabIndex = 5, ;
Top = 124, ;
Width = 28, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdMedii_transmisie' AS _commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 24, ;
Left = 277, ;
Name = "cmdMedii_transmisie", ;
Picture = ..\..\roacontracte\grafice\find.bmp, ;
TabIndex = 9, ;
Top = 199, ;
Width = 28, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdNresp' AS _commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 24, ;
Left = 277, ;
Name = "cmdNresp", ;
Picture = ..\..\roacontracte\grafice\find.bmp, ;
TabIndex = 8, ;
Top = 174, ;
Width = 28, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'cmdPers_contact' AS _commandbutton WITH ;
Caption = "", ;
Enabled = .F., ;
Height = 24, ;
Left = 277, ;
Name = "cmdPers_contact", ;
Picture = ..\..\roacontracte\grafice\find.bmp, ;
TabIndex = 7, ;
Top = 149, ;
Width = 28, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Persoana contact", ;
Height = 17, ;
Left = 8, ;
Name = "Label1", ;
TabIndex = 23, ;
Top = 153, ;
Width = 98, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label17' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Tip document", ;
Height = 17, ;
Left = 8, ;
Name = "Label17", ;
TabIndex = 22, ;
Top = 128, ;
Width = 77, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label2' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Mediu transmisie", ;
Height = 17, ;
Left = 8, ;
Name = "Label2", ;
TabIndex = 21, ;
Top = 203, ;
Width = 97, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label3' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Responsabil", ;
Height = 17, ;
Left = 8, ;
Name = "Label3", ;
TabIndex = 24, ;
Top = 178, ;
Width = 73, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label4' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Descriere", ;
Height = 17, ;
Left = 15, ;
Name = "Label4", ;
TabIndex = 16, ;
Top = 61, ;
Width = 56, ;
ZOrderSet = 40
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label5' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr. pagini", ;
Height = 17, ;
Left = 319, ;
Name = "Label5", ;
TabIndex = 12, ;
Top = 128, ;
Width = 55, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label6' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nr./data inreg. (intrare-iesire)", ;
Height = 17, ;
Left = 15, ;
Name = "Label6", ;
TabIndex = 11, ;
Top = 38, ;
Width = 160, ;
ZOrderSet = 42
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'Label9' AS _label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
Height = 17, ;
Left = 317, ;
Name = "Label9", ;
TabIndex = 13, ;
Top = 38, ;
Width = 5, ;
ZOrderSet = 44
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'optIE' AS _optiongrup WITH ;
BackStyle = 0, ;
ButtonCount = 2, ;
ControlSource = "goRegistratura.ie", ;
Height = 26, ;
Left = 8, ;
Name = "optIE", ;
TabIndex = 4, ;
Top = 90, ;
Value = 1, ;
Width = 122, ;
Option1.AutoSize = .T., ;
Option1.BackStyle = 0, ;
Option1.Caption = "Intrare", ;
Option1.Height = 17, ;
Option1.Left = 5, ;
Option1.Name = "Option1", ;
Option1.Top = 4, ;
Option1.Value = 1, ;
Option1.Width = 53, ;
Option2.AutoSize = .T., ;
Option2.BackStyle = 0, ;
Option2.Caption = "Iesire", ;
Option2.Height = 17, ;
Option2.Left = 65, ;
Option2.Name = "Option2", ;
Option2.Top = 4, ;
Option2.Width = 49
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />
ADD OBJECT 'Shape7' AS shape WITH ;
BackStyle = 0, ;
Height = 52, ;
Left = 8, ;
Name = "Shape7", ;
SpecialEffect = 0, ;
Top = 32, ;
Width = 442, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'txtData_intern' AS _textbox WITH ;
ControlSource = "goRegistratura.data_intern", ;
Height = 21, ;
Left = 324, ;
Name = "txtData_intern", ;
ReadOnly = .T., ;
TabIndex = 2, ;
Top = 36, ;
Width = 119, ;
ZOrderSet = 45
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtDescriere' AS _textbox WITH ;
ControlSource = "goRegistratura.descriere", ;
Height = 21, ;
Left = 122, ;
Name = "txtDescriere", ;
ReadOnly = .T., ;
TabIndex = 3, ;
Top = 59, ;
Width = 321, ;
ZOrderSet = 41
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtFel_document' AS _textbox WITH ;
ControlSource = "goRegistratura.fel_document", ;
Height = 21, ;
Left = 131, ;
Name = "txtFel_document", ;
ReadOnly = .T., ;
TabIndex = 18, ;
TabStop = .F., ;
Top = 126, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtMediu_transmisie' AS _textbox WITH ;
ControlSource = "goRegistratura.mediu_transmisie", ;
Height = 21, ;
Left = 131, ;
Name = "txtMediu_transmisie", ;
ReadOnly = .T., ;
TabIndex = 17, ;
TabStop = .F., ;
Top = 201, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtNr_pag' AS _textbox WITH ;
ControlSource = "goRegistratura.nr_pag", ;
Format = "k", ;
Height = 21, ;
InputMask = "9999", ;
Left = 377, ;
Name = "txtNr_pag", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 126, ;
Width = 48, ;
ZOrderSet = 43
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtNresp' AS _textbox WITH ;
ControlSource = "goRegistratura.nresp", ;
Height = 21, ;
Left = 131, ;
Name = "txtNresp", ;
ReadOnly = .T., ;
TabIndex = 19, ;
TabStop = .F., ;
Top = 176, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtNumar_intern' AS _textbox WITH ;
ControlSource = "goRegistratura.numar_intern", ;
Format = "k", ;
Height = 21, ;
InputMask = "99999999999999", ;
Left = 200, ;
Name = "txtNumar_intern", ;
ReadOnly = .T., ;
TabIndex = 1, ;
Top = 36, ;
Width = 113, ;
ZOrderSet = 43
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'txtPers_contact' AS _textbox WITH ;
ControlSource = "goRegistratura.pers_contact", ;
Height = 21, ;
Left = 131, ;
Name = "txtPers_contact", ;
ReadOnly = .T., ;
TabIndex = 20, ;
TabStop = .F., ;
Top = 151, ;
Width = 144, ;
ZOrderSet = 16
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
PROCEDURE blocheaza_campuri
this.txtDescriere.ReadOnly = .T.
*this.txtnumar_intern.ReadOnly = .T.
this.txtData_intern.ReadOnly = .T.
this.txtNr_pag.ReadOnly = .T.
this.cmdFel_document.Enabled = .F.
this.cmdPers_contact.Enabled = .F.
this.cmdNresp.Enabled = .F.
this.cmdMedii_transmisie.Enabled = .F.
this.ck_avizat.ReadOnly = .T.
this.optIE.Enabled = .F.
this.optIE.option1.Enabled = .F.
this.optIE.option2.Enabled = .F.
ENDPROC
PROCEDURE deblocheaza_campuri
this.txtDescriere.ReadOnly = .F.
*this.txtnumar_intern.ReadOnly = .f.
this.txtData_intern.ReadOnly = .F.
this.txtNr_pag.ReadOnly = .F.
this.cmdFel_document.Enabled = .T.
this.cmdPers_contact.Enabled = .T.
this.cmdNresp.Enabled = .T.
this.cmdMedii_transmisie.Enabled = .T.
this.ck_avizat.ReadOnly = .F.
this.optIE.Enabled = .T.
this.optIE.option1.Enabled = .T.
this.optIE.option2.Enabled = .T.
ENDPROC
PROCEDURE ck_avizat.Valid
PRIVATE pnValue
pnValue = this.Value
lcSql = [begin pack_registratura.avizeaza_document(?goRegistratura.id_reg,?pnValue,?gnIdUtil); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
Return
Endif
ENDPROC
PROCEDURE cmdFel_document.Click
locauta = caut_fdoc(,.T.)
IF buton=2
RETURN
ENDIF
goRegistratura.id_fdoc = locauta.id_fdoc
goRegistratura.fel_document = locauta.fel_document
thisform.txtFel_document.Refresh
ENDPROC
PROCEDURE cmdMedii_transmisie.Click
Local loCauta
Store "" To loCauta
locauta = caut_mediu_transmisie(,.T.)
If buton=2
Return
Endif
goRegistratura.id_mediu = locauta.id_mediu
goRegistratura.mediu_transmisie = locauta.mediu_transmisie
thisform.txtMediu_transmisie.Refresh
ENDPROC
PROCEDURE cmdNresp.Click
Local lcIdTipPart, lcTitlu
Store '' To lcIdTipPart, lcTitlu
lcIdTipPart = [-11,-41]
lcTitlu = 'Responsabili/Angajati'
loCauta = CautPartenerContabilitate(GetHash([cTitlu=>] + lcTitlu + [??cTipuriParteneri=>] + lcIdTipPart))
If buton = 2
Return
Endif
goRegistratura.id_responsabil = loCauta.id_part
goRegistratura.nresp = loCauta.denumire
thisform.txtNresp.Refresh
ENDPROC
PROCEDURE cmdPers_contact.Click
If !Empty(goRegistratura.id_part) And !Isnull(goRegistratura.id_part)
Local loCauta
Store "" To loCauta
lcSelect = [select id_pers, denumire FROM vpers_contact]
lcFiltru = [1=2]
lcSchema = []
lcOrder = [denumire ]
lccoloane = [denumire]
lcTitlu = [Alegeti persoana de contact]
lcTitluColoane = [Nume]
lcFiltruOriginal = [id_part=]+Alltrim(Str(goRegistratura.id_part))
lcNumeProc = []
llToateIreg = .F.
loCauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lccoloane,lcTitlu,lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal) && 11.07.2007
If buton=2
Return
Endif
goRegistratura.id_pers = loCauta.id_pers
goRegistratura.pers_contact = loCauta.denumire
Thisform.txtPers_contact.Refresh
Endif
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_observatii AS frm_dg OF "..\comun\clase\ferestre_atasamente.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="edtObservatii" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 330
Name = "frm_dg_observatii"
Width = 633
_shape3.Name = "_shape3"
_shape1.Name = "_shape1"
_shape2.Name = "_shape2"
Lb_titlu_alb_b121.Caption = "Observatii"
Lb_titlu_alb_b121.Left = 8
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Gridsort1.Left = 233
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 4
BUT_TERMIN1.Name = "BUT_TERMIN1"
*</PropValue>
ADD OBJECT 'edtObservatii' AS editbox WITH ;
Anchor = 15, ;
ControlSource = "goRegistratura.observatii", ;
Height = 280, ;
Left = 8, ;
Name = "edtObservatii", ;
ReadOnly = .T., ;
Top = 33, ;
Width = 614
*< END OBJECT: BaseClass="editbox" />
PROCEDURE blocheaza_campuri
this.edtObservatii.ReadOnly = .T.
ENDPROC
PROCEDURE deblocheaza_campuri
This.edtObservatii.ReadOnly = .F.
ENDPROC
PROCEDURE Init
DODEFAULT()
goRegistratura.observatii = NVL(goRegistratura.observatii,'')
ENDPROC
ENDDEFINE
DEFINE CLASS frm_dg_referinte AS frm_dg OF "..\comun\clase\ferestre_atasamente.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grid_referinte" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_referinte.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_referinte.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_referinte.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid_referinte.Column2.Text1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: afisactual
*m: do_modifica_ctr_art
*p: clistaidarticole
*p: cnewvalue
*p: coldvalue
*p: cxmlarticole
*p: ncoef_discount
*p: ndiscountmediu
*p: nsumaarticole
*p: nvalcdiscount
*p: nvaldiscount
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cgridsortlist = grid_referinte
clistaidarticole =
cnewvalue =
coldvalue =
cxmlarticole =
DoCreate = .T.
Height = 446
Name = "frm_dg_referinte"
ncoef_discount = 0
ndiscountmediu = 0
nsumaarticole = 0
nvalcdiscount = 0
nvaldiscount = 0
Width = 633
_shape3.Name = "_shape3"
_shape1.Name = "_shape1"
_shape2.Anchor = 3
_shape2.Height = 29
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 66
Lb_titlu_alb_b121.Caption = "Referinte"
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Gridsort1.Left = 60
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 0
BUT_TERMIN1.Name = "BUT_TERMIN1"
*</PropValue>
ADD OBJECT 'grid_referinte' AS _grdrow WITH ;
ColumnCount = 2, ;
DeleteMark = .F., ;
Height = 147, ;
Left = 6, ;
Name = "grid_referinte", ;
Panel = 1, ;
RecordSource = "cRegReferinte", ;
Top = 33, ;
Width = 263, ;
Column1.ControlSource = "unde", ;
Column1.Name = "Column1", ;
Column1.Width = 161, ;
Column2.ControlSource = "nr_aparitii", ;
Column2.Format = "rk", ;
Column2.InputMask = "99999999999", ;
Column2.Name = "Column2", ;
Column2.Width = 68
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid_referinte.Column1.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Localizare", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_referinte.Column1.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
ADD OBJECT 'grid_referinte.Column2.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Nr. aparitii", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid_referinte.Column2.Text1' AS _textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
PROCEDURE grid_referinte.Init
DODEFAULT()
*!* 23.07.2026 MM - propaga fontul gridului la coloane si headere (P5)
This.SetAll('FontName', This.FontName, 'Column')
This.SetAll('FontSize', This.FontSize, 'Column')
This.SetAll('FontName', This.FontName, 'Header')
This.SetAll('FontSize', This.FontSize, 'Header')
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink