如何做产线良率提升？LRR,VRR,VLRR如何做?

我以前做供应商管理的，给你点基础的资料吧

1、CIT——Customer Incidents Tracking log，客诉追踪报告

l CIT定义：CIT是为了有效地、系统地对客户端发生的质量异常进行追踪记录，而由CQS制作并更新维护的追踪报告。(daily report)

l CIT单位：件数。CIT Qty：即客诉发生的件数。

l CIT的定义范围如下，共12条：

1.1板子/零件烧毁

1.2批量性不良(包括集中性高不良)

1.3会引起重工的 (包括厂内和厂外sorting &rework)

1.4造成厂内hold货的客诉问题 (即影响到厂内出货)

1.5造成客户端停线/退货的客诉问题

1.6 Workmanship issue和制程问题需100%提报 (此问题可highlight给厂内改善)

1.7属厂商来料不良的客诉问题

1.8 Design 问题

1.9客人Audit重大缺失项

1.10客人发正式的异常通知单或者要求回复正式的改善报告

1.11属CID的问题也需要报告CIT

1.12厂商直接出货到客人端以及外包产品，在客户端出现问题均需要提报CIT

l CIT公式

Weekly CIT Qty：当周提报的CIT Qty累加之和。

Monthly CIT Qty：当月提报的CIT Qty累加之和。

Yearly CIT Qty：整年度提报的CIT Qty累加之和。

2、AFR——Accumulated Failure Rate，累积不良率

l AFR定义：AFR即产品在客户端的不良回归到产品制造月份的累积不良率。从AFR报告里面可以侦测到产品在客户端都发生了哪些不良以及这些不良在产品的整个生命周期发生的时机为何；还可以使用AFR对厂内外的良率做比对、分析和并寻求改善产品质量和信赖度的方向。(weekly report)

l AFR 单位：DPPM(每百万的不良数)

l AFR公式

3个月的AFR=(从生产当月算起3个月的所有返修数量/当月的生产总数)*10^6

6个月的AFR=(从生产当月算起6个月的所有返修数量/当月的生产总数)*10^6

1年的AFR=(从生产当月算起12个月的所有返修数量/当月的生产总数)*10^6

2年的AFR=(从生产当月算起24个月的所有返修数量/当月的生产总数)*10^6

3年的AFR=(从生产当月算起36个月的所有返修数量/当月的生产总数)*10^6

3、DOA＆(客户端)LRR——Dead On Arrival，到货即损；(Customer) Line Reject Rate，(客户端)在线不良率

l 定义：DOA＆(客户端)LRR即客人收到货品后在进料检验时或在线投入使用时发现的不良，是工厂端为了监控产品到客户端的最及时的不良率报告。(weekly report)

l 单位：DPPM(每百万的不良数)

l DOA＆(客户端)LRR公式

Weekly DOA＆(客户端)LRR =(当周客户端上线发现的不良数/当周客户端上线的总投入数)*10^6

Monthly DOA＆(客户端)LRR =(当月客户端上线发现的不良数/当月客户端上线

的总投入数)*10^6

4、(客户端)VLRR——Verified Line Reject Rate,(on-site FAE)确认后的客户端的在线不良率

l (客户端)VLRR定义：(客户端)VLRR是经过本公司的人员(如on-site FAE)确认过的属于公司责任的客户端的在线不良率。(weekly report)

l 单位：DPPM(每百万的不良数)

l (客户端)VLRR公式

Weekly (客户端)VLRR=（当周确认后的属MSI责任的客户端的在线不良数量/当周客户端总投入数量）*10^6

Monthly (客户端)VLRR=（当月确认后的属MSI责任的客户端的在线不良数量/当月客户端总投入数量）*10^6

5、COQ——Cost of Quality，质量成本（或失败成本）

l COQ 定义：COQ是为确保客户得到高质量产品所耗之成本及为改善各种错误所投入的财力之总和。不良之商业方法/程序，无效的质量体系，不良的制造方式，就会导致所谓的失败成本。较明显的失败有如停线，重工，维修，担保，退款及其它类型的售后服务成本等；较不明显的品质成本包括一些活动诸如IQA，ECN，SCAR跟踪，及优秀员工的流失，潜在及现有客户的流失等。(weekly report)

l 单位：美元

l 通过计算质量成本可以达到以下目的：

a. 将报废及错误成本化以提高员工警觉。

b. 识别改善及降低失败成本之机会。

c. 提供成本数据，以判断改善方案选择之正确性。

d. 通告周知激发改善。

e. 提供公司整体能力指标，将事情一次做好。

f. 用“管理语言”把质量成本量化为“钱”，将有利于引起管理上的注意。

g. 由于预算下降，有必要对改善方案做优先级之选择。

l COQ公式

COQ = 物料费用+搬运费用+人力费用+测试费用+场地费用+国家赋税

6、TAT——Turn Around Time，返还时间

l TAT定义：为RMA从收到客人退回的不良品算起到维修ok寄出良品给客人之间的时段。

l TAT单位：天

l TAT 公式

TAT = 维修ok寄良品给客人的时间 - 收到客人退回不良品的时间 (daily report)

7、FPY(直通率)——First Pass Yield (FPY),直通率

l FPY(直通率)定义：FPY(直通率)是体现制造产出产品质量水平的一项指针﹐假如生产线投入100套材料﹐在制程中第一次就通过所有测试的产品的良品比率就是所谓的直通率。经过生产线重工或维修才通过测试的产品不列入FPY的计算。

l 单位：%

l FPY(直通率)公式

FPY = P1 x P2 x P3 x ... 其中 P1, P2, P3,…等为产在线每一个站别的首次良率﹐同样的对于重工或维修后的产品不列入计算。

透过这个计算式﹐我们可以知道及时的产线直通率﹐同时这个直通率有时比良率更能代表生产线真正的质量水平。(weekly report)

8、制程不良率——Process Failure Rate，制程不良率

制程不良率定义：制程不良率是指产线在每个制程站别第一次产出的不良数与本站别的总投入数之比，例如F/T的不良率等。(daily report)

单位：DPPM(每百万的不良数)

制程不良率公式

制程不良率＝（本制程站别的不良数/此制程站别的总投入数）*10^6

9、制程来料不良率——Material Process Yield Rate

制程来料不良率定义：制程来料不良率即在生产制程中发现的来料不良数与使用此物料的产品总投入数之比。(weekly report)

单位：DPPM(每百万的不良数)

制程来料不良率公式

制程来料不良率 = (不良物料数/使用此物料的产品总投入数)*10^6

10、MQA判退率——Manufacture Quality Assurance Lot Reject Rate，MQA判退率

MQA判退率的定义：MQA判退率即MQA当日判退的批数与MQA当日总检批数之比。(daily report)

MQA判退率单位：%

MQA判退率的公式

MQA 判退率 = MQA判退批数 / MQA总检批数

11、CAR结案率——Corrective Action Report Close Rate，矫正/预防措施报告结案率

CAR结案率定义：CAR已结案数量占所发的CAR总数的比率。(weekly report)

单位：%

CAR结案率公式：

Weekly CAR结案率=当周CAR已结案数量/当周所发的CAR总数

Monthly CAR结案率=当月CAR已结案数量/当月所发的CAR总数

12、SCAR结案率——Supplier Corrective Action Report Close Ratio，供货商矫正/预防措施报告结案率

SCAR结案率定义：SCAR已结案数量占所发的SCAR总数的比率。(weekly report)

单位：%

SCAR结案率公式：

Weekly SCAR结案率=当周SCAR已结案数量/当周所发的SCAR总数

Monthly SCAR结案率=当月SCAR已结案数量/当月所发的SCAR总数

13、IQA LRR(进料批退率)——Incoming Quality Assurance Lot Reject Rate，IQA LRR(进料批退率)

IQA LRR(进料批退率)定义：IQA LRR(进料批退率)是指厂内IQA对厂商来料的整批判退比率。(weekly report)

单位：%

IQA LRR(进料批退率)公式：

Weekly IQA LRR=当周被IQA判退的批数/当周的总进料批数

Monthly IQA LRR=当月被IQA判退的批数/当月的总进料批数

14、IQA VLRR(厂商来料批退率)——Incoming Quality Assurance Verified Lot Reject Rate，IQA VLRR(厂商来料批退率)

IQA VLRR(厂商来料批退率)定义：IQA VLRR(厂商来料批退率)是IQA判退批数中责任单位是供货商的批数与总进料批数之比，即IQA LRR中属于厂商责任的部分。(weekly report)

单位：%

IQA VLRR(厂商来料批退率)公式：

Weekly IQA VLRR=当周属厂商责任的来料不良批退数/当周的总进料批数

Monthly IQA VLRR=当月属厂商责任的来料不良批退数/当月的总进料批数

.model

.stack

.code

a dw ?

b dw ?

c dw ?

d dw ?

e dw ?

f dw ?

g db ' computer $'

esc_key equ 1bh

win_ulc equ 30

win_ulr equ 7

win_lrc equ 50

win_lrr equ 16

win_width equ 20

display equ 2h

key_in equ 1h

doscall equ 21h

mul1 db ?

mul2 db ?

main proc far

call clear_screen

mov dx,0

mov ah,2

mov dh,7

mov dl,29

mov bh,0

int 10h

mov ah,9

mov al,'$'

mov bh,0

mov bl,0dah

mov cx,21

int 10h

mov ah,2

mov dh,7

mov dl,30

mov bh,0

int 10h

mov cx,20

loop1:

mov dl,'_'

mov ah,2

int 21h

loop loop1

locate1:

mov dx,0

mov ax,0

mov bx,0

mov cx,0

mov a,0

mov b,0

mov c,0

mov d,0

mov e,0

mov dh,7

mov cx,10

loop4:

mov ah,2

add dh,1

mov dl,29

mov bh,0

int 10h

mov dl,'|'

mov ah,2

int 21h

loop loop4

mov dh,7

mov cx,10

loop5:

mov ah,2

add dh,1

mov dl,49

mov bh,0

int 10h

mov dl,'|'

mov ah,2

int 21h

loop loop5

mov ah,2

mov dh,17

mov dl,30

mov bh,0

int 10h

mov cx,19

loop2:

mov ah,09

mov dl,'$'

mov bh,0

mov bl,0dah

mov cx,21

int 10h

mov dl,'_'

mov ah,2

int 21h

loop loop2

locate:

mov ah,2

mov dh,16

mov dl,30

mov bh,0

int 10h

mov dx,0

get_char:

call decibin

jia:

cbw

mov a,bx

mov b,ax

mov bx,0

mov ax,0

call decibin

mov d,bx

jmp equal

jian:

cbw

mov a,bx

mov c,ax

mov ax,0

mov bx,0

call decibin

mov d,bx

equal:

mov bx,a

mov ax,d

cmp b,'+'

jz add1

cmp c,'-'

jz sub1

add1: cmp bx,ax

jz aa

aa: cmp ax,0

jz tt2

jnz tt3

tt2:

mov dl,'0'

mov ah,2

int 21h

call scroll

jmp locate1

tt3:

add bx,ax

jmp calls

sub1:

cmp bx,ax

jl sub2

jz sub4

jg sub3

jmp ff

ff:

jmp jia

sub2:

xchg bx,ax

sub bx,ax

mov dl,'-'

mov ah,2

int 21h

call binihex

call scroll

jmp locate1

jmp sub4

tt:

jmp jian

sub4:

mov dl,'0'

mov ah,2

int 21h

call scroll

jmp locate1

sub3:

sub bx,ax

jmp calls

tt4:

jmp equal

calls:

call binihex

call scroll

jmp locate1

exit2:

mov ax,4c00h

int 21h

main endp

decibin proc near

newchar:

mov ah,1

int 21h

cmp al,1bh

jz exit2

cmp al,0dh

jz hh2

jmp hh1

hh2:

call scroll

hh1:

cmp al,'+'

jz ff

cmp al,'-'

jz tt

sub al,30h

jl exit

cmp al,9d

jg exit

cbw

cmp al,'='

jz tt4

cbw

xchg ax,bx

mov cx,10d

mul cx

xchg ax,bx

add bx,ax

jmp newchar

exit:

ret

decibin endp

binihex proc near

mov cx,10000d

call dec_div

mov cx,1000d

call dec_div

mov cx,100d

call dec_div

mov cx,10d

call dec_div

mov cx,1d

call dec_div

ret

dec_div proc near

start2:

mov ax,bx

mov dx,0

div cx

cmp ax,0

jg ii1

cmp e,0

jg ii1

cmp ax,0

jz ii

mov bx,dx

mov dl,al

add dl,30h

mov ah,2

int 21h

ii:

ret

ii1:

cmp ax,0

jz rr

mov e,ax

rr:

mov ax,bx

mov dx,0

div cx

mov bx,dx

mov dl,al

add dl,30h

mov ah,2

int 21h

ret

dec_div endp

binihex endp

crlf proc near

mov dl,0dh

mov ah,2

int 21h

mov dl,0ah

int 21h

ret

crlf endp

cmp al,esc_key

hh:

scroll proc near

mov ah,6

mov al,1

mov ch,8

mov cl,30

mov dh,16

mov dl,50

mov bh,7

int 10h

mov ah,2

mov dh,win_lrr

mov dl,win_ulc

mov bh,0

int 10h

ret

scroll endp

jmp hh1

jmp locate

exit1:

mov ax,4c00h

int 21h

clear_screen proc near

push ax

push bx

push cx

push dx

mov ah,6

mov al,0

mov bh,7

mov ch,0

mov cl,0

mov dh,24

mov dl,79

int 10h

mov dx,0

mov ah,2

int 10h

pop dx

pop cx

pop bx

pop ax

ret

clear_screen endp

end main

算了，就算我的程序贱卖了！

其编译工具为：Delphi2007 RAD Studio.

您可以发邮件给我的邮箱（phoenix-of-king@qq.com）拿exe文件，但最好自己编译。

由于时间关系，排序部分没有完成，明天再给答复！

希望您能到我的学校的BBS去踩一下

http://bbs.gdzqzx.net/

ProessorC为俺的用户名

===================代码如下=========================

program StuSys

//Master_CHEN 实验室 荣誉出品

//版权所有 侵权必究

//百度知道首次发布

//E-mail:phoenix-of-king@qq.com

{$APPTYPE CONSOLE}

uses

SysUtils

Type

m=record

point:char

end

w=record

AllStudentMember:word

end

var

x:m

z:w

procedure pcp

begin

writeln('====学生成绩管理系统============================================')

writeln('--------------------- By Master_CHEN Studio---------------------')

writeln('================================================================')

writeln(' Beta1.0')

writeln(' Copyright © 2007-2008 All rights reserved. ')

writeln('================================================================')

end

procedure pop

begin

writeln('菜单:')

writeln('L命令：列出文件中的所有人的记录')

writeln('I命令：在文件末尾插入一个人的记录')

writeln('D命令：根据学号删除指定的纪录')

writeln('O命令：根据某课程进行排序,并将查询结果（学号、成绩）显示在屏幕上')

writeln('Q命令：退出管理系统')

write('请输入命令代码:[注意大小写]')

x.point:=' ' readln(x)

end

procedure lrr

var i:word

Chinese,Maths,English,PE,Phy:integer

begin

assign(input,'record.masterchen')

reset(input)

writeln('================================================================')

readln(z.AllStudentMember)

writeln('管理系统档案中有共',z.AllStudentMember,'名学生的纪录')

writeln('----------------------------------------------------------------')

writeln('学号 |语文 |数学 |英语 |体育 |物理 |平均分 |')

writeln('----------------------------------------------------------------')

for I := 1 to z.AllStudentMember do

begin

readln(Chinese)readln(Maths)readln(English)readln(PE)readln(Phy)

write(i:6)write(Chinese:7)write(Maths:7)write(English:7)write(PE:7)

write(Phy:7)write(((Chinese+Maths+English+PE+Phy)/2):15:5)writeln

writeln('----------------------------------------------------------------')

end

writeln('================================================================')

close(input)

readln

end

procedure irr

var

s:string

i:word

Chinese,Maths,English,PE,Phy:integer

begin

writeln('该学生的学号被自动定为',(z.AllStudentMember+1),'号')

writeln('语文：')readln(Chinese)

writeln('数学：')readln(Maths)

writeln('英语：')readln(English)

writeln('体育：')readln(PE)

writeln('物理：')readln(Phy)

writeln('正在处理文件……')

assign(input,'record.masterchen')

reset(input)

assign(output,'$record$.masterchen')

rewrite(output)

for I := 1 to (z.AllStudentMember*5)+1 do

begin readln(s)writeln(s)end

writeln(Chinese)

writeln(Maths)

writeln(English)

writeln(PE)

writeln(Phy)

close(output)

close(input)

z.AllStudentMember:=z.AllStudentMember+1

assign(input,'$record$.masterchen')

reset(input)

assign(output,'record.masterchen')

rewrite(output)

for I := 1 to (z.AllStudentMember*5)+1 do

begin readln(s)writeln(s)end

close(output)

close(input)

writeln('文件处理完毕!')

end

procedure drr

var u:word

s:string

i:word

Chinese,Maths,English,PE,Phy:integer

begin

writeln('请输入删除学生的学号:')

readln(u)

writeln('正在处理文件……')

assign(input,'record.masterchen')

reset(input)

assign(output,'$record$.masterchen')

rewrite(output)

readln(s)writeln(s)

for I := 1 to (z.AllStudentMember*5) do

begin

if (i>=u*5-4) then i:=i+5

else

begin

readln(s)

writeln(s)

end

end

close(output)

close(input)

z.AllStudentMember:=z.AllStudentMember+1

assign(input,'$record$.masterchen')

reset(input)

assign(output,'record.masterchen')

rewrite(output)

for I := 1 to (z.AllStudentMember*5)+1 do

begin readln(s)writeln(s)end

close(output)

close(input)

writeln('文件处理完毕!')

end

procedure qrr

begin

{排序部分}

end

begin

try

while x.point<>'Q' do

begin

pcp

pop

case x.point of

'L':lrr

'I':irr

'D':drr

'Q':qrr

end

end

except

on E:Exception do

Writeln(E.Classname, ': ', E.Message)

end

end.

---