Perguntas Controle de Numeração SE2 p/ PA

Pessoal, bom dia.

Temos a necessidade de controlar a numeração do campo SE2->E2_NUM, quando o título for PA. Pois, quando o título é gerado por NF, a numeração assume o número da NF.
Alguém tem alguma idéia de como controlar automaticamente?

Existe alguma tratativa?
Algum Ponto de Entrada?

Att,

Diego, bom dia !

Você precisa seguir uma sequencia no PA é isso, não entendi direito. Porém se de fato for o que precisa fazer, eu utilizo aqui, baseado em uma função chamada por gatilho no campo tipo.

If Empty(cNum)

If cTipo <> 'AB-'

cSql := "SELECT MAX(E2_NUM) AS NUMERO FROM "+RetSqlName("SE2")
cSql += " WHERE E2_FILIAL = '"+xFilial("SE2")+"' AND E2_TIPO = '"+cTipo+"' AND D_E_L_E_T_<> '*' "

If !Empty(cSql)

If select("QRY") > 0
QRY->(DbCloseArea())
Endif

TcQuery ChangeQuery(cSql) New Alias "QRY"

If Empty(QRY->NUMERO)
cProxCod := '000000001'
Else
cProxCod := Soma1(Alltrim(QRY->NUMERO))
Endif

Rodrigo Simões

Bom dia Rodrigo.

Isso mesmo. Preciso seguir uma sequencia na SE2 quando o título for PA.
Vou testar.

Obrigado.

Rodrigo,

Quando compila a função dá erro de sintaxe. Poderia enviar a função completa?

User Function HWGAT001()

If Empty(cNum)

If cTipo <> 'AB-'

cSql := "SELECT MAX(E2_NUM) AS NUMERO FROM "+RetSqlName("SE2")
cSql += " WHERE E2_FILIAL = '"+xFilial("SE2")+"' AND E2_TIPO = '"+cTipo+"' AND D_E_L_E_T_<> '*' "

If !Empty(cSql)

If select("QRY") > 0
QRY->(DbCloseArea())
Endif

TcQuery ChangeQuery(cSql) New Alias "QRY"

If Empty(QRY->NUMERO)
cProxCod := '000000001'
Else
cProxCod := Soma1(Alltrim(QRY->NUMERO))
Endif
Endif
Endif
Endif