Histórico da Página

||Descrição|| Objetivo: Permitir manipular os dados do produto origem e subprodutos antes de executar a rotina automática MATA242 (desmontagem de produtos).  
||Observações|| 
||Exemplos||#Include "Protheus.ch"
User Function AGR620DP()
Local aCab		:= aClone(Paramixb\[1])
Local aItens 	:= aClone(Paramixb\[2])
Local aRet 		:= {}
Local nPos		:= aScan(aCab,\{\|x\| x\[1] == "cLocOrig"} )
Local nX		:= 0
If nPos > 0
	aCab\[nPos,2] := "02" // Local origem do produto
EndIf
For nX := 1 To Len(aItens)
	AADD(aItens\[nX], \{"D3_CONTA" ,"1"  	,NIL}) // Conta Contábil
	AADD(aItens\[nX], \{"D3_CC" 	 ,"CC01" 	,NIL}) // Centro de Custo
Next nX
aRet := \{aClone(aCab), aClone(aItens)}
Return(aRet)
||Idioma|| Português(Brasil)
||Versões|| Microsiga_Protheus11
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Parâmetros|| Paramixb\[1] - Dados do Produto Origem
Paramixb\[2] - Dados dos subprodutos originados
||Retorno|| aRet\[1] - Dados do Produto Origem
aRet\[2] - Dados dos subprodutos originados
||Eventos de chamada do Ponto de Entrada|| ExecBlock("AGR620DP",.F.,.F.,\{a242Cab, a242Itens})
||Programa Fonte|| AGRA620.PRW