<cfcomponent extends="components.common.formObject">
	<cfset variables.idCompany=0>
	<cfset variables.idServerFile=0>
	<cfset variables.serverFile="">
	<cfset variables.name="">
	<cfset variables.companyData="">
	<cfset module.list.orderBy="name">
	
	<cffunction name="init" access="public" output="false">
		<cfset variables.idCompany=0>
		<cfset variables.idServerFile=0>
		<cfset variables.serverFile="">
		<cfset variables.name="">
		<cfset variables.companyData="">
	</cffunction>
	
	<cffunction name="getFormObjectId" access="public" output="false" returntype="numeric">
		<cfreturn getIdCompany()>
	</cffunction>
	
	<cffunction name="setFormObjectId" access="public" output="false">
		<cfargument name="objectId" type="numeric" required="yes">
		<cfset setIdCompany(arguments.objectId)>
	</cffunction>

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

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

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

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

	<cffunction name="getServerFile" access="public" returntype="components.corporate.serverFile" output="false">
		<cfif not IsObject("variables.serverFile")><cfset variables.serverFile=CreateObject("component", "components.corporate.serverFile")></cfif>
		<cfif (Compare(module.form.pageAction, "add") and not variables.serverFile.isRetrievedFromDB()) or variables.serverFile.getIdServerFile() neq variables.idServerFile>
			<cfset variables.serverFile=CreateObject("component", "components.corporate.serverFile")>
			<cfset variables.serverFile.setIdServerFile(variables.idServerFile)>
			<cfset variables.serverFile.get()>
		</cfif>
		<cfreturn variables.serverFile>
	</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="getCompanyData" access="public" returntype="components.corporate.companyData" output="false">
		<cfif not IsObject("variables.companyData")><cfset variables.companyData=CreateObject("component", "components.corporate.companyData")></cfif>
		<cfif (Compare(module.form.pageAction, "add") and not variables.companyData.isRetrievedFromDB()) or variables.companyData.getIdCompanyData() neq variables.idCompanyData>
			<cfset variables.companyData=CreateObject("component", "components.corporate.companyData")>
			<cfset variables.companyData.setIdCompanyData(variables.idCompanyData)>
			<cfset variables.companyData.get()>
		</cfif>
		<cfreturn variables.companyData>
	</cffunction>

	<cffunction name="setVariablesFromQuery" access="private" output="false">
		<cfargument name="getQuery" type="query" required="yes">
		<cfif getQuery.recordcount gt 0>
			<cfset variables.idCompany=getQuery.idCompany>
			<cfif Len(getQuery.idServerFile)><cfset variables.idServerFile=getQuery.idServerFile><cfelse><cfset variables.idServerFile=0></cfif>
			<cfset variables.name=getQuery.name>
		</cfif>
	</cffunction>

	<cffunction name="get" access="public" output="false">
		<cfquery name="getQuery" datasource="#application.datasource#">
			SELECT 
				#getQueryString()#
			WHERE
				company.idCompany=<cfqueryparam value="#variables.idCompany#" 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="
				company.idCompany,
				company.idServerFile, serverFile.serverFileName AS serverFile,
				company.name
			FROM 
				company
			LEFT JOIN serverFile ON company.idServerFile=serverFile.idServerFile
			">
		<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("company.name")>
		<cfset var result=0>
		<cfif list.idCompany gt 0><cfset result=list.idCompany></cfif>
		<cfloop query="list">
			<cfif list.idCompany eq arguments.selected><cfset _selected=" selected"><cfset result=list.idCompany><cfelse><cfset _selected=""></cfif>
			<cfoutput><option value="#list.idCompany#"#_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 
				idCompany 
			FROM 
				company 
			WHERE 
				name=<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">
				<cfif variables.idCompany gt 0>
				AND idCompany != <cfqueryparam value="#variables.idCompany#" cfsqltype="cf_sql_integer">
				</cfif>
		</cfquery>
		<cfif getIdQuery.recordcount gt 0>
			<cfset result.id=getIdQuery.idCompany>
		</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)>
			<cfset result.message="Nombre de la empresa es un campo obligatorio">
			<cfreturn result>
		</cfif>
		<cfset result=getId()>
		<cfif result.id gt 0>
			<cfset result.message="Empresa con ese nombre ya existe">
			<cfreturn result>
		</cfif>
		<!--- variables ok --->
		<cftry>
			<cfquery name="createQuery" datasource="#application.datasource#">
				INSERT INTO company
					(
					idCompany, idServerFile, name
					) 
				VALUES 
					(
					<cfqueryparam value="#variables.idCompany#" cfsqltype="cf_sql_integer">, 
					<cfif variables.idServerFile gt 0><cfqueryparam value="#variables.idServerFile#" cfsqltype="cf_sql_integer"><cfelse>NULL</cfif>, 
					<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">
					)
			</cfquery>
			<cfset result=getId()>
			<cfset variables.idCompany=result.id>
			<!--- catch any error --->
			<cfcatch type="any">
				<cfset result.id=-1>
				<cfset result.message="Error [company.create()]: " & cfcatch.Message & "<br>Details: " & cfcatch.Detail>
			</cfcatch>
		</cftry>
		<cfreturn result>
	</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)>
			<cfset result.message="Nombre de la empresa es un campo obligatorio">
			<cfreturn result>
		</cfif>
		<cfset result=getId()>
		<cfif result.id gt 0>
			<cfset result.message="Empresa con ese nombre ya existe">
			<cfreturn result>
		</cfif>
		<!--- variables ok --->
		<cftry>
			<cfquery name="updateQuery" datasource="#application.datasource#">
				UPDATE company
				SET 
					idServerFile=<cfif variables.idServerFile gt 0><cfqueryparam value="#variables.idServerFile#" cfsqltype="cf_sql_integer"><cfelse>NULL</cfif>, 
					name=<cfqueryparam value="#variables.name#" cfsqltype="cf_sql_varchar" maxlength="255">
				WHERE 
					idCompany=<cfqueryparam value="#variables.idCompany#" cfsqltype="cf_sql_integer">
			</cfquery>
			<cfset result.id=variables.idCompany>
			<!--- catch any error --->
			<cfcatch type="any">
				<cfset result.id=-1>
				<cfset result.message="Error [company.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 company
				WHERE 
					idCompany=<cfqueryparam value="#variables.idCompany#" 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 [company.delete()]: " & cfcatch.Message & "<br>Details: " & cfcatch.Detail>
			</cfcatch>
		</cftry>
		<cfreturn result>
	</cffunction>
</cfcomponent>