MTA410I erro ao gravar em tabela customizada

Tenho o ponto de entrada abaixo e estou querendo gravar algumas informações da SC6 em uma tabela customizada SZN porém ele não está gravando corretamente duplicando algumas não grava, alguém tem ideia do que estou errando no fonte?

include 'protheus.ch'

include 'parmtype.ch'

user function MTA410I() Local aArea := {}

dbselectarea("SC6") DBSETORDER(1) _aArea := getArea()

// RecLock("SC6",.F.) IF C6_ENVIO = "R" DbselectArea("SZN") DBSETORDER(1)

IF (SC6->C6_NUM <> SZN->ZN_NUM .AND. SC6->C6_PRODUTO <> SZN->ZN_PRODUTO .AND. SC6->C6_ITEM <> SZN->ZN_ITEM) RecLock("SZN",.T.) ALERT("VAI GRAVAR") SZN->ZN_NUM := SC6->C6_NUM SZN->ZN_PRODUTO := SC6->C6_PRODUTO SZN->ZN_DESCRI := SC6->C6_DESCRI SZN->ZN_ITEM := SC6->C6_ITEM MsUnlock() Dbskip() EndIF

IF (SC6->C6_NUM == SZN->ZN_NUM .AND. SC6->C6_PRODUTO == SZN->ZN_PRODUTO .AND. SC6->C6_ITEM == SZN->ZN_ITEM) ALERT("JA ESTA NO SZN") ALERT(ZN_FILIAL) ALERT(XFILIAL("SZN")) EndIF ALERT("FINAL DA EXECUÇÃO") MsUnlock() DbselectArea("SC6") Dbskip() EndIF

//eNDIF Restarea(_aArea) //-- Restaura a posição da tabela corrente

Return()

  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 SigaOAdvpl!

1 resposta

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