×
Linguagem de Programação ADVPL
Perguntas MATA103
- manoelcarlosjunior
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 116
- Obrigados Recebidos: 0
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
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
Estou apanhando pra achar o PE correto ou talvez seja até algum erro de código.
Não sei, por isso a dúvida
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
Por favor Acessar ou Registrar para participar da conversa.
- manoelcarlosjunior
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 116
- Obrigados Recebidos: 0
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.)
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