Perguntas AxCadastro

Boa tarde,

Foi criado o fonte SE1BROW (ANEXO) para chamada dentro do ponto de entrada FA060EXIT.
A tela do SE1 é chamada perfeitamente, porém ao clicar em INCLUIR, aparece error.log...

THREAD ERROR (Diego Martins, FENIX) 22/03/2016 17:11:42
variable does not exist LALTERA on {|X| SELF:LACTIVE .AND. !LALTERA} line : 1872

Alguém sabe como corrigir?

Preciso clicar em INCLUIR e gravar os dados que serão inseridos.

Amigo, no puedo descargar tus fuentes, podrias colocar aqui los bloques de codigo para echar un vistazo?

abrazos!

Luis, bom dia.

Segue os fontes:

**///////////////////////////////////////////////////*****

#include "protheus.ch"

User Function SE1BROW()

Local aCores := {}

Private cCadastro := "Contas à Receber"
Private aRotina := {}

AADD(aRotina, {"Pesquisar","PesqBrw",0,1})
AADD(aRotina, {"Visualizar","AxVisual",0,2})
AADD(aRotina, {"Incluir","AxInclui",0,3})
AADD(aRotina, {"Alterar","AxAltera",0,4})
AADD(aRotina, {"Excluir","AxDeleta",0,5})

dbSelectArea ("SE1")
dbSetOrder (1)

mBrowse (6,1,22,75,"SE1",,,,,,)

Return

AxCadastro("SE1","Contas à Receber")
Return

**////////////////////////////////////////////////******

User Function F060EXIT()

cPort060 := SE1->E1_PORTADO
cSitFat := ""
//cAgen060 := SE1->E1_AGEDEP
//cConta060:= SE1->E1_CONTA

If nValCred < nValSaldo .and. SE1->E1_SITUACA <> "2"

nValRec := nValSaldo - nValCred

dbSelectArea ("SE1")
Reclock ("SE1",.F.)

SE1->E1_SALDO := nValRec
SE1->E1_VALOR := nValRec
SE1->E1_SITUACA := "0"
SE1->E1_SITFAT := "9"

ALERT ("Favor efetuar o Cadastro do Título - Carteira Descontada, na rotina de Contas à Receber.")

MsUnlock()

U_SE1BROW()

ElseIf empty(M->cPort060)
dbSelectArea ("SE1")
Reclock ("SE1",.F.)
SE1->E1_SITFAT := ""
SE1->E1_SALDO := SE1->E1_VLCRUZ
SE1->E1_VALOR := SE1->E1_VLCRUZ
SE1->E1_PORTADO:= ""
SE1->E1_AGEDEP := ""
SE1->E1_CONTA := ""
Msunlock()
Endif

Return .T.

Amigo probe tus fuentes en un ambiente mio y funciona correctamente (sin ningun cambio), talves sea algun problema de tu ambiente o alguna actualizacion pendiente.

Tu rutina de cuentas por cobrar funciona bien al incluir? (FINA040)

saludos!!

Bom dia Diego,

Caso não tenha resolvido o problema, crie a variável privada lAltera. Estava com o mesmo problema e fazendo como recomendei, resolveu.

Att