atnsoft

Preciso gerar um xml com o padrão tissV2_02_03.xsd. Alguem sabe onde posso pesquisar ou tem um exemplo
de como fazer isso ? É pra um laboratorio de analises clinicas.
Obrigado.

Como fazer funcionar um programa antigo em clipper no Windows 8 ?
To tentando compilar usando o hbmake como abaixo:
#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif

RECURSE= NO

SHELL =
COMPRESS = YES
EXTERNALLIB = NO
XFWH = NO
FILESTOADD = 5
WARNINGLEVEL = 0
USERDEFINE =
USERINCLUDE =
USERLIBS =
EDITOR = edit
GUI = NO
MT = NO
SRC02 = obj
PROJECT = teste.exe $(PR)
OBJFILES = $(SRC02)\TESTE.obj $(OB)
PRGFILES = TESTE.PRG $(PS)
OBJCFILES = $(OBC)
CFILES = $(CF)
RESFILES =
RESDEPEN =
TOPMODULE = TESTE.PRG
LIBFILES = lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtwin.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib
EXTLIBFILES =
DEFFILE =
HARBOURFLAGS = -m -w0
CFLAG1 = -OS $(SHELL) $(CFLAGS) -d -c -L$(HB_DIR)\lib
CFLAG2 = -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS =
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -ap
IFLAGS =
LINKER = ilink32

ALLOBJ = c0x32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend

#DEPENDS

#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**

.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**

.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -o$* $**

.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<

#BUILD

$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(CC_DIR)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
Mas da erro:
HbMake v1.17 - xHarbour Make Utility
Copyright © 2000-2005 xHarbour project - http://www.xharbour.org
xHarbour build 0.99.71 Intl. (SimpLex) / Borland C++ 5.5.1'BCC32' não é reconhec
ido como um comando interno
ou externo, um programa operável ou um arquivo em lotes.
┌────────────[ 0% ]──────────────┐
│ │
└────────────────────────────────┘

\BIN\ilink32 @makefile.lnk
O sistema não pode encontrar o caminho especificado.
Ja tentei mudar as variaveis do CC_DIR e HB_DIR e nada.
Alguma ideia ?

Resolvi fazendo assim. Depois de atualizar os objetos do browse que sofreram modificacoes:
select area do dbf
dbGoTop()
objetodobrowse:UpStable()
objetodobrowse:Refresh()

Na pasta \xHarbour\Tests tem um exemplo INETTO.PRG
Talvez sirva.
Abraços,