Histórico da Página

#Include 'Protheus.ch'
#include "tbiconn.ch"


//InclusãoInclusión de títulos apor recebercobrar comcon desdobramentodesdoblamiento ey comcon rastreiorastreo
User Function DESDOBR()
    Local aTitulo       := {}
    Local cPrefixo      := "TST" //PrefixoPrefijo utilizado
    Local cNumTitulo 
    Local cCliente      := "000002" //Código dodel cliente
    Local cLoja         := "01" //LojaTienda
    Local cTipo         := "NF" //Tipo dode título
    Local cNatureza     := "001" //NaturezaModalidad utilizada

    PRIVATE lMsErroAuto := .F.

    //NumeracaoNumeración dodel titulotítulo destino (opcional) 
	cNumTitulo := GetSX8Num("SE1","E1_NUM")

    dbSelectArea("SE1")
    dbSetOrder(2)

    If MsSeek(xFilial("SE1")+cCliente+cLoja) 
        begin transaction
            aTitulo := {{"E1_PREFIXO" , cPrefixo     ,Nil},;
                {"E1_NUM"     , cNumTitulo  ,Nil},;
                {"E1_PARCELA" , " "      ,Nil},;
                {"E1_TIPO"    , cTipo     ,Nil},;
                {"E1_NATUREZ" , cNatureza    ,Nil},;
                {"E1_CLIENTE" , PADR(cCliente,TamSx3("E1_CLIENTE")[1]) ,Nil},;
                {"E1_LOJA"    , PADR(cLoja,TamSx3("E1_LOJA")[1])       ,Nil},;
                {"E1_EMISSAO" , dDataBase,Nil},;
                {"E1_VENCTO"  , dDataBase,Nil},;
                {"E1_VENCREA" , dDataBase,Nil},;
                {"E1_VALOR"   , 1000 ,Nil },;
                {"E1_DESDOBR"   ,"S" ,Nil }}

            aAdd(aTitulo,{"AUTHISTDSD","COM RASTREIO",Nil}) //HistoricoHistorial
            aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // NumeroNúmero de parcelascuotas
            aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL ouo P = PARCELACUOTA 
            aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // PeriodoPeríodo

            MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3)

            If lMsErroAuto
                MostraErro()
            Else 
                conout("Titulo incluídoincluido comcon sucessoéxito")  
            Endif
        End transaction   
    EndIf   

Return