Olá amigos! Estou usando D7 e em um DataModule ele está dando esta mensagem de erro, porém, está tudo IGUAL!!!
declaracao procedure EfetuaPedidoProducao(Cad_Producao, Cad_ProducaoItem, Cad_Composicao, Cad_Crediario, Cad_Crediario_Item: OleVariant; var Cad_Etapas: OleVariant; UpdateMode: TUpdateKind);stdcall; Implementacao procedure TDmClienteBR.EfetuaPedidoProducao(Cad_Producao, Cad_ProducaoItem, Cad_Composicao, Cad_Crediario, Cad_Crediario_Item: OleVariant; var Cad_Etapas: OleVariant; UpdateMode: TUpdateKind); begin with TFmWait.Create(nil) do try Caption := 'Gravando pedido'; Mensagem := 'Enviando dados ao servidor.'+ #$D#$A +'Aguarde'; Show; Application.ProcessMessages; {$IFDEF LOCAL} DmBusinessRules.EfetuaPedidoProducao(Cad_Producao, Cad_ProducaoItem, Cad_Composicao, Cad_Crediario, Cad_Crediario_Item, Cad_Etapas, UpdateMode); {$ELSE} CheckWSDL; (HTTPRIOLocal as IBusinessRules).EfetuaPedidoProducao(Cad_Producao, Cad_ProducaoItem, Cad_Composicao, Cad_Crediario, Cad_Crediario_Item, Cad_Etapas, UpdateMode); {$ENDIF} finally Release; end; end; -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html