Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT450FIM


Versões:Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Espanhol , Inglês


Descrição:

Este ponto pertence à rotina de liberação de crédito, MATA450(). Está localizado na liberação manual do crédito por pedido A450LIBMAN(). É executado ao final da liberação de um pedido.

Eventos


Programa Fonte
.PRW
Sintaxe

MT450FIM ( < cPedido> ) --> Nil

Parâmetros:



Nome

Tipo

Descrição

Default

Obrigatório

Referência

cPedido

Vetor

número do pedido liberado.




X




Retorno
Nil
    (nulo)
  • Nil
Observações


Exemplo:

User function MT450FIM()


    Local cNumPedido := ParamIxb[1]

    SC9->( DBSetOrder( 1 ) )
    If SC9->( MsSeek(xFilial("SC9") + cNumPedido ) )
        If SC9->C9_BLCRED == "  "
            Alert("O pedido está liberado para crédito")
        EndIf    
    EndIf

Return Nil