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
