Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #20  
Antiguo 03-12-2008
Avatar de Anyu
Anyu Anyu is offline
Miembro
 
Registrado: jun 2008
Posts: 30
Poder: 0
Anyu Va por buen camino
este es mi codigo, la unica ventana que tengo:

Código Delphi [-]
unit chequera;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, rpcompobase, rpclxreport, Mask;

type
  Tf_chequera = class(TForm)
    TITULO: TPanel;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    contrato: TEdit;
    codigo: TEdit;
    cuota: TEdit;
    titular: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    new: TBitBtn;
    print: TBitBtn;
    Shape1: TShape;
    report: TCLXReport;
    mes: TMaskEdit;
    exit: TBitBtn;
    procedure newClick(Sender: TObject);
    procedure printClick(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chequera: Tf_chequera;

implementation

{$R *.dfm}

procedure Tf_chequera.newClick(Sender: TObject);
begin
mes.Enabled:=true;
mes.Text:=DateToStr(now);
codigo.Enabled:=true;
codigo.Text:='0';
contrato.Enabled:=true;
contrato.Text:='0';
cuota.Enabled:=true;
cuota.Text:='0';
titular.Enabled:=true;
titular.Text:='';
Edit1.Enabled:=true;
Edit1.Text:='0';
Edit2.Enabled:=true;
Edit2.Text:='0';
Edit3.Enabled:=true;
Edit3.Text:='0';
Edit4.Enabled:=true;
Edit4.Text:='0';
print.Enabled:=true;
end;

procedure Tf_chequera.printClick(Sender: TObject);
var cont: Integer;
begin
mes.Enabled:=false;
codigo.Enabled:=false;
contrato.Enabled:=false;
cuota.Enabled:=false;
titular.Enabled:=false;
Edit1.Enabled:=false;
Edit2.Enabled:=false;
Edit3.Enabled:=false;
Edit4.Enabled:=false;
print.Enabled:=false;
try
report.Report.Params[0].Value:= titular.Text;
report.Report.Params[1].Value:= StrToInt(cuota.Text);
report.Report.Params[2].Value:= contrato.Text;
report.Report.Params[3].Value:= StrToInt(codigo.Text);
report.Report.Params[4].Value:=StrToDate(mes.Text);
report.Report.Params[5].Value:=StrToInt(Edit1.Text);
report.Report.Params[6].Value:=StrToInt(Edit2.Text);
report.Report.Params[7].Value:=StrToInt(Edit3.Text);
report.Report.Params[8].Value:=StrToInt(Edit4.Text);
report.Execute;
except
 with Application do
  begin
    NormalizeTopMosts;
    MessageBox('Verifique que los parámetros pasados sean los correctos', 'Atención', MB_OK);
    RestoreTopMosts;
  end;
end;
end;

procedure Tf_chequera.exitClick(Sender: TObject);
begin
Close;
end;

procedure Tf_chequera.FormCreate(Sender: TObject);
begin
mes.Text:=DateToStr(now);
end;

end.


como veras no uso ningun componente que tenga una Q en frente, sera que no hay algun paquete que deba llevar a instalar en la maquina del cliente?
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error al instalar Report manager Loarik Impresión 1 07-08-2008 12:57:30
Report Manager SSoft Impresión 1 26-01-2008 00:20:53
Instalacion Report Manager 2.6j en D6sp2 con error pbruccoleri Impresión 1 01-03-2007 00:04:39
Report Manager dvlt Impresión 8 17-11-2006 08:57:29
Error en Report Manager landro Impresión 7 13-07-2006 17:10:37


La franja horaria es GMT +2. Ahora son las 13:18:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi