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

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 10:54:13 +03:00
commit 09580ad9d6
340 changed files with 334893 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1489
Clase/Backup0109/ferestrebaza.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

437
Clase/appwiz.vc2 Normal file
View File

@@ -0,0 +1,437 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="appwiz.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
*< LIBCOMMENT: Application Wizard framework class library. />
*
DEFINE CLASS wzapplication AS container && Application class used as a framework for the Application Wizard.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called.
*m: clearevents && Clears any pending read events.
*m: doform && Executes an SCX form.
*m: dolabel && Executes an LBX label
*m: domenu && Executes an MPR menu.
*m: doprogram && Executes a PRG, APP, or EXE program.
*m: doreport && Executes an FRX report.
*m: filenotfoundmsgbox && Displays a File Not Found messagebox.
*m: getcaption && Returns the caption of the application.
*m: geticon && Returns the icon of the application.
*m: onshutdown && Occurs when the user attempts to exit Visual FoxPro.
*m: readevents && Starts read events mode.
*m: readini
*m: refreshformscollection && Refresh forms collection arrays and counters.
*m: release && Releases the application from memory.
*m: releaseform && Release specifc or active form from memory.
*m: releaseforms && Release all application forms from memory.
*m: resetformscollection && Reset arrays and counters of forms collection.
*m: restoreenvironment && Restores environment settings.
*m: saveenvironment && Saves environment settings.
*m: setcaption && Sets the caption of the application.
*m: seticon && Sets the icon of the application.
*m: show && Displays the application.
*m: writeini
*p: ccaption && Caption of the application object.
*p: cicon && Icon of the application object.
*p: clastcaption && Last caption setting of _screen before application object was intantiated.
*p: clasticon && Last icon setting of _screen before application object was intantiated.
*p: cstartupform && Form (SCX) which is executed when the application object is shown.
*p: cstartupmenu && Menu (MPR) which is executed when the application object is shown.
*p: lcascadeforms && Specifies whether forms are cascaded if multiple instances of the same form are opened in the same top and left positions of the desktop.
*p: lreadevents && Enable READ EVENTS within ReadEvents method.
*p: nformcount && Forms collection count for application object.
*p: npixeloffset && Number of pixels which offset multiple instances of the same form.
*a: aformnames[1,0] && Form name collection for application object.
*a: aforms[1,0] && Forms collection for application object.
*p: _memberdata && XML Metadata for customizable properties
*</DefinedPropArrayMethod>
PROTECTED ccaption,cicon,clastcaption,clasticon,Destroy,Init
*<PropValue>
BackColor = 0,0,255
ccaption =
cicon =
clastcaption =
clasticon =
cstartupform =
cstartupmenu =
Height = 34
lcascadeforms = .T.
lreadevents = .T.
Name = "wzapplication"
nformcount = 0
npixeloffset = 22
Visible = .F.
Width = 108
_memberdata = <VFPData>
<memberdata name="writeini" display="WriteIni"/>
</VFPData>
*</PropValue>
PROTECTED PROCEDURE beforereadevents && Method executed before READ EVENTS is executed when ReadEvents is called.
ENDPROC
PROCEDURE clearevents && Clears any pending read events.
CLEAR EVENTS
ENDPROC
PROTECTED PROCEDURE Destroy
CLEAR EVENTS
this.RestoreEnvironment
ENDPROC
PROCEDURE doform && Executes an SCX form.
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount
_screen.visible=.t.
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO this.nFormCount
IF this.aFormNames[lnCount]==lcFormName AND ;
TYPE("this.aForms[lnCount]")=="O" AND ;
NOT ISNULL(this.aForms[lnCount])
this.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
SET CLASSLIB TO (lcFileName) ADDITIVE
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
NOT ISNULL(this.aForms[this.nFormCount])
this.aForms[this.nFormCount].Show
ENDIF
ELSE
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
oForm=this.aForms[this.nFormCount]
lnTop=oForm.Top
lnLeft=oForm.Left
lcName=oForm.Name
IF WEXIST(lcName) AND oForm.WindowState#2
FOR lnCount = 1 TO (this.nFormCount-1)
oForm2=this.aForms[lnCount]
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
LOOP
ENDIF
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
WLCOL(lcName)=WLCOL(oForm2.Name)
lnTop=lnTop+this.nPixelOffset
lnLeft=lnLeft+this.nPixelOffset
ENDIF
ENDFOR
IF oForm.Top#lnTop
oForm.Top=lnTop
ENDIF
IF oForm.Left#lnLeft
oForm.Left=lnLeft
ENDIF
ENDIF
ENDIF
IF NOT tlNoShow
this.aForms[this.nFormCount].Show
ENDIF
ENDPROC
PROCEDURE dolabel && Executes an LBX label
LPARAMETERS tcFileName,tlPrint
LOCAL lcFileName
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+".lbx"
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
IF tlPrint
LABEL FORM (lcFileName) TO PRINTER PROMPT
ELSE
LABEL FORM (lcFileName) PREVIEW
ENDIF
ENDPROC
PROCEDURE domenu && Executes an MPR menu.
LPARAMETERS tcFileName
LOCAL lcFileName
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+".mpr"
ENDIF
*IF NOT FILE(lcFileName)
* this.FileNotFoundMsgBox(lcFileName)
* RETURN .F.
*ENDIF
*DO (lcFileName)
do &meniuprogram
ENDPROC
PROCEDURE doprogram && Executes a PRG, APP, or EXE program.
LPARAMETERS tcFileName
LOCAL lcFileName
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+".prg"
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
DO (lcFileName)
ENDPROC
PROCEDURE doreport && Executes an FRX report.
LPARAMETERS tcFileName,tlPrint
LOCAL lcFileName
lcFileName=ALLTRIM(tcFileName)
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+".frx"
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
IF tlPrint
REPORT FORM (lcFileName) TO PRINTER PROMPT
ELSE
REPORT FORM (lcFileName) PREVIEW
ENDIF
ENDPROC
PROCEDURE filenotfoundmsgbox && Displays a File Not Found messagebox.
LPARAMETERS tcFileName
RETURN MESSAGEBOX([File "]+tcFileName+[" not found.],16,_screen.Caption)
ENDPROC
PROCEDURE getcaption && Returns the caption of the application.
RETURN this.cCaption
ENDPROC
PROCEDURE geticon && Returns the icon of the application.
RETURN this.cIcon
ENDPROC
PROTECTED PROCEDURE Init
this.SaveEnvironment
this.ResetFormsCollection
ENDPROC
PROCEDURE onshutdown && Occurs when the user attempts to exit Visual FoxPro.
ENDPROC
PROCEDURE readevents && Starts read events mode.
this.BeforeReadEvents
IF this.lReadEvents
READ EVENTS
ENDIF
ENDPROC
PROCEDURE readini
LPARAMETERS tcSection, tcVariable
lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '')
lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '')
lcValue = ''
IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable)
lcValue = goAPI.GetProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable)
ENDIF
RETURN NVL(m.lcValue,'')
ENDPROC
PROCEDURE refreshformscollection && Refresh forms collection arrays and counters.
LOCAL lnCount,lnCount2
lnCount=1
DO WHILE lnCount<=this.nFormCount
IF TYPE("this.aForms[lnCount]")=="O" AND NOT ISNULL(this.aForms[lnCount])
lnCount=lnCount+1
LOOP
ENDIF
FOR lnCount2 = lnCount TO (this.nFormCount-1)
this.aForms[lnCount2]=this.aForms[lnCount2+1]
this.aForms[lnCount2+1]=.NULL.
this.aFormNames[lnCount2]=this.aFormNames[lnCount2+1]
this.aFormNames[lnCount2+1]=""
ENDFOR
this.nFormCount=this.nFormCount-1
IF this.nFormCount=0
EXIT
ENDIF
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
ENDDO
IF this.nFormCount=0
this.ResetFormsCollection
ENDIF
ENDPROC
PROCEDURE release && Releases the application from memory.
IF NOT this.ReleaseForms()
RETURN .F.
ENDIF
this.ClearEvents
RELEASE this
ENDPROC
PROCEDURE releaseform && Release specifc or active form from memory.
LPARAMETERS toForm
IF PARAMETERS()=0
IF TYPE("_screen.ActiveForm")#"O" OR ISNULL(_screen.ActiveForm)
RETURN .F.
ENDIF
_screen.ActiveForm.Release
ELSE
IF TYPE("toForm")#"O" OR ISNULL(toForm)
RETURN .F.
ENDIF
toForm.Release
ENDIF
this.RefreshFormsCollection
ENDPROC
PROCEDURE releaseforms && Release all application forms from memory.
LOCAL lnFormCount
this.RefreshFormsCollection
DO WHILE this.nFormCount>0
lnFormCount=this.nFormCount
IF NOT this.ReleaseForm(this.aForms[lnFormCount]) OR this.nFormCount=lnFormCount
RETURN .F.
ENDIF
ENDDO
ENDPROC
PROTECTED PROCEDURE resetformscollection && Reset arrays and counters of forms collection.
this.nFormCount=0
DIMENSION this.aForms[1],this.aFormNames[1]
this.aForms=.NULL.
this.aFormNames=""
ENDPROC
PROTECTED PROCEDURE restoreenvironment && Restores environment settings.
IF NOT EMPTY(this.cLastCaption) AND NOT _screen.Caption==this.cLastCaption
_screen.Caption=this.cLastCaption
ENDIF
IF NOT EMPTY(this.cLastIcon) AND NOT _screen.Icon==this.cLastIcon
_screen.Icon=this.cLastIcon
ENDIF
ENDPROC
PROTECTED PROCEDURE saveenvironment && Saves environment settings.
this.cLastCaption=_screen.Caption
this.cLastIcon=_screen.Icon
ENDPROC
PROCEDURE setcaption && Sets the caption of the application.
LPARAMETERS tcCaption
IF TYPE("tcCaption")#"C"
RETURN .F.
ENDIF
this.cCaption=tcCaption
_screen.Caption=tcCaption
ENDPROC
PROCEDURE seticon && Sets the icon of the application.
LPARAMETERS tcIcon
IF TYPE("tcIcon")#"C"
RETURN .F.
ENDIF
this.cIcon=tcIcon
_screen.Icon=tcIcon
ENDPROC
PROCEDURE show && Displays the application.
LPARAMETERS nStyle
this.DoMenu(this.cStartupMenu)
this.DoForm(this.cStartupForm)
this.ReadEvents
ENDPROC
PROCEDURE writeini
LPARAMETERS tcSection, tcVariable, tcValue
lcSection = IIF(!EMPTY(m.tcSection), ALLTRIM(LOWER(m.tcSection)), '')
lcVariable = IIF(!EMPTY(m.tcVariable), ALLTRIM(LOWER(m.tcVariable)), '')
lcValue = IIF(!EMPTY(m.tcValue), ALLTRIM(TRANSFORM(m.tcValue)), '')
IF TYPE('goApi') = 'O' AND !EMPTY(m.lcSection) AND !EMPTY(m.lcVariable)
goAPI.WriteProfileString(m.gcSettingsFile, m.lcSection, m.lcVariable, m.lcValue)
ENDIF
ENDPROC
ENDDEFINE

6
Clase/atentie.vc2 Normal file
View File

@@ -0,0 +1,6 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*

559
Clase/cont2000.vc2 Normal file
View File

@@ -0,0 +1,559 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="cont2000.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "..\comun\clase\appwiz.vcx" && Application class.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
clastcaption = Microsoft Visual FoxPro
clasticon =
Name = "capplication"
nformcount = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS help_leg AS help_pltree OF "cont2000.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "help_leg"
BANDA21.Name = "BANDA21"
Shape2.Name = "Shape2"
Shape1.Name = "Shape1"
Line1.Name = "Line1"
Label10.Caption = "AJUTOR LEGISLATIV"
Label10.Name = "Label10"
oleImagesList.Height = 45
oleImagesList.Left = 588
oleImagesList.Name = "oleImagesList"
oleImagesList.Top = 1
oleImagesList.Width = 65
oleTreeview.Height = 374
oleTreeview.Left = 24
oleTreeview.Name = "oleTreeview"
oleTreeview.Top = 52
oleTreeview.Width = 336
Edit1.ControlSource = "helpLEG.expli"
Edit1.Height = 374
Edit1.Name = "Edit1"
Edit1.Top = 52
Label1.Name = "Label1"
Label2.Name = "Label2"
Terminat1.Command1.Name = "Command1"
Terminat1.Imbuton1.Height = 27
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 30
Terminat1.Name = "Terminat1"
*</PropValue>
PROCEDURE Activate
sele helpleg
set order to tag nrnod
thisform.filltree
ENDPROC
PROCEDURE filltree
LOCAL O
SELECT HELPleg
O=THISFORM.OLETREEVIEW.NODES
SCAN FOR !DELETED()
IF NRTATA=0
O.ADD(,,,ALLT(TITLU),TATAFIU)
ELSE
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
ENDIF
ENDSCAN
ENDPROC
PROCEDURE Init
*
ENDPROC
PROCEDURE oleTreeview.NodeClick
*** OLE Control Event ***
LPARAMETERS node
LOCAL TX
TX=THIS.SelectedItem.INDEX
SELE HELPleg
LOCA FOR NRNOD=TX
THISFORM.EDIT1.REFRESH
ENDPROC
ENDDEFINE
DEFINE CLASS help_pltree AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oleImagesList" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="oleTreeview" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Edit1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: filltree
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 255,255,255
BorderStyle = 1
DoCreate = .T.
Height = 449
Name = "help_pltree"
Width = 783
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 786
_shape2.Height = 29
_shape2.Left = 751
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 33
Lb_titlu_alb_b121.Caption = "PLANUL GENERAL DE CONTURI"
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Left = 6
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.Top = 8
BUT_TERMIN1.Left = 753
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'Edit1' AS editbox WITH ;
BackColor = 255,255,255, ;
ControlSource = "chelpcont.expli", ;
DisabledBackColor = 255,255,255, ;
DisabledForeColor = 0,0,0, ;
Height = 374, ;
Left = 396, ;
Name = "Edit1", ;
ReadOnly = .T., ;
Top = 56, ;
Width = 367, ;
ZOrderSet = 7
*< END OBJECT: BaseClass="editbox" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "EXPLICATII", ;
Height = 17, ;
Left = 396, ;
Name = "Label1", ;
Top = 40, ;
Width = 64, ;
ZOrderSet = 8
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "TITLURI", ;
Height = 17, ;
Left = 22, ;
Name = "Label2", ;
Top = 38, ;
Width = 47, ;
ZOrderSet = 9
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'oleImagesList' AS olecontrol WITH ;
Height = 45, ;
Left = 656, ;
Name = "oleImagesList", ;
Top = 22, ;
Width = 65, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7///8EAAAA/v///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAABtAG0AYQByAHkASQBuAGYAbwByAG0AYQB0AGkAbwBuAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANCwp5ZvIMgBAwAAAEADAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAASgIAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAD0AAAAAAAAAAQAAAP7///8DAAAABAAAAAUAAAAGAAAABwAAAAgAAAAJAAAACgAAAAsAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9PAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAFwAAADgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBxaGogWnR1UWhhO2pkZm5baWFldHIgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAI+N2lhqnRsQr8BCEBAqjachQzQSCAAAAO0DAADtAwAAgH7h5gIABQAiAAAAEAAQAMDAwAD/////Ae/NqwAABQCo1h4AcgT///////8FAACAAAAAAAIAAAAAAAIAAAABAAAAbHQAAPYAAABCTfYAAAAAAAAAdgAAACgAAAAQAAAAEAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////8A////////AIUP/////wCH91D///8Ah/+HdQ//8If/iAh3UP/1j4gAUId1D/WIAFVVCHdQ9QBVVVVQh3UFhVVbNVUIcA9YVVV7tVCA//WFUzW7VQD//1hVu7NVUP//9YVVVVUA////WFVVAP/////1hQD///////9Q////8CAAAAbHQAAN4AAABCTd4AAAAAAAAAdgAAACgAAAANAAAADQAAAAEABAAAAAAAaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8A////////8ADwAAAAAA/wAPD/////D/AA8P////8P8ADw/0RE/w/wAPD/////D/AA8P9ERP8P8ADw/////w/wAPD/RE8AD/AA8P///wgP8ADw////AP/wAPAAAAAP//AA////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAACADAAAAEltYWdlSGVpZ2h0AAkAAABJCgAAABAAAAALAAAASW1hZ2VXaWR0aAAJAAAASQoAAAAQAAAAAAAA//////////9mbu7u7u7/////////////Zu7u7u7//////////////2bu7u7///////////////9m7u7/////////////////bu7//////////////////27/////////////////////////////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" />
ADD OBJECT 'oleTreeview' AS olecontrol WITH ;
Height = 377, ;
Left = 20, ;
Name = "oleTreeview", ;
Top = 55, ;
Width = 340, ;
ZOrderSet = 6
*< END OBJECT: BaseClass="olecontrol" OLEObject="c:\windows\system32\comctl32.ocx" Value="0M8R4KGxGuEAAAAAAAAAAAAAAAAAAAAAPgADAP7/CQAGAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAEAAAAgAAAAEAAAD+////AAAAAAAAAAD////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////9/////v////7////+/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////1IAbwBvAHQAIABFAG4AdAByAHkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAWAAUA//////////8BAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAMDcrpZvIMgBAwAAAMABAAAAAAAAAwBPAGwAZQBPAGIAagBlAGMAdABEAGEAdABhAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB4AAgEDAAAAAgAAAP////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAhAAAAAAAAAADAEEAYwBjAGUAcwBzAE8AYgBqAFMAaQB0AGUARABhAHQAYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJgACAP///////////////wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEAAABPAAAAAAAAAAMAQwBoAGEAbgBnAGUAZABQAHIAbwBwAHMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAcAAIA////////////////AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAAAFQAAAAAAAAAAwAAAAIAAAD+////BQAAAAYAAAD+/////v////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+i6BMHCoUbEK/AQhAQKo2nIUM0EggAAAAkIwAA9yYAAI5+4eYCAAUAQAAAAMT+biDoAwAAAwAAAAHvzasAAAUATwAAAAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAABcAAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgcWhqIFp0dVFoYTtqZGZuW2lhZXRyIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABEmSQABgCCAAAAAAAFAACAFrRaBA0AAABvAGwAZQBJAG0AYQBnAGUAcwBMAGkAcwB0AAEAAABcAB/e7L0BAAUAAQAAgAoAAABMaW5lU3R5bGUACQAAAEkKAAAAAAAAAA0AAABNb3VzZVBvaW50ZXIACQAAAEkKAAAAAAAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAU3R5bGUACQAAAEkKAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA==" />
ADD OBJECT 'Shape1' AS shape WITH ;
BackStyle = 0, ;
Height = 407, ;
Left = 9, ;
Name = "Shape1", ;
SpecialEffect = 0, ;
Top = 33, ;
Width = 363, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="shape" />
ADD OBJECT 'Shape2' AS shape WITH ;
BackStyle = 0, ;
Height = 407, ;
Left = 384, ;
Name = "Shape2", ;
SpecialEffect = 0, ;
Top = 33, ;
Width = 390, ;
ZOrderSet = 1
*< END OBJECT: BaseClass="shape" />
PROCEDURE Activate
thisform.filltree
ENDPROC
PROCEDURE filltree
LOCAL I
*!* DEBUG
*!* SUSPEND
o=THISFORM.oletreeview.nodes
SELE chelpcont
*BROWSE
SET ORDER TO TAG NRNOD
*BROW
SCAN FOR !DELETED()
*WAIT WINDOW STR(NRNOD)
IF NRTATA=0
o.ADD(,,,ALLT(DENUMIRE),TATAFIU)
*WAIT WINDOW DENUMIRE
ELSE
*!* STRTOFILE(ALLT(CONT)+' ','c:\plcont.txt',1)
o.ADD(NRTATA,4,,ALLT(CONT)+' '+ALLT(DENUMIRE),TATAFIU)
ENDIF
ENDSCAN
ENDPROC
PROCEDURE oleTreeview.NodeClick
*** OLE Control Event ***
LPARAMETERS node
LOCAL TX
TX=LEFT(THIS.SelectedItem.TEXT,4)
SELE chelpcont
LOCA FOR LEFT(CONT,4)=TX
THISFORM.EDIT1.REFRESH
ENDPROC
ENDDEFINE
DEFINE CLASS help_tree AS help_pltree OF "cont2000.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
*<PropValue>
AutoCenter = .T.
BorderStyle = 0
DoCreate = .T.
Height = 450
Name = "help_tree"
Width = 783
BANDA21.Name = "BANDA21"
Shape2.Left = 383
Shape2.Name = "Shape2"
Shape2.Top = 35
Shape1.Height = 407
Shape1.Left = 8
Shape1.Name = "Shape1"
Shape1.Top = 35
Shape1.Width = 363
Line1.Name = "Line1"
Label10.Caption = "Instructiuni de utilizare a programului"
Label10.FontSize = 12
Label10.Left = 6
Label10.Name = "Label10"
Label10.Top = 6
oleImagesList.Height = 45
oleImagesList.Left = 588
oleImagesList.Name = "oleImagesList"
oleImagesList.Top = 1
oleImagesList.Width = 65
oleTreeview.Height = 374
oleTreeview.Left = 24
oleTreeview.Name = "oleTreeview"
oleTreeview.Top = 52
oleTreeview.Width = 336
Edit1.ControlSource = "helpMENU.expli"
Edit1.Height = 374
Edit1.Name = "Edit1"
Edit1.Top = 52
Label1.Name = "Label1"
Label2.Caption = "TITLURI"
Label2.Name = "Label2"
Terminat1.Command1.Name = "Command1"
Terminat1.Imbuton1.Height = 27
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 30
Terminat1.Name = "Terminat1"
*</PropValue>
ADD OBJECT 'Image1' AS image WITH ;
Height = 32, ;
Left = 528, ;
Name = "Image1", ;
Picture = ..\grafice\arw01rt.ico, ;
Stretch = 0, ;
Top = 0, ;
Visible = .F., ;
Width = 32
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
Height = 32, ;
Left = 642, ;
Name = "Image2", ;
Picture = ..\grafice\arw01lt.ico, ;
Stretch = 0, ;
Top = -1, ;
Visible = .F., ;
Width = 32
*< END OBJECT: BaseClass="image" />
PROCEDURE Activate
SELE HELPMENU
set order to tag nrnod
THISFORM.FILLTREE
*THISFORM.image1.click
ENDPROC
PROCEDURE filltree
LOCAL O
SELECT HELPMENU
O=THISFORM.OLETREEVIEW.NODES
SCAN FOR !DELETED()
IF NRTATA=0
O.ADD(,,,ALLT(TITLU),TATAFIU)
ELSE
O.ADD(NRTATA,4,,ALLT(TITLU),TATAFIU)
ENDIF
ENDSCAN
ENDPROC
PROCEDURE Image1.Click
thisform.width=667
thisform.autocenter=.t.
thisform.refresh
ENDPROC
PROCEDURE Image2.Click
*thisform.width=310
thisform.autocenter=.t.
thisform.refresh
ENDPROC
PROCEDURE oleTreeview.NodeClick
*** OLE Control Event ***
LPARAMETERS node
LOCAL TX
TX=THIS.SelectedItem.INDEX
SELE HELPMENU
LOCA FOR NRNOD=TX
THISFORM.EDIT1.REFRESH
ENDPROC
ENDDEFINE
DEFINE CLASS selcontmic AS seleluna OF "cont2000.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Height = 135
Name = "selcontmic"
Width = 219
SEIP1.Height = 108
SEIP1.Left = 12
SEIP1.Name = "SEIP1"
SEIP1.Top = 12
SEIP1.Width = 192
LINE1.Name = "LINE1"
Label1.Caption = "Selectati contul debitor:"
Label1.Height = 13
Label1.Left = 24
Label1.Name = "Label1"
Label1.Top = 24
Label1.Width = 144
Combo1.BoundColumn = 1
Combo1.ColumnCount = 1
Combo1.ControlSource = "m.scd"
Combo1.Name = "Combo1"
Combo1.RowSource = "300,3011,3012,3014,3018,321,371,3711,3712"
Combo1.RowSourceType = 1
Label2.Left = 254
Label2.Name = "Label2"
Label2.Top = 48
Label2.Visible = .F.
CMDTERMIN1.Left = 108
CMDTERMIN1.Name = "CMDTERMIN1"
CMDTERMIN1.Top = 84
LABEL3.Left = 289
LABEL3.Name = "LABEL3"
LABEL3.Top = 48
LABEL3.Visible = .F.
*</PropValue>
PROCEDURE Combo1.Valid
*
ENDPROC
ENDDEFINE
DEFINE CLASS seleluna AS ffergen OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Combo1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_termin1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: aa
*p: ll
*</DefinedPropArrayMethod>
*<PropValue>
aa =
DoCreate = .T.
Height = 125
ll =
Name = "seleluna"
Width = 231
*</PropValue>
ADD OBJECT 'Cmd_termin1' AS cmd_termin WITH ;
Caption = "\<TERMIN", ;
Enabled = .F., ;
Left = 127, ;
Name = "Cmd_termin1", ;
Top = 81
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Combo1' AS combobox WITH ;
Height = 24, ;
Left = 24, ;
Name = "Combo1", ;
Style = 2, ;
Top = 48, ;
Width = 72, ;
ZOrderSet = 3
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'Label1' AS label WITH ;
Caption = "Selectati anul si luna de inceput:", ;
Height = 13, ;
Left = 24, ;
Name = "Label1", ;
Top = 24, ;
Width = 192, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 17, ;
Left = 136, ;
Name = "Label2", ;
Top = 52, ;
Width = 27
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
Caption = " ", ;
FontItalic = .T., ;
FontSize = 10, ;
ForeColor = 0,0,128, ;
Height = 17, ;
Left = 171, ;
Name = "Label3", ;
Top = 52, ;
Width = 40
*< END OBJECT: BaseClass="label" />
PROCEDURE Destroy
IF USED('crscalendar')
USE IN crscalendar
ENDIF
ENDPROC
PROCEDURE Init
iF USED('crscalendar')
USE IN crscalendar
ENDIF
SELECT PADL(ALLTRIM(nl),2,"0") as nl,an FROM calendar ORDER BY an,nl INTO CURSOR crscalendar
SELECT crscalendar
thisform.ll=nl
thisform.aa=an
SCAN
thisform.combo1.AddItem(nl+"/"+an)
endscan
ENDPROC
PROCEDURE Cmd_termin1.Valid
m.an=thisform.aa
m.nl=thisform.ll
pcanul=thisform.aa
pcluna=thisform.ll
ENDPROC
PROCEDURE Combo1.MouseLeave
Lparameters nButton, nShift, nXCoord, nYCoord
*!* Select crscalendar
*!* anul=an
*!* luna=nl
pcluna=SUBSTR(this.Value,1,2)
pcanul=SUBSTR(this.Value,4)
Thisform.label2.Caption=pcluna
Thisform.label3.Caption=pcanul
If !Empty(pcluna) And !Empty(pcanul)
Thisform.cmdtermin1.Enabled=.T.
Endif
ENDPROC
PROCEDURE Combo1.Valid
*!* Select crscalendar
*!* anul=an
*!* luna=nl
pcluna=Substr(This.Value,1,2)
pcanul=Substr(This.Value,4)
Thisform.label2.Caption=pcluna
Thisform.label3.Caption=pcanul
If !Empty(pcluna) And !Empty(pcanul)
Thisform.cmdtermin1.Enabled=.T.
Endif
ENDPROC
ENDDEFINE

3441
Clase/contab.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1202
Clase/contabilitate_rapoarte.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

639
Clase/inchideri_sal.vc2 Normal file
View File

@@ -0,0 +1,639 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="inchideri_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_alege_neridicati AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column7.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ck_nume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_prenume" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_sectie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_formatie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ck_marca" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_txbase1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_txbase2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_txbase3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: do_totaluri
*p: lsalvat
*p: nan
*p: nluna
*p: noptiune
*p: nsumainit
*p: nsumamodif
*p: ntotsuma
*</DefinedPropArrayMethod>
*<PropValue>
DoCreate = .T.
Height = 445
lsalvat = .F.
Name = "frm_alege_neridicati"
nan = 0
nluna = 0
noptiune = 0
nsumainit = .F.
nsumamodif = .F.
ntotsuma = .F.
Width = 655
_SHAPE1.Height = 29
_SHAPE1.Left = 0
_SHAPE1.Name = "_SHAPE1"
_SHAPE1.Top = 0
_SHAPE1.Width = 684
_shape2.Left = 581
_shape2.Name = "_shape2"
_shape2.Top = 0
Lb_titlu_alb_b121.Caption = "Salariati"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 623
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 5
BUT_TERMIN1.Top = 1
Gridsort1.Left = 216
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 4
But_renunt1.Left = 594
But_renunt1.Name = "But_renunt1"
But_renunt1.TabIndex = 8
But_renunt1.Top = 1
*</PropValue>
ADD OBJECT '_grdrow1' AS _grdrow WITH ;
ColumnCount = 10, ;
DeleteMark = .F., ;
Height = 325, ;
Left = 12, ;
Name = "_grdrow1", ;
Panel = 1, ;
RecordSource = "crsState", ;
TabIndex = 4, ;
Top = 85, ;
Width = 624, ;
Column1.ControlSource = "marca", ;
Column1.Name = "Column1", ;
Column1.Width = 37, ;
Column2.ControlSource = "nume", ;
Column2.Name = "Column2", ;
Column3.ControlSource = "prenume", ;
Column3.Name = "Column3", ;
Column4.ControlSource = "formatia", ;
Column4.Name = "Column4", ;
Column5.ControlSource = "sectie", ;
Column5.Name = "Column5", ;
Column6.ControlSource = "lichidare", ;
Column6.Name = "Column6", ;
Column7.ControlSource = "BIFA", ;
Column7.CurrentControl = "Check1", ;
Column7.Name = "Column7", ;
Column7.Sparse = .F., ;
Column7.Width = 35, ;
Column8.ControlSource = "sumalicnerid", ;
Column8.Name = "Column8", ;
Column8.ReadOnly = .F., ;
Column8.Width = 94, ;
Column9.ControlSource = "an", ;
Column9.Name = "Column9", ;
Column9.Width = 34, ;
Column10.ControlSource = "luna", ;
Column10.Name = "Column10", ;
Column10.Width = 32
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
Caption = "Marca", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column10.Header1' AS header WITH ;
Caption = "Luna", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column10.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
Caption = "Nume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
Caption = "Prenume", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
Caption = "Formatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column4.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column5.Header1' AS header WITH ;
Caption = "Sectie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column5.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column6.Header1' AS header WITH ;
Caption = "Lichidare", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column6.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column7.Check1' AS checkbox WITH ;
Alignment = 0, ;
Caption = "", ;
Height = 17, ;
Left = 15, ;
Name = "Check1", ;
Top = 71, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT '_grdrow1.Column7.Header1' AS header WITH ;
Caption = "Alege", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column7.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column8.Header1' AS header WITH ;
Caption = "Suma neridicata", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column8.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .F.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdrow1.Column9.Header1' AS header WITH ;
Caption = "An", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdrow1.Column9.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_txbase1' AS _txbase WITH ;
ControlSource = "thisform.nluna", ;
Format = "k", ;
Height = 23, ;
Left = 367, ;
Name = "_txbase1", ;
TabIndex = 1, ;
Top = 40, ;
Width = 35
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT '_txbase2' AS _txbase WITH ;
ControlSource = "thisform.nan", ;
Format = "k", ;
Height = 23, ;
Left = 413, ;
Name = "_txbase2", ;
TabIndex = 2, ;
Top = 40, ;
Width = 48
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT '_txbase3' AS _txbase WITH ;
Alignment = 1, ;
ControlSource = "thisform.ntotsuma", ;
Height = 23, ;
InputMask = (get_mask(12,gnPA)), ;
Left = 509, ;
Name = "_txbase3", ;
ReadOnly = .T., ;
TabIndex = 6, ;
Top = 417, ;
Width = 94
*< END OBJECT: ClassLib="..\comun\clase\_tx_base.vcx" BaseClass="textbox" />
ADD OBJECT 'ck_formatie' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = formatia, ;
Caption = "Formatie", ;
Height = 18, ;
Left = 95, ;
Name = "ck_formatie", ;
TabIndex = 12, ;
Top = 60, ;
Width = 54
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_marca' AS ck_filtru_numar WITH ;
Alignment = 0, ;
camp_nume = marca, ;
Caption = "Marca", ;
Left = 167, ;
Name = "ck_marca", ;
TabIndex = 13, ;
Top = 36
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Ck_nume' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = nume, ;
Caption = "Nume", ;
Height = 18, ;
Left = 23, ;
Name = "Ck_nume", ;
TabIndex = 9, ;
Top = 36, ;
Width = 44
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_prenume' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = prenume, ;
Caption = "Prenume", ;
Height = 18, ;
Left = 23, ;
Name = "ck_prenume", ;
TabIndex = 10, ;
Top = 60, ;
Width = 56
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'ck_sectie' AS ck_filtru_text WITH ;
Alignment = 0, ;
camp_nume = sectie, ;
Caption = "Sectie", ;
Height = 18, ;
Left = 95, ;
Name = "ck_sectie", ;
TabIndex = 11, ;
Top = 36, ;
Width = 44
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />
ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
Left = 546, ;
Name = "Cmd_cauta1", ;
TabIndex = 3, ;
Top = 52
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Label1' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "/", ;
Height = 17, ;
Left = 406, ;
Name = "Label1", ;
TabIndex = 14, ;
Top = 43, ;
Width = 5
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label2' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Luna / An:", ;
Height = 17, ;
Left = 309, ;
Name = "Label2", ;
TabIndex = 15, ;
Top = 43, ;
Width = 56
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'Label3' AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Total:", ;
Height = 17, ;
Left = 467, ;
Name = "Label3", ;
TabIndex = 16, ;
Top = 420, ;
Width = 32
*< END OBJECT: BaseClass="label" />
PROCEDURE actualizeaza_grid1
Lparameters tcFiltru
Local lcFiltru
If Empty(tcFiltru)
lcFiltru = postat.ca_baza1.cfiltru
Else
lcFiltru = tcFiltru
Endif
Thisform.MousePointer= 11
Thisform.LockScreen=.T.
save_grid_tag(Thisform._grdrow1)
postat.ca_baza1.cfiltru=lcFiltru
postat.ca_baza1.afisare()
restore_grid_tag(Thisform._grdrow1)
Thisform.LockScreen=.F.
Thisform.MousePointer= 0
thisform.do_totaluri
Select crsState
*!* CALCULATE sum(totctva),sum(neimpozab),sum(totftvam),sum(tvam),sum(totftvai),sum(tvai) TO ;
*!* pntotctva,pnneimpozab,pntotftvam,pntvam,pntotftvai,pntvai
Go Top
Thisform.Refresh
ENDPROC
PROCEDURE Destroy
IF TYPE('pnSumaBifata') = 'N'
pnSumaBifata = thisform.ntotsuma
ENDIF
DODEFAULT()
ENDPROC
PROCEDURE do_cauta
Local lcFiltru
Store '' To lcFiltru
DO CASE
CASE thisform.noptiune = 0
lcFiltru = [ and lichidare > 0 and BIFALICNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna))
CASE thisform.noptiune = 1
lcFiltru = [ and id_fact_lic = ] +ALLTRIM(STR(oireg.id_fact))
CASE thisform.noptiune = 3
lcFiltru = [ and avans > 0 and BIFAAVNERID = 0 and an = ]+Alltrim(Str(thisform.nan))+[ and luna = ]+Alltrim(Str(thisform.nluna))
CASE thisform.noptiune = 4
lcFiltru = [ and id_fact_av = ] +ALLTRIM(STR(oireg.id_fact))
ENDCASE
If Thisform.ck_nume.Value=1
lcFiltru = lcFiltru + Thisform.ck_nume.filtru
Endif
If Thisform.ck_sectie.Value=1
lcFiltru = lcFiltru + Thisform.ck_sectie.filtru
ENDIF
If Thisform.ck_formatie.Value=1
lcFiltru = lcFiltru + Thisform.ck_formatie.filtru
ENDIF
If Thisform.ck_marca.Value=1
lcFiltru = lcFiltru + Thisform.ck_marca.filtru
ENDIF
If thisform.ck_prenume.Value=1
lcFiltru = lcFiltru + thisform.ck_prenume.filtru
ENDIF
IF !EMPTY(lcFiltru)
lcFiltru = SUBSTR(lcFiltru,5)
ELSE
lcFiltru = '1=1'
ENDIF
thisform.actualizeaza_grid1(lcFiltru)
*!* SELECT v_avans
*!* SET FILTER TO &lcFiltru
*!* thisform.do_calcul
GO TOP
thisform.Refresh
ENDPROC
PROCEDURE do_totaluri
LOCAL lnNrReg
Select crsState
IF RECCOUNT() < 1
thisform.ntotsuma = 0
RETURN
ENDIF
lnNrReg = RECNO()
IF INLIST(thisform.noptiune, 2, 5)
SUM sumalicnerid TO thisform.ntotsuma FOR bifa = 1
ELSE
SUM sumalicnerid TO thisform.ntotsuma
ENDIF
SELECT crsState
GOTO lnNrReg
thisform._txbase3.Refresh()
ENDPROC
PROCEDURE Init
DODEFAULT()
thisform.do_totaluri
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
IF gnluna = 1
thisform.nan = gnAn - 1
thisform.nluna = 12
ELSE
thisform.nan = gnAn
thisform.nluna = gnLuna - 1
ENDIF
DO CASE
CASE thisform.noptiune = 0 && trecerea lichidarii in drepturi neridicare
thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata
thisform._grdrow1.column7.Visible = .t. &&bifa
thisform.label1.Visible = .t.
thisform.label2.Visible = .t.
thisform._txbase1.Visible = .t.&&luna
thisform._txbase2.Visible = .t. &&an
thisform.but_renunt1.Visible = .t.
CASE thisform.noptiune = 1&& pentru lichidare neridicata
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
thisform._grdrow1.column7.Visible = .t.&&bifa
thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa
thisform._grdrow1.column7.ReadOnly = .t.&&bifa
thisform.label1.Visible = .f.
thisform.label2.Visible = .f.
thisform._txbase1.Visible = .f.&&luna
thisform._txbase2.Visible = .f.&&an
thisform.but_renunt1.Visible = .f.
CASE thisform.noptiune = 2&& pentru achitarea lichidarii neridicate
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
thisform._grdrow1.column7.Visible = .t.&&bifa
thisform._grdrow1.column6.Visible = .f.&&lichidare
thisform.label1.Visible = .f.
thisform.label2.Visible = .f.
thisform._txbase1.Visible = .f.&&luna
thisform._txbase2.Visible = .f.&&an
thisform.but_renunt1.Visible = .f.
thisform.ntotsuma=0
CASE thisform.noptiune = 3 && trecerea avansului in drepturi neridicare
thisform._grdrow1.column8.ReadOnly= .F.&&suma neridicata
thisform._grdrow1.column7.Visible = .t. &&bifa
thisform._grdrow1.column6.hEADER1.Caption=[Avans]
thisform.label1.Visible = .t.
thisform.label2.Visible = .t.
thisform._txbase1.Visible = .t.&&luna
thisform._txbase2.Visible = .t. &&an
thisform.but_renunt1.Visible = .t.
CASE thisform.noptiune = 4&& pentru avans neridicat
thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
thisform._grdrow1.column7.Visible = .t.&&bifa
thisform._grdrow1.column7.heADER1.Caption = 'Achitat' &&bifa
thisform._grdrow1.column7.ReadOnly = .t.&&bifa
thisform._grdrow1.column6.hEADER1.Caption = [Avans]
thisform.label1.Visible = .f.
thisform.label2.Visible = .f.
thisform._txbase1.Visible = .f.&&luna
thisform._txbase2.Visible = .f.&&an
thisform.but_renunt1.Visible = .f.
CASE thisform.noptiune = 5&& pentru achitarea avansului neridicat
*!* thisform._grdrow1.column8.ReadOnly= .T.&&suma neridicata
thisform._grdrow1.column8.hEADER1.Caption=[Avans]
thisform._grdrow1.column7.Visible = .t.&&bifa
thisform._grdrow1.column6.Visible = .f.&&lichidare
thisform.label1.Visible = .f.
thisform.label2.Visible = .f.
thisform._txbase1.Visible = .f.&&luna
thisform._txbase2.Visible = .f.&&an
thisform.but_renunt1.Visible = .f.
thisform.ntotsuma=0
ENDCASE
ENDPROC
PROCEDURE _grdrow1.Column7.Check1.Click
IF this.ReadOnly = .f.
IF !INLIST(thisform.noptiune,2,5)
IF this.Value = 1
SELECT crsState
REPLACE sumalicnerid WITH lichidare
ELSE
SELECT crsState
REPLACE sumalicnerid WITH 0
ENDIF
ENDIF
ENDIF
thisform.do_totaluri
thisform._grdrow1.column8.Refresh()
ENDPROC
PROCEDURE _grdrow1.Column7.Header1.DblClick
REPLACE ALL bifa WITH 1
ENDPROC
PROCEDURE _grdrow1.Column8.Text1.InteractiveChange
ENDPROC
PROCEDURE _grdrow1.Column8.Text1.LostFocus
thisform.do_totaluri
ENDPROC
ENDDEFINE

2162
Clase/oOptiuni.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1179
Clase/oactualizari.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

500
Clase/oconfigcont.vc2 Normal file
View File

@@ -0,0 +1,500 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigcont.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS imob_conturi AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grid1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cAcont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cAcont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCont.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cCont.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSCD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSCD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cASCD.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cASCD.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSCC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSCC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cASCC.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cASCC.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cId.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSectie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSectie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grid1.cSectie._combobox1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 440
Name = "imob_conturi"
Width = 710
WindowState = 2
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 714
_shape2.Anchor = 8
_shape2.Left = 719
_shape2.Name = "_shape2"
_shape2.Top = -1
_shape2.Visible = .F.
Lb_titlu_alb_b121.Caption = "Configurare note inchidere amortizare"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Anchor = 8
BUT_TERMIN1.Left = 677
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
BUT_TERMIN1.Visible = .T.
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 8, ;
Left = 557, ;
Name = "But_excel1", ;
TabIndex = 6, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Anchor = 8, ;
Left = 586, ;
Name = "But_nou1", ;
TabIndex = 5, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Anchor = 8, ;
Left = 646, ;
Name = "But_renunt1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Anchor = 8, ;
Left = 616, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 1, ;
Visible = .T.
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grid1' AS _grdbase WITH ;
Anchor = 15, ;
ColumnCount = 8, ;
DeleteMark = .F., ;
FontName = "Arial", ;
Height = 398, ;
Left = 8, ;
Name = "grid1", ;
Panel = 1, ;
RecordSource = "imob_conturi", ;
RowHeight = 18, ;
TabIndex = 1, ;
Top = 38, ;
Width = 700, ;
Column1.ColumnOrder = 2, ;
Column1.ControlSource = "acont", ;
Column1.FontName = "Arial", ;
Column1.FontSize = 9, ;
Column1.Format = "K", ;
Column1.Name = "cAcont", ;
Column1.Width = 55, ;
Column2.ColumnOrder = 1, ;
Column2.ControlSource = "cont", ;
Column2.FontName = "Arial", ;
Column2.FontSize = 9, ;
Column2.Format = "K", ;
Column2.Name = "cCont", ;
Column2.Width = 69, ;
Column3.ColumnOrder = 4, ;
Column3.ControlSource = "scd", ;
Column3.FontName = "Arial", ;
Column3.FontSize = 9, ;
Column3.Format = "K", ;
Column3.Name = "cSCD", ;
Column3.Width = 73, ;
Column4.ColumnOrder = 5, ;
Column4.ControlSource = "ascd", ;
Column4.FontName = "Arial", ;
Column4.FontSize = 9, ;
Column4.Format = "K", ;
Column4.Name = "cASCD", ;
Column4.Width = 75, ;
Column5.ColumnOrder = 6, ;
Column5.ControlSource = "scc", ;
Column5.FontName = "Arial", ;
Column5.FontSize = 9, ;
Column5.Format = "K", ;
Column5.Name = "cSCC", ;
Column5.Width = 68, ;
Column6.ColumnOrder = 7, ;
Column6.ControlSource = "ascc", ;
Column6.FontName = "Arial", ;
Column6.FontSize = 9, ;
Column6.Format = "K", ;
Column6.Name = "cASCC", ;
Column6.Width = 81, ;
Column7.ColumnOrder = 8, ;
Column7.ControlSource = "id", ;
Column7.FontName = "Arial", ;
Column7.FontSize = 9, ;
Column7.Name = "cId", ;
Column7.ReadOnly = .T., ;
Column7.Width = 55, ;
Column8.Bound = .F., ;
Column8.ColumnOrder = 3, ;
Column8.ControlSource = "Iif(Seek(imob_conturi.id_sectie,'vnom_sectii','id_sectie'),vnom_sectii.sectie,'')", ;
Column8.CurrentControl = "_combobox1", ;
Column8.FontName = "Arial", ;
Column8.Name = "cSectie", ;
Column8.Sparse = .F., ;
Column8.Width = 182
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grid1.cAcont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cAcont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cASCC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic amort.", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cASCC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cASCD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic chelt.", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cASCD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cCont.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cCont.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cId.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Id", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cId.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T., ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSCC.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont amort.", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSCC.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSCD.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont chelt.", ;
FontName = "Arial", ;
FontSize = 9, ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSCD.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
FontName = "Arial", ;
FontSize = 9, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grid1.cSectie._combobox1' AS _combobox WITH ;
BorderStyle = 0, ;
BoundColumn = 2, ;
BoundTo = .T., ;
ControlSource = "imob_conturi.id_sectie", ;
Left = 119, ;
Name = "_combobox1", ;
RowSource = "select vnom_sectii.sectie, id_sectie from vnom_sectii into cursor crsSectii order by sectie", ;
RowSourceType = 3, ;
Top = 81
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
ADD OBJECT 'grid1.cSectie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sectie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grid1.cSectie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
SelectedBackColor = 100,185,255
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'Gridextra1' AS gridextra WITH ;
gridexpression = Thisform.grid1, ;
Left = 624, ;
Name = "Gridextra1", ;
Top = 120
*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />
PROCEDURE do_adauga
LOCAL loRec
Sele imob_conturi
IF !EMPTY(NVL(cont,''))
SCATTER NAME loRec FIELDS EXCEPT id
ENDIF
APPEND BLANK
IF TYPE('loRec') = 'O'
GATHER NAME loRec
ENDIF
thisform.grid1.cCont.text1.SetFocus()
Thisform.grid1.Refresh()
ENDPROC
PROCEDURE do_excel
DO export_excel_grid WITH thisform.grid1
ENDPROC
PROCEDURE do_sterge
Select imob_conturi
lcCont = Alltrim(Cont) + Iif(!Empty(Nvl(acont, '')), '.' + Alltrim(acont),"")
If AMESSAGEBOX('Se sterge configurarea pentru contul ' + m.lcCont,4+32,_Screen.Caption) <> 6
Return
Endif
Sele imob_conturi
Delete
Try
Skip -1
Catch
GO TOP
Endtry
Thisform.grid1.SetFocus()
ENDPROC
PROCEDURE inainte_de_do_termin
Local llSucces, llSucces2, lcText
Local lcDeleted, lcExec
PRIVATE poRec
llSucces = .T.
lcText = ''
Wait Window 'Se actualizeaza inregistrarile...' Nowait
SELECT id_sectie, sectie, cont, acont, COUNT(*) as nr FROM imob_conturi GROUP BY id_sectie, sectie, cont, acont HAVING COUNT(*) > 1 INTO CURSOR cVerificareTemp
IF _tally > 0
llSucces = .F.
SELECT cVerificareTemp
SCAN
lcText = lcText + ALLTRIM(sectie) + ' ' + ALLTRIM(cont) + IIF(!EMPTY(NVL(acont,'')), '.' + ALLTRIM(acont), '') + CHR(13) + CHR(10)
ENDSCAN
USE IN (SELECT('cVerificareTemp'))
lcText = 'Conturile urmatoare apar de mai multe ori in lista. Pastrati o singura pozitie!' + CHR(13) + CHR(10) + m.lcText
AMESSAGEBOX(m.lcText,0+48,_screen.Caption)
ENDIF
IF !m.llSucces
RETURN m.llSucces
endi
llSucces = This.do_deschide_tranzactie()
If m.llSucces
lcDeleted = Set("Deleted")
Set Deleted Off
Select imob_conturi
Scan
Scatter Name poRec
WAIT WINDOW TRANSFORM(RECNO()) + '/' + TRANSFORM(RECCOUNT()) NOWAIT
lcExec = ''
poRec.id_sectie = IIF(EMPTY(NVL(poRec.id_sectie,0)), NULL, poRec.id_sectie)
If !Empty(Nvl(poRec.Id, 0))
If Deleted()
lcExec = 'DELETE FROM imob_inchidere WHERE id = ?poRec.id'
Else
lcExec = 'UPDATE imob_inchidere set id_sectie = ?poRec.id_sectie, cont = TRIM(?poRec.cont), acont = TRIM(?poRec.acont), scd = TRIM(?poRec.scd), ascd = TRIM(?poRec.ascd), scc = TRIM(?poRec.scc), ascc = TRIM(?poRec.ascc) WHERE id = ?poRec.id'
Endif
Else
If !Deleted()
lcExec = 'INSERT INTO imob_inchidere (id_sectie, cont, acont, scd, ascd, scc, ascc) values (?poRec.id_sectie, TRIM(?poRec.cont), TRIM(?poRec.acont), TRIM(?poRec.scd), TRIM(?poRec.ascd), TRIM(?poRec.scc), TRIM(?poRec.ascc))'
Endif
Endif
If !Empty(m.lcExec)
lnSucces = goExecutor.oExecute(m.lcExec)
llSucces = (m.lnSucces > 0)
If !m.llSucces
AMESSAGEBOX('Sectie: ' + ALLTRIM(NVL(sectie,'')) + ' Cont: ' + ALLTRIM(NVL(poRec.cont,'')) + ;
IIF(!EMPTY(NVL(poRec.acont,'')), '.' + ALLTRIM(poRec.acont), '') + CHR(13) + CHR(10) + ;
goExecutor.oPrelucrareEroare(),0+48,_screen.Caption)
Exit
Endif
Endif
Endscan
If m.llSucces
llSucces = This.do_inchide_tranzactie(1) && COMMIT
Else
llSucces2 = This.do_inchide_tranzactie(2) && ROLLBACK
Endif
Set Deleted &lcDeleted
Endif
Return m.llSucces
ENDPROC
PROCEDURE Init
DODEFAULT()
this.WindowState = 2
this.grid1.AutoFit()
lnHeight = this.Height
*!* this.WindowState = 0
this.Width = 500
this.Height = m.lnHeight
this.gridextra1.setup()
ENDPROC
PROCEDURE grid1.cAcont.Text1.LostFocus
PARAMETERS PlClick
lcCont = ALLTRIM(NVL(cont,''))
lcAcont = ALLTRIM(NVL(acont,''))
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'acont','imob_conturi') && in oOperatii_comune.prg
ENDPROC
PROCEDURE grid1.cASCC.Text1.LostFocus
PARAMETERS PlClick
lcCont = ALLTRIM(NVL(scc,''))
lcAcont = ALLTRIM(NVL(ascc,''))
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascc','imob_conturi') && in oOperatii_comune.prg
ENDPROC
PROCEDURE grid1.cASCD.AddObject
LPARAMETERS cName, cClass
ENDPROC
PROCEDURE grid1.cASCD.Text1.LostFocus
PARAMETERS PlClick
lcCont = ALLTRIM(NVL(scd,''))
lcAcont = ALLTRIM(NVL(ascd,''))
llReturn = verific_analitic(m.plClick, m.lcCont, m.lcAcont,'ascd','imob_conturi') && in oOperatii_comune.prg
ENDPROC
PROCEDURE grid1.cSectie._combobox1.Valid
REPLACE sectie WITH crsSectii.sectie IN imob_conturi
ENDPROC
PROCEDURE grid1.Init
* NU STERGE
ENDPROC
ENDDEFINE

641
Clase/oconversii.vc2 Normal file
View File

@@ -0,0 +1,641 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oconversii.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_conversie_conturi AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="grdConturi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cExplicatie.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContVechi.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontVechi.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cContNou.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cAcontNou.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="grdConturi.cSeAplica.Check1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: adaugare
*m: log
*m: modificare
*m: modificare_cont_balanta
*m: modificare_cont_plan
*m: stergere
*p: cacontnou
*p: cacontvechi
*p: ccontnou
*p: ccontvechi
*p: cconversie
*p: csubiectconversie
*p: lseaplica
*p: nid
*p: nseaplica
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 1
cacontnou =
cacontvechi =
ccontnou =
ccontvechi =
cconversie =
csubiectconversie =
DoCreate = .T.
Height = 521
lseaplica = .F.
Name = "frm_conversie_conturi"
nid = 0
nseaplica = 0
Width = 599
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 600
_shape2.Height = 29
_shape2.Left = 606
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 24
Lb_titlu_alb_b121.Caption = "Configurare conturi"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 7
BUT_TERMIN1.Left = 568
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 2
BUT_TERMIN1.Top = 1
Gridsort1.Left = 9
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 27
*</PropValue>
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
Left = 477, ;
Name = "But_modifica1", ;
TabIndex = 5, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_nou1' AS but_nou WITH ;
Left = 447, ;
Name = "But_nou1", ;
TabIndex = 6, ;
Top = 2
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 537, ;
Name = "BUT_RENUNT1", ;
TabIndex = 3, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
Left = 507, ;
Name = "But_sterge1", ;
TabIndex = 4, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'grdConturi' AS _grdbase WITH ;
ColumnCount = 6, ;
DeleteMark = .F., ;
Height = 477, ;
HighlightStyle = 2, ;
Left = 8, ;
Name = "grdConturi", ;
Panel = 1, ;
ReadOnly = .T., ;
RecordSource = "crsConversieConturi", ;
TabIndex = 1, ;
Top = 37, ;
Width = 581, ;
Column1.ControlSource = "explicatie", ;
Column1.Name = "cExplicatie", ;
Column1.ReadOnly = .T., ;
Column1.Width = 233, ;
Column2.ControlSource = "cont_vechi", ;
Column2.Name = "cContVechi", ;
Column2.ReadOnly = .T., ;
Column2.Width = 61, ;
Column3.ControlSource = "acont_vechi", ;
Column3.Name = "cAcontVechi", ;
Column3.ReadOnly = .T., ;
Column3.Width = 74, ;
Column4.ControlSource = "cont_nou", ;
Column4.Name = "cContNou", ;
Column4.ReadOnly = .T., ;
Column4.Width = 58, ;
Column5.ControlSource = "acont_nou", ;
Column5.Name = "cAcontNou", ;
Column5.ReadOnly = .T., ;
Column5.Width = 67, ;
Column6.ControlSource = "se_aplica", ;
Column6.CurrentControl = "Check1", ;
Column6.Name = "cSeAplica", ;
Column6.ReadOnly = .T., ;
Column6.Sparse = .F., ;
Column6.Width = 52
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
ADD OBJECT 'grdConturi.cAcontNou.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic nou", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cAcontNou.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdConturi.cAcontVechi.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Analitic vechi", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cAcontVechi.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdConturi.cContNou.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont nou", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cContNou.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdConturi.cContVechi.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Cont vechi", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cContVechi.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdConturi.cExplicatie.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Explicatie", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cExplicatie.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'grdConturi.cSeAplica.Check1' AS checkbox WITH ;
Alignment = 2, ;
BackColor = 255,255,255, ;
Caption = "", ;
Height = 17, ;
Left = 29, ;
Name = "Check1", ;
ReadOnly = .T., ;
Top = 35, ;
Width = 60
*< END OBJECT: BaseClass="checkbox" />
ADD OBJECT 'grdConturi.cSeAplica.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Se aplica", ;
Name = "Header1"
*< END OBJECT: BaseClass="header" />
ADD OBJECT 'grdConturi.cSeAplica.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1"
*< END OBJECT: BaseClass="textbox" />
PROCEDURE adaugare
LPARAMETERS toRec
INSERT INTO crsConversieConturi FROM NAME toRec
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE do_adauga
PRIVATE pnId
pnId = 0
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec BLANK
poRec.tip_sold = "A"
poRec.conversie = this.cConversie
poRec.se_aplica = 1
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
loFrmModifica.show(1)
IF gnButon = 1
lcSql = [BEGIN pack_conversie.adauga_cont(?@poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ?poRec.conversie); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.adaugare(poRec)
ENDIF
ENDIF
ENDPROC
PROCEDURE do_modifica
IF RECCOUNT('crsConversieConturi') = 0
RETURN
ENDIF
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec
loFrmModifica= CREATEOBJECT("frm_conversie_conturi_nou")
loFrmModifica.show(1)
IF gnButon = 1
lcSql = [BEGIN pack_conversie.modifica_cont(?poRec.id, ?ALLTRIM(poRec.cont_vechi), ?ALLTRIM(poRec.acont_vechi), ?ALLTRIM(poRec.cont_nou), ?ALLTRIM(poRec.acont_nou), ?ALLTRIM(poRec.tip_sold), ?ALLTRIM(porec.explicatie), ?poRec.se_aplica, ] + [?ALLTRIM(UPPER(poRec.conversie))); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.modificare(poRec)
ENDIF
ENDIF
ENDPROC
PROCEDURE do_sterge
PRIVATE poRec
SELECT crsConversieConturi
SCATTER NAME poRec
IF AMESSAGEBOX('Doriti sa stergeti conversia ' + NVL(poRec.cont_vechi,'') + '.' + NVL(poRec.acont_vechi,'') + ' in ' + NVL(poRec.cont_nou,'') + '.' + NVL(poRec.acont_nou,'') + '?',4+32,'Sterge') = 6
lcSql = [BEGIN pack_conversie.sterge_cont(?poRec.id); END;]
lnSucces = goExecutor.oExecute(lcSql)
IF lnSucces < 0
AMESSAGEBOX(goExecutor.cEroare,0+16, 'Eroare')
ELSE
this.stergere(poRec)
ENDIF
ENDIF
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE log
LPARAMETERS tctabela,tnId
IF EMPTY(tnId)
tnId = 0
ENDIF
lcId = ALLTRIM(STR(tnId))
lctabela = UPPER(ALLTRIM(NVL(tctabela,'')))
PRIVATE polog,pcschema1,pcselect1
STORE '' TO polog
pcschema1 = ['']
pcselect1=['select * from ] + gcS + [.vlog where ']
pcorder1=['dataora']
pcfiltru1 = [tabel = '] + lctabela + ['] + IIF(!EMPTY(tnId), [ and id_tabel = ] + lcId , '')
gencursor('polog','v_log',pcselect1,pcfiltru1,pcschema1,pcorder1)
polog.ca_baza1.afisare()
ofrmlog=CREATEOBJECT('frm_log')
ofrmlog.show(1)
RELEASE polog
ENDPROC
PROCEDURE modificare
LPARAMETERS toRec
SELECT crsConversieConturi
GATHER NAME toRec
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE modificare_cont_balanta
ENDPROC
PROCEDURE modificare_cont_plan
ENDPROC
PROCEDURE stergere
LPARAMETERS toRec
SELECT crsConversieConturi
DELETE &&FOR ID = toRec.id
LOCATE
this.grdConturi.SetFocus()
ENDPROC
PROCEDURE grdConturi.cContNou.Text1.Valid
LOCAL lnSucces, lcContNou
lnSucces = 1
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
IF lcContNou <> thisform.cContNou
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
ELSE
lnSucces = -1
ENDIF
ENDIF
IF lnSucces = -1
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
ENDIF
ENDPROC
PROCEDURE grdConturi.cContNou.Text1.When
thisform.nId = crsConversieConturi.id
thisform.cContNou = crsConversieConturi.cont_nou
ENDPROC
PROCEDURE grdConturi.cContVechi.Text1.Valid
LOCAL lnSucces, lcContNou
lnSucces = 1
lcContNou = ALLTRIM(crsConversieConturi.cont_Nou)
IF lcContNou <> thisform.cContNou
IF AMESSAGEBOX('Doriti sa salvati?',4+32,'Modificare') = 6
lnSucces = thisform.modificare("cont_Nou",thisform.nId, lcContNou)
ELSE
lnSucces = -1
ENDIF
ENDIF
IF lnSucces = -1
REPLACE cont_Nou WITH thisform.cContNou IN crsConversieConturi
ENDIF
ENDPROC
PROCEDURE grdConturi.cContVechi.Text1.When
thisform.nId = crsConversieConturi.id
thisform.cContNou = crsConversieConturi.cont_Nou
ENDPROC
PROCEDURE grdConturi.cExplicatie.Text1.DblClick
thisform.log("CONVERSIE_CONTURI",crsConversieConturi.id)
ENDPROC
PROCEDURE grdConturi.cSeAplica.Check1.When
thisform.nId = crsConversieConturi.id
thisform.nSeAplica = crsConversieConturi.se_aplica
ENDPROC
PROCEDURE grdConturi.DblClick
thisform.log("CONVERSIE_CONTURI")
ENDPROC
ENDDEFINE
DEFINE CLASS frm_conversie_conturi_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="clb_explicatie" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_contvechi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_contnou" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_acontvechi" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_acontnou" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chk_seaplica" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="clb_tipcont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 176
Name = "frm_conversie_conturi_nou"
Width = 375
_shape1.Name = "_shape1"
_shape2.Height = 29
_shape2.Left = 372
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 2
Lb_titlu_alb_b121.Caption = "Conversie conturi"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 10
BUT_TERMIN1.Left = 345
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 8
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
Left = 315, ;
Name = "BUT_RENUNT1", ;
TabIndex = 9, ;
Top = 1
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'chk_seaplica' AS _checkbox WITH ;
Alignment = 0, ;
Caption = "Se aplica", ;
ControlSource = "poRec.se_aplica", ;
Left = 9, ;
Name = "chk_seaplica", ;
TabIndex = 7, ;
Top = 154
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
ADD OBJECT 'clb_acontnou' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 135, ;
Name = "clb_acontnou", ;
TabIndex = 4, ;
Top = 64, ;
Width = 142, ;
TEXT_SIMPLU1.ControlSource = "poRec.acont_nou", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 83, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Analitic nou", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_acontvechi' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 135, ;
Name = "clb_acontvechi", ;
TabIndex = 2, ;
Top = 36, ;
Width = 142, ;
TEXT_SIMPLU1.ControlSource = "poRec.acont_vechi", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 83, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Analitic vechi", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_contnou' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_contnou", ;
TabIndex = 3, ;
Top = 64, ;
Width = 130, ;
TEXT_SIMPLU1.ControlSource = "poRec.cont_nou", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 71, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Cont nou", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_contvechi' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_contvechi", ;
TabIndex = 1, ;
Top = 36, ;
Width = 130, ;
TEXT_SIMPLU1.ControlSource = "poRec.cont_vechi", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 71, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 55, ;
LB_SIMPLU1.Caption = "Cont vechi", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_explicatie' AS clb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_explicatie", ;
TabIndex = 5, ;
Top = 92, ;
Width = 360, ;
TEXT_SIMPLU1.ControlSource = "poRec.explicatie", ;
TEXT_SIMPLU1.Height = 23, ;
TEXT_SIMPLU1.Left = 70, ;
TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
TEXT_SIMPLU1.Top = 3, ;
TEXT_SIMPLU1.Width = 286, ;
LB_SIMPLU1.Caption = "Explicatie", ;
LB_SIMPLU1.Name = "LB_SIMPLU1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
ADD OBJECT 'clb_tipcont' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 6, ;
Name = "clb_tipcont", ;
TabIndex = 6, ;
Top = 120, ;
Width = 271, ;
_CBBASE1.ControlSource = "poRec.tip_sold", ;
_CBBASE1.Height = 23, ;
_CBBASE1.Left = 170, ;
_CBBASE1.Name = "_CBBASE1", ;
_CBBASE1.RowSource = "A,P,B", ;
_CBBASE1.RowSourceType = 1, ;
_CBBASE1.Top = 3, ;
_CBBASE1.Width = 99, ;
_LBBASE1.Caption = "Tip cont nou", ;
_LBBASE1.Name = "_LBBASE1"
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
PROCEDURE inainte_de_do_termin
DO CASE
CASE (EMPTY(poRec.cont_vechi) OR ISNULL(poRec.cont_vechi)) AND (EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou))
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
RETURN .F.
CASE EMPTY(poRec.cont_nou) OR ISNULL(poRec.cont_nou)
AMESSAGEBOX('Completati contul nou',0+48,'Atentie')
THIS.clb_contnou.teXT_SIMPLU1.SetFocus()
RETURN .F.
CASE EMPTY(poRec.explicatie) OR ISNULL(poRec.explicatie)
AMESSAGEBOX('Completati explicatia',0+48,'Atentie')
THIS.clb_explicatie.teXT_SIMPLU1.SetFocus()
RETURN .F.
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.Init
DO CASE
CASE porec.tip_sold = "A"
this.Value = "A"
CASE porec.tip_sold = "P"
this.Value = "P"
CASE porec.tip_sold = "B"
this.Value = "B"
OTHERWISE
**nada..
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.LostFocus
DO CASE
CASE this.Value = "Activ"
porec.tip_sold = "A"
CASE this.Value = "Pasiv"
porec.tip_sold = "P"
CASE this.Value = "Bifunctional"
porec.tip_sold = "B"
ENDCASE
ENDPROC
PROCEDURE clb_tipcont._CBBASE1.Valid
DO CASE
CASE this.Value = "A"
porec.tip_sold = "A"
CASE this.Value = "P"
porec.tip_sold = "P"
CASE this.Value = "B"
porec.tip_sold = "B"
ENDCASE
ENDPROC
ENDDEFINE

1610
Clase/odebcred.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

9634
Clase/ointroduceri_cont.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

513
Clase/orapoarte_contabilitate.vc2 Normal file
View File

@@ -0,0 +1,513 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_contabilitate.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_date_rap_balpart_temp AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="ed_explicatii_filtru" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_reset2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_start_criterii1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
DoCreate = .T.
Height = 302
Name = "frm_date_rap_balpart_temp"
Width = 562
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 564
_shape2.Height = 29
_shape2.Left = 439
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 125
Lb_titlu_alb_b121.Caption = "RAPORT BAZAT PE BALANTE PARTENERI"
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
BUT_TERMIN1.Left = 533
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.Top = 1
Gridsort1.Name = "Gridsort1"
*</PropValue>
ADD OBJECT '_label1' AS _label WITH ;
Caption = "Alegeti criteriile de cautare (butonul binoclu) si apasati pe butonul Export XLS", ;
Left = 15, ;
Name = "_label1", ;
Top = 39
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'But_excel1' AS but_excel WITH ;
Anchor = 9, ;
Left = 503, ;
Name = "But_excel1", ;
TabIndex = 6, ;
Top = 1, ;
ZOrderSet = 6
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_reset2' AS but_reset WITH ;
Anchor = 9, ;
caction = do_reset_filtru, ;
Left = 443, ;
Name = "But_reset2", ;
TabIndex = 9, ;
ToolTipText = "Reseteaza filtru", ;
Top = 1, ;
ZOrderSet = 14
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_start_criterii1' AS but_start_criterii WITH ;
Anchor = 9, ;
lcautare = .F., ;
Left = 473, ;
Name = "But_start_criterii1", ;
TabIndex = 13, ;
Top = 1, ;
ZOrderSet = 15
*< END OBJECT: ClassLib="..\comun\clase\ocriterii.vcx" BaseClass="commandbutton" />
ADD OBJECT 'ed_explicatii_filtru' AS _editbox WITH ;
Anchor = 13, ;
ControlSource = "Thisform.filtru_pretty_ro", ;
Height = 228, ;
Left = 12, ;
Name = "ed_explicatii_filtru", ;
ReadOnly = .T., ;
TabIndex = 12, ;
Top = 60, ;
Width = 540, ;
ZOrderSet = 12
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="editbox" />
PROCEDURE do_excel
Local lcFileName,lcSql,lcCursor, lcCursorExport, lnSucces, lcFiltruPerioada, lcCondSoldInitial
lcFileName = ""
lcCursor = [crsRaport]
lcCursorExport = [crsExport]
If Used(lcCursor)
Use In (lcCursor)
Endif
lcFiltru = [AND ] + Thisform.filtru_pretty + [ AND]
lnPozitie = 1
lcFiltruPerioada = []
Do While .T.
lcElement = Strextract(lcFiltru,[AND],[AND],lnPozitie)
If Empty(lcElement)
Exit
Endif
If Upper(Substr(Alltrim(lcElement),1,10)) = [AN*12+LUNA]
lcFiltruPerioada = lcFiltruPerioada + [ AND ] + lcElement
Endif
lnPozitie = lnPozitie + 1
ENDDO
IF EMPTY(m.lcFiltruPerioada)
AMESSAGEBOX('Completati perioada de raportare!',0+48,_screen.Caption)
RETURN
ENDIF
lcFiltruPerioada = Substr(lcFiltruPerioada,5)
lcSql = [select pivot_gen.build_sql_complex2('VRAPOARTE_BALPART',] + ;
['GROUPING_ID(CONT,ACONT,DENUMIRE,COD_FISCAL) AS GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
['SUM(debit) as Rulaj_debitor,SUM(credit) as Rulaj_creditor,SUM(soldluna) as Diferenta_rulaje',] + ;
['LUNAAN',] + ;
['ANLUNA',] + ;
['soldinit',] + ;
['Sold_initial',] + ;
['debit|credit|soldluna|soldfinal|',] + ;
['Rulaj_debitor|Rulaj_creditor|Diferenta_rulaje|Sold_final',] + ;
[null,] + ;
[null,] + ;
['] + lcFiltruPerioada + [',] + ;
['SUM',] + ;
['0',] + ;
['1=2',] + ;
[0,] + ;
['ROLLUP(CONT,ACONT,(DENUMIRE,COD_FISCAL)) ',] + ;
['CONT,ACONT,GID,CONT,ACONT,DENUMIRE,COD_FISCAL',] + ;
['|') as sir_sql from dual]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
amessagebox(goExecutor.cEroare,16,"Atentie")
Return
Else
If Reccount(lcCursor) > 0
Select (lcCursor)
lcSql = Alltrim(sir_sql)
Endif
Use In (lcCursor)
Endif
lcSql = Strtran(lcSql,[WHERE 1=2],Iif(!Empty(Thisform.filtru_pretty),[WHERE ] + Thisform.filtru_pretty + gcCondSucursala,;
[] + Substr(gcCondSucursala,5)))
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
If lnSucces < 0
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
Return
Endif
If Used(lcCursor) And Reccount(lcCursor)<>0
If Used(lcCursorExport)
Use In (lcCursorExport)
Endif
Dimension aColoane[1]
lcSelect = [SELECT Iif(gid<>0,'TOTAL',Space(5)) As explicatie]
Afields(aColoane,lcCursor)
lcColoaneFiltru = []
lnOptiune = aMessagebox("Doriti ca raportul sa includa si partenerii cu sold initial 0 si fara rulaje in perioada?",4+32,"Confirmare")
For i = 1 To Alen(aColoane,1)
If Upper(Alltrim(aColoane[i,1])) <> 'GID'
lcNumeColoana = Upper(Alltrim(aColoane[i,1]))
lcSelect = lcSelect + [,] + Iif(aColoane[i,2] = 'T', [TTOD(] + lcNumeColoana + [) as ] + ;
lcNumeColoana, lcNumeColoana)
If Between(i,6,9) And lnOptiune = 7
lcColoaneFiltru = lcColoaneFiltru + [ or ] + lcNumeColoana + [ <> 0]
Endif
Endif
Endfor
If !Empty(lcColoaneFiltru)
lcSelect = lcSelect + [ From ] + lcCursor + [ where gid=0 and (] + Substr(lcColoaneFiltru,4) + [) Into Cursor ] + lcCursorExport
Else
lcSelect = lcSelect + [ From ] + lcCursor + [ Into Cursor ] + lcCursorExport
Endif
&lcSelect
Endif
If Used(lcCursor)
Use In (lcCursor)
Endif
If Used(lcCursorExport)
lcFileName = strtranx([Raport bazat pe balante parteneri], "([^a-zA-Z0-9])", [_] )
export_xls(lcCursorExport, lcFileName)
Use In (lcCursorExport)
Else
amessagebox("Nu exista rezultate pentru export in Excel!",0+48,"Atentie")
Endif
ENDPROC
PROCEDURE But_start_criterii1.initform
Lparameters tlShowForm
DoDefault(tlShowForm)
Thisform.ed_explicatii_filtru.Refresh()
This.SetFocus()
ENDPROC
PROCEDURE But_start_criterii1.loadcriterii
Parameters tacriterii
External Array tacriterii
#Define crlf Chr(13)+Chr(10)
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
"Cont\cont\C\none\" + crlf + ;
"Analitic\acont\C\none\" + crlf + ;
"Perioada\an*12+luna\D1\none\"
DoDefault()
ENDPROC
ENDDEFINE
DEFINE CLASS frm_date_rapoarte_balpart AS frm_date_rapoarte_gen OF "..\comun\clase\orapoarte.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_debit" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldinit" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldluna" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cod_fiscal" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_denumire" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_credit" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_acont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_cont" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_anluna" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_soldfinal" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 1
ctitluraportinitial = Rapoarte bazate pe balante parteneri
DoCreate = .T.
Height = 572
Name = "frm_date_rapoarte_balpart"
nidformularraport = 3
Width = 696
_memberdata = <VFPData>
<memberdata name="craport" type="property" display="cRaport" favorites="True"/>
<memberdata name="lreadonly" type="property" display="lReadOnly" favorites="True"/>
</VFPData>
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 696
_shape1.ZOrderSet = 2
_shape2.Height = 29
_shape2.Left = 604
_shape2.Name = "_shape2"
_shape2.Top = 0
_shape2.Width = 90
_shape2.ZOrderSet = 3
Lb_titlu_alb_b121.FontBold = .T.
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 14
Lb_titlu_alb_b121.ZOrderSet = 4
GRIDSORT1.Left = 480
GRIDSORT1.Name = "GRIDSORT1"
GRIDSORT1.Top = 36
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 9
BUT_TERMIN1.ZOrderSet = 5
But_listare1.Name = "But_listare1"
But_listare1.TabIndex = 8
But_excel1.Name = "But_excel1"
But_excel1.TabIndex = 7
But_excel1.Visible = .T.
But_help1.Name = "But_help1"
But_help1.TabIndex = 2
But_cautare1.Name = "But_cautare1"
But_cautare1.TabIndex = 4
But_nou1.Name = "But_nou1"
But_nou1.TabIndex = 3
But_sterge1.Name = "But_sterge1"
But_sterge1.TabIndex = 6
Ct_selectie1.cnumetabela = vrapoarte_balpart
Ct_selectie1.Ct_grupare1.Height = 187
Ct_selectie1.Ct_grupare1.lblAtentie.Name = "lblAtentie"
Ct_selectie1.Ct_grupare1.lb_grupare.Name = "lb_grupare"
Ct_selectie1.Ct_grupare1.Left = 6
Ct_selectie1.Ct_grupare1.Name = "Ct_grupare1"
Ct_selectie1.Ct_grupare1.TabIndex = 9
Ct_selectie1.Ct_grupare1.Top = 331
Ct_selectie1.Ct_grupare1.Width = 360
Ct_selectie1.Ct_grupare1.ZOrderSet = 11
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_jos1.Name = "But_jos1"
Ct_selectie1.Ct_grupare1._scrollcontainer1.But_sus1.Name = "But_sus1"
Ct_selectie1.Ct_grupare1._scrollcontainer1.Name = "_scrollcontainer1"
Ct_selectie1.Ct_ordonare1.Height = 176
Ct_selectie1.Ct_ordonare1.lb_ordonare.Name = "lb_ordonare"
Ct_selectie1.Ct_ordonare1.Left = 6
Ct_selectie1.Ct_ordonare1.Name = "Ct_ordonare1"
Ct_selectie1.Ct_ordonare1.TabIndex = 10
Ct_selectie1.Ct_ordonare1.Top = 156
Ct_selectie1.Ct_ordonare1.Width = 360
Ct_selectie1.Ct_ordonare1.ZOrderSet = 12
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_jos1.Name = "But_jos1"
Ct_selectie1.Ct_ordonare1._scrollcontainer1.But_sus1.Name = "But_sus1"
Ct_selectie1.Ct_ordonare1._scrollcontainer1.Name = "_scrollcontainer1"
Ct_selectie1.Height = 527
Ct_selectie1.lb_coloane.Name = "lb_coloane"
Ct_selectie1.lb_coloane.TabIndex = 11
Ct_selectie1.lb_coloane.ZOrderSet = 13
Ct_selectie1.Left = 12
Ct_selectie1.ltitlucoloanesuma = .T.
Ct_selectie1.Name = "Ct_selectie1"
Ct_selectie1.TabIndex = 1
Ct_selectie1.Top = 36
Ct_selectie1.Width = 372
ed_explicatii_filtru.Height = 500
ed_explicatii_filtru.Left = 396
ed_explicatii_filtru.Name = "ed_explicatii_filtru"
ed_explicatii_filtru.TabIndex = 11
ed_explicatii_filtru.Top = 63
ed_explicatii_filtru.Width = 288
But_salveaza1.lvizibil = .F.
But_salveaza1.Name = "But_salveaza1"
But_salveaza1.TabIndex = 5
But_reset2.Name = "But_reset2"
But_reset2.TabIndex = 10
LB_RAPORT_PREDEFINIT.Name = "LB_RAPORT_PREDEFINIT"
LB_RAPORT_PREDEFINIT.TabIndex = 13
But_start_criterii1.Name = "But_start_criterii1"
But_start_criterii1.TabIndex = 12
*</PropValue>
ADD OBJECT 'Ct_selectie1.Ct_selectie_acont' AS ct_selectie_camp WITH ;
ccamp = acont, ;
cnumecamp = Analitic, ;
Left = 2, ;
Name = "Ct_selectie_acont", ;
nid_container = 4, ;
TabIndex = 4, ;
Top = 56, ;
ZOrderSet = 9, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Analitic", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_anluna' AS ct_selectie_camp WITH ;
ccamp = anluna, ;
cidcamp = lunaan, ;
cnumecamp = Luna, ;
Height = 19, ;
Left = 2, ;
Name = "Ct_selectie_anluna", ;
nid_container = 5, ;
TabIndex = 5, ;
Top = 71, ;
Width = 140, ;
ZOrderSet = 20, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Luna", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cod_fiscal' AS ct_selectie_camp WITH ;
ccamp = cod_fiscal, ;
cnumecamp = Cod fiscal, ;
Left = 2, ;
Name = "Ct_selectie_cod_fiscal", ;
nid_container = 2, ;
TabIndex = 2, ;
Top = 28, ;
ZOrderSet = 5, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Cod fiscal", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_cont' AS ct_selectie_camp WITH ;
ccamp = cont, ;
cnumecamp = Cont, ;
Height = 19, ;
Left = 2, ;
Name = "Ct_selectie_cont", ;
nid_container = 3, ;
TabIndex = 3, ;
Top = 42, ;
Width = 131, ;
ZOrderSet = 10, ;
ck_camp.Alignment = 0, ;
ck_camp.AutoSize = .T., ;
ck_camp.Caption = "Cont", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_credit' AS ct_selectie_camp WITH ;
ccamp = credit, ;
cnumecamp = Rulaj creditor, ;
Height = 19, ;
Left = 101, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_credit", ;
nid_container = 8, ;
TabIndex = 7, ;
Top = 42, ;
Width = 140, ;
ZOrderSet = 30, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Rulaj creditor", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_debit' AS ct_selectie_camp WITH ;
ccamp = debit, ;
cnumecamp = Rulaj debitor, ;
Height = 19, ;
Left = 101, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_debit", ;
nid_container = 7, ;
TabIndex = 6, ;
Top = 28, ;
Width = 140, ;
ZOrderSet = 0, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Rulaj debitor", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_denumire' AS ct_selectie_camp WITH ;
ccamp = denumire, ;
cnumecamp = Denumire, ;
Left = 2, ;
Name = "Ct_selectie_denumire", ;
nid_container = 1, ;
TabIndex = 1, ;
Top = 14, ;
ZOrderSet = 6, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Denumire", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldfinal' AS ct_selectie_camp WITH ;
ccamp = soldfinal, ;
cnumecamp = Sold final, ;
Height = 19, ;
Left = 101, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_soldfinal", ;
nid_container = 10, ;
TabIndex = 8, ;
Top = 71, ;
Width = 140, ;
ZOrderSet = 29, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Sold final", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldinit' AS ct_selectie_camp WITH ;
ccamp = soldinit, ;
cnumecamp = Sold initial, ;
Height = 19, ;
Left = 101, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_soldinit", ;
nid_container = 6, ;
TabIndex = 5, ;
Top = 14, ;
Width = 140, ;
ZOrderSet = 20, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Sold initial", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
ADD OBJECT 'Ct_selectie1.Ct_selectie_soldluna' AS ct_selectie_camp WITH ;
ccamp = soldluna, ;
cnumecamp = Diferenta rulaje, ;
Height = 19, ;
Left = 101, ;
lgrupare = .F., ;
lordine = .F., ;
lsuma = .T., ;
Name = "Ct_selectie_soldluna", ;
nid_container = 9, ;
TabIndex = 8, ;
Top = 56, ;
Width = 140, ;
ZOrderSet = 29, ;
ck_camp.Alignment = 0, ;
ck_camp.Caption = "Diferenta rulaje", ;
ck_camp.Name = "ck_camp"
*< END OBJECT: ClassLib="..\comun\clase\orapoarte.vcx" BaseClass="container" />
PROCEDURE But_start_criterii1.loadcriterii
Parameters tacriterii
External Array tacriterii
#Define crlf Chr(13)+Chr(10)
lcStringCriterii="Denumire\denumire\T\ID_PART\nom_parteneri" + crlf + ;
"Cod fiscal\cod_fiscal\C\none\" + crlf + ;
"Cont\cont\C\none\" + crlf + ;
"Analitic\acont\C\none\"
DoDefault()
ENDPROC
ENDDEFINE

2249
Clase/osit_op.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1130
Clase/oteste.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

55154
Clase/ovanzcump.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1034
Clase/penalitati.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

337
Clase/saft_d406.vc2 Normal file
View File

@@ -0,0 +1,337 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="saft_d406.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_saft_d406 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="pgfSAFT" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgfSAFT.Page1.cboTip" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgfSAFT.Page1._label1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgfSAFT.Page1.cmdCitesteDate" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgfSAFT.Page2.pgfMaster" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: ccaen
*p: ccalintoc
*p: cfpropr
*p: cjudet
*p: ctip
*p: oparent
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
ccaen =
ccalintoc =
cfpropr =
cjudet =
ctip =
DoCreate = .T.
Height = 465
Name = "frm_saft_d406"
oparent = .NULL.
Width = 789
WindowState = 2
_memberdata = <VFPData>
<memberdata name="oparent" display="oParent"/>
</VFPData>
_shape1.Anchor = 10
_shape1.Height = 29
_shape1.Left = 0
_shape1.Name = "_shape1"
_shape1.Top = 0
_shape1.Width = 790
_shape1.ZOrderSet = 1
_shape2.Height = 29
_shape2.Left = 758
_shape2.Name = "_shape2"
_shape2.Top = -1
_shape2.Width = 37
_shape2.ZOrderSet = 2
Lb_titlu_alb_b121.Caption = "SAFT D406"
Lb_titlu_alb_b121.FontSize = 11
Lb_titlu_alb_b121.Left = 4
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
Lb_titlu_alb_b121.TabIndex = 3
Lb_titlu_alb_b121.Top = 6
Lb_titlu_alb_b121.ZOrderSet = 3
BUT_TERMIN1.Anchor = 9
BUT_TERMIN1.Left = 758
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 1
BUT_TERMIN1.Top = 1
BUT_TERMIN1.ZOrderSet = 4
Gridsort1.Left = 216
Gridsort1.Name = "Gridsort1"
Gridsort1.Top = 8
*</PropValue>
ADD OBJECT 'pgfSAFT' AS _pageframe WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 440, ;
Left = 0, ;
Name = "pgfSAFT", ;
PageCount = 4, ;
TabIndex = 2, ;
Top = 27, ;
Width = 790, ;
Page1.Caption = "Antet", ;
Page1.Name = "Page1", ;
Page2.Caption = "Fisiere Master", ;
Page2.Name = "Page2", ;
Page3.Caption = "Inregistrari contabile", ;
Page3.Name = "Page3", ;
Page4.Caption = "Documente sursa", ;
Page4.Name = "pgDocumenteSursa"
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'pgfSAFT.Page1._label1' AS _label WITH ;
Caption = "Tip platitor", ;
Left = 8, ;
Name = "_label1", ;
TabIndex = 24, ;
Top = 5, ;
ZOrderSet = 9
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />
ADD OBJECT 'pgfSAFT.Page1.cboTip' AS combobox WITH ;
ControlSource = "poUnitate.tip", ;
Left = 8, ;
Name = "cboTip", ;
RowSource = "LUNAR,TRIMESTRIAL,SEMESTRIAL,ANUAL", ;
RowSourceType = 1, ;
Style = 2, ;
TabIndex = 1, ;
Top = 21, ;
Value = LUNAR, ;
Width = 173, ;
ZOrderSet = 5
*< END OBJECT: BaseClass="combobox" />
ADD OBJECT 'pgfSAFT.Page1.cmdCitesteDate' AS cmd_executa WITH ;
Anchor = 9, ;
AutoSize = .F., ;
BackColor = 113,184,255, ;
caction = do_citeste_date, ;
Caption = "Genereaza XML", ;
Height = 29, ;
Left = 587, ;
Name = "cmdCitesteDate", ;
TabIndex = 5, ;
Top = 3, ;
Width = 112, ;
ZOrderSet = 11
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'pgfSAFT.Page2.pgfMaster' AS _pageframe WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 408, ;
Left = 0, ;
Name = "pgfMaster", ;
PageCount = 11, ;
Top = 0, ;
Width = 787, ;
Page1.Caption = "Conturi contabile", ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page2.Caption = "Clienti", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 2, ;
Page3.Caption = "Taxe", ;
Page3.Name = "pgTaxe", ;
Page3.PageOrder = 4, ;
Page4.Caption = "Unitati de Masura", ;
Page4.Name = "pgUOM", ;
Page4.PageOrder = 5, ;
Page5.Caption = "Tipuri Analiza", ;
Page5.Name = "pgTipAnalize", ;
Page5.PageOrder = 6, ;
Page6.Caption = "Tipuri Miscari", ;
Page6.Name = "pgTipMiscari", ;
Page6.PageOrder = 7, ;
Page7.Caption = "Produse", ;
Page7.Name = "pgProduse", ;
Page7.PageOrder = 8, ;
Page8.Caption = "Stocuri", ;
Page8.Name = "pgStocuri", ;
Page8.PageOrder = 9, ;
Page9.Caption = "Proprietari", ;
Page9.Name = "pgProprietari", ;
Page9.PageOrder = 10, ;
Page10.Caption = "Furnizori", ;
Page10.Name = "pgFurnizori", ;
Page10.PageOrder = 3, ;
Page11.Caption = "Active", ;
Page11.Name = "pgActive", ;
Page11.PageOrder = 11
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
ADD OBJECT 'pgfSAFT.pgDocumenteSursa.pgfDocumenteSursa' AS _pageframe WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 408, ;
Left = 2, ;
Name = "pgfDocumenteSursa", ;
PageCount = 5, ;
Top = -1, ;
Width = 787, ;
Page1.Caption = "Facturi vanzare", ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page2.Caption = "Facturi achizitie", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 2, ;
Page3.Caption = "Miscari bunuri", ;
Page3.Name = "pgMiscariBunuri", ;
Page3.PageOrder = 4, ;
Page4.Caption = "Tranzactii cu active", ;
Page4.Name = "pgTranzactiiActive", ;
Page4.PageOrder = 5, ;
Page5.Caption = "Plati", ;
Page5.Name = "pgPlati", ;
Page5.PageOrder = 3
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />
PROCEDURE do_verifica
#Define CRLF Chr(13) + Chr(10)
Local loDate As "empty"
Local lcCodFiscal, lcDenumire, lcFilter, lcSelect, lcWhere, llAutoVerificare, llDontCloseCursor
Local llExperimental, llMFIN, llServiciuWebANAF, llValidare, llVerificarePlatitorTVA, lnOptiune
Local lnRaspuns, loPartener
lcSelect = Select()
Select crsJTVA
lcDenumire = Alltrim(Nvl(crsJTVA.denumire, ''))
lcCodFiscal = Alltrim(Nvl(crsJTVA.cod_fiscal, ''))
lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF')
If Empty(m.lnOptiune)
Return
Endif
* Pot sa fac verificarea pentru un singur nume si cu formularul pentru mai multi parteneri, dar arata mai dragut informatia intr-un messagebox pentru unul singur
If m.lnOptiune = 1 && un singur nume
loPartener = Null
loDate = Createobject("empty")
AddProperty(loDate, "denumire", m.lcDenumire)
AddProperty(loDate, "cod_fiscal", m.lcCodFiscal)
AddProperty(loDate, "tip_verificare", "ANAF_SERVICIU_WEB")
lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
Else
llDontCloseCursor = .F.
llExperimental = .F.
llVerificarePlatitorTVA = .F. && verific VIES pentru toti partenerii
llMFIN = .T. && verific MFIN pentru toata lumea
llValidare = .T. && verific algoritmul codurilor fiscale
llAutoVerificare = .T. && lanseaza verificarea automata la activate-ul formularului de verificare
llServiciuWebANAF = .T.
lcFilter = Filter("crsJTVA")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
From crsJTVA ;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;
Order By denumire, cod_fiscal ;
Readwrite
Local lcXMLParteneri
lcXMLParteneri = ""
Cursortoxml('crsCoduriFiscale', "lcXMLParteneri", 1, 0, 0, "1")
Do verificare_parteneri With m.lcXMLParteneri, m.llValidare, m.llMFIN, m.llVerificarePlatitorTVA, m.llAutoVerificare, m.llDontCloseCursor, m.llExperimental, m.llServiciuWebANAF
Endif && x = 1
ENDPROC
PROCEDURE Init
DODEFAULT()
this._pageframe1.page2.Enabled = .F.
this._pageframe1.page3.Enabled = .F.
this._pageframe1.page4.Enabled = .F.
this._pageframe1.page5.Enabled = .F.
this._pageframe1.page1.optPJIntocmit.Valid()
ENDPROC
PROCEDURE pgfSAFT.Page1.cmdCitesteDate.Click
SET STEP ON
TEXT TO lcXML TEXTMERGE NOSHOW
<?xml version="1.0" encoding="UTF-8"?>
<!--Sample XML file generated by XMLSpy v2021 rel. 3 (x64) (http://www.altova.com)-->
<nsSAFT:AuditFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:nsSAFT="mfp:anaf:dgti:d406t:declaratie:v1" xsi:schemaLocation="urn:StandardAuditFile-Taxation-Financial:RO Romanian_SAF-T_Financial_Schema_v_2.3.xsd">
<nsSAFT:Header>
<nsSAFT:AuditFileVersion>1.0</nsSAFT:AuditFileVersion>
<nsSAFT:AuditFileCountry>RO</nsSAFT:AuditFileCountry>
<nsSAFT:AuditFileRegion>RO-B</nsSAFT:AuditFileRegion>
<nsSAFT:AuditFileDateCreated><<gcDataora>></nsSAFT:AuditFileDateCreated>
<nsSAFT:SoftwareCompanyName><<gcFirma>></nsSAFT:SoftwareCompanyName>
<nsSAFT:SoftwareID>SAFT</nsSAFT:SoftwareID>
<nsSAFT:SoftwareVersion>2.4.10</nsSAFT:SoftwareVersion>
<nsSAFT:Company>
<nsSAFT:RegistrationNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:RegistrationNumber>
<nsSAFT:Name><<alltrim(poFirma.denumire)>></nsSAFT:Name>
<nsSAFT:Address>
<nsSAFT:StreetName><<alltrim(poFirma.strada)>></nsSAFT:StreetName>
<nsSAFT:Number><<alltrim(poFirma.numar)>></nsSAFT:Number>
<nsSAFT:AdditionalAddressDetail><<alltrim(poFirma.adresa)>></nsSAFT:AdditionalAddressDetail>
<nsSAFT:Building></nsSAFT:Building>
<nsSAFT:City><<alltrim(poFirma.localitate)>></nsSAFT:City>
<nsSAFT:PostalCode><<alltrim(poFirma.codpostal)>></nsSAFT:PostalCode>
<nsSAFT:Region>RO-B</nsSAFT:Region>
<nsSAFT:Country>RO</nsSAFT:Country>
<nsSAFT:AddressType>PostalAddress</nsSAFT:AddressType>
</nsSAFT:Address>
<nsSAFT:Contact>
<nsSAFT:ContactPerson>
<nsSAFT:Title><<alltrim(poResponsabil.functie)>></nsSAFT:Title>
<nsSAFT:FirstName><<alltrim(poResponsabil.prenume)>></nsSAFT:FirstName>
<nsSAFT:LastName><<alltrim(poResponsabil.nume)>></nsSAFT:LastName>
<nsSAFT:Salutation></nsSAFT:Salutation>
</nsSAFT:ContactPerson>
<nsSAFT:Telephone><<alltrim(poFirma.telefon)>></nsSAFT:Telephone>
<nsSAFT:Email><<alltrim(poFirma.email)>></nsSAFT:Email>
<nsSAFT:Website><<alltrim(poFirma.website)>></nsSAFT:Website>
</nsSAFT:Contact>
<nsSAFT:TaxRegistration>
<nsSAFT:TaxRegistrationNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:TaxRegistrationNumber>
<nsSAFT:TaxType>100010</nsSAFT:TaxType>
<nsSAFT:TaxNumber><<alltrim(poFirma.cod_fiscal)>></nsSAFT:TaxNumber>
<nsSAFT:TaxAuthority>ANAF</nsSAFT:TaxAuthority>
<nsSAFT:TaxVerificationDate>2021-07-03</nsSAFT:TaxVerificationDate>
</nsSAFT:TaxRegistration>
<nsSAFT:BankAccount>
<nsSAFT:IBANNumber><<alltrim(poFirma.cont_banca)>></nsSAFT:IBANNumber>
</nsSAFT:BankAccount>
</nsSAFT:Company>
<nsSAFT:DefaultCurrencyCode>RON</nsSAFT:DefaultCurrencyCode>
<nsSAFT:SelectionCriteria>
<nsSAFT:TaxReportingJurisdiction>Romania</nsSAFT:TaxReportingJurisdiction>
<nsSAFT:CompanyEntity><<gcFirma>></nsSAFT:CompanyEntity>
<nsSAFT:PeriodStart><<m.lnLunaI>></nsSAFT:PeriodStart>
<nsSAFT:PeriodStartYear><<m.lnAnI>></nsSAFT:PeriodStartYear>
<nsSAFT:PeriodEnd><<m.lnLunaF>></nsSAFT:PeriodEnd>
<nsSAFT:PeriodEndYear><<m.lnAnF>></nsSAFT:PeriodEndYear>
</nsSAFT:SelectionCriteria>
<nsSAFT:HeaderComment>Fara comentarii</nsSAFT:HeaderComment>
<nsSAFT:SegmentIndex>1</nsSAFT:SegmentIndex>
<nsSAFT:TotalSegmentsInsequence>1</nsSAFT:TotalSegmentsInsequence>
<nsSAFT:TaxAccountingBasis>A</nsSAFT:TaxAccountingBasis>
<nsSAFT:TaxEntity>Company</nsSAFT:TaxEntity>
</nsSAFT:Header>
</nsSAFT:AuditFile>
ENDTEXT
STRTOFILE(m.lcXML,PUTFILE('Fisier','saft_d406','xml'))
ENDPROC
ENDDEFINE