- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gatilho Cadastro de Cliente
×
Linguagem de Programação ADVPL
Perguntas Gatilho Cadastro de Cliente
- SimoesTI
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 37
- Obrigados Recebidos: 0
8 anos 4 meses atrás #30783
por SimoesTI
Gatilho Cadastro de Cliente foi criado por SimoesTI
Boa tarde,
Galera alguém pode me ajudar estou fazendo uma função que executa alguns comandos no cadastro do cliente, fiz os gatilhos corretamente, mas quando testo do meu segundo IF para baixo não é executado.
alguém pode me ajudar????
#include 'protheus.ch'
user function FillIE01()
Local cIE := M->A1_INSCR
Local cPessoa := M->A1_PESSOA
Local cContri := A1_CONTRIB
Local cDesIE := A1_IENCONT
if(cPessoa=="F")
cIE := "ISENTO"
else
cIE := ""
endif
if(cPessoa=="F".And.cIE=="ISENTO")
cContri := "2=Não"
cDestIE := "2=Não"
else
cContri := ""
cDestIE := ""
endif
if(cPessoa=="J".And.cIE=="ISENTO")
Msginfo("Preencher o campo 'Contribuinte' na aba 'Fiscais'.")
cDestIE := "2=Não"
else
cDestIE := ""
endif
return {cIE,cContri,cDestIE}
Galera alguém pode me ajudar estou fazendo uma função que executa alguns comandos no cadastro do cliente, fiz os gatilhos corretamente, mas quando testo do meu segundo IF para baixo não é executado.
alguém pode me ajudar????
#include 'protheus.ch'
user function FillIE01()
Local cIE := M->A1_INSCR
Local cPessoa := M->A1_PESSOA
Local cContri := A1_CONTRIB
Local cDesIE := A1_IENCONT
if(cPessoa=="F")
cIE := "ISENTO"
else
cIE := ""
endif
if(cPessoa=="F".And.cIE=="ISENTO")
cContri := "2=Não"
cDestIE := "2=Não"
else
cContri := ""
cDestIE := ""
endif
if(cPessoa=="J".And.cIE=="ISENTO")
Msginfo("Preencher o campo 'Contribuinte' na aba 'Fiscais'.")
cDestIE := "2=Não"
else
cDestIE := ""
endif
return {cIE,cContri,cDestIE}
Por favor Acessar ou Registrar para participar da conversa.
- will
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 81
- Obrigados Recebidos: 0
- SimoesTI
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 37
- Obrigados Recebidos: 0
8 anos 3 meses atrás #30921
por SimoesTI
Respondido por SimoesTI no tópico Gatilho Cadastro de Cliente
Boa tarde,
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obfg
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obfg
Por favor Acessar ou Registrar para participar da conversa.
- SimoesTI
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 37
- Obrigados Recebidos: 0
8 anos 3 meses atrás #30922
por SimoesTI
Respondido por SimoesTI no tópico Gatilho Cadastro de Cliente
Boa tarde,
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obfg
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obfg
Por favor Acessar ou Registrar para participar da conversa.
- SimoesTI
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 37
- Obrigados Recebidos: 0
8 anos 3 meses atrás #30923
por SimoesTI
Respondido por SimoesTI no tópico Gatilho Cadastro de Cliente
Boa tarde,
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obg
Achei o erro o problema estava aqui.
if(cPessoa=="F".And.cIE=="ISENTO")
O campo A1_INSCR é maior que 6 caracteres ai o comparativo == não reconhecia eu troquei o == 'igual' pelo $ 'contido' ai deu certo.
Obg
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Gatilho Cadastro de Cliente
Tempo para a criação da página:0.133 segundos