Erro exclusão MVC AVPL

Boa tarde! Estou usando um fonte mvc que faz alteração, inclusao e exclusao na SX5 tabela '21'. Estou com problema apenas quando vou realizar a exclusão de um item cadastrado, onde aparece o erro anexo:

segue parte do fonte:

Static Function MenuDef() Local aRot := {}

//Adicionando opções ADD OPTION aRot TITLE 'Visualizar' ACTION 'VIEWDEF.FBFISA1' OPERATION MODEL_OPERATION_VIEW ACCESS 0 //OPERATION 1 ADD OPTION aRot TITLE 'Incluir' ACTION 'VIEWDEF.FBFISA1' OPERATION MODEL_OPERATION_INSERT ACCESS 0 //OPERATION 3 ADD OPTION aRot TITLE 'Alterar' ACTION 'VIEWDEF.FBFISA1' OPERATION MODEL_OPERATION_UPDATE ACCESS 0 //OPERATION 4 ADD OPTION aRot TITLE 'Excluir' ACTION 'VIEWDEF.FBFISA1' OPERATION MODEL_OPERATION_DELETE ACCESS 0 //OPERATION 5

Return aRot

Static Function ModelDef() //Criação do objeto do modelo de dados Local oModel := Nil

//Criação da estrutura de dados utilizada na interface Local oStSX5 := FWFormStruct(1, "SX5")

//Editando características do dicionário oStSX5:SetProperty('X5_TABELA', MODEL_FIELD_WHEN, FwBuildFeature(STRUCT_FEATURE_WHEN, '.F.')) //Modo de Edição oStSX5:SetProperty('X5_TABELA', MODEL_FIELD_INIT, FwBuildFeature(STRUCT_FEATURE_INIPAD, 'cTabX')) //Ini Padrão oStSX5:SetProperty('X5_CHAVE', MODEL_FIELD_WHEN, FwBuildFeature(STRUCT_FEATURE_WHEN, 'Iif(INCLUI, .T., .F.)')) //Modo de Edição oStSX5:SetProperty('X5_CHAVE', MODEL_FIELD_VALID, FwBuildFeature(STRUCT_FEATURE_VALID, 'u_zSX5Chv1()')) //Validação de Campo oStSX5:SetProperty('X5_CHAVE', MODEL_FIELD_OBRIGAT, .T. ) //Campo Obrigatório oStSX5:SetProperty('X5_DESCRI', MODEL_FIELD_OBRIGAT, .T. ) oStSX5:SetProperty('X5_DESCSPA', MODEL_FIELD_OBRIGAT, .T. ) oStSX5:SetProperty('X5_DESCENG', MODEL_FIELD_OBRIGAT, .T. ) //Campo Obrigatório

//Instanciando o modelo, não é recomendado colocar nome da user function (por causa do u_), respeitando 10 caracteres oModel := MPFormModel():New("FBFISA1M",/bPre/,/bPos/,/bCommit/,/bCancel/)

//Atribuindo formulários para o modelo oModel:AddFields("FORMSX5",/cOwner/,oStSX5)

//Setando a chave primária da rotina oModel:SetPrimaryKey({'X5_FILIAL', 'X5_TABELA', 'X5_CHAVE'})

//Adicionando descrição ao modelo oModel:SetDescription("Modelo de Dados do Cadastro "+cTitulo)

//Setando a descrição do formulário oModel:GetModel("FORMSX5"):SetDescription("Formulário do Cadastro "+cTitulo) Return oModel

compartilhar
Anexos
  • erro.txt
    1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
    2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
    3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
    4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
    5. Clique aqui para mais detalhes sobre o funcionamento do DevForum TOTVS!

    1 resposta

    Não é a resposta que estava procurando? Procure outras perguntas com as tags mvc sx5 advpl ou faça a sua própria pergunta.