ExecAuto FINA040 - Nao permite alteração de titulos

Boa tarde. Estou com esta situação na release 12.1.27: O execauto da rotina FINA040 não permite usar a opção 4 (alterar), e retorna a msg:

AJUDA:FA040NUMTentativa de incluir ou alterar um registro já existente no arquivo.

Tabela SE1 04/03/2022 17:11:55 Prefixo - E1_PREFIXO := MAN No. Titulo - E1_NUM := 8182727Parcela - E1_PARCELA := 001 Tipo - E1_TIPO := BFC < -- Invalido Cliente - E1_CLIENTE := 88926381 Loja - E1_LOJA := 0001 Natureza - E1_NATUREZ := 4104070101 DT Emissao - E1_EMISSAO := 04/03/2022 Vencimento - E1_VENCTO := 30/06/2022 Historico - E1_HIST := TESTE

O tipo BFC existe
A chave do titulo está correta
O título existe na base
Preciso apenas alterar o vencimento pois fazendo por dentro do sistema ( de forma manual ) é permitido.

criado 04 de Mar de 2022
Adriano Moreira
94 pontos
editado 04 de Mar de 2022

0

Poderia colocar a parte onde vc monta o execauto e faz a chamada ? Assim fica mais facil de tentar identificar algum problema.
— Gianluka 08 de Mar de 2022

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

3 respostas

up 0 down
dbSelectArea("SE1") DbGoTo( 2465123 )

aVetor:= {} //aAdd( aVetor, { "E1_FILIAL" ,'03BA0005' ,Nil}) aAdd( aVetor, { "E1_PREFIXO" ,PADR(SE1->E1_PREFIXO, TAMSX3("E1_PREFIXO")[1]) ,Nil}) aAdd( aVetor, { "E1_NUM" ,PADR(SE1->E1_NUM, TAMSX3("E1_NUM")[1]) ,Nil}) aAdd( aVetor, { "E1_PARCELA" ,PADR(SE1->E1_PARCELA, TAMSX3("E1_PARCELA")[1]) ,Nil}) aAdd( aVetor, { "E1_TIPO" ,PADR(SE1->E1_TIPO, TAMSX3("E1_TIPO")[1]) ,Nil}) aAdd( aVetor, { "E1_CLIENTE" ,PADR(SE1->E1_CLIENTE, TAMSX3("E1_CLIENTE")[1]) ,Nil}) aAdd( aVetor, { "E1_LOJA" ,PADR(SE1->E1_LOJA, TAMSX3("E1_LOJA")[1]) ,Nil}) aAdd( aVetor, { "E1_NATUREZ" ,PADR(SE1->E1_NATUREZ, TAMSX3("E1_NATUREZ")[1]),Nil}) aAdd( aVetor, { "E1_EMISSAO" ,DDATABASE ,Nil}) aAdd( aVetor, { "E1_VENCTO" ,STOD('20220630') ,Nil}) aAdd( aVetor, { "E1_HIST" ,PADR('TESTE', TAMSX3("E1_HIST")[1]) ,Nil}) lMsErroAuto := .F. lMsHelpAuto := .T. INCLUI:= .F. ALTERA:= .T. MsExecAuto( { |x,y| FINA040(x,y)} , aVetor, 4) If !lMsErroAuto MsgInfo("oK") Else MostraErro() EndIf
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 08 de Mar de 2022
  Adriano Moreira
  94 pontos
- 0
  
  Estou posicionando direto no registro para testar passando o DbGoTo.
  — Adriano Moreira 08 de Mar de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
Verifique a validação do campo E1_TIPO no dicionário (remova para testar).
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 08 de Mar de 2022
  Marcos Bispo Abrahão
  281 pontos
- 0
  
  A validação do campo E1_TIPO é esta: FA040Tipo() .And. FA040Num() .And. FA040Natur() E retirando da a mesma msg!
  — Adriano Moreira 09 de Mar de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
1 - Talvez voce esteja executando o programa em uma filial errada, que não tenha o BFC cadastrado como TIPO. 2 - Tente remover essa manipulação do INCLUI e ALTERA, nao acho que seja isso, mas o execauto já recebe a opção de alteração, não tem porque voce mudar essas variaveis manualmente. 3 - Dica: Não precisar usar os PADR, pq vc ta jogando o conteudo do E1_NUM pro proprio E1_NUM, ou seja, o tamanho dos campos já são compativeis.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 10 de Mar de 2022
  Gianluka
  6 pontos
- 0
  
  Estou com mesmo problema! Alguém conseguiu ?
  — Diogo 11 de Oct de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

ExecAuto FINA040 - Nao permite alteração de titulos

Comentário

3 respostas

Comentário

Comentário

Comentário

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