Linha Microsiga Protheus

Árvore de páginas

F060ALTPOR – Permite a alteração dos dados bancários (Banco, agencia e conta).

Descrição:

A finalidade do ponto de entrada F060ALTPOR é permitir a alteração dos dados bancários (Banco, agencia e conta) na execução da rotina de "Transferência", chamado na função FA060VERSIT.

Localização:

Está presente na função FA040VERSIT()

Programa Fonte:

FINA060.PRW

Versões:12

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

ParamIxb

Array

Array com dados bancários

X

ParamIxb[1]CarácterCódigo do BancoX
ParamIxb[2]CarácterCódigo da AgenciaX
ParamIxb[3]CarácterCódigo da ContaX
ParamIxb[4]CarácterSituação de cobrança informado pelo usuário.X
Retorno:Array com as novas informações dos dados bancários. Sempre mantendo a sequencia de Banco, Agencia e Conta.



Exemplo de utilização
#INCLUDE "Totvs.ch"
 
User Function F060ALTPOR()
 
    Local aRetPor       := {}
    Local cBanco    := GetMV("MV_F0601",,"01A")
    Local cAgencia  := GetMV("MV_F0602",,"000001")
    Local cConta    := GetMV("MV_F0603",,"0000000001")
    Local cPort060  := PARAMIXB[1]//código do banco atual
    Local cAgen060  := PARAMIXB[2]//código da agencia atual
    Local cConta060 := PARAMIXB[3]//código da conta atual
    Local cNewSitua := PARAMIXB[4]//Situação de cobrança informada pelo usuário l
 
    FRV->(DbSetOrder(1))
 
    If cSituant != cNewSitua
        If FRV->(Dbseek(xFilial("FRV")+cNewSitua))
            // Usa Banco = Sim
            If FRV->FRV_BANCO == "1" .And. (!Empty(cPort060) .Or. !Empty(cAgen060) .Or. !Empty(cConta060))
                AADD(aRetPor,cBanco)
                AADD(aRetPor,cAgencia)
                AADD(aRetPor,cConta)                   
            Else
                AADD(aRetPor,cPort060)
                AADD(aRetPor,cAgen060)
                AADD(aRetPor,cConta060)
            Endif
        Else
            AADD(aRetPor,cPort060)
            AADD(aRetPor,cAgen060)
            AADD(aRetPor,cConta060)    
        Endif
    Endif
 
Return(aRetPor)