Linha Microsiga Protheus

Árvore de páginas


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.


Observação

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


Exemplo de Aprovação de Solicitaçã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
Exemplo de Exclusão de Solicitação 
#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
Exemplo de Estorno de Solicitação 
#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á.