[Paulao]

Me olvide de otra llamada de Client para servidor es hecha asi:

Código Delphi [-]
function InsereOrdemProducao(s_ordem,s_lote,s_produto,s_valid_lote:string;dt_fab: TDateTime;qde_prod: Double;resp_tec:Integer): Boolean;
begin
  if not ConGeral.Connected then
    ConGeral.Open;
  Result := ConGeral.AppServer.ExecFuncao(INSERE_ORDEM_PRODUCAO,ArrayToStr([s_ordem,s_lote,s_produto,s_valid_lote,DateToStr(dt_fab),FloatToStr(qde_prod),IntToStr(resp_tec)]));
end;

Y en el Servidor tengo esta funcion que hace todo:

Código Delphi [-]
function LeFuncao(Conn: TZConnection; IDFuncao: Integer; Parametros: OleVariant): OleVariant;
begin
  case IDFuncao of
  INSERE_ORDEM_PRODUCAO: Result := InsereOrdemProducao(Conn,PegaItemLista(01,Parametros),
                                                       PegaItemLista(02,Parametros),
                                                       PegaItemLista(03,Parametros),
                                                       PegaItemLista(04,Parametros),
                                                       StrToDate(PegaItemLista(05,Parametros)),
                                                       StrToFloat(PegaItemLista(06,Parametros)),
                                                       StrToInt(PegaItemLista(07,Parametros)));

  else
    Result := '';
  end;
end;