atnsoft

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

Giovany, obrigado. copiei estas duas dll pra pasta sysWOW64 e deu certo Obrigado. PS: versão da dll 9 alguma coisa..

Giovany boa tarde. Voce ja me salvou a alguns anos atras. (desse mesmo problema) sem dicionario todas ADT

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

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.

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

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

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 ?

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

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)

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.

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()

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.

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()

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

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 ?

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

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

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.

Function Efind(oTexto, Vtexto) oTexto:Find( "texto a procurar" ) oTexto:GoPrevWord() oTexto:GoNextWord() Return NIL

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.

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.

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