TTprxCmpCABECERAGrabarEstadoForm

Descripción

El objeto TTprxCmpCABECERAGrabarEstadoForm (Form para elegir en qué estado se graba un comprobante.) es el form que permite ingresar el estado en que queremos grabar un comprobante.

Normalmente un usuario puede grabar comprobantes en un solo estado, Registrado (ver Estados de un comprobante), cuando eso sucede este form no se le mostrará. Pero cuando el usuario puede grabar un comprobante en más de un estado (por ejemplo: Abierto o Registrado) va a ver este form cuando quiere grabar el comprobante.

Elegir estado para grabar un comprobante.

Identidad

• Ancestro: TTprxForm
• Carpeta: C:\DevelopPrx\classes
• Archivo: prxCmpCABECERAGrabarEstadoForm.pas

Declaración

type
  TTprxCmpCABECERAGrabarEstadoForm = class(TTprxForm)
    Panel3: TPanel;
    PanelABIERTO: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    ButtonABIERTO: TButton;
    PanelREGISTRADO: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    ButtonREGISTRADO: TButton;
    PanelCANCELAR: TPanel;
    Label9: TLabel;
    Label10: TLabel;
    ButtonCANCELAR: TButton;
    PanelMENSAJE: TPanel;
    MemoMENSAJE: TMemo;
    procedure FormShow(Sender: TObject);
    procedure ButtonABIERTOClick(Sender: TObject);
    procedure ButtonREGISTRADOClick(Sender: TObject);
    procedure ButtonCANCELARClick(Sender: TObject);
  private
    FFamilia: String;
    FTipo: String;
    FPuntoEmision: String;
    FEstado: String;

    FAbiertoHabilitado: Boolean;
    FRegistradoHabilitado: Boolean;
    FRegistradoMensaje: String;

    FSugerenciaGrabado: String;
  protected
    procedure   UsaPanelABIERTOSet(aValue: Boolean);
    function    UsaPanelABIERTOGet: Boolean;
    procedure   UsaPanelREGISTRADOSet(aValue: Boolean);
    function    UsaPanelREGISTRADOGet: Boolean;

    property    UsaPanelABIERTO: Boolean read UsaPanelABIERTOGet write UsaPanelABIERTOSet;
    property    UsaPanelREGISTRADO: Boolean read UsaPanelREGISTRADOGet write UsaPanelREGISTRADOSet;
    property    SugerenciaGrabado: String read FSugerenciaGrabado write FSugerenciaGrabado;
  public
    property    Familia: String read FFamilia write FFamilia;
    property    Tipo: String read FTipo write FTipo;
    property    PuntoEmision: String read FPuntoEmision write FPuntoEmision;

    property    Estado: String read FEstado write FEstado;

    property    AbiertoHabilitado: Boolean read FAbiertoHabilitado write FAbiertoHabilitado;
    property    RegistradoHabilitado: Boolean read FRegistradoHabilitado write FRegistradoHabilitado;
    property    RegistradoMensaje: String read FRegistradoMensaje write FRegistradoMensaje;
  end;

Declaración

procedure FormShow(Sender: TObject)

Carga los estados posibles para el usuario logueado, usa el siguiente SQL:

SELECT
V.FFAMILIA
, V.FTIPO
, V.FDOMINIO
, V.FPUNTOEMISION
, V.FUSUARIO
, V.FABIERTO
, V.FREGISTRADO
, V.FELIMINAR
, V.FREABRIR
, V.FSUGERENCIA_GRABADO
FROM cmpPUNTOSEMISION_USUARIOS_VISTA V WHERE
V.FFAMILIA = 'FC'
AND V.FTIPO = 'F'
AND V.FPUNTOEMISION = '0001'
AND V.FUSUARIO = 'lcarou'

• Si el campo FABIERTO es igual a 1 entonces el usuario puede registrar el comprobante en estado abierto.
• Si el campo FREGISTRADO es igual a 1 entonces el usuario puede registrar el comprobante en estado registrado.

La opción Cancelar grabado... retorna al comprobante sin hacer nada.

Uso

Solo se usa en TTfvsDBClientFrameCmpCabecera.OnExecute_POST. TprxCmpCABECERA