F080TXIR - Ponto de entrada para informar taxa em baixas manuais (rotina automática)

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"

//---------------------------------------------------------------------------------------
/*/{Protheus.doc} F080TXIR
Ponto de Enntrada executado pela rotina FINA080 nas operações de: 
 - 4: Inclusão de Baixa; ou 
 - 5: Cancelamento e/ou Exclusão de Baixa.
Objetivo: Captar a taxa de conversão a ser usada exclusivamente no cálculo do IRRF.
Critérios: Somente operações originadas por EXECAUTO e títulos cujo campo SE2->E2_ORIGEM 
contenha a sequência "ESS" no conteúdo. 

@author Norberto M de Melo
@since 22/04/2020
@version 12
/*/
//---------------------------------------------------------------------------------------
User FUNCTION F080TXIR()
Local nRet := 0
Local cChaveSE2 := ParamIXB[1]  // E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA
Local dDataOp   := ParamIXB[2]  // Valor da Variável dDataBase qdo OP = 4 ou valor do campo SE2->E2_BAIXA qdo OP = 5
Local nOpc      := ParamIXB[3]  // 4 - Baixa Manual ; 5 - Cancelamento/Exclusão de Baixa

If !EMPTY(cChaveSE2) .and. !EMPTY(dDataOp) .and. !EMPTY(nOpc)
    Help("FINA080:F080TXIR",,"MESSAGE","PE: F080TXIR",;
        "Captação da Taxa de conversão para geração do título de IRRF.", 4, 0)
EndIf

nRet := 4

RETURN nRet
//---------------------------------------------------------------------------------------

#include 'protheus.ch'
#INCLUDE 'TBICONN.CH'

User function UFINA080()

// VARIÁVEIS DA ROTINA
// --------------------------------------------------------------------------
Local aBaixa        := {}
Local cPref         := "NMM"
Local cTitulo       := "M2000    "
Local cParcela      := " "
Local cTipo         := "NF "
Local cForne        := "000014"
Local cLoja         := "01"

Local cBanco        := "001"
Local cAgencia      := "001  "
Local cConta        := "001       "
Local nOp           := 3

// VARIÁVEIS DE CONTROLE DE ERRO
// --------------------------------------------------------------------------
Private lMsErroAuto     := .F.
Private lAutoErrNoFile  := .T.

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01"
    
    AADD( aBaixa, { "E2_PREFIXO"    , cPref         , Nil } )   // 01
    AADD( aBaixa, { "E2_NUM"        , cTitulo       , Nil } )   // 02
    AADD( aBaixa, { "E2_PARCELA"    , cParcela      , Nil } )   // 03
    AADD( aBaixa, { "E2_TIPO"       , cTipo         , Nil } )   // 04
    AADD( aBaixa, { "E2_FORNECE"    , cForne        , Nil } )   // 05
    AADD( aBaixa, { "E2_LOJA"       , cLoja         , Nil } )   // 06
    AADD( aBaixa, { "AUTMOTBX"      , "DEBITO CC"   , Nil } )   // 07
    AADD( aBaixa, { "AUTBANCO"      , cBanco        , Nil } )   // 08
    AADD( aBaixa, { "AUTAGENCIA"    , cAgencia      , Nil } )   // 09
    AADD( aBaixa, { "AUTCONTA"      , cConta        , Nil } )   // 10
    AADD( aBaixa, { "AUTDTBAIXA"    , dDataBase     , Nil } )   // 11
    AADD( aBaixa, { "AUTHIST"       , "TESTE CAOA"  , Nil } )   // 12
    AADD( aBaixa, { "AUTDESCONT"    , 0             , Nil } )   // 13
    AADD( aBaixa, { "AUTMULTA"      , 0             , Nil } )   // 14
    AADD( aBaixa, { "AUTJUROS"      , 0             , Nil } )   // 15
    AADD( aBaixa, { "AUTOUTGAS"     , 0             , Nil } )   // 16
    AADD( aBaixa, { "AUTCHEQUE"     , ""            , Nil } )   // 19

    MSExecAuto({|x,y| Fina080(x,y)},aBaixa,nOp)

     
 If lMsErroAuto
    MostraErro()
 Else
     Alert("Operação concluída com sucesso! " + cTitulo)
 Endif

 RESET ENVIRONMENT
 
Return NIL