01. DADOS GERAIS

Linha de Produto:Linha Protheus
Segmento:Backoffice
Módulo:Financeiro


02. VISÃO GERAL

A rotina FINA631 possui 2 parâmetros a serem informados.

Parâmetros utilizados pela FINA631

xAutoCab: Array com o número da Solicitação de Transferência a ser processada.

nOpc: Opção que está sendo realizada no fonte: 3-Aprovação, 5-Exclusão e 6-Estorno.


Para o correto funcionamento da rotina padrão e automática deverá estar com os seguintes cadastros efetuados:

Parâmetro MV_NATTRFF -Código da Natureza a ser utilizada na geração do título a pagar da filial destino

Cadastro do Motivo de Baixa sigla "TRF" - Cadastro o Motivo de Baixa através da rotina FINA490 , disponível em Miscelânea->Arquivos->Tabela de Motivos de Baixas


03. EXEMPLO DE UTILIZAÇÃO


#Include "PROTHEUS.CH"

/*/{Protheus.doc} F631ApvAuto
    Aprova Solicitação de Transferência
/*/
USer FUnction F631ApvAuto()

Local _aVetor       := {}
Local _cNumSol      := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))

    If E6_SITSOL == "1" //-- Em aberto
    
        Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})
        MSExecAuto({|x,y| Fina631(x,y)},_aVetor,3)//-- Aprovar (Fa631Apv)

        If lMsErroAuto 
            MostraErro()
        Endif
    ENDIF
EndIF 

Return


#Include "PROTHEUS.CH"

/*/{Protheus.doc} F631ExcAuto
    Exclui Solicitação de Transferência
/*/
User FUnction F631ExcAuto()

Local _aVetor       := {}
Local _cNumSol      := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))

    If E6_SITSOL == "1" //-- Em aberto

        Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})    
        MSExecAuto({|x,y| Fina631(x,y)},_aVetor,5)//-- Excluir (Fa631Exc)

        If lMsErroAuto 
            MostraErro()
        Endif
    EndIf
EndIF

Return


#Include "PROTHEUS.CH"

/*/{Protheus.doc} F631EstAuto
    Estorna Solicitação de Transferência
/*/
User Function F631EstAuto()

Local _aVetor       :={}
Local _cNumSol      := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))

    If E6_SITSOL == "2" // Aprovada
        Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})
        MSExecAuto({|x,y| Fina631(x,y)},_aVetor,6)//-- Estornar (Fa631Exc)

        If lMsErroAuto 
            MostraErro()
        Endif
    ENDIF
EndIF 

Return

04. DEMAIS INFORMAÇÕES

Não há.



05. ASSUNTOS RELACIONADOS

Não há.




<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>