Erro exclusão MVC AVPL

Framework - Linha Protheus LIB
, ,
1

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

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

2

Boa noite!

Acredito que o problema esteja na pré-validação de exclusão do modelo, poderia me enviar em qual momento é chamada a query do error log?


SELECT 1 REG FROM SX5010 DOM WHERE  X5_FILIAL = '      ' AND X5_TABELA = '21' AND X5_CHAVE = '00000 ' AND EXISTS (SELECT 1 FROM DDQ010 CDOM WHERE  DDQ_FILIAL = '0101  ' AND 'ME' = '21' AND DDQ_TIPOID = '00000 ' AND CDOM.D_E_L_E_T_ = ' '

Outra dúvida, o campo DDQ_TIPOID existe na tabela em questão? Iria comparar com a minha mas não possuo essa tabela em meu sistema.

3

Boa tarde. O tipo do campo DDQ_TIPOID está diferente no X3 e no banco de dados. Esta query é gerada pela validação da exclusão ou cancelamento do MVC Protheus, e ele utiliza o tipo que está cadastrado no X3.

4

Bom dia !
Esse erro aparece na hora que eu confirmo a exclusão.
O campo DDQ_TIPOID não existe na tabela, não o motivo de ele esta aparecendo no log de erro.

5

O campo não existe na sua tabela mas existe no SX9, daí a geração da validação da query. Acho que o seu ambiente não está integro. Verifica