soma_tempos3(M,[Op1|LP],ResuT,ResuA):-
		op_prod_client(Op1,M,Fer,_,_,_,TConc,Tsetup,Texec),
		Tempo is Tsetup + Texec,
		((Tempo-TConc)>0,!,TempoA is Tempo-TConc; TempoA is 0),!,
		soma_tempos3(Fer,M,LP,Tempo,TempoA,ResuT,ResuA).

soma_tempos3(_,_,[],ResuT,ResuA,ResuT,ResuA).
soma_tempos3(Fer, M, [Op2|LOp], Tempo, TempoA,ResuT, ResuA):-
	op_prod_client(Op2,M,Fer1,_,_,_,TConc,Tsetup,Texec),
	((Fer==Fer1,!,Tempo1 is Texec+Tempo);
			Tempo1 is Tsetup+Texec+Tempo),
	((Tempo1-TConc)>0,!,TempoA1 is Tempo1-TConc+TempoA; TempoA1 is TempoA),
	soma_tempos3(Fer1,M,LOp,Tempo1,TempoA1,ResuT, ResuA),!.