- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Numeração automática SXF, SXE
×
Linguagem de Programação ADVPL
Perguntas Numeração automática SXF, SXE
- Wagner Lima
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 30
- Obrigados Recebidos: 0
7 anos 11 meses atrás #31647
por Wagner Lima
Numeração automática SXF, SXE foi criado por Wagner Lima
Boa Tarde!
Estou fazendo um cadastro de "Orçamento" e não estou conseguindo fazer a numeração automática funcionar.
Já coloquei a Função "GetSxeNum("SZO","ZO_NUMORC")" e "GetSx8Num("SZO","ZO_NUMORC")" más não está
funcionando.
As tabelas "SXF" e "SXE" estão com o sequencial correto más não mostra no cabeçalho a numeração.
Queria saber se preciso fazer alguma coisa em advpl para funcionar?
dbSelectArea("SX3")
dbSetOrder(1)
dbSeek("SZO")
Do While !Eof() .and. SX3->X3_ARQUIVO = "SZO"
If !SX3->X3_CAMPO $ "ZO_FILIAL" .AND. X3USO(SX3->X3_USADO)
aAdd(_aCpoCab, Upper(Alltrim(SX3->X3_CAMPO)))
Endif
Estou fazendo um cadastro de "Orçamento" e não estou conseguindo fazer a numeração automática funcionar.
Já coloquei a Função "GetSxeNum("SZO","ZO_NUMORC")" e "GetSx8Num("SZO","ZO_NUMORC")" más não está
funcionando.
As tabelas "SXF" e "SXE" estão com o sequencial correto más não mostra no cabeçalho a numeração.
Queria saber se preciso fazer alguma coisa em advpl para funcionar?
dbSelectArea("SX3")
dbSetOrder(1)
dbSeek("SZO")
Do While !Eof() .and. SX3->X3_ARQUIVO = "SZO"
If !SX3->X3_CAMPO $ "ZO_FILIAL" .AND. X3USO(SX3->X3_USADO)
aAdd(_aCpoCab, Upper(Alltrim(SX3->X3_CAMPO)))
Endif
Por favor Acessar ou Registrar para participar da conversa.
- sarraipa
- Desconectado
- Membro Dourado
Menos
Mais
- Postagens: 232
- Obrigados Recebidos: 1
7 anos 11 meses atrás #31659
por sarraipa
Respondido por sarraipa no tópico Numeração automática SXF, SXE
O campo ZO_NUMORC é um indice da tabela?
Outra coisa pode ater ser bobeira mas tem Aspas duplas no inicio e fim do seu GetSxeNum acho que não deveria ter.
Tenta colocar no inicializador padrão sem:
GETSXENUM("SZO","ZO_NUMORC")
Outra coisa pode ater ser bobeira mas tem Aspas duplas no inicio e fim do seu GetSxeNum acho que não deveria ter.
Tenta colocar no inicializador padrão sem:
GETSXENUM("SZO","ZO_NUMORC")
Por favor Acessar ou Registrar para participar da conversa.
- Wagner Lima
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 30
- Obrigados Recebidos: 0
7 anos 11 meses atrás - 7 anos 11 meses atrás #31680
por Wagner Lima
Respondido por Wagner Lima no tópico Numeração automática SXF, SXE
André Sarraipa, muito obrigado pela ajuda!
Amigo esse campo é um código único e índice.
Tirei as aspas más não funcionou.
Amigo acho que o problema pode ser aqui.
Penso que quando adiciono o campo deve ser atribuido o campo SX3->X3_INIBRW más não sei como fazer e nem
se vai funcionar
aAdd(_aCpoCab, Upper(Alltrim(SX3->X3_CAMPO)))
// Cria variaveis de memoria do Enchoice com base no registro posicionado.
If nOpcx == 3
&("M->" + Upper(Alltrim(SX3->X3_CAMPO))) := (Space(SX3->X3_TAMANHO))
RegToMemory(cAlias1,lInc,lDic,lInitPad,,)
Amigo esse campo é um código único e índice.
Tirei as aspas más não funcionou.
Amigo acho que o problema pode ser aqui.
Penso que quando adiciono o campo deve ser atribuido o campo SX3->X3_INIBRW más não sei como fazer e nem
se vai funcionar
aAdd(_aCpoCab, Upper(Alltrim(SX3->X3_CAMPO)))
// Cria variaveis de memoria do Enchoice com base no registro posicionado.
If nOpcx == 3
&("M->" + Upper(Alltrim(SX3->X3_CAMPO))) := (Space(SX3->X3_TAMANHO))
RegToMemory(cAlias1,lInc,lDic,lInitPad,,)
Ultima edição: 7 anos 11 meses atrás por Wagner Lima.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Numeração automática SXF, SXE
Tempo para a criação da página:0.089 segundos