<cfcomponent extends="components.common.formObject">
	<cfset variables.idCapital=0>
	<cfset variables.idProject=0>
	<cfset variables.project="">
	<cfset variables.idCurrency=1>
	<cfset variables.currency="">
	<cfset variables.name="">
	<cfset variables.amount=0>
	<cfset variables.amountIn=0>
	<cfset variables.amountInSales=0>
	<cfset variables.amountOut=0>
	<cfset variables.amountOutProject=0>
	<cfset module.list.orderBy="name">
	
	<cffunction name="init" access="public" output="false">
		<cfset variables.idCapital=0>
		<cfset variables.idProject=0>
		<cfset variables.project="">
		<cfset variables.idCurrency=1>
		<cfset variables.currency="">
		<cfset variables.name="">
		<cfset variables.amount=0>
		<cfset variables.amountIn=0>
		<cfset variables.amountInSales=0>
		<cfset variables.amountOut=0>
		<cfset variables.amountOutProject=0>
	</cffunction>
	
	<cffunction name="getFormObjectId" access="public" output="false" returntype="numeric">
		<cfreturn getIdCapital()>
	</cffunction>
	
	<cffunction name="setFormObjectId" access="public" output="false">
		<cfargument name="objectId" type="numeric" required="yes">
		<cfset setIdCapital(arguments.objectId)>
	</cffunction>

	<cffunction name="setIdCapital" access="public" output="false">
		<cfargument name="idCapital" type="numeric" required="yes" default="0">
		<cfset variables.idCapital=arguments.idCapital>
	</cffunction>

	<cffunction name="getIdCapital" access="public" returntype="numeric" output="false">
		<cfreturn variables.idCapital>
	</cffunction>

	<cffunction name="setIdProject" access="public" output="false">
		<cfargument name="idProject" type="numeric" required="yes" default="0">
		<cfset variables.idProject=arguments.idProject>
	</cffunction>

	<cffunction name="getIdProject" access="public" returntype="numeric" output="false">
		<cfreturn variables.idProject>
	</cffunction>
	
	<cffunction name="getProject" access="public" returntype="components.corporate.project" output="false">
		<cfif not IsObject("variables.project")><cfset variables.project=CreateObject("component", "components.corporate.project")></cfif>
		<cfif (Compare(module.form.pageAction, "add") and not variables.project.isRetrievedFromDB()) or variables.project.getIdProject() neq variables.idProject>
			<cfset variables.project=CreateObject("component", "components.corporate.project")>
			<cfset variables.project.setIdProject(variables.idProject)>
			<cfset variables.project.get()>
		</cfif>
		<cfreturn variables.project>
	</cffunction>
	
	<cffunction name="setIdCurrency" access="public" output="false">
		<cfargument name="idCurrency" type="numeric" required="yes" default="0">
		<cfset variables.idCurrency=arguments.idCurrency>
	</cffunction>

	<cffunction name="getIdCurrency" access="public" returntype="numeric" output="false">
		<cfreturn variables.idCurrency>
	</cffunction>
	
	<cffunction name="getCurrency" access="remote" returntype="components.corporate.currency" output="false">
		<cfif not IsObject("variables.currency")><cfset variables.currency=CreateObject("component", "components.corporate.currency")></cfif>
		<cfif Compare(module.form.pageAction, "add") and not variables.currency.isRetrievedFromDB()>
			<cfset variables.currency=CreateObject("component", "components.corporate.currency")>
			<cfset variables.currency.setIdCurrency(variables.idCurrency)>
			<cfset variables.currency.get()>
		</cfif>
		<cfreturn variables.currency>
	</cffunction>

	<cffunction name="setName" access="public" output="false">
		<cfargument name="name" type="string" required="yes" default="">
		<cfset variables.name=arguments.name>
	</cffunction>

	<cffunction name="getName" access="public" returntype="string" output="false">
		<cfreturn variables.name>
	</cffunction>

	<cffunction name="setAmount" access="public" output="false">
		<cfargument name="amount" type="string" required="yes" default="">
		<cfset variables.amount=parseCurrency(arguments.amount)>
	</cffunction>

	<cffunction name="getAmount" access="public" returntype="numeric" output="false">
		<cfreturn parseCurrency(variables.amount)>
	</cffunction>

	<cffunction name="setAmountIn" access="public" output="false">
		<cfargument name="amountIn" type="string" required="yes" default="">
		<cfset variables.amountIn=parseCurrency(arguments.amountIn)>
	</cffunction>

	<cffunction name="getAmountIn" access="public" returntype="numeric" output="false">
		<cfreturn parseCurrency(variables.amountIn)>
	</cffunction>

	<cffunction name="setAmountInSales" access="public" output="false">
		<cfargument name="amountInSales" type="string" required="yes" default="">
		<cfset variables.amountInSales=parseCurrency(arguments.amountInSales)>
	</cffunction>

	<cffunction name="getAmountInSales" access="public" returntype="numeric" output="false">
		<cfreturn parseCurrency(variables.amountInSales)>
	</cffunction>

	<cffunction name="setAmountOut" access="public" output="false">
		<cfargument name="amountOut" type="string" required="yes" default="">
		<cfset variables.amountOut=parseCurrency(arguments.amountOut)>
	</cffunction>

	<cffunction name="getAmountOut" access="public" returntype="numeric" output="false">
		<cfreturn parseCurrency(variables.amountOut)>
	</cffunction>

	<cffunction name="setAmountOutProject" access="public" output="false">
		<cfargument name="amountOutProject" type="string" required="yes" default="">
		<cfset variables.amountOutProject=parseCurrency(arguments.amountOutProject)>
	</cffunction>

	<cffunction name="getAmountOutProject" access="public" returntype="numeric" output="false">
		<cfreturn parseCurrency(variables.amountOutProject)>
	</cffunction>

	<cffunction name="setVariablesFromQuery" access="private" output="false">
		<cfargument name="getQuery" type="query" required="yes">
		<cfif getQuery.recordcount gt 0>
			<cfset variables.idCapital=getQuery.idCapital>
			<cfif Len(getQuery.idProject)><cfset variables.idProject=getQuery.idProject><cfelse><cfset variables.idProject=0></cfif>
			<cfset variables.idCurrency=getQuery.idCurrency>
			<cfset variables.name=getQuery.name>
			<cfset variables.amount=getQuery.amount>
			<cfset variables.amountIn=getQuery.amountIn>
			<cfset variables.amountInSales=getQuery.amountInSales>
			<cfset variables.amountOut=getQuery.amountOut>
			<cfset variables.amountOutProject=getQuery.amountOutProject>
		</cfif>
	</cffunction>

	<cffunction name="get" access="public" output="false">
		<cfquery name="getQuery" datasource="#application.datasource#">
			SELECT 
				#getQueryString()#
			WHERE
				capital.idCapital=<cfqueryparam value="#variables.idCapital#" cfsqltype="cf_sql_integer">
		</cfquery>
		<cfif getQuery.recordcount gt 0>
			<cfset setVariablesFromQuery(getQuery)>
		</cfif>
		<cfset module.retrievedFromDB=true>
	</cffunction>

	<cffunction name="getList" access="public" output="false" returntype="query">
		<cfargument name="orderBy" required="no" type="string" default="">
		<cfquery name="getListQuery" datasource="#application.datasource#">
			SELECT 
				#getQueryString()#
			ORDER BY <cfif Len(arguments.orderBy)>#URLDecode(arguments.orderBy)#<cfelse>#URLDecode(module.list.orderBy)#</cfif>
		</cfquery>
		<cfreturn getListQuery>
	</cffunction>
	
	<cffunction name="getQueryString" access="private" output="false" returntype="string">
		<cfset var result="
				capital.idCapital,
				capital.idProject, project.name AS project,
				capital.idCurrency, currency.name AS currency,
				capital.name,
				capital.amount,
				capital.amountIn,
				capital.amountInSales,
				capital.amountOut,
				capital.amountOutProject
			FROM 
				capital
			LEFT JOIN project ON capital.idProject=project.idProject
			LEFT JOIN currency ON capital.idCurrency=currency.idCurrency
			">
		<cfreturn result>
	</cffunction>

	<cffunction name="createOptions" access="public" returntype="numeric" output="true">
		<cfargument name="selected" required="yes" type="numeric" default="0">
		<cfset var list=getList("capital.name")>
		<cfset var result=0>
		<cfif list.idCapital gt 0><cfset result=list.idCapital></cfif>
		<cfloop query="list">
			<cfif list.idCapital eq arguments.selected><cfset _selected=" selected"><cfset result=list.idCapital><cfelse><cfset _selected=""></cfif>
			<cfoutput><option value="#list.idCapital#"#_selected#>#list.name#</option></cfoutput>
		</cfloop>
		<cfreturn result>
	</cffunction>
	
	<cffunction name="getId" access="public" returntype="struct" output="false">
		<cfset var result=StructNew()>
		<cfset result.id=0>
		<cfset result.message="">
		<cfquery name="getIdQuery" datasource="#application.datasource#">
			SELECT 
				idCapital 
			FROM 
				capital 
			WHERE 
				1=1
				<cfif variables.idProject gt 0>
					AND idProject=<cfqueryparam value="#variables.idProject#" cfsqltype="cf_sql_integer">
				<cfelse>
					AND name=<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">
					AND idProject IS NULL
				</cfif>
				<cfif variables.idCapital gt 0>
				AND idCapital != <cfqueryparam value="#variables.idCapital#" cfsqltype="cf_sql_integer">
				</cfif>
		</cfquery>
		<cfif getIdQuery.recordcount gt 0>
			<cfset result.id=getIdQuery.idCapital>
		</cfif>
		<cfreturn result>
	</cffunction>
	
	<cffunction name="create" access="public" returntype="struct" output="false">
		<cfset var result=StructNew()>
		<cfset result.id=0>
		<cfset result.message="">
		<!--- check parameters --->
		<cfif not Len(variables.name) and variables.idProject lt 1>
			<cfset result.message="Nombre es un campo obligatorio">
			<cfreturn result>
		</cfif>
		<cfset result=getId()>
		<cfif result.id gt 0>
			<cfset result.message="Capital con esos datos ya existe">
			<cfreturn result>
		</cfif>
		<!--- variables ok --->
		<cfif variables.idProject gt 0>
			<cfset variables.name=getProject().getName()>
		</cfif>
		<cftry>
			<cfquery name="createQuery" datasource="#application.datasource#">
				INSERT INTO capital
					(
					idCapital, 
					idProject, 
					idCurrency, 
					name
					) 
				VALUES 
					(
					<cfqueryparam value="#variables.idCapital#" cfsqltype="cf_sql_integer">, 
					<cfif variables.idProject gt 0><cfqueryparam value="#variables.idProject#" cfsqltype="cf_sql_integer"><cfelse>NULL</cfif>, 
					<cfqueryparam value="#variables.idCurrency#" cfsqltype="cf_sql_integer">, 
					<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">
					)
			</cfquery>
			<cfset result=getId()>
			<cfset variables.idCapital=result.id>
			<!--- crear el participante de movimientos --->
			<cfset createCapitalParticipant()>
			<!--- catch any error --->
			<cfcatch type="any">
				<cfset result.id=-1>
				<cfset result.message="Error [capital.create()]: " & cfcatch.Message & "<br>Details: " & cfcatch.Detail>
			</cfcatch>
		</cftry>
		<cfreturn result>
	</cffunction>

	<cffunction name="createCapitalParticipant" access="private" output="false">
		<cfset var _capitalParticipant=CreateObject("component", "components.corporate.capitalParticipant")>
		<cfset _capitalParticipant.setIdCapital(variables.idCapital)>
		<cfset _capitalParticipant.create()>
	</cffunction>

	<cffunction name="update" access="public" returntype="struct" output="false">
		<cfset var result=StructNew()>
		<cfset result.id=0>
		<cfset result.message="">
		<!--- check parameters --->
		<cfif not Len(variables.name) and variables.idProject lt 1>
			<cfset result.message="Nombre es un campo obligatorio">
			<cfreturn result>
		</cfif>
		<cfset result=getId()>
		<cfif result.id gt 0>
			<cfset result.message="Capital con esos datos ya existe">
			<cfreturn result>
		</cfif>
		<!--- variables ok --->
		<cfif variables.idProject gt 0>
			<cfset variables.name=getProject().getName()>
		</cfif>
		<cftry>
			<cfquery name="updateQuery" datasource="#application.datasource#">
				UPDATE capital
				SET 
					idProject=<cfif variables.idProject gt 0><cfqueryparam value="#variables.idProject#" cfsqltype="cf_sql_integer"><cfelse>NULL</cfif>, 
					idCurrency=<cfqueryparam value="#variables.idCurrency#" cfsqltype="cf_sql_integer">,
					name=<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">,
					amount=<cfqueryparam value="#parseCurrency(variables.amount)#" cfsqltype="cf_sql_double">,
					amountIn=<cfqueryparam value="#parseCurrency(variables.amountIn)#" cfsqltype="cf_sql_double">,
					amountInSales=<cfqueryparam value="#parseCurrency(variables.amountInSales)#" cfsqltype="cf_sql_double">,
					amountOut=<cfqueryparam value="#parseCurrency(variables.amountOut)#" cfsqltype="cf_sql_double">,
					amountOutProject=<cfqueryparam value="#parseCurrency(variables.amountOutProject)#" cfsqltype="cf_sql_double">
				WHERE 
					idCapital=<cfqueryparam value="#variables.idCapital#" cfsqltype="cf_sql_integer">
			</cfquery>
			<cfset result.id=variables.idCapital>
			<!--- catch any error --->
			<cfcatch type="any">
				<cfset result.id=-1>
				<cfset result.message="Error [capital.update()]: " & cfcatch.Message & "<br>Details: " & cfcatch.Detail>
			</cfcatch>
		</cftry>
		<cfreturn result>
	</cffunction>

	<cffunction name="delete" access="public" returntype="struct" output="false">
		<cfset var result=StructNew()>
		<cfset result.id=0>
		<cfset result.message="">
		<!--- check parameters --->
		<cftry>
			<cfquery name="deleteQuery" datasource="#application.datasource#">
				DELETE FROM capital
				WHERE 
					idCapital=<cfqueryparam value="#variables.idCapital#" cfsqltype="cf_sql_integer">
			</cfquery>
			<cfset result.id=0>
			<cfset init()>
			<!--- catch any error --->
			<cfcatch type="any">
				<cfset result.id=-1>
				<cfset result.message="Error [capital.delete()]: " & cfcatch.Message & "<br>Details: " & cfcatch.Detail>
			</cfcatch>
		</cftry>
		<cfreturn result>
	</cffunction>
</cfcomponent>