Exibir origem

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Backoffice
Módulo:	Financeiro
Função:	FINA080 - Baixa de Contas a Pagar
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	Codigo 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

#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

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>