Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcos_Afa

Problemas ao rodar aplicação - [Error] Vendedor.PAS(308): Undeclared i

Por , em Delphi

Recommended Posts

Marcos_Afa    0

Marcos_Afa
Postado

Pessoal,

Sou novato no Delphi e estou apanhando bastante, tenho o seguinte procedimento abaixo que ao rodar me da o seguinte erro:

******

[Error] Vendedor.PAS(308): Undeclared identifier: 'ENDERECO'

[Warning] Vendedor.PAS(490): Unsafe typecast of 'Pointer' to 'TConsultasSalvas'

[Warning] Vendedor.PAS(931): Unsafe typecast of 'Pointer' to 'TCampoEdicao'

[Warning] Vendedor.PAS(961): Unsafe typecast of 'Pointer' to 'TCampoEdicao'

[Error] Vendedor.PAS(1096): Undeclared identifier: 'ENDERECO'

[Error] Vendedor.PAS(1105): Undeclared identifier: 'ENDERECO'

[Error] Vendedor.PAS(1119): Statement expected but 'PROCEDURE' found

[Error] Vendedor.PAS(141): Unsatisfied forward or external declaration: 'TFormVendedor.TELEFONE_1Exit'

[Fatal Error] Automacao.dpr(143): Could not compile used unit 'Vendedor.PAS'

*********

 

Segue o código:

 

unit Vendedor;

 

interface

 

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Buttons, ExtCtrls, ComCtrls, Tabs, BaseD, Db, Grids, DBGrids,

Atributo, dbctrls, Clipbrd, Tabela, Menus, IniFiles, Printers, Calculos,

{$I LTab.pas}

JPeg, XLookUp, XDBDate, Mask, XDBEdit, XDBNum, XEdit;

 

type

TFormVendedor = class(TForm)

PagePrincipal: TPageControl;

TabManutencao: TTabSheet;

TabConsulta: TTabSheet;

PnSalva: TPanel;

PnSup: TPanel;

ShapeSup: TShape;

TabPaginas: TTabSet;

PnInfConsulta: TPanel;

GridConsulta: TDBGrid;

DataSource: TDataSource;

LbTituloForm: TLabel;

BtnAjuda: TSpeedButton;

BtnFechar: TSpeedButton;

PgPagina1: TScrollBox;

BtnSalvar: TBitBtn;

BtnDesistir: TBitBtn;

AbaConsulta: TTabSet;

PopConsulta: TPopupMenu;

Filtrar: TMenuItem;

Ordenar: TMenuItem;

OrdenarComposto: TMenuItem;

N1: TMenuItem;

ApagarColuna: TMenuItem;

N2: TMenuItem;

TotalizarColuna: TMenuItem;

CalcularMedia: TMenuItem;

N3: TMenuItem;

Imprimir: TMenuItem;

SalvarConsulta: TMenuItem;

ExcluirConsulta: TMenuItem;

NoManutencao: TNotebook;

Pagina0: TScrollBox;

Pagina1: TScrollBox;

Pagina2: TScrollBox;

Pagina3: TScrollBox;

Pagina4: TScrollBox;

Pagina5: TScrollBox;

Pagina6: TScrollBox;

Pagina7: TScrollBox;

Pagina8: TScrollBox;

Pagina9: TScrollBox;

Pagina10: TScrollBox;

Quantificar: TMenuItem;

{01-Início do Bloco Modular. Modificações não serão preservadas}

Grid_TCVENDAS: TDBGrid;

DataSource_Grid_TCVENDAS: TDataSource;

VEN_C_6: TXDBNumEdit;

LbcVEN_C_6: TLabel;

VEN_V_12: TXDBNumEdit;

LbcVEN_V_12: TLabel;

VEN_V_11: TXDBNumEdit;

LbcVEN_V_11: TLabel;

VEN_C_5: TXDBNumEdit;

LbcVEN_C_5: TLabel;

VEN_V_10: TXDBNumEdit;

LbcVEN_V_10: TLabel;

VEN_V_9: TXDBNumEdit;

LbcVEN_V_9: TLabel;

VEN_C_4: TXDBNumEdit;

LbcVEN_C_4: TLabel;

VEN_V_8: TXDBNumEdit;

LbcVEN_V_8: TLabel;

VEN_V_7: TXDBNumEdit;

LbcVEN_V_7: TLabel;

VEN_C_3: TXDBNumEdit;

LbcVEN_C_3: TLabel;

VEN_V_6: TXDBNumEdit;

LbcVEN_V_6: TLabel;

VEN_V_5: TXDBNumEdit;

LbcVEN_V_5: TLabel;

VEN_C_2: TXDBNumEdit;

LbcVEN_C_2: TLabel;

VEN_V_4: TXDBNumEdit;

LbcVEN_V_4: TLabel;

VEN_V_3: TXDBNumEdit;

LbcVEN_V_3: TLabel;

VEN_C_1: TXDBNumEdit;

LbcVEN_C_1: TLabel;

VEN_V_2: TXDBNumEdit;

LbcVEN_V_2: TLabel;

VEN_V_1: TXDBNumEdit;

LbcVEN_V_1: TLabel;

Label1: TLabel;

VEN_DESC_MAXIMO: TXDBNumEdit;

LbcVEN_DESC_MAXIMO: TLabel;

VEN_D_CARTAO: TDBCheckBox;

VEN_TIPO_COMISSAO: TDBRadioGroup;

VEN_COMISSAO: TDBCheckBox;

CELULAR_1: TXDBEdit;

LbcCELULAR_1: TLabel;

FAX_1: TXDBEdit;

LbcFAX_1: TLabel;

TELEFONE_2: TXDBEdit;

TELEFONE_1: TXDBEdit;

LbcTELEFONE_1: TLabel;

APELIDO: TXDBEdit;

LbcAPELIDO: TLabel;

ENDERECO: TXDBEdit;

LbcENDERECO: TLabel;

VEN_NOME: TXDBEdit;

LbcVEN_NOME: TLabel;

VEN_CODIGO: TXDBEdit;

LbcVEN_CODIGO: TLabel;

{99-Final do Bloco Modular. Modificações não serão preservadas}

MenuImagem: TPopupMenu;

CortarImagem: TMenuItem;

CopiarImagem: TMenuItem;

ColarImagem: TMenuItem;

MnSep01: TMenuItem;

AbrirImagem: TMenuItem;

SalvarImagem: TMenuItem;

DlgSalvarComoImagem: TSaveDialog;

DlgAbrirImagem: TOpenDialog;

PopRelacionados: TPopupMenu;

BtnRelac_1: TBitBtn;

BtnRelac_2: TBitBtn;

//ENDERECO: TXDBEdit;

{02-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

procedure VEN_CODIGOExit(Sender: TObject);

procedure VEN_NOMEExit(Sender: TObject);

procedure APELIDOExit(Sender: TObject);

procedure ENDERECOExit(Sender: TObject);

procedure TELEFONE_1Exit(Sender: TObject);

procedure TELEFONE_2Exit(Sender: TObject);

procedure FAX_1Exit(Sender: TObject);

procedure CELULAR_1Exit(Sender: TObject);

procedure VEN_COMISSAOExit(Sender: TObject);

procedure VEN_TIPO_COMISSAOExit(Sender: TObject);

procedure VEN_D_CARTAOExit(Sender: TObject);

procedure VEN_DESC_MAXIMOExit(Sender: TObject);

procedure VEN_V_1Exit(Sender: TObject);

procedure VEN_V_2Exit(Sender: TObject);

procedure VEN_C_1Exit(Sender: TObject);

procedure VEN_V_3Exit(Sender: TObject);

procedure VEN_V_4Exit(Sender: TObject);

procedure VEN_C_2Exit(Sender: TObject);

procedure VEN_V_5Exit(Sender: TObject);

procedure VEN_V_6Exit(Sender: TObject);

procedure VEN_C_3Exit(Sender: TObject);

procedure VEN_V_7Exit(Sender: TObject);

procedure VEN_V_8Exit(Sender: TObject);

procedure VEN_C_4Exit(Sender: TObject);

procedure VEN_V_9Exit(Sender: TObject);

procedure VEN_V_10Exit(Sender: TObject);

procedure VEN_C_5Exit(Sender: TObject);

procedure VEN_V_11Exit(Sender: TObject);

procedure VEN_V_12Exit(Sender: TObject);

procedure VEN_C_6Exit(Sender: TObject);

procedure Grid_TCVENDASDblClick(Sender: TObject);

procedure Grid_TCVENDASAssociacao(Associa: Boolean);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormResize(Sender: TObject);

procedure BtnFecharClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure BtnSalvarClick(Sender: TObject);

procedure BtnDesistirClick(Sender: TObject);

procedure GridConsultaDblClick(Sender: TObject);

procedure PagePrincipalChange(Sender: TObject);

procedure FiltrarClick(Sender: TObject);

procedure OrdenarClick(Sender: TObject);

procedure OrdenarCompostoClick(Sender: TObject);

procedure ApagarColunaClick(Sender: TObject);

procedure QuantificarClick(Sender: TObject);

procedure TotalizarColunaClick(Sender: TObject);

procedure CalcularMediaClick(Sender: TObject);

procedure ImprimirClick(Sender: TObject);

procedure SalvarConsultaClick(Sender: TObject);

procedure ExcluirConsultaClick(Sender: TObject);

procedure AbaConsultaClick(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure TabPaginasClick(Sender: TObject);

procedure CortarImagemClick(Sender: TObject);

procedure CopiarImagemClick(Sender: TObject);

procedure ColarImagemClick(Sender: TObject);

procedure AbrirImagemClick(Sender: TObject);

procedure SalvarImagemClick(Sender: TObject);

procedure BtnAjudaClick(Sender: TObject);

procedure BtnRelac_1Click(Sender: TObject);

procedure PopRelacionadosClick(Sender: TObject);

private

{ Private declarations }

Navegando: Boolean;

ListaCamposED: TListaCampos; {Conterá a lista de campos em edição na ED}

TituloModulo: String;

ConsultasSalvas: TList;

PaginaIni: Integer;

ErroValidacao: Boolean;

procedure StatusTabela;

function AbreTabelas: Boolean;

procedure MudaSeForUltimo;

function AbandonandoEdicao: Boolean;

procedure TelaManutencao;

procedure TelaConsulta;

procedure AtribuiValoresPadrao;

procedure PosicionaNoCampo(Campo: TAtributo);

procedure VerificaAtualizacoes;

procedure ErroValidacaoCampo(MsgErro: String; Campo: TAtributo);

procedure Localizar(Sender: TObject);

procedure Incluir(Sender: TObject);

procedure Modificar(Sender: TObject);

procedure Excluir(Sender: TObject);

procedure Primeiro(Sender: TObject);

procedure Anterior(Sender: TObject);

procedure Proximo(Sender: TObject);

procedure Ultimo(Sender: TObject);

procedure AntesdeSalvar;

procedure AntesdeIncluir;

procedure AntesdeModificar;

procedure AntesdeExcluir;

procedure DepoisdeIncluir;

procedure DepoisdeModificar;

procedure DepoisdeExcluir;

function ConfirmaInclusao: Boolean;

function ConfirmaModificacao: Boolean;

function ConfirmaExclusao: Boolean;

function ConfirmaGravacao: Boolean;

procedure CamposCalculados;

public

{ Public declarations }

{03-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

TabelaPrincipal: TTabela;

{04-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

end;

 

var

FormVendedor: TFormVendedor;

LastControl: TWinControl;

 

implementation

 

{$R *.DFM}

 

uses Publicas, Princ, Rotinas, RotinaEd, Abertura, TbComiss;

 

procedure TFormVendedor.FormShow(Sender: TObject);

Var

I: Integer;

begin

{05-Início do Bloco Modular. Modificações não serão preservadas}

TabelaPrincipal := TabGlobal.DVENDEDOR;

TituloModulo := 'Ficha Cadastral de Vendedores';

Caption := TituloModulo;

{99-Final do Bloco Modular. Modificações não serão preservadas}

FormPrincipal.PnImagemFundo.Visible := False;

Sistema.JanelasMDI := Sistema.JanelasMDI + 01;

if Sistema.JanelasMDI < 1 then // Pouco provável + ...

Sistema.JanelasMDI := 1;

Navegando := False;

DataSource.DataSet := TabelaPrincipal;

ListaCamposED := TListaCampos.Create;

ConsultasSalvas := TList.Create;

PaginaIni := 0;

ErroValidacao := False;

TabPaginas.TabIndex:= 0;

{06-Início do Bloco Modular. Modificações não serão preservadas}

DataSource_Grid_TCVENDAS.DataSet := TabGlobal.DTCVENDAS;

Grid_TCVENDAS.DataSource := DataSource_Grid_TCVENDAS;

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_6, 0, VEN_C_6Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_12, 0, VEN_V_12Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_11, 0, VEN_V_11Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_5, 0, VEN_C_5Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_10, 0, VEN_V_10Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_9, 0, VEN_V_9Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_4, 0, VEN_C_4Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_8, 0, VEN_V_8Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_7, 0, VEN_V_7Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_3, 0, VEN_C_3Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_6, 0, VEN_V_6Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_5, 0, VEN_V_5Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_2, 0, VEN_C_2Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_4, 0, VEN_V_4Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_3, 0, VEN_V_3Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_C_1, 0, VEN_C_1Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_2, 0, VEN_V_2Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_V_1, 0, VEN_V_1Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_DESC_MAXIMO, 0, VEN_DESC_MAXIMOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_D_CARTAO, 0, VEN_D_CARTAOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_TIPO_COMISSAO, 0, VEN_TIPO_COMISSAOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_COMISSAO, 0, VEN_COMISSAOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.CELULAR_1, 0, CELULAR_1Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.FAX_1, 0, FAX_1Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.TELEFONE_2, 0, TELEFONE_2Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.TELEFONE_1, 0, TELEFONE_1Exit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.APELIDO, 0, APELIDOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.ENDERECO, 0, ENDERECOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_NOME, 0, VEN_NOMEExit, Nil, ListaCamposEd, FormVendedor, DataSource);

AtribuiCampoEdicao(TabGlobal.DVENDEDOR, TabGlobal.DVENDEDOR.VEN_CODIGO, -1, VEN_CODIGOExit, Nil, ListaCamposEd, FormVendedor, DataSource);

{99-Final do Bloco Modular. Modificações não serão preservadas}

CamposCalculados;

if not AbreTabelas then exit;

AjustaColunasConsulta(TabelaPrincipal);

TabelaPrincipal.AtualizaSql;

StatusTabela;

TabelaPrincipal.First;

FormResize(Self);

BtnSalvar.Enabled := False;

BtnDesistir.Enabled := False;

InicializaConsultasSalvas(TabelaPrincipal, AbaConsulta, ConsultasSalvas);

PagePrincipal.ActivePageIndex := 1;

NoManutencao.PageIndex := 0;

TelaConsulta;

GridConsulta.SetFocus;

Grid_TCVENDAS.Enabled := False;

end;

 

function TFormVendedor.AbreTabelas: Boolean;

begin

{07-Início do Bloco Modular. Modificações não serão preservadas}

Result := True;

{99-Final do Bloco Modular. Modificações não serão preservadas}

end;

 

procedure TFormVendedor.CamposCalculados;

begin

{08-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

end;

 

function TFormVendedor.ConfirmaInclusao: Boolean;

begin

Result := True;

end;

 

function TFormVendedor.ConfirmaModificacao: Boolean;

begin

Result := True;

end;

 

function TFormVendedor.ConfirmaExclusao: Boolean;

begin

Result := True;

end;

 

function TFormVendedor.ConfirmaGravacao: Boolean;

begin

Result := True;

end;

 

procedure TFormVendedor.TelaManutencao;

begin

Grid_TCVENDASAssociacao(True);

if (TabGlobal.DVENDEDOR.ven_comissao.Conteudo <> 'S') then

begin

ven_tipo_comissao.Enabled := False;

ven_d_cartao.Enabled := False;

//ven_forma_pgto.Enabled := False;

end

else

begin

ven_tipo_comissao.Enabled := True;

ven_d_cartao.Enabled := True;

//ven_forma_pgto.Enabled := True;

end;

if (TabGlobal.DVENDEDOR.ven_tipo_comissao.Conteudo <> '2') or

(TabGlobal.DVENDEDOR.ven_comissao.Conteudo <> 'S') then

begin

ven_v_1.Enabled := False;

ven_v_2.Enabled := False;

ven_v_3.Enabled := False;

ven_v_4.Enabled := False;

ven_v_5.Enabled := False;

ven_v_6.Enabled := False;

ven_v_7.Enabled := False;

ven_v_8.Enabled := False;

ven_v_9.Enabled := False;

ven_v_10.Enabled := False;

ven_v_11.Enabled := False;

ven_v_12.Enabled := False;

ven_c_1.Enabled := False;

ven_c_2.Enabled := False;

ven_c_3.Enabled := False;

ven_c_4.Enabled := False;

ven_c_5.Enabled := False;

ven_c_6.Enabled := False;

end

else

begin

ven_v_1.Enabled := True;

ven_v_2.Enabled := True;

ven_v_3.Enabled := True;

ven_v_4.Enabled := True;

ven_v_5.Enabled := True;

ven_v_6.Enabled := True;

ven_v_7.Enabled := True;

ven_v_8.Enabled := True;

ven_v_9.Enabled := True;

ven_v_10.Enabled := True;

ven_v_11.Enabled := True;

ven_v_12.Enabled := True;

ven_c_1.Enabled := True;

ven_c_2.Enabled := True;

ven_c_3.Enabled := True;

ven_c_4.Enabled := True;

ven_c_5.Enabled := True;

ven_c_6.Enabled := True;

end;

if (TabGlobal.DVENDEDOR.ven_tipo_Comissao.Conteudo = '3') and

(TabGlobal.DVENDEDOR.ven_comissao.Conteudo = 'S') then

Grid_TCVENDAS.Enabled := True

else

Grid_TCVENDAS.Enabled := False;

end;

 

procedure TFormVendedor.TelaConsulta;

begin

 

end;

 

procedure TFormVendedor.AtribuiValoresPadrao;

begin

 

Grid_TCVENDASAssociacao(True);

end;

 

procedure TFormVendedor.AntesdeSalvar;

begin

 

end;

 

procedure TFormVendedor.AntesdeIncluir;

begin

 

end;

 

procedure TFormVendedor.AntesdeModificar;

begin

 

end;

 

procedure TFormVendedor.AntesdeExcluir;

begin

 

end;

 

procedure TFormVendedor.DepoisdeIncluir;

begin

 

end;

 

procedure TFormVendedor.DepoisdeModificar;

begin

 

end;

 

procedure TFormVendedor.DepoisdeExcluir;

begin

 

end;

 

procedure TFormVendedor.FormCloseQuery(Sender: TObject;

var CanClose: Boolean);

begin

Grid_TCVENDASAssociacao(False);

if BtnSalvar.Enabled then

TabelaPrincipal.Cancela;

end;

 

procedure TFormVendedor.FormClose(Sender: TObject;

var Action: TCloseAction);

Var

I: Integer;

begin

DesabilitaFuncoesEd;

ListaCamposED.Free;

for I := 0 to ConsultasSalvas.Count - 1 do

TConsultasSalvas(ConsultasSalvas).Free;

ConsultasSalvas.Free;

Action := caFree;

FormVendedor := nil;

end;

 

procedure TFormVendedor.BtnFecharClick(Sender: TObject);

begin

Close;

end;

 

procedure TFormVendedor.BtnAjudaClick(Sender: TObject);

begin

application.helpcommand(Help_Finder,HelpContext);

end;

 

procedure TFormVendedor.StatusTabela;

begin

LbTituloForm.Caption := TituloModulo + '- [ Ordem: '+TabelaPrincipal.TituloIndice+' ]';

end;

 

procedure TFormVendedor.FormResize(Sender: TObject);

begin

BtnAjuda.Left := ShapeSup.Width - 37;

BtnFechar.Left := ShapeSup.Width - 19;

end;

 

procedure TFormVendedor.FormActivate(Sender: TObject);

begin

{

Inicializa Menu Manutenção e Barra de Ferramentas

}

FormPrincipal.BtnLocalizar.Visible := True;

FormPrincipal.BtnIncluir.Visible := True;

FormPrincipal.BtnModificar.Visible := True;

FormPrincipal.BtnExcluir.Visible := True;

FormPrincipal.BtnPrimeiro.Visible := True;

FormPrincipal.BtnAnterior.Visible := True;

FormPrincipal.BtnProximo.Visible := True;

FormPrincipal.BtnUltimo.Visible := True;

FormPrincipal.Manutencao.Enabled := True;

FormPrincipal.BtnLocalizar.OnClick := Localizar;

FormPrincipal.Localizar.OnClick := Localizar;

FormPrincipal.BtnIncluir.OnClick := Incluir;

FormPrincipal.Incluir.OnClick := Incluir;

FormPrincipal.BtnModificar.OnClick := Modificar;

FormPrincipal.Modificar.OnClick := Modificar;

FormPrincipal.BtnExcluir.OnClick := Excluir;

FormPrincipal.Excluir.OnClick := Excluir;

FormPrincipal.Primeiro.OnClick := Primeiro;

FormPrincipal.BtnPrimeiro.OnClick := Primeiro;

FormPrincipal.Anterior.OnClick := Anterior;

FormPrincipal.BtnAnterior.OnClick := Anterior;

FormPrincipal.Proximo.OnClick := Proximo;

FormPrincipal.BtnProximo.OnClick := Proximo;

FormPrincipal.Ultimo.OnClick := Ultimo;

FormPrincipal.BtnUltimo.OnClick := Ultimo;

{

Inicializa Menu Consulta

}

FormPrincipal.Consulta.Enabled := True;

FormPrincipal.Filtrar.OnClick := FiltrarClick;

FormPrincipal.Ordenar.OnClick := OrdenarClick;

FormPrincipal.OrdenarComposto.OnClick := OrdenarCompostoClick;

FormPrincipal.ApagarColuna.OnClick := ApagarColunaClick;

FormPrincipal.Quantificar.OnClick := QuantificarClick;

FormPrincipal.TotalizarColuna.OnClick := TotalizarColunaClick;

FormPrincipal.CalcularMedia.OnClick := CalcularMediaClick;

FormPrincipal.Imprimir.OnClick := ImprimirClick;

FormPrincipal.SalvarConsulta.OnClick := SalvarConsultaClick;

FormPrincipal.ExcluirConsulta.OnClick := ExcluirConsultaClick;

end;

 

procedure TFormVendedor.FormKeyPress(Sender: TObject; var Key: Char);

var

ControleCampo: TWinControl;

begin

ControleCampo := ActiveControl;

while (ControleCampo <> nil) and (ControleCampo.Owner <> Self) do

ControleCampo := ControleCampo.Parent;

if Key = Chr(13) then

begin

Key := #0;

{Atua como a tecla TAB}

Perform(WM_NEXTDLGCTL, 0, 0);

LastControl := ControleCampo;

MudaSeForUltimo;

end;

end;

 

procedure TFormVendedor.BtnSalvarClick(Sender: TObject);

Var

EInclusao: Boolean;

begin

if Not ConfirmaGravacao then

begin

MessageDlg('Gravação Cancelada !',mtError,[mbOk],0);

exit;

end;

if CamposDadosValidos(ListaCamposEd, ErroValidacao) then // Validações Ok ?!

begin

EInclusao := TabelaPrincipal.Inclusao;

Screen.Cursor := crHourGlass;

try

AntesdeSalvar;

TabelaPrincipal.Salva;

finally

if EInclusao then

DepoisdeIncluir

else

DepoisdeModificar;

Screen.Cursor := crDefault;

end;

BtnSalvar.Enabled := False;

BtnDesistir.Enabled := False;

PagePrincipal.ActivePageIndex := 1;

TelaConsulta;

if EInclusao then

begin

if not Sistema.Rede then

begin

TabelaPrincipal.AtualizaSql;

StatusTabela;

end;

Ultimo(Self);

end;

ErroValidacao := False;

GridConsulta.SetFocus;

end;

end;

 

procedure TFormVendedor.BtnDesistirClick(Sender: TObject);

begin

if TabelaPrincipal.Inclusao then

TabelaPrincipal.ExclusaoCascata;

TabelaPrincipal.Cancela;

BtnSalvar.Enabled := False;

BtnDesistir.Enabled := False;

ErroValidacao := False;

if not Navegando then

begin

PagePrincipal.ActivePageIndex := 1;

TelaConsulta;

GridConsulta.SetFocus;

end;

Navegando := False;

end;

 

procedure TFormVendedor.GridConsultaDblClick(Sender: TObject);

begin

if TabelaPrincipal.Eof then

Incluir(Self)

else

Modificar(Self);

end;

 

procedure TFormVendedor.VerificaAtualizacoes;

begin

if not BtnSalvar.Enabled then

BtnDesistirClick(Self)

else

if MessageDlg('Salvar Registro ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then

BtnSalvarClick(Self)

else

BtnDesistirClick(Self);

end;

 

procedure TFormVendedor.Localizar(Sender: TObject);

begin

Ed_Localizar(TabelaPrincipal, FormVendedor, GridConsulta);

end;

 

procedure TFormVendedor.Incluir(Sender: TObject);

begin

if ProcuraRestricao(TabelaPrincipal.NomeTabela,'I') then

begin

MessageDlg('Inclusão não Permitida !',mtError,[mbOk],0);

exit;

end;

if Not ConfirmaInclusao then

begin

MessageDlg('Inclusão Cancelada !',mtError,[mbOk],0);

exit;

end;

if TabelaPrincipal.Inclusao then

begin

MessageDlg('Operação de Inclusão já Ativa !',mtError,[mbOk],0);

exit;

end

else if TabelaPrincipal.Modificacao then

begin

MessageDlg('Operação de Modificação está Ativa !',mtError,[mbOk],0);

exit;

end;

HabilitaCamposChave(ListaCamposEd);

PagePrincipal.ActivePageIndex := 0;

TabPaginas.TabIndex:= 0;

TelaManutencao;

AntesdeIncluir;

TabelaPrincipal.Inclui(ListaCamposED);

BtnSalvar.Enabled := True;

BtnDesistir.Enabled := True;

AtribuiValoresPadrao;

end;

 

procedure TFormVendedor.Modificar(Sender: TObject);

begin

if ProcuraRestricao(TabelaPrincipal.NomeTabela,'M') then

begin

MessageDlg('Modificação não Permitida !',mtError,[mbOk],0);

exit;

end;

if Not ConfirmaModificacao then

begin

MessageDlg('Modificação Cancelada !',mtError,[mbOk],0);

exit;

end;

if TabelaPrincipal.Inclusao then

begin

MessageDlg('Operação de Inclusão está Ativa !',mtError,[mbOk],0);

exit;

end

else if TabelaPrincipal.Modificacao then

begin

MessageDlg('Operação de Modificação já Ativa !',mtError,[mbOk],0);

exit;

end;

DesabilitaCamposChave(ListaCamposEd);

PagePrincipal.ActivePageIndex := 0;

TabPaginas.TabIndex:= 0;

TelaManutencao;

Screen.Cursor := crHourGlass;

try

if Sistema.Rede then

TabelaPrincipal.Refresh;

AntesdeModificar;

TabelaPrincipal.Modifica;

finally

Screen.Cursor := crDefault;

end;

BtnSalvar.Enabled := True;

BtnDesistir.Enabled := True;

end;

 

procedure TFormVendedor.Excluir(Sender: TObject);

begin

if ProcuraRestricao(TabelaPrincipal.NomeTabela,'E') then

begin

MessageDlg('Exclusão não Permitida !',mtError,[mbOk],0);

exit;

end;

if Not ConfirmaExclusao then

begin

MessageDlg('Exclusão Cancelada !',mtError,[mbOk],0);

exit;

end;

if TabelaPrincipal.Inclusao then

begin

MessageDlg('Operação de Inclusão está Ativa !'+^M+^M+'Clique em Desistir para Cancelar Inclusão ...',mtError,[mbOk],0);

exit;

end

else if TabelaPrincipal.Modificacao then

begin

MessageDlg('Operação de Modificação está Ativa !',mtError,[mbOk],0);

exit;

end;

if MessageDlg('Excluir Registro ?',mtConfirmation,[mbYes,mbNo],0) = mrYes then

begin

Screen.Cursor := crHourGlass;

try

if Sistema.Rede then

TabelaPrincipal.Refresh;

AntesdeExcluir;

TabelaPrincipal.Exclui;

finally

DepoisdeExcluir;

Screen.Cursor := crDefault;

end;

end;

end;

 

procedure TFormVendedor.Primeiro(Sender: TObject);

begin

Navegando := True;

VerificaAtualizacoes;

if not ErroValidacao then

begin

Screen.Cursor := crHourGlass;

try

if Sistema.Rede then

begin

TabelaPrincipal.AtualizaSql;

StatusTabela;

end;

TabelaPrincipal.First;

if PagePrincipal.ActivePageIndex = 0 then

TelaManutencao;

finally

Screen.Cursor := crDefault;

end;

end;

end;

 

procedure TFormVendedor.Anterior(Sender: TObject);

begin

Navegando := True;

VerificaAtualizacoes;

if not ErroValidacao then

begin

TabelaPrincipal.Prior;

if PagePrincipal.ActivePageIndex = 0 then

TelaManutencao;

end;

end;

 

procedure TFormVendedor.Proximo(Sender: TObject);

begin

Navegando := True;

VerificaAtualizacoes;

if not ErroValidacao then

begin

TabelaPrincipal.Next;

if PagePrincipal.ActivePageIndex = 0 then

TelaManutencao;

end;

end;

 

procedure TFormVendedor.Ultimo(Sender: TObject);

begin

Navegando := True;

VerificaAtualizacoes;

if not ErroValidacao then

begin

try

if Sistema.Rede then

begin

TabelaPrincipal.AtualizaSql;

StatusTabela;

end;

TabelaPrincipal.Last;

if TabelaPrincipal.Eof then

begin

TabelaPrincipal.Prior;

TabelaPrincipal.Next;

end;

if PagePrincipal.ActivePageIndex = 0 then

TelaManutencao;

finally

Screen.Cursor := crDefault;

end;

end;

end;

 

procedure TFormVendedor.FiltrarClick(Sender: TObject);

begin

Ed_Filtrar(TabelaPrincipal, FormVendedor, GridConsulta);

StatusTabela;

end;

 

procedure TFormVendedor.OrdenarClick(Sender: TObject);

begin

Ed_Ordenar(TabelaPrincipal, FormVendedor, GridConsulta);

StatusTabela;

end;

 

procedure TFormVendedor.OrdenarCompostoClick(Sender: TObject);

begin

Ed_OrdenarComposto(TabelaPrincipal, FormVendedor, GridConsulta);

StatusTabela;

end;

 

procedure TFormVendedor.ApagarColunaClick(Sender: TObject);

begin

Ed_ApagarColuna(TabelaPrincipal, FormVendedor, GridConsulta);

end;

 

procedure TFormVendedor.QuantificarClick(Sender: TObject);

begin

Ed_Quantificar(TabelaPrincipal, FormVendedor, GridConsulta);

end;

 

procedure TFormVendedor.TotalizarColunaClick(Sender: TObject);

begin

Ed_TotalizarColuna(TabelaPrincipal, FormVendedor, GridConsulta);

end;

 

procedure TFormVendedor.CalcularMediaClick(Sender: TObject);

begin

Ed_CalcularMedia(TabelaPrincipal, FormVendedor, GridConsulta);

end;

 

procedure TFormVendedor.ImprimirClick(Sender: TObject);

begin

Ed_Imprimir(TabelaPrincipal, FormVendedor, GridConsulta, DataSource);

end;

 

procedure TFormVendedor.SalvarConsultaClick(Sender: TObject);

begin

Ed_SalvarConsulta(TabelaPrincipal, FormVendedor, GridConsulta, AbaConsulta, ConsultasSalvas);

end;

 

procedure TFormVendedor.ExcluirConsultaClick(Sender: TObject);

begin

Ed_ExcluirConsulta(TabelaPrincipal, FormVendedor, GridConsulta, AbaConsulta, ConsultasSalvas);

end;

 

procedure TFormVendedor.PagePrincipalChange(Sender: TObject);

begin

if PagePrincipal.ActivePageIndex = 0 then

begin

TabPaginas.TabIndex := PaginaIni;

TelaManutencao;

end

else if PagePrincipal.ActivePageIndex = 1 then

begin

VerificaAtualizacoes;

if Not ErroValidacao then

begin

TelaConsulta;

GridConsulta.SetFocus;

end

else

PagePrincipal.ActivePageIndex := 0;

end;

end;

 

procedure TFormVendedor.AbaConsultaClick(Sender: TObject);

begin

Ed_AbaConsulta(TabelaPrincipal, AbaConsulta, ConsultasSalvas, GridConsulta);

StatusTabela;

end;

 

procedure TFormVendedor.TabPaginasClick(Sender: TObject);

Var

I: Integer;

CampoED: TCampoEdicao;

Controle: TWinControl;

begin

I := ListaCamposED.ProcuraControle(LastControl);

if I <> -1 then

begin

CampoED := TCampoEdicao(ListaCamposED);

if Assigned(CampoED.Validacao) then

begin

ErroValidacao := False;

Controle := ActiveControl;

ActiveControl.Parent.SetFocus;

if ErroValidacao then

begin

TabPaginas.TabIndex := NoManutencao.PageIndex;

Exit;

end;

ActiveControl := Controle;

end;

end;

if NoManutencao.PageIndex <> TabPaginas.TabIndex then

begin

NoManutencao.SetFocus;

LiberaCamposPagina(NoManutencao.PageIndex, ListaCamposEd);

end;

NoManutencao.PageIndex := TabPaginas.TabIndex;

end;

 

procedure TFormVendedor.PosicionaNoCampo(Campo: TAtributo);

var

I: Integer;

CampoED: TCampoEdicao;

begin

I := ListaCamposED.ProcuraCampoED(Campo);

if I = -1 then

Exit;

CampoED := TCampoEdicao(ListaCamposED);

if (CampoED.Pagina <> -1) and (CampoED.Pagina <> NoManutencao.PageIndex) then

TabPaginas.TabIndex := CampoED.Pagina;

PagePrincipal.ActivePageIndex := 0;

CampoED.Controle.SetFocus;

end;

 

procedure TFormVendedor.ErroValidacaoCampo(MsgErro: String; Campo: TAtributo);

begin

MessageDlg(MsgErro, mtError, [mbOk], 0);

ErroValidacao := True;

PosicionaNoCampo(Campo);

end;

 

procedure TFormVendedor.MudaSeForUltimo;

begin

if (NoManutencao.PageIndex <> NoManutencao.Pages.Count - 1) and

(ActiveControl = BtnSalvar) then

if TabPaginas.TabIndex + 1 <= TabPaginas.Tabs.Count-1 then

TabPaginas.TabIndex := TabPaginas.TabIndex + 1;

end;

 

procedure TFormVendedor.CortarImagemClick(Sender: TObject);

begin

if ActiveControl is TDBImage then

TDBImage(ActiveControl).CutToClipBoard;

end;

 

procedure TFormVendedor.CopiarImagemClick(Sender: TObject);

begin

if ActiveControl is TDBImage then

TDBImage(ActiveControl).CopyToClipBoard;

end;

 

procedure TFormVendedor.ColarImagemClick(Sender: TObject);

begin

if (ActiveControl is TDBImage) and Clipboard.HasFormat(CF_PICTURE) then

begin

(ActiveControl as TDBImage).PasteFromClipBoard;

if TDBImage(ActiveControl).Picture.Graphic is TBitmap then

TDBImage(ActiveControl).DataSource.DataSet.UpdateRecord

else

begin

MessageDlg('Formato Inválido !', mtError, [mbOk], 0);

TDBImage(ActiveControl).DataSource.DataSet.Cancel;

end;

end

else

MessageDlg('Área de Transferência não contém imagem !', mtError, [mbOk], 0);

end;

 

procedure TFormVendedor.AbrirImagemClick(Sender: TObject);

begin

if DlgAbrirImagem.Execute and FileExists(DlgAbrirImagem.FileName) and

(ActiveControl is TDBImage) then

begin

TDBImage(ActiveControl).Picture.LoadFromFile(DlgAbrirImagem.FileName);

TDBImage(ActiveControl).DataSource.DataSet.UpdateRecord;

end;

end;

 

procedure TFormVendedor.SalvarImagemClick(Sender: TObject);

begin

if DlgSalvarComoImagem.Execute and (ActiveControl is TDBImage) then

TDBImage(ActiveControl).Picture.SaveToFile(DlgSalvarComoImagem.FileName);

end;

 

function TFormVendedor.AbandonandoEdicao: Boolean;

begin

Result := (ActiveControl = BtnDesistir) or (ActiveControl = PagePrincipal);

end;

 

procedure TFormVendedor.BtnRelac_1Click(Sender: TObject);

var

Pt: TPoint;

 

procedure AddMenuItem(Menu:TPopupMenu; ItemName:string; Name:string; Enable:Boolean; ImgIndex: Integer; Tag: Integer);

var

NewMenuItem: TMenuItem;

begin

NewMenuItem := TMenuItem.Create(Application);

NewMenuItem.Name := Name;

NewMenuItem.Caption := ItemName;

NewMenuItem.Enabled := Enable;

NewMenuItem.OnClick := PopRelacionadosClick;

NewMenuItem.Tag := Tag;

if ImgIndex <> -1 then

NewMenuItem.ImageIndex := ImgIndex;

Menu.Items.Add(NewMenuItem);

end;

 

begin

PopRelacionados.Items.Clear;

{09-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

GetCursorPos(Pt);

PopRelacionados.Popup(Pt.X, Pt.Y);

end;

 

procedure TFormVendedor.PopRelacionadosClick(Sender: TObject);

var

MenuItem: TMenuItem;

begin

MenuItem := TMenuItem(Sender);

{10-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

end;

 

{11-Início do Bloco Modular. Modificações não serão preservadas}

{99-Final do Bloco Modular. Modificações não serão preservadas}

 

procedure TFormVendedor.VEN_CODIGOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_CODIGO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_CODIGO);

end;

 

procedure TFormVendedor.VEN_NOMEExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_NOME.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_NOME);

end;

 

procedure TFormVendedor.APELIDOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.APELIDO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.ENDERECO);

end;

 

procedure TFormVendedor.ENDERECOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.ENDERECO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.ENDERECO);

end;

 

procedure TFormVendedor.TELEFONE_1Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.TELEFONE_1.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.TELEFONE_1);

end;

 

procedure TFormVendedor.TELEFONE_2Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.TELEFONE_2.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.TELEFONE_2);

end;

 

procedure TFormVendedor.FAX_1Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.FAX_1.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.FAX_1);

end;

 

procedure TFormVendedor.CELULAR_1Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.CELULAR_1.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.CELULAR_1);

end;

 

procedure TFormVendedor.VEN_COMISSAOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_COMISSAO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_COMISSAO);

if (TabGlobal.DVENDEDOR.ven_tipo_Comissao.Conteudo = '3') and

(TabGlobal.DVENDEDOR.ven_comissao.Conteudo = 'S') then

Grid_TCVENDAS.Enabled := True

else

Grid_TCVENDAS.Enabled := False;

if TabGlobal.DVENDEDOR.ven_comissao.Conteudo <> 'S' then

begin

if ((TabGlobal.DVENDEDOR.Modificacao) or (TabGlobal.DVENDEDOR.Inclusao)) then

begin

TabGlobal.DVENDEDOR.ven_v_1.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_2.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_3.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_4.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_5.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_6.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_7.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_8.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_9.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_10.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_11.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_12.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_1.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_2.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_3.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_4.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_5.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_6.Conteudo := 0;

end;

ven_v_1.Enabled := False;

ven_v_2.Enabled := False;

ven_v_3.Enabled := False;

ven_v_4.Enabled := False;

ven_v_5.Enabled := False;

ven_v_6.Enabled := False;

ven_v_7.Enabled := False;

ven_v_8.Enabled := False;

ven_v_9.Enabled := False;

ven_v_10.Enabled := False;

ven_v_11.Enabled := False;

ven_v_12.Enabled := False;

ven_c_1.Enabled := False;

ven_c_2.Enabled := False;

ven_c_3.Enabled := False;

ven_c_4.Enabled := False;

ven_c_5.Enabled := False;

ven_c_6.Enabled := False;

ven_tipo_comissao.Enabled := False;

ven_d_cartao.Enabled := False;

PosicionaNoCampo(TabGlobal.DVENDEDOR.ven_desc_maximo);

end

else

begin

ven_d_cartao.Enabled := True;

ven_tipo_comissao.Enabled := True;

if (TabGlobal.DVENDEDOR.ven_tipo_comissao.Conteudo = '2') then

begin

ven_v_1.Enabled := True;

ven_v_2.Enabled := True;

ven_v_3.Enabled := True;

ven_v_4.Enabled := True;

ven_v_5.Enabled := True;

ven_v_6.Enabled := True;

ven_v_7.Enabled := True;

ven_v_8.Enabled := True;

ven_v_9.Enabled := True;

ven_v_10.Enabled := True;

ven_v_11.Enabled := True;

ven_v_12.Enabled := True;

ven_c_1.Enabled := True;

ven_c_2.Enabled := True;

ven_c_3.Enabled := True;

ven_c_4.Enabled := True;

ven_c_5.Enabled := True;

ven_c_6.Enabled := True;

end;

PosicionaNoCampo(TabGlobal.DVENDEDOR.ven_tipo_comissao);

end;

end;

 

procedure TFormVendedor.VEN_TIPO_COMISSAOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_TIPO_COMISSAO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_TIPO_COMISSAO);

if (TabGlobal.DVENDEDOR.ven_tipo_comissao.Conteudo <> '2') or

(TabGlobal.DVENDEDOR.ven_comissao.Conteudo <> 'S') then

begin

if ((TabGlobal.DVENDEDOR.Modificacao) or (TabGlobal.DVENDEDOR.Inclusao)) then

begin

TabGlobal.DVENDEDOR.ven_v_1.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_2.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_3.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_4.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_5.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_6.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_7.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_8.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_9.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_10.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_11.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_v_12.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_1.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_2.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_3.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_4.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_5.Conteudo := 0;

TabGlobal.DVENDEDOR.ven_c_6.Conteudo := 0;

end;

ven_v_1.Enabled := False;

ven_v_2.Enabled := False;

ven_v_3.Enabled := False;

ven_v_4.Enabled := False;

ven_v_5.Enabled := False;

ven_v_6.Enabled := False;

ven_v_7.Enabled := False;

ven_v_8.Enabled := False;

ven_v_9.Enabled := False;

ven_v_10.Enabled := False;

ven_v_11.Enabled := False;

ven_v_12.Enabled := False;

ven_c_1.Enabled := False;

ven_c_2.Enabled := False;

ven_c_3.Enabled := False;

ven_c_4.Enabled := False;

ven_c_5.Enabled := False;

ven_c_6.Enabled := False;

end

else

begin

ven_v_1.Enabled := True;

ven_v_2.Enabled := True;

ven_v_3.Enabled := True;

ven_v_4.Enabled := True;

ven_v_5.Enabled := True;

ven_v_6.Enabled := True;

ven_v_7.Enabled := True;

ven_v_8.Enabled := True;

ven_v_9.Enabled := True;

ven_v_10.Enabled := True;

ven_v_11.Enabled := True;

ven_v_12.Enabled := True;

ven_c_1.Enabled := True;

ven_c_2.Enabled := True;

ven_c_3.Enabled := True;

ven_c_4.Enabled := True;

ven_c_5.Enabled := True;

ven_c_6.Enabled := True;

end;

if (TabGlobal.DVENDEDOR.ven_tipo_Comissao.Conteudo = '3') and

(TabGlobal.DVENDEDOR.ven_comissao.Conteudo = 'S') then

Grid_TCVENDAS.Enabled := True

else

Grid_TCVENDAS.Enabled := False;

end;

 

procedure TFormVendedor.VEN_D_CARTAOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_D_CARTAO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_D_CARTAO);

if TabGlobal.DVENDEDOR.ven_tipo_Comissao.Conteudo <> '3' then

begin

ven_desc_maximo.SelectAll;

ven_desc_maximo.SetFocus;

end

else

Grid_TCVENDAS.SetFocus;

end;

 

procedure TFormVendedor.VEN_DESC_MAXIMOExit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_DESC_MAXIMO.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_DESC_MAXIMO);

end;

 

procedure TFormVendedor.VEN_V_1Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_1.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_1);

end;

 

procedure TFormVendedor.VEN_V_2Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_2.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_2);

end;

 

procedure TFormVendedor.VEN_C_1Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_1.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_1);

end;

 

procedure TFormVendedor.VEN_V_3Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_3.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_3);

end;

 

procedure TFormVendedor.VEN_V_4Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_4.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_4);

end;

 

procedure TFormVendedor.VEN_C_2Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_2.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_2);

end;

 

procedure TFormVendedor.VEN_V_5Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_5.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_5);

end;

 

procedure TFormVendedor.VEN_V_6Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_6.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_6);

end;

 

procedure TFormVendedor.VEN_C_3Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_3.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_3);

end;

 

procedure TFormVendedor.VEN_V_7Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_7.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_7);

end;

 

procedure TFormVendedor.VEN_V_8Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_8.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_8);

end;

 

procedure TFormVendedor.VEN_C_4Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_4.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_4);

end;

 

procedure TFormVendedor.VEN_V_9Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_9.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_9);

end;

 

procedure TFormVendedor.VEN_V_10Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_10.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_10);

end;

 

procedure TFormVendedor.VEN_C_5Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_5.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_5);

end;

 

procedure TFormVendedor.VEN_V_11Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_11.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_11);

end;

 

procedure TFormVendedor.VEN_V_12Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_V_12.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_V_12);

end;

 

procedure TFormVendedor.VEN_C_6Exit(Sender: TObject);

var MsgErro : string;

begin

if AbandonandoEdicao then

Exit;

if not TabGlobal.DVENDEDOR.VEN_C_6.Valido(MsgErro) then

ErroValidacaoCampo(MsgErro, TabGlobal.DVENDEDOR.VEN_C_6);

end;

 

procedure TFormVendedor.Grid_TCVENDASDblClick(Sender: TObject);

begin

Grid_TCVENDASAssociacao(True);

FormTbComiss := TFormTbComiss.Create(Application);

Try

FormTbComiss.ShowModal;

Finally

FormTbComiss.Free;

end;

end;

 

procedure TFormVendedor.Grid_TCVENDASAssociacao(Associa: Boolean);

begin

TabGlobal.DTCVENDAS.FiltroRelac.Clear;

TabGlobal.DTCVENDAS.CamposRelac.Clear;

TabGlobal.DTCVENDAS.ValoresRelac.Clear;

if Associa then

begin

TabGlobal.DTCVENDAS.FiltroRelac.Add('(VEN_CODIGO = '+#39 + TabGlobal.DVENDEDOR.VEN_CODIGO.Conteudo +#39+')' );

TabGlobal.DTCVENDAS.CamposRelac.Add('VEN_CODIGO');

TabGlobal.DTCVENDAS.ValoresRelac.Add(TabGlobal.DVENDEDOR.VEN_CODIGO.Conteudo);

end;

TabGlobal.DTCVENDAS.AtualizaSql;

end;

 

end.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Chrnos    30

Chrnos
Postado

Por favor, poste o código identado para facilitar usando as tags {code} {/code} (substitua as {} por []).

 

Provavelmente o erro ocorre por ter algum begin sem um end no meio do seu código ou porque o campo endereco não existe no retorno da sua consulta ao banco.

 

[]'s

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Delphi
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito