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;