PARAMETERS PcJobcardno


PRIVATE lccuralias
lccuralias = ALIAS()

SELECT job_mast.jobcard_no,job_mast.job_dt,job_mast.kms,client.client,client.vehicle_no,client.sale_dt, ;
	client.chasis_no,client.engine_no ;
FROM job_mast join client on job_mast.client_no = client.client_no ;
WHERE job_mast.jobcard_no = PcJobcardno ;
INTO CURSOR qryservicebooklabel

DO alert WITH "HI BARCODE"
SELECT qryservicebooklabel
BROWSE


DELETE FILE barcode.prn 
SET TALK off
SET SAFETY OFF
set devi to prin
set cons off
set prin on
SET PRINTER TO barcode.prn 

?'Q406,019'
?'q831'
?'rN'
?'S4'
?'D7'
?'ZT'
?'JB'
?'OD'
?'R111,0'
?'N'
?'A31,87,0,4,1,1,N,"Owners Name : "' + ALLTRIM(client) 
?'A31,123,0,2,1,1,N,"JOB NO.: "' + ALLTRIM(jobcard_no)  
?'A288,123,0,2,1,1,N,"Vehicle No.: "' + ALLTRIM(vehicle_no) 
?'A31,160,0,2,1,1,N,"Selling.: "' + ALLTRIM(mdealer_cod) 
?'A288,160,0,2,1,1,N,"Sold On : "' + DTOC(sale_dt)
?'A31,228,0,2,1,1,N,"Dealer Code"'
?'A31,179,0,2,1,1,N,"Dealer Code"'
?'A31,209,0,2,1,1,N,"Servicing : "' + ALLTRIM(mdealer_cod) 
?'A288,209,0,2,1,1,N,"Serviced On : "' + DTOC(job_dt)
?'A31,262,0,2,1,1,N,"KMS : "' + STR(kms)
?'A31,285,0,2,1,1,N,"Engine No : "' + ALLTRIM(engine_no)
?'A31,309,0,2,1,1,N,"Frame No  : "' + ALLTRIM(chasis_no)
?'P1'


set prin to
set prin off
set devi to screen
set cons on
MODIFY FILE barcode.prn 
RUN type barcode.prn > prn

USE IN qryservicebooklabel
IF ! EMPTY(lccuralias)
	SELECT (lccuralias)
ENDIF 
