Marius Mutu
55471e6168
do_initializeaza_cursor detaseaza/reataseaza gridul (save/restore_grid_tag) in jurul recrearii cursorului, ca in actualizeaza_grid1. .pj2: versiune 2.0.5 + chatbot.bmp (din rebuild IDE). Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
2126 lines
82 KiB
Plaintext
2126 lines
82 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||
* (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
|
||
Lparameters plQuiet
|
||
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
|
||
If !plQuiet
|
||
aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
||
Endif
|
||
|
||
Select cRegistratura
|
||
Scatter Name goRegistratura Memo Blank
|
||
ENDIF
|
||
|
||
This.grid_registratura.SetFocus()
|
||
|
||
ENDPROC
|
||
|
||
PROCEDURE do_initializeaza_cursor
|
||
save_grid_tag(This.grid_registratura)
|
||
Do viz_registratura In oproceduri_roaregistratura.prg
|
||
restore_grid_tag(This.grid_registratura)
|
||
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
|