[firebase-br] Formatar Data -> "Connection Lost"

[Roberto Germano Vieweg Neto]

Desculpas ae, esqueci uma parte do código, tae:

library JJWXPUDF;

uses
  SysUtils,
  Classes,
  SyncObjs,
  Variants,
  DateUtils;

const
  DB_FORMAT_SETTINGS : TFormatSettings = (
    CurrencyFormat: 0;
    NegCurrFormat: 0;
    ThousandSeparator: #0;
    DecimalSeparator: '.';
    CurrencyDecimals: 0;
    DateSeparator: '-';
    TimeSeparator: ':';
    ListSeparator: #0;
    CurrencyString: '';
    ShortDateFormat: 'yyyy-mm-dd';
    LongDateFormat: 'yyyy-mm-dd';
    TimeAMString: 'AM';
    TimePMString: 'PM';
    ShortTimeFormat: 'hh:nn:ss.zzz';
    LongTimeFormat: 'hh:nn:ss.zzz';
    ShortMonthNames: ('', '', '', '', '', '', '', '', '', '', '', '');
    LongMonthNames: ('', '', '', '', '', '', '', '', '', '', '', '');
    ShortDayNames: ('', '', '', '', '', '', '');
    LongDayNames: ('', '', '', '', '', '', '');
    TwoDigitYearCenturyWindow: 50;
  );

function FormatDateTime(AFormat, ADateTime: PChar): PChar; cdecl;
begin
  Result := PChar(SysUtils.FormatDateTime(AFormat, StrToDateTime(ADateTime, DB_FORMAT_SETTINGS)));
end;

exports
  FormatDateTime;

begin
end.


  ----- Original Message ----- 
  From: Fábio Henrique Beccaria Sampaio 
  To: Carlos H. Cantu ; FireBase 
  Sent: Friday, May 05, 2006 2:14 PM
  Subject: Re: [firebase-br] Formatar Data -> "Connection Lost"


  E como seria ela escrita corretamente??

  Esta assim...

  library DateUtilsUDF;
  uses
    SysUtils,
    Classes,
    SyncObjs,
    Variants,
    DateUtils,
    StrUtils;

  function FormatDateTime(AFormat, ADateTime: PChar): PChar; cdecl;
  begin
    Result := PChar(SysUtils.FormatDateTime(AFormat,
  StrToDateTime(ADateTime)));
  end;

  exports
    FormatDateTime;

  begin
  end.


  DECLARE EXTERNAL FUNCTION FORMAT_DATE_TIME
      CSTRING(50),
      CSTRING(25)
  RETURNS CSTRING(50)
  ENTRY_POINT 'FormatDateTime' MODULE_NAME 'DateUtilsUDF';

  Pronto, para usar, um exemplo:

  select
    FORMAT_DATE_TIME('yyyy.MM.dd', A.DAT_EMISSAO) AS DAT_EMISSAO
  from
    NFS A


  ----- Original Message ----- 
  From: "Carlos H. Cantu (TeamFB)" <listas em warmboot.com.br>
  To: "FireBase" <lista em firebase.com.br>
  Sent: Friday, May 05, 2006 1:02 PM
  Subject: Re: [firebase-br] Formatar Data -> "Connection Lost"


  Porque provavelmente a UDF está mal escrita e está derrubando o
  servidor.

  []s
  Cantu (Membro do TeamFB - FireBase)
  http://www.warmboot.com.br
  FireBase - http://www.FireBase.com.br

  FL> Esse erro: "Connection Lost" também acontece comigo quando executo 
  algumas
  FL> UDF´s... Por que será?



  ______________________________________________
  FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
  Para editar sua configuração na lista, use o endereço 
  http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
  Para consultar mensagens antigas: http://firebase.com.br/pesquisa 


  ______________________________________________
  FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
  Para editar sua configuração na lista, use o endereço http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
  Para consultar mensagens antigas: http://firebase.com.br/pesquisa