FINA110 - Ejemplo de execauto en la rutina Baja automática de títulos por cobrar

01. VISIÓN GENERAL

Modelo de uso de la rutina automática para uso en el archivo fuente 110.

02. EJEMPLO DE UTILIZACIÓN

Debe transferirse un array (aTitulos), con nueve posiciones, siendo que cada posición debe contener la siguiente composición:

aTitulos [1]:= aRecnos   (array con los Recnos de los registros que se darán de baja)aTitulos [2]:= cBanco     (Banco de la baja)
aTitulos [3]:= cAgencia  (Agencia de la baja)
aTitulos [4]:= cConta      (Cuenta de la baja)
aTitulos [5]:= cCheque   (Cheque de la baja)
aTitulos [6]:= cLoteFin    (Lote financiero de la baja) → Genera totalizador al MV_BXCNAB habilitarse
aTitulos [7]:= cNatureza (Modalidad del movimiento bancario)
aTitulos [8]:= dBaixa       (La fecha de la baja debe ser igual o inferior a la fecha base del sistema y debe ser igual o superior a la fecha de emisión de los registros que se darán de baja)
aTitulos [9]:= lBaixaLot   (Proceso del conciliador y baja en lote)

#INCLUDE  "protheus.ch"




USER FUNCTION TSTF110Auto()

LOCAL aTitulos  :=  Array(8)

PRIVATE lMsErroAuto  :=  .F.




aTitulos[1] :=  {4,5}

aTitulos[2] :=  PAD("237",TAMSX3('A6_COD')[1])

aTitulos[3] :=  PAD("200",TAMSX3('A6_AGENCIA')[1])

aTitulos[4] :=  PAD("17085",TAMSX3('A6_NUMCON')[1])

aTitulos[5] :=  PAD("20202",TAMSX3('EF_NUM')[1])

aTitulos[6] :=  PAD("",TAMSX3('E1_LOTE')[1]) 

aTitulos[7] :=  PAD("001",TAMSX3('ED_CODIGO')[1])

aTitulos[8] := DATE ()

aTitulos[9] := .T.




MSExecAuto({|x,y| Fina110(x,y)},3,aTitulos)




IF lMsErroAuto

    MostraErro()

ENDIF




RETURN nil