- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada MT100TOK
×
Linguagem de Programação ADVPL
Perguntas Ponto de entrada MT100TOK
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
10 anos 6 meses atrás #22467
por sarraipa
Ponto de entrada MT100TOK foi criado por sarraipa
Olá,
Estou tentando fazer um ponto de entrada que obrigue o preenchimento do campo F1_CODNFE quando quando a especie for NFS, meu problema esta em como acessar a conteudo do F1_CODNFE tentei SF1->F1_CODNFE tentei aNFEletr[2] mas nada.
Estou tentando fazer um ponto de entrada que obrigue o preenchimento do campo F1_CODNFE quando quando a especie for NFS, meu problema esta em como acessar a conteudo do F1_CODNFE tentei SF1->F1_CODNFE tentei aNFEletr[2] mas nada.
Por favor Acessar ou Registrar para participar da conversa.
- ftvernier
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 386
- Obrigados Recebidos: 2
- dexter
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 78
- Obrigados Recebidos: 0
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
- sarraipa
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
10 anos 6 meses atrás #22531
por sarraipa
Respondido por sarraipa no tópico Ponto de entrada MT100TOK
Da uma olhada, este funciona para a chave da danf mas quero validar o campo F1_CODNFE
#include "PROTHEUS.CH"
User function MT100TOK()
local cReturn := .T.
LOCAL cTipdeent := cFormul
Local cTpCte_chave := Alltrim(aNFeDANFE[13]) //CHAVE NFE
Local cUserlogado := (trim(__cUserID))
IF (cTipdeent == 'N'.and. cUserlogado <> '000000' .and. cTpCte_chave =='')
IF (Alltrim(CESPECIE) == 'SPED' .or. Alltrim(CESPECIE)=='CTE')
MSGALERT("O preenchido a F1_CHVNFE(Chave eletronica) é obrigatorio")
cReturn := .F.
ENDIF
ENDIF
Return cReturn
#include "PROTHEUS.CH"
User function MT100TOK()
local cReturn := .T.
LOCAL cTipdeent := cFormul
Local cTpCte_chave := Alltrim(aNFeDANFE[13]) //CHAVE NFE
Local cUserlogado := (trim(__cUserID))
IF (cTipdeent == 'N'.and. cUserlogado <> '000000' .and. cTpCte_chave =='')
IF (Alltrim(CESPECIE) == 'SPED' .or. Alltrim(CESPECIE)=='CTE')
MSGALERT("O preenchido a F1_CHVNFE(Chave eletronica) é obrigatorio")
cReturn := .F.
ENDIF
ENDIF
Return cReturn
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada MT100TOK
Tempo para a criação da página:0.069 segundos