//---------------------------------------------------------------------------

#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";
}
//---------------------------------------------------------------------------