Wellington Vieira

Oscar,,, Se vc, quiser eu posso lhe enviar as rotinas de TEF e geração dos arquivos de SINTEGRA. Em fivewin... basta vc,, alterá-las.. conforme a sua necessidade.. e posso lhe passar a respeito da homologação do TEF nas operadoras,, já na secretaria do estado.. posso te passar informações de como é em MINAS GERAIS..que acredito ser dos ESTADOS mais burocráticos existentes... em S.P. acredito ser bem mais simples... se quizer me avise... que lhe passo as rotinas... um abraço... wellington fwh/xharbour0.99.71 Bd. Postgresql Systemup@bol.com.br

Sérgio, Desejo uma excelente recuperação e aguardo(amos) você novamente neste fórum o mais rápido possível.. e a propósito MUITÃSSIMO OBRIGADO.. pela ajuda e dicas.. Um forte ABRAÇO... e que DEUS LHE ABENÇOE.. clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

Me desculpem ficar incomodando,,, e que na realidade não consegui resolver o problema no preview que gera arquivos para excell.. Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma SOLUÇÃO... Obs. não consigo nem imprimir....,, e recompilei para gerar a lib... no Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br Editado por - systemup on 25/10/2007 08:16:39

Me desculpem ficar incomodando,,, e que na realidade não consegui resolver o problema no preview que gera arquivos para excell.. Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma SOLUÇÃO... Obs. não consigo nem imprimir....,, e recompilei para gerar a lib... no Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br Editado por - systemup on 25/10/2007 08:16:39

Bom dia,, Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma correção no RPREVIEW.PRG... grato.. Obs. não consigo nem imprimir.... Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

Bom dia,, Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma correção no RPREVIEW.PRG... grato.. Obs. não consigo nem imprimir.... Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

alesandro, marcelo,,, enviei os arquivos para os seu e-mails,, para que vcs, possam me ajudar se possível... desde já agradeço a atenção.. Cordialmente,, wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

sim, já tentei mudar para o rpreview, original,, o problema é que perco a opção para enviar o preview.. para o excell.. infelizmente... se alguem tiver uma alteração neste rpreview.. que foi modificado para a salvar o preview em arquivo no formato xls.. e que resolva este problema em relação ao factor..e a rolagem e visualização do preview... agradeço... abraços wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

Bom dia,, Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma correção no RPREVIEW.PRG... grato.. Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

Bom dia,, Estou utilizando a lib (filexls.lib), e os prgs,,, mreport.prg,pdreport.prg,report.prg,rpreview.prg,tsalxls.prg, para que os previews dos relatórios de meus sistemas tenham a opção de gerar arquivos EXCELL.., funciona bem.. o problema é que qdo aumento o fator no preview,, e tento utilizar a barra de rolagem do preview.. não consigo visualizar no preview em fator maior o restante do relatório. se avanço um pouco a barra de rolagem tanto na horizontal ou vertical.. o texto com preview fica em branco.. alguem tem uma correção no RPREVIEW.PRG... grato.. Cordialmente,, Wellington clipper53/fwh2.8/xharbour0.99.71 simplex/c++5.5.1/ PostgreSql/Minigui/Hwgui Systemup@bol.com.br

Nos métodos... --------------------------------------------------------- METHOD New acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: for n = 1 to Len( ::aDialogs ) DEFINE DIALOG oDlg ; OF Self ; STYLE WS_CHILD ; FROM 0, 0 TO ::nHeight() - FD_HEIGHT - 5, ::nWidth() - 6 ; PIXEL ; COLOR nClrFore, nClrBack ; FONT oFont transparent ::aDialogs[ n ] := oDlg oDlg:cVarName := "Page" + AllTrim( Str( n ) ) next ----------------------------------------------------------- METHOD ReDefine acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: for n = 1 to Len( ::aDialogs ) DEFINE DIALOG oDlg ; OF Self ; RESOURCE ::aDialogs[ n ] ; COLOR nClrFore, nClrBack ; FONT Self:oFont transparent ::aDialogs[ n ] := oDlg next ----------------------------------------------------------- METHOD AddItem( cItem ) CLASS TFolder acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: DEFINE DIALOG oDlg ; OF Self ; STYLE WS_CHILD ; FROM 0, 0 TO ::nHeight - FD_HEIGHT - 5, ::nWidth - 6 ; COLOR nClrFore, nClrBack ; PIXEL transparent ----------------------------------------------------------- METHOD LoadPages( aResNames, bRedefineControls ) CLASS TFolder acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: For Each oPage In ::aDialogs n := HB_EnumIndex() DEFINE DIALOG oDlg OF Self RESOURCE aResNames[ n ] FONT Self:oFont; COLOR nClrFore, nClrBack ; transparent oPage := oDlg If bRedefineControls != nil Eval( bRedefineControls, Self, n ) Endif ACTIVATE DIALOG oDlg NOWAIT ; ON INIT ( SysWait(), oDlg:Move( oThis:nFdHeight + 2, 3 ) ) ; VALID .f. oDlg:Hide() //Dlg:Hide() // Tava errado Next VALEU,,, um abraço... a todos.. wellington

Nos métodos... --------------------------------------------------------- METHOD New acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: for n = 1 to Len( ::aDialogs ) DEFINE DIALOG oDlg ; OF Self ; STYLE WS_CHILD ; FROM 0, 0 TO ::nHeight() - FD_HEIGHT - 5, ::nWidth() - 6 ; PIXEL ; COLOR nClrFore, nClrBack ; FONT oFont transparent ::aDialogs[ n ] := oDlg oDlg:cVarName := "Page" + AllTrim( Str( n ) ) next ----------------------------------------------------------- METHOD ReDefine acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: for n = 1 to Len( ::aDialogs ) DEFINE DIALOG oDlg ; OF Self ; RESOURCE ::aDialogs[ n ] ; COLOR nClrFore, nClrBack ; FONT Self:oFont transparent ::aDialogs[ n ] := oDlg next ----------------------------------------------------------- METHOD AddItem( cItem ) CLASS TFolder acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: DEFINE DIALOG oDlg ; OF Self ; STYLE WS_CHILD ; FROM 0, 0 TO ::nHeight - FD_HEIGHT - 5, ::nWidth - 6 ; COLOR nClrFore, nClrBack ; PIXEL transparent ----------------------------------------------------------- METHOD LoadPages( aResNames, bRedefineControls ) CLASS TFolder acrescentei em define dialog, as opções de: *COLOR NCLRFORE, NCLRBACK E TRANSPARENT*, ficando assim: For Each oPage In ::aDialogs n := HB_EnumIndex() DEFINE DIALOG oDlg OF Self RESOURCE aResNames[ n ] FONT Self:oFont; COLOR nClrFore, nClrBack ; transparent oPage := oDlg If bRedefineControls != nil Eval( bRedefineControls, Self, n ) Endif ACTIVATE DIALOG oDlg NOWAIT ; ON INIT ( SysWait(), oDlg:Move( oThis:nFdHeight + 2, 3 ) ) ; VALID .f. oDlg:Hide() //Dlg:Hide() // Tava errado Next VALEU,,, um abraço... a todos.. wellington

valeu, kapiaba...pela ajuda... agradeço muito... mas consegui resolver assim,,, na classe folder.prg, onde tinha DEFINE DIALOG,,acrescentei as opções: COLOR nClrFore, nClrBack e a cláusula TRANSPARENT..., com isso na folder os checkbox e radio,, assumiram o degrade... valeu,, mesmo um abraço... wellington systemup@bol.com.br fwh8/xharbour 0.99.71(simplex)/postgresql8/bcc55

valeu, kapiaba...pela ajuda... agradeço muito... mas consegui resolver assim,,, na classe folder.prg, onde tinha DEFINE DIALOG,,acrescentei as opções: COLOR nClrFore, nClrBack e a cláusula TRANSPARENT..., com isso na folder os checkbox e radio,, assumiram o degrade... valeu,, mesmo um abraço... wellington systemup@bol.com.br fwh8/xharbour 0.99.71(simplex)/postgresql8/bcc55

kapiaba,, refiz o methodo da classe control,, e ainda não foi possível resolver,, estou postando o methodo da classe radio. METHOD EraseBkGnd( hDC ) CLASS TRadio if IsAppThemed() .and. ! ::lTransparent return 1 endif return Super:EraseBkGnd( hDC ) De qualquer, forma agradeço muito a atenção obrigado...

Este é o METHOD da control.prg METHOD EraseBkGnd( hDC ) CLASS TControl DEFAULT ::lTransparent := .f. if ! Empty( ::bEraseBkGnd ) return Eval( ::bEraseBkGnd, hDC ) endif if ::oBrush != nil if ! ::lTransparent FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) return 1 endif endif return nil

Este é o METHOD da control.prg METHOD EraseBkGnd( hDC ) CLASS TControl DEFAULT ::lTransparent := .f. if ! Empty( ::bEraseBkGnd ) return Eval( ::bEraseBkGnd, hDC ) endif if ::oBrush != nil if ! ::lTransparent FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) return 1 endif endif return nil

A cor do radio,, fica cinza não acompanha a cor do degrade da folder... nem o checkbox também

segue o código fonte: #include "FiveWin.ch" #include "common.ch" #include "postgres.ch" #include "Folder.ch" function main() //DEFINE BRUSH oBrush COLOR rgb(255,239,214) //style null mcolorAA := rgb(0,0,0) && cor das linhas do SAY, antes do GET. mcolorAB := rgb(255,239,214) //rgb(234,244,255) define dialog atuclientes title "Clientes" from 010,010 to 378,700 pixel colors mcolorAA,mcolorAB //brush oBrush Transparent //brush oBrush STYLE WS_POPUP define font mtahoma name "Tahoma" size 5.5,13 define font oFont name 'MS Sans Serif' size 6,15 @ 0,0 FOLDER oFld OF atuclientes prompt "&1. Dados", "&2. Comercial", "&3. Dados Pessoais","&4. Observações"; color mcolorAA,mcolorAB; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE; size 295, 185 oFld:aDialogs[1]:bPainted := { || FillWnd ( oFld:aDialogs[1], mcolorAB,"",5 ) } oFld:aDialogs[2]:bPainted := { || FillWnd ( oFld:aDialogs[2], mcolorAB,"",5 ) } oFld:aDialogs[3]:bPainted := { || FillWnd ( oFld:aDialogs[3], mcolorAB,"",5 ) } oFld:aDialogs[4]:bPainted := { || FillWnd ( oFld:aDialogs[4], mcolorAB,"",5 ) } mrad := 1 @ 002,002 RADIO orad VAR mrad ITEMS '&Fisica',; '&Juridica' OF oFld:aDialogs[1] color mcolorAA,mcolorAB PIXEL SIZE 35,10 orad:aItems[1]:SetCheck(.T.) orad:aItems[2]:SetCheck(.F.) activate dialog atuclientes centered return nil Function FillWnd( oWnd ,nColor, oBmp , nSaltos ) Local hWnd := oWnd:hWnd Local aRect := GetClientRect( hWnd ) Local oBrush, N Local nTop := aRect[ 1 ] Local nBottom := aRect[ 3 ] Local nSteps Local nBlue, nRed, nGreen Local lPuro := .F. // Si es puro no hay degradado // Color de degradado //DEFAULT nColor := 123123128 IF !Empty( oBmp ) IF UPPER( oWnd:ClassName() ) == 'TDIALOG' // Si es un Dialogo oWnd:GetDC() // Five 2.2C e inferiores //PalBmpDraw( oWnd:hDC, 0, 0, oBmp:hBmpPal ) // Five 2.3C e Superiores PalBmpDraw( oWnd:hDC, 0, 0, oBmp:hBitmap ) oWnd:ReleaseDC() ENDIF WndCenter( oBmp:hWnd, oWnd:hWnd ) ENDIF If lPuro == .T. oWnd:SetColor( 0, nColor ) oWnd:Refresh() Else lPuro := .F. Endif If !lPuro // El color no es puro, entonces degradado nBlue := nRGBBlue( nColor ) nRed := nRGBRed( nColor ) nGreen := nRGBGreen( nColor) //DEFAULT nSaltos := 3 nSteps := ( aRect[ 3 ] - aRect[ 1 ] ) / nSaltos oWnd:GetDC() aRect[ 3 ] = 0 For N = 1 to nSteps aRect[ 3 ] += nSaltos DEFINE BRUSH oBrush COLOR RGB(nRed,nGreen,nBlue) FillRect( oWnd:hDC, aRect, oBrush:hBrush ) RELEASE BRUSH oBrush aRect[ 1 ] += nSaltos nBlue -= 1 nRed -= 1 nGreen -= 1 If nBlue < 0 ; nBlue += 1 ; Endif If nRed < 0 ; nRed += 1 ; Endif If nGreen < 0 ; nGreen += 1 ; Endif Next oWnd:ReleaseDC() //oWnd:Refresh() Endif Return Nil

Boa Tarde,, Alguem poderia me informar por favor como faço para colocar um radio transparente em uma dialog que contèm degrade. Para que o fudo da rádio absorva a cor do degrade na posição da DIALOG... Cordialmente, wellington fwh2.8/xharbour 0.99.71/bcc55/clipper5.3/postgresql 8

Boa Tarde,, Alguem poderia me informar por favor como faço para colocar um radio transparente em uma dialog que contèm degrade. Para que o fudo da rádio absorva a cor do degrade na posição da DIALOG... Cordialmente, wellington fwh2.8/xharbour 0.99.71/bcc55/clipper5.3/postgresql 8

Olá leonardo, tudo bom... e a todos deste forum.. Como vc, sabe eu sou novo na utilização do postgresql, andei pesquisando bastante sobre o bd, como vc, me recomendou há um tempo atrás,, e realmente os comandos utilizados são SQL. É um exelente, bd de dados.. valeu pelas informações passadas a um tempo atrás.. Consegui utilizar a CONTRIB DO xHarbour, com o auxílio do Ricardo Moreno.. que contribuiu muito para esta CONTRIB. VALE A PENA ESTUDAR UM POUCO.. para se utilizar... (COMO O LEONARDO ME DISSE UMA VEZ.. NÃO HA NA DE COMPLICADO..) Como disse antes... para se usar o postgresql basta.. Converter a libpq.lib que vem com o POSTGRESQL que esta em Microsoft visual C para o formato BORLAND, que esta se usando no momento. implib -a libpq.lib libpq.dll Qto ao MySQL, é outro exelente bd de dados.. também.. Citação da MySQL Brasil que representa os interesses da MySQL AB no Brasil Para utilização do MySQL, ou aquisição de licença não há o que pagar. Todos podem usar livremente e gratuitamente o MySQL, não há necessidade de aquisição de licença comercial, mesmo porque não existe mais comercialização de licenças. Existe apenas uma recomendação para aquisição de um contrato de suporte, no qual o usuário poderá retribuir os benefícios adquiridos com a utilização do banco e assim contribuir com o projeto MySQL. Os dois são regidos pela regras da licença GPL (General Public License), sendo assim são livres.. Site do MySQL - www.mysqlbrasil.com.br Sobre licenças GPL - www.magnux.org/doc/GPL-pt_BR.txt Valeu,, um abraço a todos.. Wellington...

Segue abaixo um exemplo... que refiz e testei... ***-----------------------------------------------------*** #include "FiveWin.ch" #include "common.ch" #include "postgres.ch" static oWnd function Main() DEFINE WINDOW oWnd FROM 1, 5 TO 20, 70 TITLE "POSTGRESQL por WELLINGTON" define font mtahoma name "Tahoma" size 8,16 mvalor := space(15) mcolorAA := rgb(0,0,0) && cor das linhas do SAY, antes do GET. mcolorAB := rgb(241,239,226) //rgb(234,244,255) mcolorBA := rgb(255,255,255) && cor do GET's, qdo aceita F2. mcolorBB := rgb(108,140,190) mcolorCA := rgb(0,0,0) && cor dos GET's, qdo normal. mcolorCB := rgb(255,255,255) mcolorDA := rgb(0,0,0) && cor das linhas do SAY qdo com variavel mcolorDB := rgb(241,239,226) mcolorEA := rgb(241,239,226) && cor das dialog box mcolorEB := rgb(241,239,226) //rgb(225,245,250) mcolorFA := rgb(0,0,0) && cor depois da button bar ( barra de botoes ) mcolorFB := rgb(255,245,130) mcolorFC := rgb(255,255,255) && cor antes da button bar ( barra de botoes ) mcolorFD := rgb(108,140,190) mcolorGA := rgb(0,0,0) //rgb(241,239,226) mcolorGB := rgb(241,239,226) //rgb(064,000,128) mcolorHA := rgb(064,000,128) @ 1, 4 BUTTON "&Testando POSTGRESQL" SIZE 160, 25 OF oWnd ; ACTION ( teste() ) @ 7, 4 say "Soma:" font mtahoma of oWnd color mcolorAA,mcolorAB size 100,18 @ 7, 30 say ovalor var mvalor font mtahoma of oWnd color mcolorAA,mcolorAB size 100,18 SET MESSAGE OF oWnd TO FWVERSION + " - Menu Management Power" ACTIVATE WINDOW oWnd return nil Function teste() Local conn, res, oRow, i, x Local cServer := '127.0.0.1' Local cDatabase := 'postgres' Local cUser := 'postgres' Local cPass := 'julia' Local cQuery msginfo('Connectando....') conn := PQconnect(cDatabase, cServer, cUser, cPass, 5432) msginfo("Outro metodo de conexao") oServer := TPQServer():New(cServer, cDatabase, cUser, cPass) msginfo(PQstatus(conn), PQerrormessage(conn)) if PQstatus(conn) != CONNECTION_OK msginfo("conexao cancelada") return nil endif if oServer:TableExists('Test') msginfo("Fechando, pois a tabela ja existe") oServer:Destroy() PQclose(conn) return .t. msginfo('Apagando a Tabela.') res := PQexec(conn, 'DROP TABLE test') PQclear(res) end msginfo('Creando a Tabela') cQuery := 'CREATE TABLE test(' cQuery += ' Code integer not null primary key, ' cQuery += ' dept Integer, ' cQuery += ' Name Varchar(40), ' cQuery += ' Sales boolean, ' cQuery += ' Tax Float4, ' cQuery += ' Salary Double Precision, ' cQuery += ' Budget Numeric(12,2), ' cQuery += ' Discount Numeric (5,2), ' cQuery += ' Creation Date, ' cQuery += ' Description text ) ' res := PQexec(conn, cQuery) PQclear(res) res := PQexec(conn, 'SELECT code, dept, name, sales, salary, creation FROM test') PQclear(res) res := PQexec(conn, 'BEGIN') PQclear(res) msginfo("vou inserir os valores") For i := 1 to 10000 cQuery := 'INSERT INTO test(code, dept, name, sales, salary, creation) ' cQuery += 'VALUES( ' + str(i) + ',' + str(i+1) + ", 'DEPARTMENT NAME " + strzero(i) + "', 'y', " + str(300.49+i) + ", '2003-12-28' )" if i = 1 msginfo("mostrando como fica a cQuery: " + cQuery) endif res := PQexec(conn, cQuery) PQclear(res) if mod(i,100) == 0 res := PQexec(conn, 'COMMIT') PQclear(res) res := PQexec(conn, 'BEGIN') PQclear(res) end Next msginfo('Deletando values....') For i := 5000 to 7000 cQuery := 'DELETE FROM test WHERE code = ' + str(i) res := PQexec(conn, cQuery) PQclear(res) if mod(i,100) == 0 res := PQexec(conn, 'COMMIT') PQclear(res) res := PQexec(conn, 'BEGIN') PQclear(res) end Next msginfo('Regravando valores....') For i := 2000 to 3000 cQuery := 'UPDATE FROM test SET salary = 400 WHERE code = ' + str(i) res := PQexec(conn, cQuery) PQclear(res) if mod(i,100) == 0 res := PQexec(conn, 'COMMIT') PQclear(res) res := PQexec(conn, 'BEGIN') PQclear(res) end Next res := PQexec(conn, 'SELECT sum(salary) as sum_salary FROM test WHERE code between 1 and 4000') if PQresultStatus(res) == PGRES_TUPLES_OK ovalor:settext(PQgetvalue(res, 1, 1)) end PQclear(res) x := 0 For i := 1 to 4000 res := PQexec(conn, 'SELECT salary FROM test WHERE code = ' + str(i)) if PQresultStatus(res) == PGRES_TUPLES_OK x += val(PQgetvalue(res, 1, 1)) ovalor:settext(str(x)) end Next msginfo("Fechando.") oServer:Destroy() PQclose(conn) return nil

Boa noite a todos,, A Contrib do xharbour,, (pgsql),, funciona muito bem com o postgresql 8.2.4-1, xharbour 0.99.71 (simplex) e compilador BORLAND c++ 5.5.1, bastando para que isto ocorra. "DICA DO RODRIGO MORENO." A libpq.lib que vem com o POSTGRES é para o microsoft Visual C, para que funcione basta,executar o comando no DOS abaixo. implib -a libpq.lib libpq.dll Que por sua vez, criará uma nova lib para o formato do borland. Assim, funciona eu testei os PRG'S que vem na CONTRIB e funcionaram corretamente.. Abracos,, Wellington

Boa noite a todos,, A Contrib do xharbour,, (pgsql),, funciona muito bem com o postgresql 8.2.4-1, xharbour 0.99.71 (simplex) e compilador BORLAND c++ 5.5.1, bastando para que isto ocorra. "DICA DO RODRIGO MORENO." A libpq.lib que vem com o POSTGRES é para o microsoft Visual C, para que funcione basta,executar o comando no DOS abaixo. implib -a libpq.lib libpq.dll Que por sua vez, criará uma nova lib para o formato do borland. Assim, funciona eu testei os PRG'S que vem na CONTRIB e funcionaram corretamente.. Abracos,, Wellington