Status: Finished

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

Project details:
Budget: Open
Published: 7 months ago
Deadline: 5 days
Bids: 4
Interested freelancers: 4

Skills required: IT & Programming ERP

Description:
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?
****( 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

Category: IT & Programming
Subcategory: Other
Is this a project or a position?: A project
I currently have: I have an idea
Experience in this type of project: No (I haven't managed this kind of project before)
Required availability: As needed
API Integrations: Others (Other APIs)

Create your own project

Are you looking for a freelancer to work on a similar project? Create your own project and you'll receive proposals from the best freelancers.

Create a similar project

Client:

Jacqueline M.
(Rating 4.90 out of 5)
Location: Brasil
Payment method: Verified
To find out more about this client, login to Workana.
Loading...