Histórico da Página

#INCLUDE "Protheus.ch"

User Function AF060CAC()

	Local cLogErro := ""
	Local cQuery := ""

	Local oTable


 	cQuery := "SELECT " 
	cQuery += " N1_CBASE, N1_ITEM, N1_QUANTD " 
	cQuery += "FROM " 
	cQuery += " " + "FNR-GRUPO CLIENTE" + " FNR " 
	cQuery += "INNER JOIN "
	cQuery += " " + "SN1-GRUPOCLIENTE "+ "SN1 " 
	cQuery += "ON " 
	cQuery += "    FNR_CBAORI = N1_CBASE " 
	cQuery += "    AND FNR_ITEORI = N1_ITEM " 
	cQuery += "    AND SN1.D_E_L_E_T_ = '' " 
	cQuery += "WHERE " 
	cQuery += "    FNR.D_E_L_E_T_ = '' " 
	cQuery += "    AND FNR_IDMOV = '12S" + ParamIxb[1] + "' " 

	oTable := ATFTempTable(cQuery,"TMP")

	If ( (oTable:GetAlias())->(!Eof()) )

		Begin Transaction

			RecLock(oTable:GetAlias(),.F.)

				(oTable:GetAlias())->N1_CBASE := "01TESTE"

			(oTable:GetAlias())->(MsUnlock())

		End Transaction

	Else
		cLogErro := "Neste Ponto de Entrada - AF060CAC - não foi localizado o bem. Reveja a codificação do PE."
	EndIf

	oTable:Delete()

Return (cLogErro)