*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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="" /> * BackColor = 255,255,255 Height = 401 Name = "ct_date_generale" Width = 800 * 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�da" laNos[4,1] = "Itens enviados" laNos[5,1] = "Itens exclu�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="" /> * *m: blocheaza_campuri *m: deblocheaza_campuri *p: llock * * BackColor = 197,214,254 Height = 55 llock = .T. Name = "ct_part_nr_data" Width = 614 * 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="" /> * *m: arata_linkuri *m: do_initializeaza_cursor *p: nireg * * 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" * 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 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="" /> * Name = "cus_odata_actaditional" * 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="" /> * Name = "cus_odata_selectie" * 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="" /> * *p: llock * * 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 * 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="" /> * 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" * 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="" /> * *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 * * 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" * 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