Histórico da Página

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Implementação da inclusão de borderô por rotina automática (execauto) FINA060.

03. SOLUÇÃO

Disponibilizada a inclusão de borderô por rotina automática.

04. DEMAIS INFORMAÇÕES

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

  Elemento	Tipo	Descrição

  PARAMIXB[

  Parâmetro 1

  ]

  Numérico

  nOpcAuto - 3 Inclusão de borderô.

  PARAMIXB[

  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)
  AUTBOLAPI	Logico	Define se o borderô em questão será transmitido via API (Boletos)

• 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:

User function AUTO060BOR()

...

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.

...

dDataMov := Ctod("19/04/2019")

// Filtro SQL para os títulos para adicionar os titulos no borderô
cFiltro := "%"+"E1_PREFIXO = 'BOR' AND E1_TIPO ='NF'"+"%"

...

EndSQL

//Adiciona os títulos para o borderôno array
While (cTmp)→(!EOF())

aAdd(aTit,;
{;

...

RETURN(.F.)

EndIf

//Informações banárias 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

...

cErroRet += aErroAuto[nCntErr]

Next

EndIf

Conout(cErroRet)

EndIf

Return

05. ASSUNTOS RELACIONADOS

• FIN0083 - DT Rotina automática FINA060 - Transferência
• FIN0085 - DT Rotina automática FINA060 - Cancelamento de borderô

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>