[Resolvido] Erro UDM ao Compilar

[phfmiranda 0]

Boa tarde Galera, estou com os seguintes problemas, quando compilo dá erro na seguinte parte:

 

unit Venda;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, Buttons;

type
 TVendasCaixa = class(TForm)
   dtsLocCliente: TDataSource;
   dtsPedVendas: TDataSource;
   DBLookupComboBox1: TDBLookupComboBox;
   DBEdit1: TDBEdit;
   DBEdit2: TDBEdit;
   DBEdit3: TDBEdit;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   Label4: TLabel;
   dbgItemPedido: TDBGrid;
   btnNovo: TBitBtn;
   btnSalvar: TBitBtn;
   btnInserirItem: TBitBtn;
   dtsItemPedVenda: TDataSource;
   procedure btnNovoClick(Sender: TObject);
   procedure btnSalvarClick(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure FormDestroy(Sender: TObject);
   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
   procedure btnInserirItemClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 VendasCaixa: TVendasCaixa;

implementation

uses UdmVendas, UDM;

{$R *.dfm}

procedure TVendasCaixa.btnNovoClick(Sender: TObject);
begin
dmVendas.cdsPedVendas.Append;
end;

procedure TVendasCaixa.btnSalvarClick(Sender: TObject);
begin
dmVendas.cdsPedVendas.Post;
if dmVendas.cdsPedVendas.ApplyUpdates(0) <> 0 then
dmVendas.cdsPedVendas.CancelUpdates;
end;

procedure TVendasCaixa.FormCreate(Sender: TObject);
begin
dmVendas.TdmVendas.Create(Self);
dmVendas.cdsPedVendas.Open;
dmVendas.cdsItemPedVendas.Open;
dmVendas.sdsInfoCliente.Open;
end;

procedure TVendasCaixa.FormDestroy(Sender: TObject);
begin
dmVendas.Free;
dmVendas:=nil;
end;

procedure TVendasCaixa.FormCloseQuery(Sender: TObject;
 var CanClose: Boolean);
begin
dmVendas.cdsPedVendas.Close;
dmVendas.cdsItemPedVendas.Close;
dmVendas.cdsInfoCliente.Close;
end;

procedure TVendasCaixa.btnInserirItemClick(Sender: TObject);
begin
dmVendas.cdsItemPedVendas.Apppend;
end;

end.

 

O Erro é o seguinte:

 

 

[Error] Venda.pas(49): Undeclared identifier: 'cdsPedVendas'

[Error] Venda.pas(49): Missing operator or semicolon

[Error] Venda.pas(54): Undeclared identifier: 'cdsPedVendas'

[Error] Venda.pas(54): Missing operator or semicolon

[Error] Venda.pas(55): Undeclared identifier: 'cdsPedVendas'

[Error] Venda.pas(55): 'THEN' expected but identifier 'ApplyUpdates' found

[Error] Venda.pas(61): Undeclared identifier: 'TdmVendas'

[Error] Venda.pas(62): Undeclared identifier: 'cdsPedVendas'

[Error] Venda.pas(62): Missing operator or semicolon

[Error] Venda.pas(63): Undeclared identifier: 'cdsItemPedVendas'

[Error] Venda.pas(63): Missing operator or semicolon

[Error] Venda.pas(64): Undeclared identifier: 'sdsInfoCliente'

[Error] Venda.pas(64): Missing operator or semicolon

[Error] Venda.pas(67): Statement expected but 'PROCEDURE' found

[Error] Venda.pas(76): Undeclared identifier: 'cdsPedVendas'

[Error] Venda.pas(76): Missing operator or semicolon

[Error] Venda.pas(77): Undeclared identifier: 'cdsItemPedVendas'

[Error] Venda.pas(77): Missing operator or semicolon

[Error] Venda.pas(78): Undeclared identifier: 'cdsInfoCliente'

[Error] Venda.pas(78): Missing operator or semicolon

[Error] Venda.pas(83): Undeclared identifier: 'cdsItemPedVendas'

[Error] Venda.pas(83): Missing operator or semicolon

[Error] Venda.pas(28): Unsatisfied forward or external declaration: 'TVendasCaixa.FormCreate'

[Fatal Error] SysPH.dpr(62): Could not compile used unit 'Venda.pas'

 

 

Valeu galera.

[phfmiranda 0]

Resolvido.