Linha de Produto: | Microsiga Protheus |
Segmento: | Serviços |
Módulo: | Financeiro |
Função: | FINA470 |
Solução/Implementação: | Criado ponto de entrada F470WIZEN para gravar as contas contábeis das entidades adicionais referentes ao lançamento efetivado na conciliação bancária. |
Chamados relacionados: | TUSVD6 |
Descrição: | O ponto de entrada F470WIZEN disponibiliza a tabela temporária da gravação dos dados da conciliação bancária para gravar também as contas contábeis das entidades adicionais criadas pelo CTBWIZENT. | ||||||||
Localização: | Atualizações->Mov. Bancários | ||||||||
Eventos: | Conciliação Bancária | ||||||||
Programa Fonte: | FINA470 | ||||||||
Função: | FA470GrvEf | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function F470WIZEN()
Local cAlias := Paramixb[1] // TMP
Local cCtEnt05DB := '101010' // Conta Debito
Local cCtEnt05CR := '101020' // Conta Credito
DbSelectArea('CT0')
DbSetOrder(1) // Filial + ID
CT0->(DbSeek(xFilial('CT0')+'05'))
// Validacao
If CT0->CT0_ALIAS == 'CV0'
DbSelectArea('CV0')
DbSetOrder(1) // CV0_FILIAL+CV0_PLANO
// Gravacao das entidades adicionadas criadas pelo CTBWIZENT
RecLock(cAlias,.F.)
If CV0->(DbSeek(xFilial("CV0")+"05"+cCtEnt05DB)) // Filial + Plano + Codigo
(cAlias)->E5_EC05DB := CV0->CV0_CODIGO
EndIf
If CV0->(DbSeek(xFilial("CV0")+"05"+cCtEnt05CR))
(cAlias)->E5_EC05CR := CV0->CV0_CODIGO
EndIf
MsUnlock()
EndIf
Return Nil
