Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus |
---|---|
Segmento: | Serviços |
Módulo: | SIGAFIN |
Função: | FINA060 |
Requisito/Story/Issue (informe o requisito relacionado) : | DSERFINR-19055 |
02. SITUAÇÃO/REQUISITO
Implementação da transferência de título por rotina automática (execauto) FINA060.
03. SOLUÇÃO
Disponibilizado a transferência por rotina automática.
04. DEMAIS INFORMAÇÕES
Parâmetros para a transferência de título por rotina automática FINA060:
Elemento
Tipo
Descrição
Parâmetro 1 Numérico nOpcAuto - 2 Transferência de título. Parâmetro 2 Array Array com 3 dimensões sem a terceira com conteúdo NIL. Estrutura do array da transferência de título deve ter sua terceira posição com o conteúdo NIL {Elemento , Conteúdo, NIL} :
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. AUTNUMBCO Caracter Número do título no banco. AUTDATAMOV Data Data do movimento. AUTDESCONT Caracter Valor do desconto para carteira descontada. AUTCREDIT Caracter Valor do crédito para carteira descontada. AUTIOF Caracter Valor do IOF para carteira descontada. 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. Para situação descontada(2) e caucionada(7), devemos informar o valor de crédito, IOF e desconto já calculado. O sistema realizará a verificação dos valores informados e o saldo do título conforme parametrização (pergunte MV_PAR09), considera acréscimos e decréscimos.
- Exemplo:
User function AUTO060TRA()
Local aTit :={}
Local cPrefixo := "001"
Local cNumero := "000000001"
Local cParcela := "001"
Local cTipo := "NF"
Local cBanco := "001"
Local cAgencia := "001"
Local cConta := "001"
Local cSituaca := "1"
Local cNumBco := "132456"
Local nDesconto := 0
Local nValCred := 0
Local nVlIof := 0
Local dDataMov := Ctod("29/03/2019")
//-- 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.
PREPARE ENVIRONMENT EMPRESA "XX" FILIAL "XX" USER "admin"
//Para retornar o título para carteira é necessário informar o banco em "branco"
If cSituaca ="0"
cBanco := ""
cAgencia := ""
cConta := ""
cNumBco := ""
EndIf
//Chave do título
aAdd(aTit, {"E1_PREFIXO" , PadR(cPrefixo , TamSX3("E1_PREFIXO")[1]) ,Nil})
aAdd(aTit, {"E1_NUM" , PadR(cNumero , TamSX3("E1_NUM")[1]) ,Nil})
aAdd(aTit, {"E1_PARCELA" , PadR(cParcela , TamSX3("E1_PARCELA")[1]) ,Nil})
aAdd(aTit, {"E1_TIPO" , PadR(cTipo , TamSX3("E1_TIPO")[1]) ,Nil})
//Informações bancárias
aAdd(aTit, {"AUTDATAMOV" , dDataMov ,Nil})
aAdd(aTit, {"AUTBANCO" , PadR(cBanco ,TamSX3("A6_COD")[1]) ,Nil})
aAdd(aTit, {"AUTAGENCIA" , PadR(cAgencia ,TamSX3("A6_AGENCIA")[1]) ,Nil})
aAdd(aTit, {"AUTCONTA" , PadR(cConta ,TamSX3("A6_NUMCON")[1]) ,Nil})
aAdd(aTit, {"AUTSITUACA" , PadR(cSituaca ,TamSX3("E1_SITUACA")[1]) ,Nil})
aAdd(aTit, {"AUTNUMBCO" , PadR(cNumBco ,TamSX3("E1_NUMBCO")[1]) ,Nil})
//Carteira descontada deve ser encaminhado o valor de crédito, desconto e IOF já calculados
If cSituaca ="2"
nDesconto := 90
nValCred := 750
nVlIof := 10
aAdd(aTit, {"AUTDESCONT" , nDesconto ,Nil})
aAdd(aTit, {"AUTCREDIT" , nValCred ,Nil})
aAdd(aTit, {"AUTIOF" , nVlIof ,Nil})
EndIf
MSExecAuto({|a, b| FINA060(a, b)}, 2,aTit)
If lMsErroAuto
aErroAuto := GetAutoGRLog()
For nCntErr := 1 To Len(aErroAuto)
cErroRet += aErroAuto[nCntErr]
Next
EndIf
Conout(cErroRet)
Return
05. ASSUNTOS RELACIONADOS
- FIN0085 - DT Rotina automática FINA060 - Cancelamento de borderô
- FIN0084 - DT Rotina automática FINA060 - Inclusão de borderô
Templatedocumentos |
---|
HTML |
---|
<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> |