job-time.dbl

;-----------------------------------------------------------------------------------------
		; worker method to set the time and date fields from the passed in json data model
		;-----------------------------------------------------------------------------------------
		private method SetTimeFields,	void
			req in aData,						@lib.collections.ObjectList,    aDataAccessRequest.mData
			req out aFitter,					d4
			req out aStartDate,					d8
			req out aStartTime,					d4
			req out aEndDate,					d8
			req out aEndTime,					d4
			req out aTravelTime,				boolean
		proc
			aFitter = (id)aData["tim_fitter"]
			aTravelTime = ((id)aData["tim_travel"])
			begin
				data lStartDateAlpha,	a11,	""	
				data lEndDateAlpha,		a11,	""
				data lStartTimeAlpha,	a8,		""
				data lEndTimeAlpha,		a8,		""

				if (aData["tim_date"] != ^null)
					lStartDateAlpha = (string)aData["tim_date"]
				
				if (aData["tim_end_date"] != ^null)
					lEndDateAlpha = (string)aData["tim_end_date"]
				
				if (aData["tim_start"] != ^null)
					lStartTimeAlpha = (string)aData["tim_start"]
				
				if (aData["tim_end_time"] != ^null)
					lEndTimeAlpha = (string)aData["tim_end_time"]
				
				
				
				if (%trimz(lStartDateAlpha) > 0)
				begin
					lStartDateAlpha = lib.str.replace(lStartDateAlpha, "-", "")
					aStartDate = lStartDateAlpha
				end

				if (%trimz(lEndDateAlpha) > 0)
				begin
					lEndDateAlpha = lib.str.replace(lEndDateAlpha, "-", "")
					aEndDate = lStartDateAlpha
				end

				if (%trimz(lStartTimeAlpha) > 0)
				begin
					lStartTimeAlpha = lib.str.replace(lStartTimeAlpha, ":", "")
					aStartTime = lStartTimeAlpha(1:4)
				end

				if (%trimz(lEndTimeAlpha) > 0)
				begin
					lEndTimeAlpha = lib.str.replace(lEndTimeAlpha, ":", "")
					aEndTime = lEndTimeAlpha(1:4)
				end
			end
			mreturn
		endmethod