- Fórum
- Protheus/Microsiga/Totvs
- Instalação e Configuração Protheus
- Banco de Dados
- inicializador padrao
Perguntas inicializador padrao
- simoes
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 51
- Obrigados Recebidos: 0
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 9 meses atrás #27192
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico inicializador padrao
Carinha blz, isso só na inclusão ou numa alteração precisa replicar em todos os itens.
melhor usar uma função que replique esta informação no acols, se não soube me avisa que monto pra vc ok.
melhor usar uma função que replique esta informação no acols, se não soube me avisa que monto pra vc ok.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- simoes
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 51
- Obrigados Recebidos: 0
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 9 meses atrás #27200
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico inicializador padrao
Na validacao de usuario do campo C5_FECENT coloca U_AjEntreg()
Cria o Fonte abaixo e compila. (Nao testei)
#include "rwmake.ch"
/*****
*
* AjEntreg- Funcao para Preenchimento do Campo Entrega atraves de Gatilho
*
*****/
User Function AjEntreg()
// Índice dos campos
Local nEntreg := Ascan(aHeader,{|x| Upper(Alltrim(x[2])) == "C6_ENTREG" })
Local dEntreg := M->C5_FECENT
// Alimenta Coluna Entrega
For nItem := 1 To Len(aCols)
// Se o item foi excluído desconsidera-o
If aCols[nItem][Len(aHeader)+1]
Loop
Endif
aCols[nItem][nEntreg] := dEntreg
Next
Return .t.
Cria o Fonte abaixo e compila. (Nao testei)
#include "rwmake.ch"
/*****
*
* AjEntreg- Funcao para Preenchimento do Campo Entrega atraves de Gatilho
*
*****/
User Function AjEntreg()
// Índice dos campos
Local nEntreg := Ascan(aHeader,{|x| Upper(Alltrim(x[2])) == "C6_ENTREG" })
Local dEntreg := M->C5_FECENT
// Alimenta Coluna Entrega
For nItem := 1 To Len(aCols)
// Se o item foi excluído desconsidera-o
If aCols[nItem][Len(aHeader)+1]
Loop
Endif
aCols[nItem][nEntreg] := dEntreg
Next
Return .t.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- Instalação e Configuração Protheus
- Banco de Dados
- inicializador padrao
Tempo para a criação da página:0.153 segundos