|
Bem Vindo, Visitante
|
Todos os Fórums
ADVPL
|
Imprimir
Enviar Para um Amigo Precisa estar Logado
|
|
|
Assunto: |
Configuracao Gatilho campo D1_OPER |
|
Versão: |
12 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
Mensagem do
ADRIANA
em 16/02/2018, 15:38 h
Local: SP Registro: 26/08/2010 Postagens: 53 |
Por favor, preciso criar um gatilho para documento de entrada tipo normal traga no campo C1_OPER = "51" para que dispare TES INTELIGENTE
Onde estou errando?
#Include ‘rwmake.ch‘
User Function RunsxD1()
Local cRet
aCols[n][aScan(aHeader,{|x| AllTrim(x[2])=="D1_OPER"})] := "51"
cRet := aCols[n][aScan(aHeader,{|x| AllTrim(x[2])=="D1_OPER"})]
MaTesInt(1,M->D1_OPER,cA100For,cLoja,If(cTipo$"DB","C","F"),M->D1_COD,"D1_TES")
Return cRet
Fiz um parecido para o Pedido de Venda, e funciona.
Mas para o documento de entrada não esta funcionando.
Onde posso estar errando?
Adri
|
|
|
Mensagem do
EMERSON.EN
em 16/02/2018, 17:11 h
Local: SP Registro: 20/08/2010 Postagens: 669 |
tente:
#Include 'rwmake.ch'
User Function RunsxD1()
M->D1_OPER := "51"
aCols[n, GdFieldPos("D1_OPER")] := M->D1_OPER
MaTesInt(1,M->D1_OPER,cA100For,cLoja,If(cTipo$"DB","C","F"),M->D1_COD,"D1_TES")
Return M->D1_OPER
ou:
#Include 'rwmake.ch'
User Function RunsxD1()
Local cRet
cRet := "51"
aCols[n, GdFieldPos("D1_OPER")] := cRet
MaTesInt(1,cRet,cA100For,cLoja,If(cTipo$"DB","C","F"),M->D1_COD,"D1_TES")
// note que na chamada à MaTesInt passei a utilizar cRet
Return cRet |
|
|
Mensagem do
WALTERFCAR
em 16/02/2018, 20:03 h
Local: SP Registro: 14/10/2015 Postagens: 61 |
Posso estar falando uma bobagem, mas não teria que fazer
cRet := MaTesInt(.....) ? |
|
Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|