TTprxCmpCABECERANumeracionManualForm

Descripción

El objeto TTprxCmpCABECERANumeracionManualForm (Form para ingresar el número de un comprobante con numeración manual.) permite ingresar el número que corresponde a un comprobante que estamos dando de alta. Para que un comprobante requiera el ingreso manual del número el talonario que tiene asociado debe ser de numeración manual (Ver COMPROBANTES/TALONARIOS).

Form de numeración manual.

Identidad

• Ancestro: TprxForm
• Carpeta: C:\DevelopPrx\classes
• Archivo: prxCmpCABECERANumeracionManualForm.pas

Declaración

type
  TTprxCmpCABECERANumeracionManualForm = class(TTprxForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ButtonAPLICAR: TButton;
    Panel5: TPanel;
    GroupBox1: TGroupBox;
    Panel6: TPanel;
    prxMemoInstructions2: TprxMemoInstructions;
    Panel4: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    EditTIPOCOMPROBANTE: TEdit;
    EditPUNTOEMISION: TEdit;
    EditNUMERO: TEdit;
    prxADOQueryAUX: TprxADOQuery;
    procedure FormShow(Sender: TObject);
    procedure ButtonAPLICARClick(Sender: TObject);
  private
    FFamilia: String;
    FTipo: String;
    FPuntoEmision: String;
    FLetra: String;
    FNumero: Integer;
  protected
    function    GetNumero: Integer;
  public
    property    Familia: String read FFamilia write FFamilia;
    property    Tipo: String read FTipo write FTipo;
    property    PuntoEmision: String read FPuntoEmision write FPuntoEmision;
    property    Letra: String read FLetra write FLetra;
    property    Numero: Integer read GetNumero write FNumero;
  end;

Propiedades del comprobante

Las siguientes propiedades se completan según el comprobante editado:

public
  property    Familia: String read FFamilia write FFamilia;
  property    Tipo: String read FTipo write FTipo;
  property    PuntoEmision: String read FPuntoEmision write FPuntoEmision;
  property    Letra: String read FLetra write FLetra;

Propiedad para el número

El número del comprobante se asigna a la variable:

private
  FNumero: Integer;

Usando FNumero para el write, y GetNumero para el read:

public
  property    Numero: Integer read GetNumero write FNumero;

La función GetNumero retorna el número leyéndolo directamente desde el control de edición llamado EditNUMERO:

function TTprxCmpCABECERANumeracionManualForm.GetNumero: Integer;
begin
  Result := StrToInt(EditNUMERO.Text);
end;

Implementación

procedure FormShow(Sender: TObject)

Carga la descripción del comprobante y la muestra en el form.

Asigna la variable FNumero a la caja de edición.

procedure ButtonAPLICARClick(Sender: TObject)

Acepta el número ingresado y cierra el form.

Uso

Este form solo se usa desde la función TprxCmpCABECERA.AsignarNumero para definir el número del comprobante que estamos grabando.

Esta función instancia el form y setea sus propiedades:

vF              := TTprxCmpCABECERANumeracionManualForm.Create(Self);
vF.Familia      := FieldByName(cmpFamilia_Name).AsString;
vF.Tipo         := FieldByName(cmpTipo_Name).AsString;
vF.PuntoEmision := FieldByName(cmpPuntoEmision_Name).AsString;
vF.Numero       := vNumero;
vF.ShowModal;

vNumero := vF.Numero;

vF.Release;

Finalmente asigna a una variable local el número ingresado con:

vNumero := vF.Numero;