× Linguagem de Programação ADVPL

Perguntas Duvida Exclusão de Pedido de Venda

Mais
11 anos 6 meses atrás #13755 por Rei da TI
Ola pessoal tudo bem?

Então me cadastrei neste site, para ver se alguem me ajuda...

Sou iniciante em advpl e gostaria da ajuda de vcs....

Assim, tenho uma tabela customizada chamada ZR1, que nada mais é de que uma "copia" da tabela SC7.Dentro desta tabela tenho um botão importar que quando clico ele atualiza as informações da ZR1 de acordo com a SC7, tudo bem ate ai esta funcionando normal.

O que estou querendo fazer é o seguinte. Quando alguém entrar excluir um ITEM da SC7, este mesmo item DEVE ser excluído da minha tabela ZR1.

algumas pessoas falaram que a melhor maneira era excluir via ponto de entrada, fui o que eu fiz:

no ponto de entrada MT120GOK

criei uma função dentro deste ponto de entrada da seguinte maneira abaixo, mais esta dando erro:

é assim mesmo ou eu estou viajando?

user function AltZR1(_Altera,_Deleta)

Local nCnt := 0
Local nPosC7_NUM := aScan(aHeader,{|X| ALLTRIM(X[2]) == "C7_NUM"})
Local nPosC7_ITEM := aScan(aHeader,{|X| ALLTRIM(X[2]) == "C7_ITEM"})
Local nPosC7_PRODUTO := aScan(aHeader,{|X| ALLTRIM(X[2]) == "C7_PRODUTO"})

// seta ordem
ZR1->(DbSetOrder(1))

if(_Altera)

For nCnt := 1 to len(aCols)

//if !aCols [nCnt][len( aCols[nCnt])]
if aCols[nCnt,Len(aHeader)+1] //conto apenas as linhas removidas

if ZR1->( DbSeek(XFILIAL("ZR1")+aCols[nCnt][nPosC7_NUM]+aCols[nCnt][nPosC7_ITEM]+aCols[nCnt][nPosC7_PRODUTO]) )
// altera registro
//RecLock("ZR1",.F.)
//ZR1->(DbDelete()) // Efetua a exclusão lógica do registro posicionado.
//MsUnLock() // Confirma e finaliza a operação
Alert("Processo" + ZR1->ZR1_PROCESSO+"
"+ZR1->ZR1_ITEM)
endif
endif
next nCnt

elseif(_Deleta)

// altera registro
//RecLock("ZR1",.F.)
//ZR1->(DbDelete()) // Efetua a exclusão lógica do registro posicionado.
//MsUnLock() // Confirma e finaliza a operação

endif

// libera o registro
ZR1->(MsUnlock())

return


Podem me ajudar?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13756 por kanaamlrr
Reinaldo, seja bem vindo!

transferi sua postagem para um novo tópico afim de orgazinar ok?

Quanto a sua dúvida a melhor forma seria pegar um ponto de entrada no momento da exclusão da SC7 e nele realizando a busca e exclusão na ZR1

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.114 segundos
Joomla templates by a4joomla