Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Uso da rotina automática FINA390 - Cheques sobre Títulos

Produto:

Microsiga Protheus

Versões:

Todas

Ocorrência:

Como montar um RDMAKE para ExecAuto da rotina de geração de Cheques sobre Títulos (FINA390).

Passo a passo:

A rotina FINA390 (Cheques sobre títulos) tem como seu objetivo gerar cheques sobre títulos em aberto, ou seja, antes da baixa do título financeiro.

 

Para ser utilizada via EXECAUTO, segue exemplo de RdMake abaixo:

___________________________________________________________________________________________________________________

#Include'Protheus.ch'

 

//---------------------------------

// CHEQUE SOBRE TITULOS               |

//---------------------------------

User Function MyFA390()

 

Local aArray:={}

Local cCheque:="2906001"

Local nOpc   :=2       // 2 - Chq s/ titulo, 3 - Avulso

 

Private lMsErroAuto:=.F.

 

aArray:={{"AUTBANCO"  ,"237"             , NIL },;

            {"AUTAGENCIA"      ,"33901"            , NIL },;

            {"AUTCONTA"     ,"125008    "              , NIL },;

            {"AUTCHEQUE"  ,cCheque             , NIL },;

            {"AUTVENCINI"  ,CtoD("21/06/2016")          , NIL },;    // Remover caso utilizar opc 3

            {"AUTVENCFIM"  ,CtoD("29/06/2016"), NIL },;                   // Remover caso utilizar opc 3

            {"AUTVALOR"   ,5000, NIL },;

            {"AUTFORN"  ,"001", NIL },;

            {"AUTBENEF"    ,"F PADRAO            "              , NIL },;

            {"AUTNATUREZA"  ,"10101     ", NIL }}

 

MsExecAuto({|x,y,z|FINA390(x,y,z)},0,aArray,nOpc) 

 

If lMsErroAuto

    MostraErro()

Else

    Alert("O cheque "+cCheque+" foi gerado com sucesso!")

Endif

 

Return

___________________________________________________________________________________________________________________

Observações:

Quando utilizamos rotinas automáticas, a interação com o usuário através de interfaces deixa de existir, ou seja, o processo não será feito através de telas e botões. Desta forma, a tela padrão de marcação de títulos (markbrowse) em que será gerado o cheque não estará disponível e a rotina irá considerar todos os títulos contidos entre a data de vencimento inicial e data de vencimento final referenciada no array (variável aArray).

Para uma seleção de títulos mais específica, indicamos o uso do ponto de entrada F390FIL ( http://tdn.totvs.com/display/PROT/DT_F390FIL_Complementa_Filtro_Na_IndRegua ), que permite adicionar condições no filtro padrão em que serão considerados os títulos para geração do cheque.