Histórico da Página

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.

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

Função:

OFIXA020()