Linha Microsiga Protheus

Árvore de páginas

Criação do ponto de entrada F470WIZEN

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

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