Formata a data

[negrao]

Moçada, como faco para a data aparecer dd/mm/aaaa
Ja coloquei o comando set date british mas deu o seguinte erro:
varivel nao existe _set_datef

Obrigado

[rochinha]

Amiguinho

Verifique dentro do arquivo FIVEWIN.CH ou FWSTD.CH se existe um erro de escrita nos mesmos relativos aos comandos que esta usando.

Verifique se existe as linhas abaixo:

Código: Selecionar todos

#command SET DATE FORMAT [TO] <c>       => Set( _SET_DATEFORMAT, <c> )

#define  _DFSET(x, y)  Set( _SET_DATEFORMAT, if(__SetCentury(), x, y) )

#command SET DATE [TO] BRITISH          => _DFSET( "dd/mm/yyyy", "dd/mm/yy" )

Tente também usar a função _DFSET() assim:

_DFSET( "dd/mm/yyyy", "dd/mm/yy" )

Coloque esta função, da forma como esta acima, no inicio de seu programa.

@braços :?)

[negrao]

Rochina, verifiquei no arquivo fwstd.ch as linha , mas estap iguais a que vc mando.
Tb coloquei o comando que vc sugeriu, mas continua com o mesmo erro.

Vc nao teria algum fonte exemplo do uso da data no formato dd/mm/aaaa

Obrigado

[rochinha]

Amiguinho

Poste aqui o .PRG completo para analisar os comandos escritos.

Tanto o .PRG que tem o problema quanto o .PRG principal

@braços :?)

[negrao]

Rochinha, meu arquivo principal é esse, mas como falei nao deu certo.
A exibicao do ano continua com 2 digitos apenas.

Rochina, aproveitando os arquivos rmk e lnk que estao abaixo, tem como ir passo a passo na execucao em fivewin.

Obrigado pela ajuda




#include "FiveWin.ch"
static oWnd
/****************************************************/
FUNCTION MAIN()
LOCAL OBRUSH, OBAR, OBMP

local Hborland := LoadLibrary("bwcc.dll")
SET RESOURCES TO "DIALOGS.DLL"

DEFINE BRUSH oBrush STYLE BRICKS
DEFINE WINDOW oWnd FROM 00,00 TO 36,100 ;
TITLE "SISTEMA EMISSOR DE BLOQUETOS - USO INTERNO" ;
MENU BuildMenu() ;
BRUSH oBrush

DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON FILE "..\bitmaps\Exit.bmp" OF obar action ;
If( MsgYesNo( "Deseja sair do Sistema ?", "Please, Select" ), oWnd:End,) group ;
MESSAGE "Sai do Sistema"

DEFINE BUTTON FILE "..\bitmaps\calc.bmp" OF obar action WinExec( "Calc" ) group ;
MESSAGE "Calculadora"

DEFINE BUTTON FILE "..\bitmaps\printer.bmp" OF obar action impri_boleto() group ;
MESSAGE "Impressao de Boletos"

DEFINE BUTTON FILE "..\bitmaps\clipboar.bmp" OF obar action impri_nota(2) group ;
MESSAGE "Impressao de Nota"

DEFINE BUTTON FILE "..\bitmaps\about.bmp" OF obar action about() group ;
MESSAGE "Sobre o Sistema"

SET MESSAGE OF OWND TO "LIMITSOFT AUTOMACAO EMPRESARIAL" CENTER keyboard clock date
@ 00,00 BITMAP OBMP FILENAME "SGI.BMP"

ACTIVATE WINDOW oWnd maximized
RETURN NIL

//----------------------------------------------------------------------------//
FUNCTION BUILDMENU()
local oMenu
local olbx
abrepar()
abredbf()

MENU oMenu
MENUITEM "&Manutencao de Clientes" action mancli() ;
MESSAGE "Manutencao de clientes"

MENUITEM "&Dados Fixos" ACTION dadosfi(2) ;
MESSAGE "Dados do Pagamento"

MENUITEM "&Sair do Sistema" ACTION ;
If( MsgYesNo( "Deseja sair do Sistema ?", "Please, Select" ), oWnd:End,) ;
MESSAGE "Sair do Sistema ?"
ENDMENU
RETURN OMENU

/*******************************************************/
function About()
local oDlg
DEFINE DIALOG oDlg RESOURCE "About"
REDEFINE SAY ID 10 OF oDlg // Just to make them 3D Look
REDEFINE SAY ID 20 OF oDlg
REDEFINE SAY ID 30 OF oDlg
ACTIVATE DIALOG oDlg CENTERED
return nil


/***************[ meu arquivo c.bat ]*******************
@ECHO OFF
DEL NOTA.EXE
del *.obj
rmake NOTA
nota

/***************[ meu arquivo nota.rmk ]*******************
NOTA.OBJ : NOTA.PRG
CLIPPER NOTA.PRG /n/a/v/w/i/uFwStd.ch

NOTA.EXE : NOTA.OBJ
BLINKER @NOTA.LNK


/***************[ meu arquivo nota.lnk ]*******************
BLINKER INCREMENTAL OFF
PACKCODE
PACKDATA

DEFBEGIN
name FiveWin
description 'Clipper for Windows library'
exetype Windows 3.1
code moveable discardable
data preload moveable
stacksize 9500
heapsize 1024
segment 'PLANKTON_TEXT' nondiscardable
segment 'EXTEND_TEXT' nondiscardable
segment 'OM_TEXT' nondiscardable
segment 'OSMEM_TEXT' nondiscardable
segment 'SORTOF_TEXT' nondiscardable
segment 'STACK_TEXT' nondiscardable
DEFEND

NOBELL
FI NOTA.OBJ
LIB Five, FiveC, Objects
LIB WINAPI ,Clipper, Extend,dbfntx, Terminal