44 lines
1.6 KiB
C++
44 lines
1.6 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#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";
|
|
}
|
|
//---------------------------------------------------------------------------
|