TTprxCmpCABECERANumeracionManualForm - Historial de revisiones

Luciano Carou: /* Implementación */

2025-05-28T15:41:14Z

Implementación

← Revisión anterior		Revisión del 17:41 28 may 2025
Línea 89:		Línea 89:
	===procedure ButtonAPLICARClick(Sender: TObject)===		===procedure ButtonAPLICARClick(Sender: TObject)===
	Acepta el número ingresado y cierra el form.		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:
			<pre>
			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;
			</pre>

			Finalmente asigna a una variable local el número ingresado con:
			<pre>
			vNumero := vF.Numero;
			</pre>

Luciano Carou: /* Identidad */

2025-05-28T15:25:30Z

Identidad

← Revisión anterior		Revisión del 17:25 28 may 2025
Línea 6:		Línea 6:
	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=
	[[Category:MANUAL/PROGRAMADOR]]		[[Category:MANUAL/PROGRAMADOR]]
	[[Category:CONTROLES/~~FRAMES~~]]		[[Category:CONTROLES/FORMS]]
	*Ancestro: [[TprxForm]]		*Ancestro: [[TprxForm]]
	*Carpeta: C:\DevelopPrx\classes		*Carpeta: C:\DevelopPrx\classes

Luciano Carou: /* Propiedades del comprobante */

2025-05-28T15:23:21Z

Propiedades del comprobante

← Revisión anterior		Revisión del 17:23 28 may 2025
Línea 58:		Línea 58:
	property PuntoEmision: String read FPuntoEmision write FPuntoEmision;		property PuntoEmision: String read FPuntoEmision write FPuntoEmision;
	property Letra: String read FLetra write FLetra;		property Letra: String read FLetra write FLetra;
	<pre>		</pre>

	===Propiedad para el número===		===Propiedad para el número===

Luciano Carou: /* Propiedades del comprobante */

2025-05-28T15:23:09Z

Propiedades del comprobante

← Revisión anterior		Revisión del 17:23 28 may 2025
Línea 52:		Línea 52:
	===Propiedades del comprobante===		===Propiedades del comprobante===
	Las siguientes propiedades se completan según el comprobante editado:		Las siguientes propiedades se completan según el comprobante editado:
	*property Familia: String read FFamilia write FFamilia;		<pre>
	*property Tipo: String read FTipo write FTipo;		public
	*property PuntoEmision: String read FPuntoEmision write FPuntoEmision;		property Familia: String read FFamilia write FFamilia;
	*property Letra: String read FLetra write FLetra;		property Tipo: String read FTipo write FTipo;
			property PuntoEmision: String read FPuntoEmision write FPuntoEmision;
			property Letra: String read FLetra write FLetra;
			<pre>

	===Propiedad para el número===		===Propiedad para el número===

Luciano Carou: /* Descripción */

2025-05-28T15:22:29Z

Descripción

← Revisión anterior		Revisión del 17:22 28 may 2025
Línea 1:		Línea 1:
	=Descripción=		=Descripción=
	El objeto '''TTprxCmpCABECERANumeracionManualForm''' (Form para ingresar el número de un comprobante con numeración manual.) ~~es un form que~~ 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 ~~tienen~~ asociado debe ser de numeración manual (Ver [[COMPROBANTES/TALONARIOS\|COMPROBANTES/TALONARIOS]]).		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\|COMPROBANTES/TALONARIOS]]).

	[[Archivo:20250527 1544 GRABAR NUMERACION MANUAL.png\|miniaturadeimagen\|no\|Form de numeración manual.]]		[[Archivo:20250527 1544 GRABAR NUMERACION MANUAL.png\|miniaturadeimagen\|no\|Form de numeración manual.]]

Luciano Carou: Página creada con «=Descripción= El objeto '''TTprxCmpCABECERANumeracionManualForm''' (Form para ingresar el número de un comprobante con numeración manual.) es un form que 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 tienen asociado debe ser de numeración manual (Ver COMPROBANTES/TALONARIOS). Archivo:20250527 1544 GRABAR NUMERACIO…»

2025-05-28T15:21:53Z

Página creada con «=Descripción= El objeto '''TTprxCmpCABECERANumeracionManualForm''' (Form para ingresar el número de un comprobante con numeración manual.) es un form que 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 tienen asociado debe ser de numeración manual (Ver COMPROBANTES/TALONARIOS). Archivo:20250527 1544 GRABAR NUMERACIO…»

Página nueva

=Descripción=
El objeto '''TTprxCmpCABECERANumeracionManualForm''' (Form para ingresar el número de un comprobante con numeración manual.) es un form que 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 tienen asociado debe ser de numeración manual (Ver [[COMPROBANTES/TALONARIOS|COMPROBANTES/TALONARIOS]]).

[[Archivo:20250527 1544 GRABAR NUMERACION MANUAL.png|miniaturadeimagen|no|Form de numeración manual.]]

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:CONTROLES/FRAMES]]
*Ancestro: [[TprxForm]]
*Carpeta: C:\DevelopPrx\classes
*Archivo: prxCmpCABECERANumeracionManualForm.pas

=Declaración=
<pre>
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;
</pre>

===Propiedades del comprobante===
Las siguientes propiedades se completan según el comprobante editado:
*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:
<pre>
private
FNumero: Integer;
</pre>

Usando FNumero para el write, y GetNumero para el read:
<pre>
public
property Numero: Integer read GetNumero write FNumero;
</pre>

La función GetNumero retorna el número leyéndolo directamente desde el control de edición llamado EditNUMERO:
<pre>
function TTprxCmpCABECERANumeracionManualForm.GetNumero: Integer;
begin
Result := StrToInt(EditNUMERO.Text);
end;
</pre>

=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.