Histórico da Página

...

• Parâmetros para a inclusão de borderô por rotina automática FINA060:

  Elemento	Tipo	Descrição
  Parâmetro 1	Numérico	nOpcAuto - 3 Inclusão de borderô.
  Parâmetro 2	Array	Array com 2 dimensões, sendo a primeira um array com informações do borderô e a segunda um array com os títulos.

• Estrutura do array com informações do borderô: 

  Elemento	Tipo	Descrição
  AUTBANCO	Caracter	Código do banco.
  AUTAGENCIA	Caracter	Código da agência.
  AUTCONTA	Caracter	Código da conta.
  AUTSITUACA	Caracter	Situação a ser transferida o título.
  AUTNUMBOR	Caracter	Número do borderô.
  AUTDATAMOV	Data	Data do movimento.
  AUTTXDESC	Numérico	Taxa de desconto para carteira descontada.
  AUTTXIOF	Numérico	Taxa de IOF para carteira descontada.
  AUTSUBCONTA	Caracter	Número da subconta do banco
  AUTESPECIE	Caracter	Código da espécie do pagamento (contida na tabela F77)

• Estrutura do array com informações dos títulos ( chave de busca para o índice 1 ): 

  Elemento	Tipo	Descrição
  E1_FILIAL	Caracter	Filial do título
  E1_PREFIXO	Caracter	Prefixo do título.
  E1_NUM	Caracter	Número do título.
  E1_PARCELA	Caracter	Parcela do título.
  E1_TIPO	Caracter	Tipo do do título.

• Exemplo:

...

Local cSituaca := "1"
Local cNumBor := ""
Local dDataMov := ""

Local cEspecie := '99'

Local cSubconta := '001'

//-- Variáveis utilizadas para o controle de erro da rotina automática
Local aErroAuto :={}
Local cErroRet :=""
Local nCntErr :=0
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private lAutoErrNoFile := .T.

...

//Informações bacárias para o borderô
aAdd(aBor, {"AUTBANCO" , PadR(cBanco ,TamSX3("A6_COD")[1]) })
aAdd(aBor, {"AUTAGENCIA" , PadR(cAgencia ,TamSX3("A6_AGENCIA")[1]) })
aAdd(aBor, {"AUTCONTA" , PadR(cConta ,TamSX3("A6_NUMCON")[1]) })
aAdd(aBor, {"AUTSITUACA" , PadR(cSituaca ,TamSX3("E1_SITUACA")[1]) })
aAdd(aBor, {"AUTNUMBOR" , PadR(cNumBor ,TamSX3("E1_NUMBOR")[1]) }) // Caso não seja passado o número será obtido o próximo pelo padrão do sistema
aAdd(aBor, {"AUTSUBCONTA" , PadR(cSubconta,TamSX3("EA_SUBCTA")[1]) })
aAdd(aBor, {"AUTESPECIE" , PadR(cEspecie,TamSX3("EA_ESPECIE")[1]) })

If cSituaca $ "2|7" // Carteira descontada deve ser informada as taxas e data do movimento

...