#Include 'Protheus.ch'
#include "tbiconn.ch"
//Inclusão de títulos a receber com desdobramento sem rastreio
User Function DESDOBR()
Local aTitulo := {}
Local cPrefixo := "TST" //Prefixo utilizado
Local cNumTitulo
Local cCliente := "000001" //Código do cliente
Local cLoja := "01" //Loja
Local cTipo := "NF" //Tipo do título
Local cNatureza := "001" //Natureza utilizada
PRIVATE lMsErroAuto := .F.
//Numeracao do titulo 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","SEM RASTREIO",Nil}) //Historico
aAdd(aTitulo,{"AUTNPARDSD",2,Nil}) // Numero de parcelas
aAdd(aTitulo,{"AUTTOPADSD","T",Nil}) // Valor T = TOTAL ou P = PARCELA
aAdd(aTitulo,{"AUTPERIDSD",30,Nil}) // Periodo
MSExecAuto({|x,y,z| Fina040(x,y,z)},aTitulo,3)
If lMsErroAuto
MostraErro()
Else
conout("Titulo incluído com sucesso")
Endif
End transaction
EndIf
Return