Histórico da Página
...
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 CaracterNúmerico Valor do desconto para carteira descontada. AUTCREDIT CaracterNúmerico Valor do crédito para carteira descontada. AUTIOF CaracterNúmerico Valor do IOF para carteira descontada. AUTGRVFI2 Lógico Define se deve ou não gravar a tabela de ocorrências CNAB (FI2). 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()
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
#Include "Protheus.ch" #Include "TBICONN.ch" 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 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
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}) |
...
AAdd(aTit, {"AUTGRVFI2", .T., Nil}) //Carteira descontada deve ser encaminhado o valor de crédito, desconto e IOF já calculados |
...
If cSituaca |
...
$ "2 |
...
|7" AAdd(aTit, {"AUTDESCONT", |
...
090, Nil}) |
...
AAdd(aTit, {"AUTCREDIT", |
...
750, Nil}) |
...
AAdd(aTit, {"AUTIOF", |
...
010, Nil}) |
...
EndIf
...
EndIf MsExecAuto({| |
...
operacao, |
...
titulo| FINA060( |
...
operacao, |
...
titulo)}, 2, aTit) |
...
If lMsErroAuto
aErroAuto := GetAutoGRLog()
For nCntErr := 1 To Len(aErroAuto)
cErroRet += aErroAuto[nCntErr]
Next
EndIf
Conout(cErroRet)
...
If lMsErroAuto
aErroAuto := GetAutoGRLog()
For nCntErr := 1 To Len(aErroAuto)
cErroRet += aErroAuto[nCntErr]
Next nCntErr
Conout(cErroRet)
EndIf
RESET ENVIRONMENT
Return Nil |
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas