Perguntas Erro 2003 syntax

#INCLUDE "RWMAKE.CH"
//#INCLUDE "PROTHEUS.CH"

User Function MA960DUP

Local cAlias    := "SF6"
Local cDest		:= "SA2"
Local cRazSoc   := ""
Local cNatureza := ""
Local cPref     := "UN"
Local cTipo     := "TX" //Natureza

// INICIO CASE

DO CASE
case F6_TIPOIMP :="1"
    cNatureza := "ICMS"
case F6_TIPOIMP=="2"
    cNatureza := "ISS"
case F6_TIPOIMP=="3"
    cNatureza := "ICMS/ST"
case F6_TIPOIMP=="4"
    cNatureza := "FUNRURAL"
case F6_TIPOIMP=="5"
    cNatureza := "SIMPLES FEDERAL"
case F6_TIPOIMP=="6"
    cNatureza := "FUNDERSUL"
case F6_TIPOIMP=="7"
    cNatureza := "SIMPLES NACIONAL"
case F6_TIPOIMP=="8"
    cNatureza := "FUST/FUNTTEL"
case F6_TIPOIMP=="9"
    cNatureza := "SENAR"
END CASE // FIM CASE

DbSelectArea("SA2")
DbSetOrder(3)
DbSeek(xFilial('SA2')+(cAlias)->F6_CLIFOR+(cAlias)->F6_LOJA)

IF FOUND()

cRazSoc := A2_NREDUZ	

	Alert("Documento já Cadastro no Contas a Pagar")

ENDIF


dbSelectArea("SE2")
dbSetOrder(1)
dbSeek((cAlias)->F6_FILIAL+cPref+(cAlias)->F6_DOC+"0"+cTipo+(cAlias)->F6_CLIFOR+(cAlias)->F6_LOJA)

IF FOUND()

RecLock("SE2",.T.)

	replace E2_FILIAL   with (cAlias)->F6_FILIAL
	replace E2_PREFIXO  with cPref
	replace E2_NUM      with (cAlias)->F6_DOC
	replace E2_PARCELA  with "0"
	replace E2_TIPO     with cTipo
	replace E2_NATUREZ  with cNatureza
	replace E2_FORNECE  with (cAlias)->F6_CLIFOR
	replace E2_LOJA     with (cAlias)->F6_LOJA
	replace E2_EMISSAO  with (cAlias)->F6_DTARREC
	replace E2_VENCTO   with (cAlias)->F6_DTVENC
	replace E2_VALOR    with (cAlias)->F6_VALOR
	replace E2_NUMBCO   with (cAlias)->F6_BANCO
	replace E2_NOMFOR   with cRazSoc

MSUNLOCK()

ENDIF//Grava Duplicata


RETURN()