Protheus | Revisão Customizacao - Inclusão de Pa (Afin003)

Revisar Customização de Inclusão de PA (AFIN003)

O programa foi escrito para que pudesse de maneira automática associar o pedido de compras ao titulo financeiro, etapas:
- Incluir um titulo no financeiro do tipo PA ( SE2 e SE5)
- Incluir registro na tabela de associação do pedido de compras com o titulo financeiro (FIE)

O que precisa ser corrigido:
** Revisar inclusão do titulo da tabela SE2 utilizando a função Fin050pa() e msautoexec (especifico para pa)
** revisar funcionalidade da customização para seguinte situação
  -> exclusão de pa gerada pelo programa
  -> re-inclusão de pa pelo programa
(é gerado um erro ao tentar excluir o titulo financeiro do tipo pa gerado pelo programa)
- verificar a configuração do botão f12 de pagamento adiantado
-----> gera cheque adiantamento?  <não>
****( parâmetro deve ser preenchido como não, para que  o titulo apareça no movimento bancário)

segue documentação sobre a função que será utilizada para incluir a pa no financeiro.
----------------------------------------------------------------------------------------
FINA050 - Inclusão de Pagamento Antecipado via rotina automática

Exemplo de implementação da rotina automática FINA050 para inclusão de pagamento antecipado.

User Function FIN050PA()
Local aArray := {}

Private lMsErroAuto := .F.

AAdd(aArray,{ "E2_prefixo" , "ant" , nil })
aadd(aarray,{ "e2_num" , "0001" , nil })
aadd(aarray,{ "e2_tipo" , "pa" , nil })
aadd(aarray,{ "e2_naturez" , "001" , nil })
aadd(aarray,{ "e2_fornece" , "0001" , nil })
aadd(aarray,{ "e2_emissao" , ctod("17/02/2012"), nil })
aadd(aarray,{ "e2_vencto" , ctod("17/02/2012"), nil })
aadd(aarray,{ "e2_vencrea" , ctod("17/02/2012"), nil })
aadd(aarray,{ "e2_valor" , 5000 , nil })
aadd(aarray,{ "autbanco" , "001" , nil })
aadd(aarray,{ "autagencia" , "12345" , nil })
aadd(aarray,{ "autconta" , "0000012345" , nil })

msexecauto( { |x,y,z| fina050(x,y,z)}, aarray,, 3) // 3 - inclusao, 4 - alteração, 5 - exclusão


if lmserroauto
mostraerro()
else
alert("título de adiantamento incluído com sucesso!")
endif

return
--------------------------------------------------------------------------------------------------------------------
http://tdn.totvs.com/pages/releaseview.action?pageId=109871131