| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CSAA100.PRW |
| País: | Brasil |
Este ponto de entrada recebe o KeyIni gerado pelo sistema padrão (Carga inicial) e permite que o usuário utilize o código gerado ou manipule os dados antes da gravação.
Ele é executado para cada registro da tabela SQB, ao acessar o Cadastro de departamentos (CSAA100).
| Localização | CrgKeyIni() - Carga inicial do QB_KEYINI. | ||||||||||||
| Parâmetro |
| ||||||||||||
| Retorno | Nil |
Exemplo de utilização:
#include “Protheus.ch"
User Function CSAALTKEY()
Local cGerKey := Alltrim(PARAMIXB[1])
Local cAtuKey := Alltrim(SQB->QB_KEYINI)
Local cNewKey := "000"
Local lOk := ( Len(cGerKey) / 3 ) == ( Int(Len(cGerKey) / 3) )
If cAtuKey <> cGerKey
Reclock("SQB", .F.)
SQB->QB_KEYINI := Iif(lOk, cGerKey, cNewKey)
MsUnlock()
EndIf
Return