- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Selecionar Pedidos de Compras - [F5]
×
Linguagem de Programação ADVPL
Perguntas Selecionar Pedidos de Compras - [F5]
- mvittoria
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 42
- Obrigados Recebidos: 0
10 anos 3 semanas atrás #25928
por mvittoria
Selecionar Pedidos de Compras - [F5] foi criado por mvittoria
Bom dia,
Customizei um novo campos Documentos de Entrada, coloquei um catilho para que quando for inserido o código D1_COD, o campo customizado se preencha,
minha dúvida, os usuários tem o habito de usar o "Selecionar Pedidos de Compras - [F5]" para preenchimento de todos os campos, o unico que não é preenchido é o meu campo customizado.
Teria como vincular meu campo para que sempre que for utilizado o F5 preencha o campo customizado
grato
Customizei um novo campos Documentos de Entrada, coloquei um catilho para que quando for inserido o código D1_COD, o campo customizado se preencha,
minha dúvida, os usuários tem o habito de usar o "Selecionar Pedidos de Compras - [F5]" para preenchimento de todos os campos, o unico que não é preenchido é o meu campo customizado.
Teria como vincular meu campo para que sempre que for utilizado o F5 preencha o campo customizado
grato
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
10 anos 3 semanas atrás #25936
por admin
Respondido por admin no tópico Selecionar Pedidos de Compras - [F5]
Usa este ponto de entrada e preencha o campo qdo efetuar a seleção do pedido F5
User Function MT103IPC
Local _nItem := PARAMIXB[1]
Local _nPosCod := AsCan(aHeader,{|x|Alltrim(x[2])=="D1_COD"})
Local _nPosDes := AsCan(aHeader,{|x|Alltrim(x[2])=="D1_DESCRI"})
If _nPosCod > 0 .And. _nItem > 0
aCols[_nItem,_nPosDes] := SB1->B1_DESC
Endif
Return
User Function MT103IPC
Local _nItem := PARAMIXB[1]
Local _nPosCod := AsCan(aHeader,{|x|Alltrim(x[2])=="D1_COD"})
Local _nPosDes := AsCan(aHeader,{|x|Alltrim(x[2])=="D1_DESCRI"})
If _nPosCod > 0 .And. _nItem > 0
aCols[_nItem,_nPosDes] := SB1->B1_DESC
Endif
Return
Por favor Acessar ou Registrar para participar da conversa.
- mvittoria
- Autor do Tópico
- Desconectado
- Membro Sénior
-
Menos
Mais
- Postagens: 42
- Obrigados Recebidos: 0
10 anos 3 semanas atrás #25939
por mvittoria
Respondido por mvittoria no tópico Selecionar Pedidos de Compras - [F5]
Obrigado
User Function MT103IPC()
**********************
If (GDFieldPos("D1_XNCM") > 0)
aCols[ParamIxb[1]][GDFieldPos("D1_XNCM")] := SB1->B1_posipi
Endif
Return
User Function MT103IPC()
**********************
If (GDFieldPos("D1_XNCM") > 0)
aCols[ParamIxb[1]][GDFieldPos("D1_XNCM")] := SB1->B1_posipi
Endif
Return
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Selecionar Pedidos de Compras - [F5]
Tempo para a criação da página:0.101 segundos