Producto:

Microsiga Protheus

Ocurrencia:

Como montar

un RDMAKE para ExecAuto

de la rutina de generación de Cheques sobre Títulos (FINA390).

Paso a

paso:

La rutina FINA390 (Cheques sobre títulos)

tiene como

su objetivo

generar cheques sobre títulos

pendientes, es decir, antes de la baja del título financiero.

Para poder utilizarla vía EXECAUTO, veamos el siguiente ejemplo de RdMake:

___________________________________________________________________________________________________________________

#Include 'Protheus.ch'

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

// CHEQUE SOBRE TITULOS               |

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

User Function MyFA390()

Local aArray:={}

Local cCheque:="2906001"

Local nOpc   :=2       // 2 - Chq s/

título, 3 -

Por separado

Private lMsErroAuto:=.F.

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

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

            {"AUTCONTA"     ,"125008    "

     , NIL },;

            {"AUTCHEQUE"  ,cCheque             , NIL },;

            {"AUTVENCINI"  ,CtoD("21/06/2016")          , NIL },;    //

Retirar si se utiliza la opc 3

            {"AUTVENCFIM"  ,CtoD("29/06/2016"), NIL },;                   //

Retirar si se utiliza la 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("

¡El cheque "+cCheque+"

se generó con éxito!")

Endif

Return

___________________________________________________________________________________________________________________