Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina Ped. Transf. Peças (OFIXA020) e será executado ao abrir a rotina. O objetivo do ponto de entrada é realizar um filtro customizável dos dados no browse da rotina.

Localização:

Atualizações / Mov Financeiro / Ped. Transf. Peças (OFIXA020)

Eventos:

Function OFIXA020()


Local cFiltro := ""


Private cCadastro := STR0001

Private aRotina := MenuDef()

Private aCores := {;

{'VDD->VDD_STATUS == "S"','BR_AMARELO'},; // Pendente

{'VDD->VDD_STATUS == "A"','BR_VERDE'},; // Atendida

{'VDD->VDD_STATUS == "R"','BR_VERMELHO'},; // Rejeitado

{'VDD->VDD_STATUS == "E"','BR_PRETO'},; // NF Emitida

{'VDD->VDD_STATUS == "C"','BR_AZUL'} } // Entrada Confirmada

//

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ Endereca a funcao de BROWSE ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

//

DBSelectArea("VAI")

DBSetOrder(4)

DBSeek(xFilial("VAI")+__cUserId)


dbSelectArea("VDD")

dbSetOrder(1)


// Ponto de Entrada para Filtro do Browse

If ExistBlock("OX020BRO")

cFiltro := ExecBlock("OX020BRO", .f., .f.)

EndIf


if !Empty(VAI->VAI_TIPTRA)

cFiltro := "VDD->VDD_STATUS $ VAI->VAI_TIPTRA .AND. " + cFiltro

endif


If !Empty(cFiltro)

FilBrowse("VDD", {}, cFiltro)

EndIf


mBrowse( 6, 1,22,75,"VDD",,,,,,aCores)

dbClearFilter()

//

Return

Programa Fonte:

OFIXA020.PRW

Função:

OFIXA020()

Parâmetros:

N/A

Retorno:
NomeTipoDescrição

cFiltro

Caracter

Filtro completo


Exemplo:

Include totvs.ch

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OX020BRO | Autor | MIL | Data | 22/04/2020 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Filtro do Browse na Rotina Ped. Transf. Peças (OFIXA020) |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OX020BRO()

Local cFiltro := ""


cFiltro := "VDD->VDD_FILPED == '" + cFilAnt + "' .OR. VDD->VDD_FILORC == '" + cFilAnt + "'"

Return cFiltro