× Linguagem de Programação ADVPL

Perguntas MATA103

Mais
9 anos 8 meses atrás #27430 por manoelcarlosjunior
MATA103 foi criado por manoelcarlosjunior
Bom dia Galera,
Estou apanhando pra achar o PE correto ou talvez seja até algum erro de código.
Não sei, por isso a dúvida

:lol: Vamos la, documento de entrada, preciso que seja bloqueado a confirmação do Documento de entrada se o campo UF. Origem (F1_EST) estiver preenchido com EX. quando consulto qual o campo usando F1 ele me aparece a variável cUforig tentei jogar o campo M-> F1_EST ou a própria variável.

tipo .:
1- Nesse caso ele fala que a variável não existe
IF M-> F1_EST = ' EX'
MSGALERT("TESTE","TESTE")
ENDIF

2- Nesse caso debugando ele mostra a variável em branco.
IF cUforig = ' EX'
MSGALERT("TESTE","TESTE")
ENDIF


Nos PE MT100GRV, MT100LOK, MT100TOK e nada. ele não lê variável porque não esta ainda gravada no banco. Detalhe é que esse campo não é na linha.

Bom se puderem me ajudar...

Abraço

Manoel Carlos Júnior
Anexos:

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 8 meses atrás #27435 por manoelcarlosjunior
Respondido por manoelcarlosjunior no tópico MATA103
É TEEEEETRAAAAA CONSEGUI GALERA !!!

Graças a um brother FABIANOF

O MATA103 usar a variável cUfOrig, porém ela é local. Ou seja, você não consegue usar. Devemos pesquisar o estado nas tabela SA1 ou SA2, dependendo do tipo da NF. Fica +- assim:

If cTipo $ "DB"
SA1->(DbSetOrder(1))
If SA1->(DbSeek(xFilial("SA1")+cA100For+cLoja,.F.)) .And. SA1->A1_EST == "EX"
Alert("UF Exterior")
Return(.F.)
EndIf
Else
SA2->(DbSetOrder(1))
If SA2->(DbSeek(xFilial("SA2")+cA100For+cLoja,.F.)) .And. SA2->A2_EST == "EX"
Alert("UF Exterior")
Return(.F.)
EndIf
EndIf

Return(.T.)

Por favor Acessar ou Registrar para participar da conversa.

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