doSyncControleLimpeza

procedure TDM.doSyncControleLimpeza;
begin
  qryAux.Close;
  qryAux.SQL.Clear;
  qryAux.SQL.Add('select * from CONTROLE_LIMPEZA');
  qryAux.SQL.Add('where SINCRONIZADO = ''N''');
  qryAux.SQL.Add('order by ID');
  qryAux.Open();
  qryAux.First;

  RESTDWClientSQL1.Close;
  RESTDWClientSQL1.BinaryRequest := True;
  RESTDWClientSQL1.SQL.Clear;
  RESTDWClientSQL1.SQL.Add('insert into CONTROLE_LIMPEZA (USUARIO, DATA_INI, HORA_INI, DATA_FIM, HORA_FIM, OBSERVACAO, FOTO, CNPJ_EMPRESA,');
  RESTDWClientSQL1.SQL.Add('                              RED_POS, COD_SETOR, COD_SECAO, COD_SUBSECAO, COD_LIMPEZA)');
  RESTDWClientSQL1.SQL.Add('values (:USUARIO, :DATA_INI, :HORA_INI, :DATA_FIM, :HORA_FIM, :OBSERVACAO, :FOTO, :CNPJ_EMPRESA,');
  RESTDWClientSQL1.SQL.Add('        :RED_POS, :COD_SETOR, :COD_SECAO, :COD_SUBSECAO, :COD_LIMPEZA)');

  while not qryAux.Eof do begin
    RESTDWClientSQL1.ParamByName('USUARIO').AsString    :=  qryAux.FieldByName('USUARIO').AsString;
    RESTDWClientSQL1.ParamByName('DATA_INI').AsDate     :=  qryAux.FieldByName('DATA_INI').AsDateTime;
    RESTDWClientSQL1.ParamByName('HORA_INI').AsTime     :=  qryAux.FieldByName('HORA_INI').AsDateTime;
    RESTDWClientSQL1.ParamByName('DATA_FIM').AsDate     :=  qryAux.FieldByName('DATA_FIM').AsDateTime;
    RESTDWClientSQL1.ParamByName('HORA_FIM').AsTime     :=  qryAux.FieldByName('HORA_FIM').AsDateTime;
    RESTDWClientSQL1.ParamByName('OBSERVACAO').AsString :=  qryAux.FieldByName('OBSERVACAO').AsString;
    if not qryAux.FieldByName('FOTO').IsNull then
      RESTDWClientSQL1.ParamByName('FOTO').Assign(qryAux.FieldByName('FOTO'));
    RESTDWClientSQL1.ParamByName('CNPJ_EMPRESA').AsString   :=  qryAux.FieldByName('CNPJ_EMPRESA').AsString;
    RESTDWClientSQL1.ParamByName('RED_POS').AsString        :=  qryAux.FieldByName('RED_POS').AsString;
    RESTDWClientSQL1.ParamByName('COD_SETOR').AsInteger     :=  qryAux.FieldByName('COD_SETOR').AsInteger;
    RESTDWClientSQL1.ParamByName('COD_SECAO').AsInteger     :=  qryAux.FieldByName('COD_SECAO').AsInteger;
    RESTDWClientSQL1.ParamByName('COD_SUBSECAO').AsInteger  :=  qryAux.FieldByName('COD_SUBSECAO').AsInteger;
    RESTDWClientSQL1.ParamByName('COD_LIMPEZA').AsInteger   :=  qryAux.FieldByName('COD_LIMPEZA').AsInteger;

    RESTDWClientSQL1.ExecSQL;

    qryAux.Edit;
    qryAux.FieldByName('SINCRONIZADO').AsString := 'S';
    qryAux.Post;

    qryAux.Next;
  end;
  RESTDWClientSQL1.BinaryRequest := False;
end;