- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Duvida Exclusão de Pedido de Venda
×
Linguagem de Programação ADVPL
Perguntas Duvida Exclusão de Pedido de Venda
- Rei da TI
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13755
por Rei da TI
Duvida Exclusão de Pedido de Venda foi criado 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?
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.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 6 meses atrás #13756
por kanaamlrr
Respondido por kanaamlrr no tópico Duvida Exclusão de Pedido de Venda
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
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Duvida Exclusão de Pedido de Venda
Tempo para a criação da página:0.114 segundos