//-----------------------------------------
// Função ORCA1034. Buscar % de Frete. SZ3
// Solicitante: Comercial.
// Autor: Fonseca.
// Data: 03-09-2014.
//-----------------------------------------
#include 'protheus.ch'
#include 'rwmake.ch'
#include 'totvs.ch'
#include "Topconn.ch"

User Function ORCA1034()
	Local aArea := GetArea()           
	
	If Funname() = "RPC" //Portal SMS
		Return
	Endif
	
	If Select("QRY") > 0
		dbSelectArea("QRY")
		QRY->(dbCloseArea())
	Endif

	cQuery := "SELECT * FROM " + RetSQLName("SZ3") + " WHERE D_E_L_E_T_ = ' ' AND "
//	cQuery += "Z3_FILIAL = '" + xFilial("SZ3") + "' AND D_E_L_E_T_ = ' ' AND "
	cQuery += "Z3_UF = '" + Substr(CJ_UFEnt,1,2) + "' ORDER BY  Z3_MUNICIP"	
	TcQuery cQuery New Alias "QRY"   
	
	CJ_PERCFRT := QRY->Z3_PERFRAD
	
	While QRY->(!EOF())
		If Trim(QRY->Z3_MUNICIP) == Substr(CJ_UFEnt,3,5)
			CJ_PERCFRT := QRY->Z3_PERFRAD
		EndIf
		QRY->(DbSkip())
	EndDo           
	
  	RestArea(aArea)		
Return(CJ_PERCFRT)