mORMot Open Source

20140721 09215753 EXC   EHttpApiServer ("HttpSendHttpResponse failed: The specified network name is no longer available (64)") at 002DAE3A SynCrtSock.EHttpApiServer.RaiseOnError (4737)  stack trace 000D17D0 System.Classes.ThreadProc 0000A1EA System.ThreadWrapper 

20130930 07510242  ! EXC   ESQLite3Exception ("near \"AND\": syntax error") at 0059FC7A  stack trace 005D89E6 005FEA7D 005FD788 005FCF42 0045B5F1 00408ACA 76A2339A 77B49EF2 77B49EC5 

procedure TSQLRecord.GetJSONValues(W: TJSONSerializer);
var i,n: integer;
label txt,txt1;
begin
  (.....)
      Fields.List[i].GetJSONValues(Self,W); // Looks Like the AV  happens here
      W.Add(',');
    end;
  W.CancelLastComma; // cancel last ','
  if W.Expand then
    W.Add('}');
end;

  TEmpresa = class(TSQLRecord)
(...)
  published
    property IdMatriz: Integer read FIdMatriz write FIdMatriz;
    property RazaoSocial: RawUTF8 read FRazaoSocial write FRazaoSocial;
    property NomeFantasia: RawUTF8 read FNomeFantasia write FNomeFantasia;
    property CNPJ: RawUTF8 read FCNPJ write FCNPJ;
    property InscricaoEstadual: RawUTF8 read FInscricaoEstadual write FInscricaoEstadual;
    property InscricaoMunicipal: RawUTF8 read FInscricaoMunicipal write FInscricaoMunicipal;
    property CEP: RawUTF8 read FCEP write FCEP;
    property Endereco: RawUTF8 read FEndereco write FEndereco;
    property EnderecoNum: RawUTF8 read FEnderecoNum write FEnderecoNum;
    property Complemento: RawUTF8 read FComplemento write FComplemento;
    property Bairro: RawUTF8 read FBairro write FBairro;
    property Cidade: RawUTF8 read FCidade write FCidade;
    property UF: RawUTF8 read FUF write FUF;
    property IBGECidade: Integer read FIBGECidade write FIBGECidade;
    property Telefone: RawUTF8 read FTelefone write FTelefone;
    property Fax: RawUTF8 read FFax write FFax;
    property Site: RawUTF8 read FSite write FSite;
    property Email: RawUTF8 read FEmail write FEmail;
    property Logo: TSQLRawBlob read FLogo write FLogo;
    property CNAE: RawUTF8 read FCNAE write FCNAE;
    property RegimeTributario: RawUTF8 read FRegimeTributario write FRegimeTributario;
    property Filial: Boolean read FFilial write FFilial;
    property Excluido: Boolean read FExcluido write FExcluido;
    property DataCadastro: TCreateTime read FDataCadastro write FDataCadastro;
    property DataAlteracao: TModTime read FDataAlteracao write FDataAlteracao;
    property IDUsuarioCadastro: Integer read FIDUsuarioCadastro write FIDUsuarioCadastro;
  end;