Histórico da Página

#Include "Totvs.ch"

//Ponto de Entrada para alterar as informações dos produtos que estão sendo exportados
User Function MRPEDITEXP()
    Local cAliasQry  := GetNextAlias()
	Local cTicket    := ParamixB[1]
	Local oJson      := ParamixB[2]
	Local nIndex     := 1
	Local nLenHeader := Len(oJson["headers"])
	Local nLenItems  := Len(oJson["items"])

	aAdd(oJson["headers"], JsonObject():New())
	nLenHeader++
	oJson["headers"][nLenHeader]["id"]    := "especifico"
	oJson["headers"][nLenHeader]["label"] := "Cabeçalho Específico"

	aAdd(oJson["headers"], JsonObject():New())
	nLenHeader++
	oJson["headers"][nLenHeader]["id"]    := "level"
	oJson["headers"][nLenHeader]["label"] := "Nível"

	For nIndex := 1 To nLenItems
		cProduto := oJson["items"][nIndex]["productId"]

		BeginSql Alias cAliasQry
			SELECT MAX(HWB_NIVEL) Nivel
			  FROM %Table:HWB%
			 WHERE HWB_TICKET = %exp:cTicket%
			   AND HWB_PRODUT = %exp:cProduto%
			   AND %NotDel%
		EndSql

		oJson["items"][nIndex]["especifico"] := "Valor Específico"
		oJson["items"][nIndex]["level"]      := (cAliasQry)->Nivel

		(cAliasQry)->(dbCloseArea())
	Next nIndex

Return