× Linguagem de Programação ADVPL

Perguntas Sequencial baseado em outro campo

Mais
10 anos 4 meses atrás #23457 por orakulo
Bom dia Amigos... preciso de ajuda....
Criei uma tabela para cadastro de família e sub família de produtos.
no cadastro de sub família tenho:
Cód Familia - Desc Familia - Cod SubFam - Desc SubFam
e eu preciso de um sequencial no Cod SubFam mas que zere conforme o Cód Familia
exemplo
Cod Familia: 001
Cód SubFam: 001
Cód SubFam: 002
Cód SubFam: 003

Cod Familia: 002
Cód SubFam: 001
Cód SubFam: 002

Cod Familia: 003
Cód SubFam: 001
Cód SubFam: 002
Cód SubFam: 003
Cód SubFam: 004
Cód SubFam: 005

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23466 por THALESCOTR
Respondido por THALESCOTR no tópico Sequencial baseado em outro campo
Bom dia,

crie um gatilho do campo Cod Familia para o campo Cod SubFam.

No campo regra, chame uma função: Ex: U_Teste()


//Exemplo, organize sua query e a ajuste a função Soma1(), que irá funcionar.
User Function Teste

Local cCodSubFam := ""
cQuery := "SELECT MAX .... WHERE COD FAMILA = 'M->COD FAMILIA'
cCodSubFam := Soma1(a coluna do MAX)

Return cCodSubFam


Att
Thales

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23468 por orakulo
Respondido por orakulo no tópico Sequencial baseado em outro campo
Thales eu não entendi sua solução....

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23470 por inocenciojr
Orakulo,

Crie uma função que irá gerenciar a sequencia numérica e chamar essa função dentro do gatilho

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23474 por orakulo
Respondido por orakulo no tópico Sequencial baseado em outro campo
Alguém ?

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 4 meses atrás #23488 por orakulo
Respondido por orakulo no tópico Sequencial baseado em outro campo
seria algo do tipo ?...

Local cCodSubFam :="" cSQL := select max(Z2_COD) as "Sequencial Subfamilia" from SZ2010"
cSQL += " WHERE"
cSQL += " SZ2010.Z2_COD = ''" + "' SZ2010.D_E_L_E_T_ <> '*'" = 'M->Z2_COD'
cZ2_COD := Soma1(Z2_COD)

Return cCodSubFam

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.071 segundos
Joomla templates by a4joomla