joaosolution

Bom dia João Não entendi o CXB.LNK Tentei usar o buildx.bat dentro da pasta samples, mas ocorreu estes erros: ┌────────────────────────────────────────────────────────────────────────────┐ ?FiveWin for xHarbour 20.07 - Jul. 2020 Harbour development power │▄ ?(c) FiveTech 1993-2020 for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8/10 │█ └────────────────────────────────────────────────────────────────────────────┘? ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀? Compiling... xHarbour 1.2.3 Intl. (SimpLex) (Build 20200311) Copyright 1999-2020, http://www.xharbour.org http://www.harbour-project.org/ Compiling 'menu0002.prg' and generating preprocessed output to 'menu0002.ppo'... Generating C source output to 'menu0002.c'... Done. Lines 155, Functions/Procedures 2, pCodes 3434 Embarcadero C++ 7.30 for Win32 Copyright (c) 1993-2017 Embarcadero Technologies, Inc. menu0002.c: Borland Resource Compiler Version 5.40 Copyright (c) 1990, 1999 Inprise Corporation. All rights reserved. Error prsht.h 917 1: '#endif' before '#if' * Linking errors * Att João Bosco

Boa tarde Atualizei minha versão do FiveWin para 20.07, tentei utilizar o xDev mas está ocorrendo vários erros, qual compilador vocês utilizam para o BCC73? O erro que está ocorrendo: W8056 D:\xharbour\include\hbdefs.h 594: Integer arithmetic overflow Att João Bosco

Alain Boa tarde Na pasta samples da FiveWin o exemplo testxbr3.prg pode ser que tenha como você pode fazer isto.

Bom dia Neste tópico têm refrências ao ADORDD Att João Bosco

Boa tarde O que você utiliza para conectar? SQLLIB, SQLRDD, ADORDD? Att João Bosco

Boa tarde Seria o caminho da instalação do chrome na sua máquina: Na minha máquina este é o caminho: C:\Program Files (x86)\Google\Chrome\Application Att João Bosco

Boa tarde Utilizo: PrnPad:=GetDefaultPrinter() PrintFileRaw( PrnPad, "relatorio.prn", "Impressão" ) Sem problemas com TS.

Bom dia Você deve atentar para a forma que está utilizando o SQLRDD. Caso você esteja utilizando com comandos xBase (Set order,seek etc) você vai precisar criar a tabela com dbcreate, pois dessa forma outras tabelas SR_MGMNTINDEXES,SR_MGMNTTABLES e outras são atualizadas quando você utiliza o dbcreate. E depois de criar executar um alter table : ALTER TABLE dbo. USUARIO ADD CODUSUARIO INT IDENTITY Se você só utiliza comandos SQL você pode exectar o create table sem problemas. Att João Bosco

Boa tarde pBrw:bClrSel := {|| { CLR_WHITE, CLR_BLACK} } // Cor da linha sem foco pBrw:bClrSelFocus := {|| { CLR_WHITE, nRGB( 000,100, 255 ) } } // Cor da linha selecionada fundo e frente Att João Bosco

Boa tarde Select Nome * From Tabela Where Nome Like '%JOAO%' Att João Bosco

Bom dia ON CHANGE João Bosco

Bom dia No meu caso eu trato o período para quebrar mensal: Ex.: Se a pessoa pede de Janeiro a Dezembro eu divido em 12 Selects diferentes, coloco uma barra de evolução mostrando 1/12,2/12,3/12.4/12, etc Desta forma o usuário não pensa que o relatório está travado. Quando o relatório era um select de 12 meses o tempo de processamento no servidor era maior e a tela ficava parada, o BIOS falava que havia travado o relatório, mas o problema era o tempo de resposta do servidor. Att João Bosco

Evandro Posso te mandar a minha classe para você testar, comigo em desenvolvimento e em produção funciona sem problemas diretamente para a impressora. Att João Bosco

Bom dia Esse comando lista os bancos de dados. SELECT name, database_id, create_date FROM sys.databases ; Att João Bosco

Evandro Bom dia Quando utilizo oWord:PrintDoc() não apresenta a tela de seleção de impressora. Att João Bosco

Marcio Segue a classe: METHOD RepHeader(cOld, cNew) CLASS TWord Local oTexto2, oFind2 local oWindow := ::oActiveDoc:Get( "ActiveWindow" ) local oView := oWindow:Get( "View") oView:Set( "SeekView" , 9 ) // 9 Header 10 Footer ::oSelection := ::oTexto:Get( "HeaderFooter") oTexto2 := ::oSelection:Range() oFind2 := oTexto2:Get( "Find" ) oFind2:Set( "Text", cOld ) oFind2:Set( "Forward", .T. ) oFind2:Set( "Wrap", INT(1) ) oFind2:Set( "Format", .f. ) oFind2:Set( "MatchCase", .f. ) oFind2:Set( "MatchWholeWord", .f. ) oFind2:Set( "MatchWildcards", .f. ) oFind2:Set( "MatchSoundsLike", .f. ) oFind2:Set( "MatchAllWordForms", .f. ) oFind2:Invoke( "Execute") DO WHILE oFind2:Get( "Found" ) // Reemplaza todas las ocurrencias que coincidan oTexto2:Set( "Text", cNew ) oFind2:Invoke( "Execute") Enddo ::oWord:Get( "Selection" ) release oWindow, oView release otexto2, ofind2 RETURN nil

Marcio Boa tarde Você terá que utilizar o método oWord:RepHeader( cOld, cNew ) Para o cabeçalho. Att João Bosco

Luiz Bom dia A view é o resultado de um select já processado no banco de dados, ela fica armazenada no cache do mysql permitindo um acesso mais rápido. Att João Bosco

Srs. Boa tarde Quando o volume de dados é grande para ser filtrado, vai depender do processador do servidor, nem sempre vai depender do Select que estamos executando. Claro que ter índices e verificar os left join da consulta são importantes, mas tenho caso igual ao relatado pelo colega. O mesmo relatório mensal dia 01 até dia 31 (ou 30 ou 28) é rápido. Mas o mesmo relatório para o ano 01/01 a 31/12 o processamento é totalmente diferente, o volume de dados é diferente e o tempo de execução também. Para esses casos avalio com o cliente a necessidade do relatório e crio uma situação a parte com uma view por exemplo. E normalmente não deixo gerar o relatório com períodos muito longos, coloco avisos na tela do usuário. Pois mesmo que seja só SELECT trava o servidor. Att João Bosco

Boa tarde If Select("TMP2") > 0 TMP2->( DbCloseArea() ) Endif Use ("SELECT Tabela.Codigo,Tabela.Nome FROM Tabela WHERE Tabela.Codigo="+Alltrim(Str(nCodigo,10))+" ORDER BY Tabela.NOME") Alias TMP2 NEW SHARED VIA "SQLRDD" If Tmp2->(LastRec()) == 0 Return .F. Else Return .T. Endif Att João Bosco

Bom dia Não tive este erro, mas com SQLRDD trabalho com: oSQL := SR_GetConnection() oSql:Commit() Att João Bosco

Sim Faltou: DbSelectArea("Func") Func->Nome é buscando do banco de dados @NOME é a variável dentro do documento Word padrão. Crio o documento padrão no Word, contrato, proposta, recibo, etc: Depois substituo as informações pelos dados do banco de dados: Ex.: Ao Sr. @NOME da empresa @EMPRESA... O Sistema substitui por: Ao Sr. JOAO BOSCO da empresa SOLUTION.... Att João Bosco

João Bom dia oWord := TWord():New() cDirTmp := "C:" oWord:OpenDoc( cDirTmp+"\CONTRATO.DOC" ) oWord:Replace("@NOME",Func->Nome ) oWord:Replace("@CPF", Func->Cpf ) oWord:Replace("@TELEFONE", Func->Tel ) oWord:Preview() Os campos @NOME,@CPF e @TELEFONE deverão estar dentro do documento padrão. Att João Bosco

Fladimir Bom dia Para contratos utilizo a classe word com as mesmas opções de alterar o documento com os campos de variáveis. Att João Bosco

Cendon ADORDD é nativo. SQLLIB e SQLRDD são de terceiros. Recentemente no grupo já vi tópicos com acesso nativo. Att João Bosco