Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Backoffice
Módulo:Financeiro
Função:

FINA080 - Baixas Pagar Manual

Requisito/Story/Issue (informe o requisito relacionado) :DSERFINP-29408


02. DESCRIÇÃO

A finalidade do ponto de entrada F080EXEA é permitir fazer tratamentos específicos após a exclusão dos registros da tabela SEA na rotina de cancelamento de baixas a pagar (FINA080).

03. PARÂMETROS

Nome

Tipo

Descrição

cFilBor

Caractere

Filial do Borderô

cNumBor

Caractere

Numero do Borderô

cFornece

Caractere

Código do Fornecedor do Titulo no borderô

cLoja

Caractere

Loja do Fornecedor do Titulo no borderô

04. RETORNO

Nome

Tipo

Descrição

uRet


Nenhum retorno esperado

05. EXEMPLO DE UTILIZAÇÃO

F080EXEA
#INCLUDE "Totvs.ch"

/*/{Protheus.doc} F080EXEA()

    Fazer tratamentos apos a exclusão da SEA na rotina FINA080 - 
    função Fa080Can
    
@param Paramixb[1] - cFilBor - filial do borderô
    @param Paramixb[2] - NumBor - numero do borderô
    @param Paramixb[3] - Fornece - fornecedor do borderô
    @param Paramixb[4] - Loja - loja do borderô
    @return lRet - none
/*/
User Function F080EXEA()
    Local lRet     := .T.
    Local cFilBor  := ParamIxb[1]
    Local cNumBor  := ParamIxb[2]
    Local oBordero := TIBORDEROVERSAO():NEW(,"SE2",.T.,.T.)

    If ( !oBordero:MustBordCancel(cFilBor,cNumBor,"P",.T.) )

        If ( oBordero:GetValue("PSB_BORDER") <> cNumBor )
            oBordero:SetValue("PSB_BORDER",cNumBor)
        EndIf

        If ( !oBordero:HasError() )

            If ( oBordero:IsReady() )
                oBordero:SetValue("PSB_STATUS","4")
                oBordero:SetValue("PSB_SITBRD","1")
                oBordero:SetValue("PSB_USUCRI"   , AllTrim(RetCodUsr()))
                oBordero:SetValue("PSB_ORIGEM"  , "FINA080")

                oBordero:CommitData()
            EndIf
        Else
            oBordero:ShowError()
        EndIf
        oBordero:Finalize()
    EndIf

Return lRet