Histórico da Página

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

User function UFINA080()

// VARIAVELVARIÁVEIS DA ROTINA FINA080
// --------------------------------------------------------------------------
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

// VARIAVEISVARIÁ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("Título incluído com sucesso!"+cTitulo)
 Endif

 RESET ENVIRONMENT
 
Return NIL