Histórico da Página

User Function Alt381Auto()
	Local nX         := 0
	Local aCab       := {}
	Local aLine      := {}
	Local aItens     := {}
	Local aLineEnder := {}
	Local aEnder     := {}

	PRIVATE lMsErroAuto := .F.

	//Monta o cabeçalho com o número da OP que será alterada. Necessário utilizar o índice 2 para efetuar a alteração.
	aCab := {{"D4_OP","00130301001",NIL},;
			{"INDEX",2,Nil}}

	//Seta o índice da SDC
	SDC->(dbSetOrder(2))

	//Busca os empenhos da SD4 para alterar/excluir.
	SD4->(dbSetOrder(2))
	SD4->(dbSeek(xFilial("SD4")+PadR("00130301001",Len(SD4->D4_OP))))

	While SD4->(!Eof()) .And. SD4->(D4_FILIAL+D4_OP) == xFilial("SD4")+PadR("00130301001",Len(SD4->D4_OP))
		//Adiciona as informações do empenho, conforme estão na tabela SD4.
		aLine := {}
		For nX := 1 To SD4->(FCount())
			aAdd(aLine,{SD4->(Field(nX)),SD4->(FieldGet(nX)),Nil})
		Next nX

		//Adiciona o identificador LINPOS para identificar que o registro já existe na SD4
		aAdd(aLine,{"LINPOS","D4_COD+D4_TRT+D4_LOTECTL+D4_NUMLOTE+D4_LOCAL+D4_OPORIG+D4_SEQ",;
							SD4->D4_COD,;
							SD4->D4_TRT,;
							SD4->D4_LOTECTL,;
							SD4->D4_NUMLOTE,;
							SD4->D4_LOCAL,;
							SD4->D4_OPORIG,;
							SD4->D4_SEQ})
		
		//Marca o empenho do produto "MP" como Excluído.
		If AllTrim(SD4->D4_COD) == "MP01"
			aAdd(aLine,{"AUTDELETA","S",Nil})
		ElseIf AllTrim(SD4->D4_COD) == "MP02" 
			//Altera a quantidade do empenho do produto "9617-MP1"
			//Busca a informação da quantidade (D4_QTDEORI) no array aLine.
			nX := aScan(aLine,{|x| x[1] == "D4_QTDEORI"})
			If nX > 0
				//Encontrou o valor da quantidade. Faz a alteração do valor.
				aLine[nX,2] := 10
			EndIf
			
			//Altera também o saldo do empenho
			nX := aScan(aLine,{|x| x[1] == "D4_QUANT"})
			If nX > 0
				//Encontrou o valor da quantidade. Faz a alteração do valor.
				aLine[nX,2] := 10
			EndIf
		ElseIf AllTrim(SD4->D4_COD) == "MP03" 
			//Altera os endereços utilizado no empenho do produto "9617-MP2"
			//Primeiro carrega os endereços utilizados.
			If SDC->(dbSeek(xFilial("SDC")+SD4->(D4_COD+D4_LOCAL+D4_OP+D4_TRT+D4_LOTECTL+D4_NUMLOTE)))
				//Inicializa o array aEnder
				aEnder     := {} 
				
				//Busca os registros da tabela SDC
				While SDC->(!Eof()) .And. ;
					xFilial("SDC")+SD4->(D4_COD+D4_LOCAL+D4_OP+D4_TRT+D4_LOTECTL+D4_NUMLOTE) == ;
					SDC->(DC_FILIAL+DC_PRODUTO+DC_LOCAL+DC_OP+DC_TRT+DC_LOTECTL+DC_NUMLOTE)
					
					//Inicializa o array aLineEnder
					aLineEnder := {}

					//Carrega as informações da tabela SDC no array aLineEnder
					For nX := 1 To SDC->(FCount())
						aAdd(aLineEnder,{SDC->(Field(nX)),SDC->(FieldGet(nX)),Nil})
					Next nX

					//Adiciona o identificador LINPOS para identificar que o registro já existe na tabela SDC
					aAdd(aLineEnder,{"LINPOS","DC_LOCALIZ+DC_NUMSERI",;
							SDC->DC_LOCALIZ,;
							SDC->DC_NUMSERI})

					//Verifica se é o endereço "END". Se for, marca a linha para exclusão.
					If AllTrim(SDC->DC_LOCALIZ) == "END01"
						aAdd(aLineEnder,{"AUTDELETA","S",NIL})
					ElseIf AllTrim(SDC->DC_LOCALIZ) == "END02"
						//Verifica se é o endereço "END02". Se for, altera a quantidade.
						//Busca a posição em que a quantidade está no array aLineEnder.
						nX := aScan(aLineEnder,{|x| x[1] == "DC_QUANT"})
						If nX > 0
							//Encontrou a quantidade no array aLineEnder. Faz a alteração da quantidade.
							aLineEnder[nX,2] := 8
						EndIf
					EndIf
					
					//Adiciona o endereço no array de endereços.
					aAdd(aEnder,aLineEnder)

					//Próximo registro da SDC
					SDC->(dbSkip())
				End
				//Adiciona um novo endereço para ser incluído na tabela SDC.
				//Inicializa o array aLineEnder
				aLineEnder := {}
				
				//Adiciona as informações do novo endereço.
				aAdd(aLineEnder,{"DC_LOCALIZ","END03",Nil})
				aAdd(aLineEnder,{"DC_QUANT"  ,2      ,Nil})
				
				//Adiciona o novo endereço no array de endereços.
				aAdd(aEnder,aLineEnder)

				//Adiciona as informações de alteração de endereço no array do Empenho.
				aAdd(aLine,{"AUT_D4_END",aEnder,Nil})
			EndIf
		EndIf

		//Adiciona as informações do empenho no array de itens.
		aAdd(aItens,aLine)

		//Próximo registro da SD4.
		SD4->(dbSkip())
	End
	
	//Adiciona um novo empenho	
	aLine := {}
	aAdd(aLine,{"D4_OP"     ,"00130301001"     ,NIL})
	aAdd(aLine,{"D4_COD"    ,"MP04"            ,NIL})
	aAdd(aLine,{"D4_LOCAL"  ,"01"              ,NIL})
	aAdd(aLine,{"D4_DATA"   ,CtoD("17/09/2018"),NIL})
	aAdd(aLine,{"D4_QTDEORI",5                 ,NIL})
	aAdd(aLine,{"D4_QUANT"  ,5                 ,NIL})
	aAdd(aLine,{"D4_LOTECTL","L1"              ,NIL})
	aAdd(aLine,{"D4_TRT"    ,"004"             ,NIL})
	aAdd(aLine,{"D4_ROTEIRO","01"              ,NIL})
	aAdd(aItens,aLine)

	//Executa o MATA381, com a operação de Alteração.
	MSExecAuto({|x,y,z| mata381(x,y,z)},aCab,aItens,4)
	If lMsErroAuto
		//Se ocorrer erro.
		MostraErro()
	Else
		Alert("Alterado com sucesso.")
	EndIf
Return

User Function Zera381Aut()
	Local aCab   := {}
	Local aItens := {}

	PRIVATE lMsErroAuto := .F.

	//Monta o cabeçalho com as informações da ordem de produção que terá os empenhos zerados. O parâmetro AUTZERAEMP identifica que será realizado o processo de zerar empenhos.
	aCab := {{"D4_OP","00130301001",NIL},;
			{"AUTZERAEMP",.T.,Nil},;
			{"INDEX",2,Nil}}

	//Executa o MATA381 com a operação 4, e o indicador para zerar os empenhos.
	MSExecAuto({|x,y,z| mata381(x,y,z)},aCab,aItens,4)
	If lMsErroAuto
		//Se ocorrer erro.
		MostraErro()
	Else
		//Processamento realizado com sucesso
		Alert("Empenhos zerados com sucesso.")
	EndIf
Return

User Function Del381Auto()
	Local aCab   := {}
	Local aItens := {}

	PRIVATE lMsErroAuto := .F.

	//Monta o cabeçalho com a informação da Ordem de produção que terá os empenhos excluídos.
	aCab := {{"D4_OP","00130301001",NIL},;
			{"INDEX",2,Nil}}

	//Executa o MATA381 para exclusão dos empenhos.
	MSExecAuto({|x,y,z| mata381(x,y,z)},aCab,aItens,5)
	If lMsErroAuto
		//Se ocorrer erro.
		MostraErro()
	Else
		//Processamento realizado com sucesso
		Alert("Excluído com sucesso.")
	EndIf
Return