Perguntas TMKLINKOK
- Wanderson
- Autor do Tópico
- Desconectado
- Membro Júnior
-
Menos
Mais
- Postagens: 39
- Obrigados Recebidos: 0
4 anos 5 meses atrás #32882
por Wanderson
Bom dia Pessoal,
Estou precisando da ajuda de voces para desenvolver uma rotina na validação da linha do Atendimento, quando o usuário mudar de linha a rotina deve manter no campo UD_ASSUNTO o mesmo código da linha acima, por padrão ele vem em branco.
Sera que alguém pode me ajudar.
#Include "Totvs.ch"
User Function TMKLINOK()
Local _aAreaOrig := GetArea("SUD")
_nPosAssunto := aScan(aHeader,{|x| AllTrim(x[2]) == "UD_ASSUNTO"})
for i := 1 to len(aCols)
aCols[i,aScan(aHeader,{|x| Upper(AllTrim(x[2])) == "UD_ASSUNTO"})]:= aCols[n][_nPosAssunto]
next i
RestArea(_aAreaOrig)
Return .T.
Estou precisando da ajuda de voces para desenvolver uma rotina na validação da linha do Atendimento, quando o usuário mudar de linha a rotina deve manter no campo UD_ASSUNTO o mesmo código da linha acima, por padrão ele vem em branco.
Sera que alguém pode me ajudar.
#Include "Totvs.ch"
User Function TMKLINOK()
Local _aAreaOrig := GetArea("SUD")
_nPosAssunto := aScan(aHeader,{|x| AllTrim(x[2]) == "UD_ASSUNTO"})
for i := 1 to len(aCols)
aCols[i,aScan(aHeader,{|x| Upper(AllTrim(x[2])) == "UD_ASSUNTO"})]:= aCols[n][_nPosAssunto]
next i
RestArea(_aAreaOrig)
Return .T.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.072 segundos