ExecAuto FINA070 Cancelamento de baixa

Produtos da Linha Protheus Sigafin - Financeiro - Backoffice
,
1

Boa tarde galera, estou tentando efetuar um cancelamento de baixa a receber pela execauto da FINA070, porém estou tendo erro na execauto e o log retorna vazio.

image
image1210×564 29.7 KB

Alguem tem um exemplo dessa execauto funcionando?

Obrigado

2 curtidas
2

Boa Tarde,

Pela documentação está faltando passar alguns campos:
https://tdn.totvs.com/pages/releaseview.action?pageId=568947413

Tenho uma rotina funcionando na empresa dessa forma, onde _aSE1 é uma array com os títulos que desejo cancelar.
lMsErroAuto := .F.
_aAutoSE1 := {}

aAdd(_aAutoSE1, {“E1_FILIAL” , _aSE1[1,1] , Nil})
aAdd(_aAutoSE1, {“E1_PREFIXO” , _aSE1[1,2] , Nil})
aAdd(_aAutoSE1, {“E1_NUM” , _aSE1[1,3] , Nil})
aAdd(_aAutoSE1, {“E1_PARCELA” , _aSE1[1,4] , Nil})
aAdd(_aAutoSE1, {“E1_TIPO” , _aSE1[1,5] , Nil})
aAdd(_aAutoSE1, {“E1_CLIENTE” , _aSE1[1,6] , Nil})
aAdd(_aAutoSE1, {“E1_LOJA” , _aSE1[1,7] , Nil})
aAdd(_aAutoSE1, {“E1_EMISSAO” , _aSE1[1,8] , Nil})
aAdd(_aAutoSE1, {“AUTDTBAIXA” , _aSE1[1,9] , Nil})
aAdd(_aAutoSE1, {“AUTDTCREDITO” , _aSE1[1,9] , Nil})
aAdd(_aAutoSE1, {“AUTAGENCIA” , _aSE1[1,12] , Nil})
aAdd(_aAutoSE1, {“AUTCONTA” , _aSE1[1,13] , Nil})
aAdd(_aAutoSE1, {“AUTDESCONT” , 0 , Nil})
aAdd(_aAutoSE1, {“AUTMULTA” , 0 , Nil})
aAdd(_aAutoSE1, {“AUTJUROS” , 0 , Nil})
aAdd(_aAutoSE1, {“AUTVALREC” , _aSE1[1,10] , Nil})

MSExecAuto({|x,y| Fina070(x,y)},_aAutoSE1,5,.F.,5) // rotina automática para cancelamento de títulos

If lMsErroAuto
MostraErro()
Endif

3

opa, muito obrigado mestre, vou validar!

As vezes é muito dificil encontrar essas documentações da TOTVS

4

@Zanin

Tudo bem?

Procura colocar o seu código, não uma imagem dele, fica mais fácil para quando precisamos testar sua POC etc.

Outro ponto, coloca também o que deu erro, se deu erro, se gerou uma mensagem em tela ou no console, essas informações podem e vão ajudar na análise.

Obrigado.

1 curtida
5

Claro, valeu pelos toque mestre

6

Pessoal, ainda nao funcionou. Segue Fonte:

User Function CancelaBaixaOriginal()

Local aCabecalho := {} As Array

Private lMSHelpAuto     := .T. As Logical
Private lAutoErrNoFile  := .T. As Logical
Private lMsErroAuto     := .F. As Logical

If SE1->(DbSetOrder(2), MsSeek(FwXFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC))
	While !SE1->(Eof()) .AND. (SE1->E1_FILIAL+SE1->E1_CLIENTE+SE1->E1_LOJA+SE1->E1_SERIE+SE1->E1_NUM == FwxFilial("SE1")+SF2->F2_CLIENTE+SF2->F2_LOJA+SF2->F2_SERIE+SF2->F2_DOC)
		If SE5->(DbSetOrder(7), dbSeek( SE1->( E1_FILIAL + E1_PREFIXO + E1_NUM + E1_PARCELA + E1_TIPO + E1_CLIENTE + E1_LOJA ) ) )

			aCabecalho := {}
			Aadd(aCabecalho, {"E1_FILIAL"       , SE1->E1_FILIAL         , Nil})
			Aadd(aCabecalho, {"E1_PREFIXO"      , SE1->E1_PREFIXO        , Nil})
			Aadd(aCabecalho, {"E1_NUM"          , SE1->E1_NUM            , Nil})
			Aadd(aCabecalho, {"E1_PARCELA"      , SE1->E1_PARCELA        , Nil})
			Aadd(aCabecalho, {"E1_TIPO"         , SE1->E1_TIPO           , Nil})
			Aadd(aCabecalho, {"E1_CLIENTE"      , SE1->E1_CLIENTE        , Nil})
			Aadd(aCabecalho, {"E1_LOJA"         , SE1->E1_LOJA           , Nil})
			Aadd(aCabecalho, {"E1_EMISSAO"      , SE1->E1_EMISSAO        , Nil})	
			Aadd(aCabecalho, {"AUTDTBAIXA"      , SE5->E5_DATA           , Nil})
			Aadd(aCabecalho, {"AUTDTCREDITO"    , SE5->E5_DTDISPO        , Nil})
			Aadd(aCabecalho, {"AUTAGENCIA"      , SE5->E5_AGENCIA        , Nil})
			Aadd(aCabecalho, {"AUTCONTA"        , SE5->E5_CONTA          , Nil})
			aAdd(aCabecalho, {"AUTDESCONT" 		, 0 					 , Nil})
			Aadd(aCabecalho, {"AUTMULTA"        , SE5->E5_VLMULTA        , Nil})
			Aadd(aCabecalho, {"AUTJUROS"        , SE5->E5_VLJUROS        , Nil})
			Aadd(aCabecalho, {"AUTVALREC"       , SE5->E5_VALOR          , Nil})

			MSExecAuto({|x,y| FINA070(x,y)},aCabecalho,5,.F.,5)

			If lMsErroAuto
				MostraErro()
			EndIf

		EndIf

		SE1->(DbSkip())
	EndDo
EndIf

Return

Após rodar o ExecAuto, a MostraErro() retorna vazio:

image

7

Boa tarde, amigo. Em uma experiência recente, tivemos um ponto de entrada que bloqueava o execauto e retornava uma tela em branca parecida com essa. Valide o retorno de seus pontos de entradas, pode ser o caso.

8

Estou efetuando esse execauto no PE MS520VLD (exclusao da nota de saida).

Aqui temos o processo de repassar o titulo a companhia de credito, ou seja, baixamos o titulo no nome do cliente e colocamos para a companhia de credito, mas ao cancelar, preciso cancelar a baixa do titulo original.