Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese |
| Pagetitle | ||||
|---|---|---|---|---|
|
Ponto-de-Entrada: CriaSXE - Controle de Numeração
| Abrangências: | Microsiga Protheus 10, Microsiga Protheus 11, Microsiga Protheus 12 |
Descrição:
Ponto
...
de
...
entrada
...
para
...
retornar
...
o
...
próximo
...
número
...
que
...
deve
...
ser
...
utilizado
...
na
...
inicialização
...
da
...
numeração.
...
Este
...
ponto
...
de
...
entrada
...
é
...
recomendado
...
para
...
casos
...
em
...
que
...
deseja-se
...
alterar
...
a
...
regra
...
padrão
...
de
...
descoberta
...
do
...
próximo
...
número.
A
...
execução
...
deste
...
ponto
...
de
...
entrada,
...
ocorre
...
em
...
casos
...
de
...
perda
...
das
...
tabelas
...
SXE/SXF
...
(
...
versões
...
legado
...
)
...
e
...
de
...
reinicialização
...
do
...
License
...
Server.
Programa Fonte
MATXATU.PRXSintaxe
CriaSXE - Controle de Numeração ( [ PARAMIXB ] ) --> cRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| PARAMIXB | Vetor | Vetor contendo as informações que poderão ser utilizadas pelo P.E. |
Retorno
cRet
- (caracter)
- Número que será utilizado pelo controle de numeração. Caso seja retornado Nulo ( NIL ), a regra padrão do sistema será aplicada. Esta função nunca deve retornar uma string vazia.
Observações
Este ponto de entrada é executado quando não existir uma numeração no SXE para o campo especificado.
| Aviso |
|---|
Esta função nunca deve retornar uma string vazia. |
Parâmetro PARAMIXB
Estrutura do parâmetro
- [1] - cAlias - Nome da tabela;
- [2] - cCpoSX8 - Nome do campo que será utilizado para verificar o próximo sequencial;
- [3] - cAliasSX8 - Filial e nome da tabela na base de dados que será utilizada para verificar o sequencial;
- [4] - nOrdSX8 - Índice de pesquisa a ser usada na tabela.
Exemplos
| Bloco de código | ||
|---|---|---|
| ||
#include "protheus.ch"
User Function CRIASXE()
// o retorno desse ponto de entrada precisa ser nil para tabelas que não serão tratadas
Local cNum := NIL
Local _aArea := FwGetArea()
Local cAlias := paramixb[1]
Local cCpoSx8 := paramixb[2]
Local cAliasSx8 := paramixb[3]
Local nOrdSX8 := paramixb[4]
Local cUsa := "SE1"
// colocar os alias que irão permitir a execução do P.E.
if cAlias $ cUsa .and. ! ( Empty(cAlias) .and. empty(cCpoSx8) .and. empty(cAliasSx8) )
qout(cAlias + "-" + cCpoSx8 + "-" + cAliasSx8 + "-" + str(nOrdSX8))
dbselectarea(cAlias)
aArea2 := getarea()
dbsetorder(nOrdSX8)
dbseek(xfilial()+"Z")
dbskip(-1)
cNum := &(cCpoSx8)
cnum := soma1(cNum)
// fazer o tratamento aqui para a numeracao
MsgGet2( "Indique o numero correto para a tabela:" + calias, "Campo:"+cCposx8, @cNum, , , )
FwRestArea(_aArea)
EndIf
Return cNum
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas