Replicado ponto de entrada F470WIZEN para gravação das entidades contábeis adicionais

F470WIZEN

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:	Nome Tipo Descrição Obrigatório  Nil Nil Nulo

 

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