Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT410BRW


Descrição:

Este ponto de entrada é chamado antes da apresentação da mbrowse da rotina de Pedidos de Venda.

Programa Fonte:
MATA410.PRW

Sintaxe:

MT410BRW ( ) --> Nenhum


Retorno:
Nenhum
    (nulo)

Exemplo:

#Include "rwmake.ch"
#Include "protheus.ch"

User Function MT410BRW()

Local aAreaSC5 := SC5->(GetArea())
Local aAreaSA3 := SA3->(GetArea())
Local cCodUser := RetCodUsr()      //Retorna o código do usuário
Local cCodVen  := ""

SA3->(dbSetOrder(7))
If SA3->(dbSeek(xFilial("SA3")+cCodUser)) // Localiza Vendedor pelo código do usuário
     cCodVen := SA3->A3_COD
EndIf

If !Empty(cCodVen)
     //Filtra somente os pedidos do vendedor
     dbSelectArea("SC5")
     Set Filter To &("SC5->C5_VEND1 == '" + cCodVen + "'")
Else
     //Mostra todos os pedidos
     dbSelectArea("SC5")
     Set Filter To
EndIf

RestArea(aAreaSC5)
RestArea(aAreaSA3)

Return