× Linguagem de Programação ADVPL

Perguntas Ponto de entrada MT100TOK

Mais
10 anos 6 meses atrás #22467 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.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #22471 por ftvernier
Respondido por ftvernier no tópico Ponto de entrada MT100TOK
André Bom Dia,

Posta o ponto de entrada ai para te ajudarmos.

Abraços.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #22494 por dexter
Respondido por dexter no tópico Ponto de entrada MT100TOK
Veja se funciona pegando ele pela memória.
:whistle:

M->F1_CODNFE

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #22530 por sarraipa
Respondido por sarraipa no tópico Ponto de entrada MT100TOK
Não funciona.
Exemplo eu consigo acessar o campo F1_CHVNFE com:

Local Cte_chave := Alltrim(aNFeDANFE[13])

Por favor Acessar ou Registrar para participar da conversa.

Mais
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

Por favor Acessar ou Registrar para participar da conversa.

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