#Include 'Protheus.ch'
#Include "TOPCONN.CH"
#Include "Tbiconn.ch"
User Function myfina70()
Local aBaixa := {}
Private lMsErroAuto:= .F.
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"
dbSelectArea("SE1")
SE1->(dbSetOrder(1))
SE1->(dbGoTop())
conout("Teste de Baixa de Titulo")
aBaixa := {{"E1_PREFIXO" ,"TW5" ,Nil },;
{"E1_NUM" ,"XX1000001" ,Nil },;
{"E1_TIPO" ,"NF " ,Nil },;
{"E1_CLIENTE" ,"0023 " ,Nil },;
{"E1_LOJA" ,'01' ,Nil },;
{"E1_NATUREZ" ,"NAT_FK " ,Nil },;
{"E1_PARCELA" ," " ,Nil },;
{"AUTMOTBX" ,"001" ,Nil },;
{"CBANCO" ,"237" ,Nil },;
{"CAGENCIA" ,"1010 " ,Nil },;
{"CCONTA" ,"10101 " ,Nil },;
{"AUTDTBAIXA" ,CtoD("03/08/2018") ,Nil },;
{"AUTDTCREDITO",CtoD("03/08/2018") ,Nil },;
{"AUTHIST" ,"TESTE CADASTRO 002000002 " ,Nil },;
{"AUTJUROS" ,0 ,Nil,.T.}}
//{"NVALREC" ,560,Nil }}
MSExecAuto({|x,y,b,a| Fina070(x,y,b,a)},aBaixa,6,.F.,5) //3 - Baixa de Título, 5 - Cancelamento de baixa, 6 - Exclusão de Baixa.
If lMsErroAuto
MostraErro()
Else
conout("BAIXADO COM SUCESSO!" + E1_NUM)
Endif
RESET ENVIRONMENT
Return