Produto:

Microsiga Protheus

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

___________________________________________________________________________________________________________________