first commit (2012-02-01)

src/imprimirFichaCliente.cpp

@@ -0,0 +1,43 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "imprimirFichaCliente.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "qrpctrls"
+#pragma resource "*.dfm"
+TimprFichaCliente *imprFichaCliente;
+//---------------------------------------------------------------------------
+__fastcall TimprFichaCliente::TimprFichaCliente(TComponent* Owner)
+        : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall TimprFichaCliente::QRExpr6Print(TObject *sender,
+      AnsiString &Value)
+{
+  if ( Value == "P" ) Value = "Padre/Madre"; else
+  if ( Value == "C" ) Value = "Marido/Mujer"; else
+  if ( Value == "H" ) Value = "Hermano/a"; else
+  if ( Value == "N" ) Value = "Hijo/a"; else
+  if ( Value == "o" ) Value = "otros";
+}
+//---------------------------------------------------------------------------
+void __fastcall TimprFichaCliente::QRExpr5Print(TObject *sender,
+      AnsiString &Value)
+{
+  if ( Value == "S" ) Value = "Soltero"; else
+  if ( Value == "C" ) Value = "Casado"; else
+  if ( Value == "D" ) Value = "Divorciado"; else
+  if ( Value == "V" ) Value = "Viudo";
+}
+//---------------------------------------------------------------------------
+void __fastcall TimprFichaCliente::QRExpr4Print(TObject *sender,
+      AnsiString &Value)
+{
+  if ( Value == "H" ) Value = "Hombre"; else
+  if ( Value == "M" ) Value = "Mujer";
+}
+//---------------------------------------------------------------------------