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

___________________________________________________________________________________________________________________