Webdev processo gravar - pq dá erro

ScreenToFile('ar-alunocadastra',alunocadastro)

EDT_DataMatAluno        = Replace(EDT_DataMatAluno,"/","")
EDT_DataNascimentoAluno = Replace(EDT_DataNascimentoAluno,"/","")
EDT_DataNascimentoPai   = Replace(EDT_DataNascimentoPai,"/","")
EDT_DataNascimentoMae   = Replace(EDT_DataNascimentoMae,"/","")

sMatricDia  = EDT_DataMatAluno
cDataNAluno = EDT_DataNascimentoAluno
cDataNPai   = EDT_DataNascimentoPai
cDataNMae   = EDT_DataNascimentoMae

cEscolaUnd = COMBO_EscolaUnidade..StoredValue
alunocadastro.ESCOLA = cEscolaUnd

cSexoAluno = COMBO_SexoAluno..StoredValue
alunocadastro.SEXO = cSexoAluno

cUFAluno = COMBO_UFAluno..StoredValue
alunocadastro.UF = cUFAluno

cNacionalidadeAluno = COMBO_NacionalidadeAluno..StoredValue
alunocadastro.NACIONA = cNacionalidadeAluno

cNaturalidadeAluno = COMBO_NaturalidadeAluno..StoredValue
alunocadastro.naturali = cNaturalidadeAluno

cNserieAluno = COMBO_NSerieAluno..StoredValue
alunocadastro.NSERIE = cNserieAluno

cTurnoAluno = COMBO_TURNOALUNO..StoredValue
alunocadastro.J_TURNO = cTurnoAluno

cLingEstangAluno = COMBO_LingEstrangeAluno..StoredValue
alunocadastro.LESTRANG = cLingEstangAluno

cConvenioAluno = COMBO_ConvenioAluno..StoredValue
alunocadastro.NConve = cConvenioAluno

cEstadoCivilPai = COMBO_EstadoCivilPai..StoredValue
alunocadastro.EST_CIV = cEstadoCivilPai

cEstadoCivilMae = COMBO_EstadoCivilMae..StoredValue
alunocadastro.ESTAC_MAE = cEstadoCivilMae

cNacionalidadePai = COMBO_NacionalidadePai..StoredValue
alunocadastro.NAC_RES = cNacionalidadePai

cNacionalidadeMae = COMBO_NacionalidadeMaeLink..StoredValue
alunocadastro.nac_mae = cNacionalidadeMae

cRespfin = COMBO_ResponsavelFinanceiro..StoredValue
alunocadastro.respfin = cRespfin

PageToFile('ar-alunocadastra',alunocadastro)
HAdd(alunocadastro,hCheckDuplicates)
IF HErrorDuplicates() = True THEN
	Error("Cadastro realizado anteriormente!")
END
IF cEscolaUnd = "01" THEN
	Info("Cadastro de "+EDT_NomeAluno+", foi realizado com sucesso!","Vá até a escola de sua escolha (Você optou por: Vila dos Cabanos) para confirmar sua matrícula.","Para impressão do comprovante acesse a área destinada ao perfil do aluno")
ELSE
	Info("Cadastro de "+EDT_NomeAluno+", foi realizado com sucesso!","Vá até a escola de sua escolha (Você optou por: Belém) para confirmar sua matrícula.","Para impressão do comprovante acesse a área destinada ao perfil do aluno")
END
HReset(alunocadastro)
FileToPage()
Reset()