User Function GFEA065LSGFEA6510()

  local cGW3EmisDf  := PARAMIXB[1]
  local cGW3NrDf  := PARAMIXB[2]
  local cGW3SerDf := PARAMIXB[3]
  local cGW3TpDf  := PARAMIXB[4]
  local cGW4EmisDc  := PARAMIXB[5]
  local cGW4NrDc := PARAMIXB[6]
  local cGW4SerDc := PARAMIXB[7]
  local cGW4TpDc := PARAMIXB[8]
  local cAliasGW1 := GetNextAlias()
  local cGW1TpOperac := ""
  local cGW1ClassFrt := ""

  BeginSQL Alias cAliasGW1

		SELECT  	
         GW1.GW1_ROMTO,
         GW1.GW1_ROMCF
		FROM 
			%table:GW1% GW1
		WHERE     
         GW1.GW1_CDTPDC = %Exp:cGW4TpDc%
         AND GW1.GW1_EMISDC = %Exp:cGW4EmisDc%
         AND GW1.GW1_SERDC = %Exp:cGW4SerDc%
         AND GW1.GW1_NRDC = %Exp:cGW4NrDc%
         AND GW1.GW1_FILIAL = %xFilial:GW1%
         AND GW1.%NotDel%

	EndSql

    if(cAliasGW1)->(!EOF())

        cGW1TpOperac := Alltrim((cAliasGW1)->(GW1_ROMTO))
        cGW1ClassFrt := Alltrim((cAliasGW1)->(GW1_ROMCF))

    ENDIF 
    (cAliasGW1)->(dbCloseArea()) 

Return .T.