ASQL()

Devuelve en tipo de datos Arreglo bidimensional el contenido del cursor generador por la consulta SQL. Ejemplo: aSql:=ASQL(“SELECT CAMPO FROM XTABLA”). aSql Contiene la lista de datos. MsgAlert(aSql[1,1]), muestra la primera columna y columna. Para evaluar la respuesta puede utilizar:  ViewArray(aSql)

DO(bWhile,bFor,bRun)

Ejecuta en forma cíclica según el proceso indicado en <bRun> si se cumple la condición de <bFor> hasta que se cumpla <bWhile>.

#DPXBASE.CH

FUNCTION MAIN()
  LOCAL nTotal:=0,oCursor

  oCursor:=OpenTable(“ SELEC DOC_NETO,DOC_FECHA FROM DPDOCCLI”,.T.)

DO({||!oCursor:Eof()},;
   {||oCursor:DOC_FECHA=oDp:dFecha},;
   {||nTotal:=nTotal+oCursor:DOC_NETO,oTablas:skip(1)})

Totaliza el Monto neto según los documentos emitidos según la fecha del sistema.