FFC - Microsoft Visual FoxPro 9.0 Foundation Classes

16/03/2020 Actualización 07/01/2025

 

Clases básicas de Microsoft Visual FoxPro 9.0

Las bibliotecas de clase visual de Visual FoxPro (.vcx) ubicadas en el directorio Visual FoxPro FFC. Contienen una variedad de clases básicas para mejorar las aplicaciones de Visual FoxPro con poca o ninguna programación. Puede distribuir libremente las clases básicas con sus aplicaciones. La licencia que rige la fuente de FFC se incluye en la versión (consulte FFC_EULA.txt).

 

Historial de lanzamientos

2014.07.04: esta versión corrige un error en FRXCursor que no manejaba pantallas DPI más altas correctamente (gracias a Joel Leach).

2013.03.09: esta versión corrige el error "SET TALK" descrito en SET TALK parece estar activado al ejecutar informes con SP2.

 

Notas de la clase MailMerge

Usar:

  oMM = CREATEOBJECT("MailMerge")
      && create object
  oMM.cAppTitle = "My Application"
      && application name, used in Alerts
  oMM.nWordProc = nWordProc
      && word processor (1 = Word 6+; 2 = CommaDelim; or
      user-defined (see below); default = 1)
  oMM.nNewDoc = nNewDoc
      && is it a new doc (1 = new, 2 = existing;
      default = 1)  
  oMM.nTemplate = nTemplate
      && type of main document (Word only, 1 = form letter;
      2 = label; 3 = envelope; 4 = catalog; default = 1)
  oMM.cDocName = cDocName
      && doc file if not new
  oMM.cAlias = cTableAlias
      && alias of source table or view
  oMM.cDBCTable = cTableName
      && table name if table is part of a DBC
  oMM.cDBCName = cDatabaseName
      && DBC name if source table is part of a DBC
  ACOPY(aMyFields, oMM.aAutoFields)
      && fill in array of field names to be used
  oMM.Merge
      && do the merge

En el siguiente ejemplo, el cliente de la tabla de datos de muestra se usa para crear un nuevo documento de carta de formulario de combinación de correspondencia en MS-Word (los valores predeterminados), utilizando los campos customer.company y customer.city: 

  ox = newobject("mailmerge",HOME()+"FFC\mailmrge.vcx")
  use c:\vfp\samples\data\customer
  set database to testdata
  ox.cAlias = "customer"
  ox.cdbctable = "customer"
  ox.cdbcname = DBC()
  DIMENSION ox.aAutoFields[2]
  ox.aAutoFields[1] = "company"
  ox.aAutoFields[2] = "city"
  ox.makeoutput

Para agregar una función de combinación de correspondencia personalizada:

  oMM = CREATE("MailMerge")
  DIMENSION oMM.aWPMrg[ALEN(oMM.aWPMrg,1) + 1]
  oMM.aWPMrg[ALEN(oMM.aWPMrg,1)] = "MyMailMergeFunction"
  oMM.nWordProc = ALEN(oMM.aWPMrg,1)

o simplemente reemplace uno existente:

  oMM.aWPMrg[2] = "MyMailMergeFunction"
  oMM.nWordProc = 2

 

Notas de clase de tabla dinámica

Usar:

  USE (HOME() + "samples\data\orders")
  SET DATABASE TO testdata
  DIMENSION aflds[4,1]
  aflds[1,1] = "to_country"
  aflds[2,1] = "ship_via"
  aflds[3,1] = "order_amt"
  aflds[4,1] = "emp_id"
  DIMENSION aFList[1,1]
  =AFIELDS(aFList)

  ox = NewObject("pivottable",HOME()+"FFC\pivtable.vcx")
  oPiv.cAlias = ALIAS()
  oPiv.cDBCTable = DBF()
  oPiv.cDBCName = DBC()
  oPiv.cPivFldRow = "to_country"
  oPiv.cPivFldCol = "ship_via"
  oPiv.cPivFldData = "order_amt"
  oPiv.cPivFldPage = "emp_id"
  oPiv.lHasColumnTotals = .T.
  oPiv.lHasRowTotals = .T.
  =ACOPY(aflds, oPiv.aAutoFields)
  =ACOPY(aFList, oPiv.aFldList)

  oPiv.MakeOutput()

 

Notas de clase de automatización de gráficos

Usar:

  CLOSE DATA ALL
  USE D:\TEMP2\OFFICES.DBF
      && a Fox 2.6 sample table

  SET PATH TO "d:\wiz55work\wzcommon"
      && needs to find registry.prg
  SET CLASS TO d:\wiz55work\automate\autgraph.vcx

  oG = CREATEOBJECT("AutoGraph")
  DIMENSION oG.aDataFields[1]
  oG.aDataFields[1] = "ytdsales"
  oG.cCategoryField = "ono"
  oG.nChartType = 5
      && Chart Type
  oG.nChartSubType = 1
      && Chart SubType
  oG.nAction = 1
  oG.lSeriesByRow = .F.
      && Series by Row (.T.), by Column (.F.)
  oG.cGraphDBF = "d:\wiz55work\wzgraph\wizgraph.dbf"
      && DBF containing cGraphField
  oG.cGraphFldRow = "graph_row"
      && General field containing setup Graph (series by row)
  oG.cGraphFldCol = "graph_col"
      && General field containing setup Graph (series by col)
  oG.cGraphPrevClass = "graphpreview"
      && Class containing preview form
  oG.cDefNewField = "olegraph"
      &&default field name in new table
  oG.MakeOutput()

  USE D:\TEMP2\VFPGRAPH.DBF
  GO BOTTOM
  MODIFY GENERAL vfpgraph.olegraph NOWAIT

 

FFC Eula

Licencia Permisiva de Microsoft (Ms-PL)

Esta licencia rige el uso del software que lo acompaña. Si utiliza el software, usted acepta esta licencia. Si no acepta la licencia, no use el software.

1. Definiciones

Los términos "reproducir", "reproducción" y "distribución" tienen el mismo significado aquí que según la ley de derechos de autor de los Estados Unidos.
"Usted" significa el licenciatario del software.
"Patentes con licencia" se refiere a cualquier reclamo de patente de Microsoft que se lea directamente en el software distribuido por Microsoft bajo esta licencia.

2. Concesión de derechos

(A) Concesión de derechos de autor: sujeto a los términos de esta licencia, incluidas las condiciones y limitaciones de la licencia en la sección 3, Microsoft le otorga una licencia de derechos de autor no exclusiva, mundial y libre de regalías para reproducir el software, preparar trabajos derivados del software y distribuir el software o cualquier trabajo derivado que cree.

(B) Concesión de patentes: sujeto a los términos de esta licencia, incluidas las condiciones y limitaciones de la licencia en la sección 3, Microsoft le otorga una licencia de patente no exclusiva, mundial y libre de regalías bajo patentes con licencia para hacer, hacer, usar, practicar, vender y ofrecer para la venta, y / o de otro modo disponer del software o trabajos derivados del software.

3. Condiciones y limitaciones

(A) Sin licencia de marca comercial: esta licencia no le otorga ningún derecho a utilizar el nombre, el logotipo o las marcas comerciales de Microsoft.

(B) Si comienza un litigio de patentes contra Microsoft sobre patentes que cree que pueden aplicarse al software (incluida una reclamación cruzada o una reconvención en una demanda), su licencia para el software finaliza automáticamente.

(C) Si distribuye copias del software o trabajos derivados, debe conservar todos los avisos de derechos de autor, patentes, marcas comerciales y atribuciones que están presentes en el software.

(D) Si distribuye el software o los trabajos derivados en forma de código fuente, puede hacerlo solo bajo esta licencia (es decir, debe incluir una copia completa de esta licencia con su distribución), y si distribuye el software o los trabajos derivados en compilado o en forma de código de objeto solo puede hacerlo bajo una licencia que cumpla con esta licencia.

(E) El software tiene licencia "tal cual". Usted asume el riesgo de utilizarlo. Microsoft no ofrece garantías expresas, garantías o condiciones. Es posible que tenga derechos adicionales para el consumidor según las leyes locales que esta licencia no puede cambiar. En la medida permitida por sus leyes locales, Microsoft excluye las garantías implícitas de comerciabilidad, idoneidad para un propósito particular y no infracción.

 

Vea también

Compromiso inicial en GitHub VfpX/FFC

Compromiso inicial en GitHub VfpX/FFC ( README.md)

Removed ``` from code GitHub VfpX/FFC

VFP9 SP2. Error al registrar al taskpane los xml webservices

Instalar parches

Tema principal Extensiones y tipos de archivos

 

Referencias

Microsoft Visual FoxPro 9.0 Foundation Classes y descarga - GitHub

Descarga alternativa

 
error: Contenido protegido