Perguntas [RESOLVIDO] Ajuda com fonte SX5

Prezados

Tenho um PE que controla a numeração das NF de acordo com código do funcionário e série da mesma. Até o momento o mesmo funcionava perfeitamente pois 1 usuário emitia apenas 1 tipo de NF (de acordo com a serie). Porém fizeram uma alteração agora alguns funcionários vão emitir os 3 tipo de NF que temos (3 = NF-e 6 = NFS-e e B = Locação de Equipamentos - formulario continuo).

Porém não tenho a menor ideia de como fazer isso, pois estava baseado numa regra simples. Alguém poderia me ajudar com esse problema?

Desde já agradeço pela atenção

Cara, você pode fazer algo do tipo:

Acho que é algo do tipo, se entendi direito o que você precisa.
Lembrando que o sistema passa por esse PE para cada série cadastrada.

Boa Tarde Kanaãm

No formato que vc informou estava dando erro nas variaveis, fiz conforme abaixo porém ocorre erro -1 não sei qual motivo.

USER FUNCTION SX5NOTA()

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


If _cCodUser == '000025' .OR. _cCodUser == '000029' .OR. _cCodUser == '000030' .OR. _cCodUser == '000031' .OR. _cCodUser == '000035' .OR. _cCodUser == '000038' .OR. _cCodUser == '000046' .OR. _cCodUser == '000047' .OR. _cCodUser == '000031'.OR. _cCodUser == '000020' //.OR. _cCodUser == '000052'

cSerie := "3" // "1|2"
//cSerie1:= "R" // "1|2"
lRet := .F.

If alltrim(x5_chave) == cSerie // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif
If alltrim(x5_chave) == cSerie1 // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif

Else

If _cCodUser == '000052'

cSerie := "3/6/L"
lRet := .F.


If alltrim(x5_chave) == cSerie // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif
If alltrim(x5_chave) == cSerie1 // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif
If alltrim(x5_chave) == cSerie2 // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif

Else

cSerie:= "6" // "1|2"
lRet := .F.

If alltrim(x5_chave) == cSerie // If alltrim(x5_chave) $ cSerie
lRet := .T.
Endif
End If
return(lRet)

Erro -1?

Você sabe em qual linha?

se for na função RetCodUsr() usa a variável pública __cUserId

Kanaãm

O erro é este aqui:

Erro de compilação:
SX5NOTA.PRW(-1) C2003 Syntax Error

Não reporta qual é a linha, isso que mais estranho.

ahhh, na compilação pode ser por conta de includes
da uma verificada ai.