atnsoft

March 25, 2019

@ 01,01 get oGet var cGet Memo size 100,150

December 12, 2018

Giovany, obrigado.

copiei estas duas dll pra pasta sysWOW64 e deu certo

Obrigado.

PS: versão da dll 9 alguma coisa..

December 12, 2018

Giovany boa tarde.

Voce ja me salvou a alguns anos atras. (desse mesmo problema)

sem dicionario

todas ADT

December 12, 2018

Formatei o notebook de um cliente (medico) onde tinha o sistema dele. Executei o instalador e voltei as copias. Agora de esse erro:

Tabela_proc: Error 5175: The index file was created with a different collation sequence than is currently being used.

Copiei as dlls ace32.dll, adsloc32.dll e axcws32.dll

Continua ainda o Windows 7 ultimate que estava antes.

Obrigado

October 17, 2017

A persistência trouxe resoltados. Resolvido e pra quem precisar ta aqui a solução. Grato a todos.

Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem. Paciente: ("+Trim(Left(Pnome, 50))+")"
oDlg:lHelpIcon := .F.

@ 0.2,09 Say "Imagem" Size 20,09 Of oDlg

@ 01, 06.5 Image oImagem Size 440,210 Of oDlg SCROLL
oImagem:lScroll := .T.
oImagem:Progress( .F. )

@ 0.9, 0.5 Button "&Procurar" Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem))

@ 1.9, 0.5 Button "Ajustar Tamanho" Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh())

@ 2.9, 0.5 Button "Tamanho Normal" Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh())

@ 3.9, 0.5 Button "Zoom &+" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh())

@ 4.9, 0.5 Button "Zoom &-" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh())

@ 6.9, 0.5 Button "Colar (Ctrl+V)" Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh())

@ 7.9, 0.5 Button "Copiar (Ctrl+C)" Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh())

@ 12.9,64.8 Button " &Salvar " of oDlg Size 50,12 Action(oImagem:SaveImage( cDirRes+"Temp_imagem.Jpg", 2, 25 ), lGrava := .T., oDlg:End())
@ 12.9,73.8 Button " &Finalizar " of oDlg Size 50,12 Action(lGrava := .F., oDlg:End())

Activate Dialog oDlg Centered

if(!lGrava)
Return NIL
endif

Vimagem := MemoRead(cDirRes+"Temp_imagem.Jpg")

Neste ponto a Var Vimagem ta pronta pra salvar.

October 17, 2017

O lado ruim é que, com o ctrl+c / ctrl+v ficou 10. Mas nao salva.

October 17, 2017

Acho que é problema com a versão. A minha ainda é a 7.05.

October 17, 2017

Bom dia a todos.

Não consigo salvar a imagem qdo vem da area de transfêrencia. Código abaixo

Define Dialog oDlg From 3,3 To 36, 130 Title "Carregar Imagem"
oDlg:lHelpIcon := .F.

@ 0.1,08 Say "Imagem" Size 20,09 Of oDlg

@ 0.9, 0.5 Button "&Procurar" Of oDlg Size 45,11 Action(CarregaDoc(@Vimagem, oImagem))

@ 2.9, 0.5 Button "Ajustar Tamanho" Of oDlg Size 45,11 Action(oImagem:lStretch := .T., oImagem:Refresh())

@ 3.9, 0.5 Button "Tamanho Normal" Of oDlg Size 45,11 Action(oImagem:lStretch := .F., oImagem:Refresh())

@ 4.9, 0.5 Button "Zoom &+" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "+"), oImagem:Refresh())

@ 5.9, 0.5 Button "Zoom &-" Of oDlg Size 45,11 Action(FzoomImagem(oImagem, "-"), oImagem:Refresh())

@ 6.9, 0.5 Button "Colar (Ctrl+V)" Of oDlg Size 45,11 Action(oImagem:LoadFromClipboard(), oImagem:Refresh())

@ 7.9, 0.5 Button "Copiar (Ctrl+C)" Of oDlg Size 45,11 Action(oImagem:CopyToClipboard(), oImagem:Refresh())

@ 01, 06.5 Image oImagem Size 440,210 Of oDlg
oImagem:lScroll := .T.

@ 12.9,64.8 Button " &Salvar " of oDlg Size 50,12 Action(lGrava := .T., oDlg:End())
@ 12.9,73.8 Button " &Finalizar " of oDlg Size 50,12 Action(lGrava := .F., oDlg:End())

Activate Dialog oDlg Centered

Qdo uso a procura que faz o loadbmp, salva normalmente, mas qdo copio e colo usando o loadfromclipboard nao salva. a variavel Vimagem fica em branco.

Tem como fazer um Vimagem := oImagem:loadfromclipboard() ou salva e buscar com um memoread ?

January 26, 2017

Eu tenho. Só não tenho o interfaceamento com equipamentos (ainda).

November 9, 2016

E com o Pen não dá ? (ele faz o fundo, a cor da letra fico devendo se funciona)

Print oPrn Name "Guia"
oPrn:SetCopies(Pcopia)
oPrn:SetLandScape()

Define Font oFont1 Name "Times New Roman" Bold Size 0, -11      of oPrn
Define Font oFont2 Name "Times New Roman"      Size 0, -07      of oPrn
Define Font oFont3 Name "Times New Roman" Bold Size 0, -07      of oPrn
Define Font oFont4 Name "Courier New"          Size 0, -07 Bold of oPrn
Define Font oFont5 Name "Times New Roman"      Size 0, -08      of oPrn

Define Pen oPen1 Width 50 Color nRgb(192,192,192)

nLi := oPrn:nLogPixelX()/2.54
nCo := oPrn:nLogPixelY()/2.54

While (nPagina <= Len(aProce))

Page

oPrn:Box(0.20*nLi, 0.1*nCo, 20*nLi, 28.6*nCo)

          oPrn:Say(0.66*nLi, 0.34*nCo, Left(Pconvenio,28), oFont5)
          oPrn:Say(0.50*nLi, 6.00*nCo, "GUIA DE SERVIÇO PROFISSIONAL / SERVIÇO AUXILIAR DE DIAGNÓSTICO E TERAPIA - SP/SADT", oFont1)
          oPrn:Say(0.66*nLi, 25.5*nCo, "2- N° ", oFont2)
          oPrn:Say(0.66*nLi, 26.5*nCo, Pnumero, oFont3)

oPrn:Line(1.23*nLi, 0.33*nCo, 1.23*nLi, 28.3*nCo)

oPrn:Box(1.46*nLi, 0.33*nCo, 2.22*nLi, 28.3*nCo)

          oPrn:Say(1.46*nLi, 0.34*nCo, "1- Registro ANS", oFont2)
          oPrn:Line(1.46*nLi, 2.23*nCo, 2.22*nLi, 2.23*nCo)
          oPrn:Say(1.46*nLi, 2.34*nCo, "3- Número da Guia Principal", oFont2)
          oPrn:Line(1.46*nLi, 9.35*nCo, 2.22*nLi, 9.35*nCo)
          oPrn:Say(1.46*nLi, 9.44*nCo, "4- Data da Autorização", oFont2)
          oPrn:Line(1.46*nLi, 12.11*nCo, 2.22*nLi, 12.11*nCo)
          oPrn:Say(1.46*nLi, 12.20*nCo, "5- Senha", oFont2)
          oPrn:Line(1.46*nLi, 15.11*nCo, 2.22*nLi, 15.11*nCo)
          oPrn:Say(1.46*nLi, 15.25*nCo, "6- Data Validade da Senha", oFont2)
          oPrn:Line(1.46*nLi, 22.11*nCo, 2.22*nLi, 22.11*nCo)
          oPrn:Say(1.46*nLi, 22.20*nCo, "7- Data de Emissão da Guia", oFont2)
          oPrn:Say(1.80*nLi, 0.64*nCo, Tans, oFont3)
          oPrn:Say(1.80*nLi, 2.64*nCo, PnumeroP, oFont3)

oPrn:Say(1.80*nLi, 09.45*nCo, "____|____|_________", oFont5)

oPrn:Say(1.80*nLi, 15.25*nCo, "____|____|__________", oFont5)

oPrn:Say(1.80*nLi, 22.50*nCo, TData, oFont3)

oPrn:Box(2.35*nLi, 0.42*nCo, 2.56*nLi, 28.23*nCo, oPen1)

oPrn:Say(2.30*nLi, 0.34*nCo, "Dados do Beneficiário", oFont2)

July 8, 2016

Caros colegas:

Recebi um comunicado que num futuro bem proximo a CopelTelecom passara a ter somente ipv6 nos seus modens. Isso mudará a rede interna tb? Pois tenho varios clientes que usam nos mapeamentos

o ip (\\10.1.1.xxx, 192.168.1.xxx, etc). Como ficará isso?

Grato.

April 6, 2016

Assim:

While(!Eof())

SysRefresh(); CursorWait()

aadd(aImp, {Tabela->Codigo, Tabela->Nome, Tabela->Amb, Transform(Tabela->Ch * nValor,"@E 999,999.99")})

dbSkip()

if (Tabela->Tabela != Pbusca)
exit
endif

End

nConta := 1

Asort(aImp, , , {|x, y| x[1] < y[1]})

Define Font oFont1 Name "Courier New" Size 0, -12

if vPrevia
REPORT oReport ;
Title Trim(lLab)+" - "+Trim(lDesc),;
"TABELA: "+Trim(Left(Pconvenio,37))+" - Pág: "+Str(oReport:nPage,3,0);
Caption "Rel. Tabela" Font oFont1 PreView
vArquivo := .F.
endif

if Varquivo
REPORT oReport ;
Title Trim(lLab)+" - "+Trim(lDesc),;
"TABELA: "+Trim(Left(Pconvenio,37))+" - Pág: "+Str(oReport:nPage,3,0);
Caption "Rel. Tabela" Font oFont1 To File (cDirDoc)+"Tabela.Txt"
endif

if (! vArquivo .and. ! vPrevia)
REPORT oReport ;
Title Trim(lLab)+" - "+Trim(lDesc),;
"TABELA: "+Trim(Left(Pconvenio,37))+" - Pág: "+Str(oReport:nPage,3,0);
Caption "Rel. Tabela" Font oFont1
endif

if vArquivo
oReport:nTitleUpLine := 0
oReport:nTitleDnLine := 0
endif

Column Title "CÓDIGO" DATA aImp[nConta,1] Size 06
Column Title "DESCRIÇÃO" DATA aImp[nConta,2] Size 55
Column Title " A.M.B." DATA aImp[nConta,3] Size 14
Column Title "VALOR" DATA aImp[nConta,4] Right Size 12

End Report

if ! vArquivo
oReport:CellView()
endif

oReport:bSkip := {|| nConta ++}

Activate Report oReport While nConta <= len(aImp)
oFont1:End()

November 6, 2015

Kapi, obrigado por responder. Nestes links que vc me passou, a ultima versão deles ainda é a 2.02.03. Pelo que entendi, agora é pra usar a 3.02.00.

Mas nao sei nem por onde começar. kkkkkkkkkkkkkkkkkkkkk.

Ronaldbuch · November 6, 2015

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.

Ronaldbuch · October 29, 2015

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 ?

microfly · August 24, 2015

Resolvi fazendo assim. Depois de atualizar os objetos do browse que sofreram modificacoes:

select area do dbf

dbGoTop()
objetodobrowse:UpStable()
objetodobrowse:Refresh()

October 10, 2014

Se alguem tiver alguma indicação, por favor é urgente.

October 8, 2014

Boa tarde;

Tenho um cliente aqui no Paraná que emite Nfe (o sistema não é meu) e não tem a opção de carta de correção (somente impressa) e o contador quer no formato digital.

Vi na internet que tem alguns programas gratuitos para isso, posso usar ?

Qual vcs me indicam ?

September 8, 2014

Eu uso assim :

Copy File (cDirRes)+"Cont_Freta.Doc" To (cDirRes)+"TempFreta.Doc"

oWord := TWord():New()

If ( oWord:IsVisible() )
oWord:Hide()
Endif

TRY
oWord:OpenDoc((cDirRes)+"TempFreta.Doc")

oWord:Replace( "{nNome}", nNome)
oWord:Replace( "{nCnpj}", nCnpj)
oWord:Replace( "{nTelefone}", nTelefone)
oWord:Replace( "{nEndereco}", nEndereco)
oWord:Replace( "{nBairro}", nBairro)
oWord:Replace( "{nCep}", nCep)
oWord:Replace( "{nUf}", nUf)
oWord:Replace( "{nCidade}", nCidade)
oWord:Replace( "{nSaida}", nSaida)
oWord:Replace( "{nDestino}", nDestino)
oWord:Replace( "{nDatar}", nDatar)
oWord:Replace( "{nTotal}", nTotal)
oWord:Replace( "{nSinal}", nSinal)
oWord:Replace( "{nVeiculo}", nVeiculo)
oWord:Replace( "{nIncluso}", nIncluso)
oWord:Replace( "{nDatafim}", VdataFim)
oWord:Replace( "{ExtensoData}", ExtensoData)

CATCH oError
// E avisamos ao usuario o motivo do erro!
MsgStop("Erro ao Abrir Gerenciador de Textos.","WinTur")
Return NIL
End

//oWord:Preview()

//oWord:Printdoc(.F.)
oWord:PrintDoc( .F., , , , , , , nPrtcopia)
oWord:End()

Os comandos podem ser vistos dentro da tword.prg

kapiaba · July 22, 2014

Na pasta \xHarbour\Tests tem um exemplo INETTO.PRG

Talvez sirva.

Abraços,

June 25, 2014

Aqui funciona legal, mas uso o format get:

@ 09.55,0.5 Format Get oTexto Var Vtexto Memo of oDlg Size 290,100 Font oFont1

@ 12.9,14 Button " &Posiciona " OF oDlg Size 60,12 Action(Efind(oTexto, Vtexto), oTexto:SetFocus())

Function Efind(oTexto, Vtexto)
oTexto:Find( "|" )
oTexto:GoPrevWord()
oTexto:GoNextWord()

Return NIL

Outra alternativa seria usar um for/next com mlcount e memoline e posicionar.

June 24, 2014

Function Efind(oTexto, Vtexto)

oTexto:Find( "texto a procurar" )
oTexto:GoPrevWord()
oTexto:GoNextWord()

Return NIL

June 13, 2014

Uma dica é verificar se a soma dos campos na indexação não esta muito longa. Passei por este erro, mas o indice era NTX e estava ultrapassando 255 caracteres.

June 13, 2014

Ola, verifique o tamanho da Var cNOMTERAPI. Tive este mesmo erro e corrigi com Left(Var, 20). Veja o tamanho da sua Variavel e diminua o seu tamanho pra um que fique

a contento.

June 9, 2014

oText2:bGotFocus:={|o| o: SetPos(0)}

Sign In

atnsoft

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by atnsoft

usar memoedit dentro de uma dialog

Erro ADS

Erro ADS

Erro ADS

Imagem

Imagem

Imagem

Imagem

Sistema de laboratorio com resultado na net

Imprimir fonte com fundo preto

Ipv6

Imprimir array com report

tissV2_02_03.xsd

tissV2_02_03.xsd

Compilar modo console

problema com Tsbrowse

Carta de correção

Carta de correção

Novamente TWord

StartThread() - Start a progress bar windows

Pesquisa em campo em texto

Pesquisa em campo em texto

INDEXAÇÃO CONSTANTE

Errro ao criar dialog com dois gets memo

Tirar seleção campo memo

Browse

Activity