Fórum

Estatística Forum

  • Total Users: 16.21k
  • Latest Member: walter martins de oliveira
  • Total Posts: 27.9k
  • Total Topics: 8512
  • Total Sections: 16
  • Total Categories: 62
  • Today Open: 0
  • Yesterday Open: 0
  • Today Answer: 0
  • Yesterday Answer: 0

Pesquisa Forum

Keyword

Pesquisar Videos

Open Panel
Bem-Vindo, Visitante
Nome de usuário: Senha: Lembrar-me

TÓPICO: Ordenar coluna no browse de baixa automatica a pagar

Ordenar coluna no browse de baixa automatica a pagar 11 Jan 2018 14:57 #32447

  • pirata_mao
  • OFFLINE
  • Membro Expert
  • Postagens: 82
  • Obrigados Recebidos: 10
Resolvido... segue o PE.


#INCLUDE "PROTHEUS.CH"

User Function F090TIT()

Local lRet := .F.
Local nValor := PARAMIXB[1]
Local aTitulos := {}
Local cNomeTab := cAliasSE2//"SCGN000010"
Local aArea := (cNomeTab)->(GetArea())
Local cChave := (cNomeTab)->(IndexKey())
Local cIndTRB := "E2_FILIAL+E2_NOMFOR"


If type("PARAMIXB[2]") != "U"

aTitulos := PARAMIXB[2]
If Len(aTitulos) == 0
If cChave <> cIndTRB

cIndex := CriaTrab( Nil, .F. )
cChave := IndexKey()

IndRegua(cNomeTab, cIndex, cIndTRB, , , "Selecionando Registros "+cNomeTab+"...")

EndIf

lRet := .F.
Else

If cChave <> cIndTRB


cIndex := CriaTrab( Nil, .F. )
cChave := IndexKey()

IndRegua(cNomeTab, cIndex, cIndTRB, , , "Selecionando Registros "+cNomeTab+"...")

EndIf
lRet := .T.
Endif
Else
lRet := .T.
Endif

//RestArea(aArea)

Return lRet
O administrador desabilitou o acesso público de escrita.

Ordenar coluna no browse de baixa automatica a pagar 27 Dez 2017 09:30 #32435

  • pirata_mao
  • OFFLINE
  • Membro Expert
  • Postagens: 82
  • Obrigados Recebidos: 10
Bom dia galera.

Preciso ordenar a coluna Nome Fornece no browse de baixa automatica a pagar. Alguém pode me ajudar?
O administrador desabilitou o acesso público de escrita.
Tempo para a criação da página:1.517 segundos

Últimas Forum

More Topics »

Facebook

Twitter

Facebook