PARAMETERS PCMODELCOLNO,PCSERVICESEQ,PDSALEDATE,pndays,pnkms,pddate

PRIVATE LCMODELNO
STORE ' ' TO LCMODELNO


IF SEEK(PCMODELCOLNO,'MODELCOL','MODELCOLNO')
	LCMODELNO = MODELCOL.MODEL_NO
ENDIF 

IF SEEK(LCMODELNO + PCSERVICESEQ,'FREESERV','MODEL_SEQ')
	DO CASE
		CASE PCSERVICESEQ = '01'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS
		CASE PCSERVICESEQ = '02'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS			
		CASE PCSERVICESEQ = '03'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS
		CASE PCSERVICESEQ = '04'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS			
		CASE PCSERVICESEQ = '05'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS			
		CASE PCSERVICESEQ = '06'
			pndays = FREESERV.TO_DAYS
			pddate = PDSALEDATE + FREESERV.TO_DAYS
			pnkms = FREESERV.TO_KMS			
	ENDCASE 			
ENDIF
RETURN ''
