Perguntas ExecAuto mata650

	
	IncProc("Criando ordem de produção")
	// Cria OP
	lMsErroAuto := .F.
	
	_aVetor := {	{"C2_NUM"    , GetNumSC2()		, Nil},; 
					{"C2_ITEM"   , "01"				, Nil},;
					{"C2_SEQUEN" , "001"			, Nil},;
					{"C2_PRODUTO", SC6->C6_PRODUTO	, Nil},;
					{"C2_QUANT"  , nGetQtd			, Nil},;
					{"C2_CC"     , SZH->ZH_CC		, Nil},;
					{"C2_LOCAL"  , SC6->C6_LOCAL	, Nil},;
					{"C2_DATPRI" , dDataBase		, Nil},;
					{"C2_DATPRF" , dDataBase		, Nil},;
					{"C2_EMISSAO", dDataBase		, Nil},;
					{"AUTEXPLODE", "S"				, Nil}  }
	MSExecAuto({|x, y| mata650(x, y)}, _aVetor, 3)	// Inclusao
	
	If lMsErroAuto
		MostraErro()
		DisarmTransaction()
		Return
	Endif

Static Function ApontOP(cOP,cProd,cOperac,dDtIni,cHrIni,dDtFim,cHrFim,nQtde,cChave,cOperador,lEncerra,lUltima,nOpcao)
Local aLinha := {}
Local dDtValid := CTOD("  /  /  ")
Private nRegSH6 := 0

SC2->(dbSetOrder(1), dbSeek(xFilial("SC2")+cChave))
SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+cProd))
SH6->(dbSetOrder(1), dbSeek(xFilial("SH6")+cChave))

nRegSH6 := SH6->(Recno())

dDtValid := dDatabase + SB1->B1_PRVALID

aLinha := {	{"H6_OP",cChave,NIL},;
	{"H6_PRODUTO",cProd,NIL},;
	{"H6_OPERAC",cOperac,NIL},;
	{"H6_DATAINI",dDtIni,NIL},;
	{"H6_HORAINI",cHrIni,NIL},;
	{"H6_DATAFIN",dDtFim,NIL},;
	{"H6_HORAFIN",cHrFim,NIL},;
	{"H6_QTDPROD",nQtde,NIL},;
	{"H6_OPERADO",cOperador,NIL},;
	{"H6_LOCAL"  ,SB1->B1_LOCPAD,NIL},;
	{"H6_DTVALID",dDtValid,NIL},;
	{"H6_DTAPONT",Date(),NIL} }

lMsErroAuto := .f.

MSExecAuto({|x,y| Mata681(x,y)},aLinha,nOpcao)

If lMsErroAuto
	MostraErro()
	Return .f.
Endif      

If lEncerra .And. lUltima .And. (nOpcao==3)		// Apontamento Parcial Porém Encerra OP
	nOpc := 7 // Encerra ordem de produção
	aMata680 := {}
	aadd(aMata680,{"H6_OP" , SH6->H6_OP ,NIL})
	aadd(aMata680,{"H6_PRODUTO" , SH6->H6_PRODUTO ,NIL})
	aadd(aMata680,{"H6_SEQ" , SH6->H6_SEQ ,NIL})

	lMsErroAuto := .f.
	MsExecAuto({|x,Y|MATA680(aMata680,nOpc)})
	If lMsErroAuto
		MostraErro()
		Return .f.
	Endif      
Endif
Return .t.