× Linguagem de Programação ADVPL

Perguntas [RESOLVIDO] Ajuda com fonte SX5

Mais
11 anos 7 meses atrás #12642 por caiotec
Respondido por caiotec no tópico [RESOLVIDO] Ajuda com fonte SX5
Os includes estão corretos, é alguma coisa que to errando no código.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 7 meses atrás #12645 por kanaamlrr
Respondido por kanaamlrr no tópico [RESOLVIDO] Ajuda com fonte SX5
NO seu IF principal está com 2 ELSE

verifica ai

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 6 meses atrás #13785 por caiotec
Respondido por caiotec no tópico [RESOLVIDO] Ajuda com fonte SX5
Kanaãm bom dia

Consegui resolver da seguinte forma:

USER FUNCTION SX5NOTA()

Local _cCodUser:= RetCodUsr() // Funcao que retorna o codigo do usuario
Local cSerie := ""
Local cSerie1:= ""
Local cSerie2:= ""
Local lRet := .F.


If _cCodUser == '000025' .OR. _cCodUser == '000029' .OR. _cCodUser == '000030' .OR. _cCodUser == '000035' .OR.;
_cCodUser == '000038' .OR. _cCodUser == '000046'

cSerie := "3"
lRet := .F.

If alltrim(x5_chave) == cSerie // Retorna a serie da NF
lRet := .T.
Endif

Else

cSerie := "3"
cSerie1:= "6"
cSerie2:= "L"
lRet := .F.

If alltrim(x5_chave) == cSerie // Retorna a serie da NF
lRet := .T.
Endif
If alltrim(x5_chave) == cSerie1
lRet := .T.
Endif
If alltrim(x5_chave) == cSerie2
lRet := .T.
Endif
End If
return(lRet)

Dava pra fazer com Array também mas notei que a resposta era um pouco mais lenta por ser vetor.

Obrigado p/ ajuda.

Por favor Acessar ou Registrar para participar da conversa.

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