- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] Ajuda com fonte SX5
×
Linguagem de Programação ADVPL
Perguntas [RESOLVIDO] Ajuda com fonte SX5
- caiotec
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 219
- Obrigados Recebidos: 0
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
- caiotec
- Autor do Tópico
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 219
- Obrigados Recebidos: 0
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.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- [RESOLVIDO] Ajuda com fonte SX5
Tempo para a criação da página:0.077 segundos