Geraldo_Andrade

Valeu, deu certo. Tinha tentado de varias formas. Sua dica foi ótima. Resolvido. Obrigado

Feliz ano novo a todos. Estou tentando inserir dados de uma tabela para outra, os campos são idênticos, qdo insiro somente uma coluna, funciona normalmente, insert into vendas (descricao) select (descricao) from Vd20151229 where operacao <> 'inicio'; de duas em diante, recebo a mensagem de erro.( operação deve conter uma coluna. ). não teria um comando para inserir todas as colunas selecionadas? insert into vendas (descricao,barcode) select (descricao,barcode) from Vd20151229 where operacao <> 'inicio'; MySQL RDD: Operand should contain 1 column(s) Alguém pode me ajudar?

Não consigo fazer a psvince rodar em 64 bits, alguem tem uma dica ou solucao?

Muito bom, vou testar aqui. Obrigado

Consegui Graças a uma das respostas do kapiaba aqui no forum: http://fivewin.com.br/index.php?/topic/20942-hora-certaresolvido/page-2?hl=datetime#entry258649 cRamal := RS:Fields["ramal"]:Value() cTronc := RS:Fields["tronco"]:Value() cDtHor := RS:Fields["data"]:Value() cDurou := TtoC(RS:Fields["duracao"]:Value()) cTempo := RS:Fields["tempo"]:Value() cFones := RS:Fields["numero"]:Value() prg(cdurou,valtype(cdurou)) cValors := "'"+cRamal+"'" cValors += "," cValors += "'"+cTronc+"'" cValors += "," cValors += Dtos(cDtHor) cValors += "," cValors += "'"+right(cDurou,10)+"'" cValors += "," cValors += str(cTempo) cValors += "," cValors += "'"+cFones+"'" Obrigado!

O campo do qual não consigo ler o valor correto é datetime, só consigo ler até a data. Alguém sabe me dizer como preencho esta variável?

bom dia a todos estou tentando ler a tarifacao da central telefonica disgistar xt 42/72 em um banco de dados MDB B2013.mdb estou fazendo assim: Local cn := CreateObject("ADODB.Connection") Local rs := CreateObject("ADODB.Recordset") set date brit cn:Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\digistar\b2013.mdb") sql:= "select * from junho" rs:Open(sql, cn, 2, 3) Rs:MoveLast() // mesma ordem do bd mdb cRamal := RS:Fields["ramal"]:Value() // 130 cTronc := RS:Fields["tronco"]:Value() // 1 cDtHor := RS:Fields["data"]:Value() // 08/06/2013 10:31:00 cDurou := RS:Fields["duracao"]:Value() // 00:02:34 cTempo := RS:Fields["tempo"]:Value() // 01s tempo de atendimento cFones := RS:Fields["numero"]:Value() // 33730102 as variaveis me retornam asssim: 130 "C" 1 "C" 08/06/2013 "D" dtos(20130608) 30/12/1899 "D" dtos(18991230) 0 "N" 33732645 "C" no access mostra os valores corretos será que alguem pode me dar uma luz?

Ok, vou verificar os links Obrigado por enquanto. Geraldo Andrade geraldo_andrade@hotmail.com

Joao bom dia, Verificando a wBrowse exite a SETARRAY( aArray ), colocando a chamada cl103:SetArray( acli ), o erro parou de acontecer, mas, a tecla HOME so funciona na primeira pagina, ela localiza a posicao 1, da segunda pagina em diante, a posicao fica aleatoria. REDEFINE LISTBOX Cl103 FIELDS acli[n,6],acli[n,18] ; HEADERS "NOME DO CLIENTE","ENDEREÇO"; ON CHANGE(PESQArray(aCli),if(n=0,n:=1,),cl103:Refresh()); FIELDSIZES 220,220; ID 107; OF oBus FONT FTarray Sysrefresh() cl103:SetArray( acli ) cl103:bGoBottom := { || n := eval( cl103:bLogicLen ) } cl103:bSkip := { | nwant, nold | nold := n , n += nwant,; n := max( 1, min( n, eval( cl103:bLogicLen ))),; n - nOld } cl103:bLogicLen := { || len( aCli ) } cl103:cAlias := "Array" cl103:NCLRFOREFOCUS = NRGB(255,255,255) cl103:NCLRBACKFOCUS = NRGB(000,125, 0 ) cl103:BKEYDOWN = { | NKEY, NFLAGS | EncerBusArray(13,cl103,aCli)} SYSREFRESH() Geraldo Andrade geraldo_andrade@hotmail.com

============================[ Aplicativo ]============================ Nome e Caminho: C:\FhGas\Fhgas.exe (32 bits) Tamanho: 3,537,408 bytes Tempo para Iniciar: 0 hours 0 mins 32 secs Erro Ocorrido em: 24/10/12, as 18:56:56 Diretório de Trabalho: C:\FHGAS Arquivos dos Dados: C:\FHGAS\GAS_BOM Area Selecionada: -> ============================[ DBCMD/2001 ]============================ *****************************[ DBGOTOP ]****************************** Linhas e Funções do Erro Linha do Erro: => DBGOTOP(0) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2620) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2621) Linha do Erro: wBrowse.prg => TWBROWSE:GOTOP(1465) Linha do Erro: wBrowse.prg => TWBROWSE:KEYDOWN(1866) Linha do Erro: => TWINDOW:HANDLEEVENT(0) Linha do Erro: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Linha do Erro: WINDOW.PRG => _FWH(0) Linha do Erro: => DIALOGBOX(0) Linha do Erro: DIALOG.PRG => TDIALOG:ACTIVATE(0) Linha do Erro: clientes.prg => BUSKARRAY(5918) Linha do Erro: clientes.prg => BUSKPRIM(1664) Linha do Erro: clientes.prg => INICLI(608) Linha do Erro: clientes.prg => (b)CADCLI(447) Linha do Erro: DIALOG.PRG => TDIALOG:INITIATE(0) Linha do Erro: DIALOG.PRG => TDIALOG:HANDLEEVENT(0) Linha do Erro: => DIALOGBOX(0) Linha do Erro: DIALOG.PRG => TDIALOG:ACTIVATE(0) Linha do Erro: clientes.prg => CADCLI(447) Linha do Erro: menu.prg => PRGS(4801) Linha do Erro: menu.prg => DIGITOU(3323) Linha do Erro: menu.prg => (b)TAREFAS(4524) Linha do Erro: WINDOW.PRG => TWINDOW:KEYDOWN(0) Linha do Erro: CONTROL.PRG => TCONTROL:KEYDOWN(0) Linha do Erro: wBrowse.prg => TWBROWSE:KEYDOWN(1910) Linha do Erro: => TWINDOW:HANDLEEVENT(0) Linha do Erro: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Linha do Erro: WINDOW.PRG => _FWH(0) Linha do Erro: => WINRUN(0) Linha do Erro: WINDOW.PRG => TWINDOW:ACTIVATE(0) Linha do Erro: menu.prg => MAIN(2459) -----------------------------[ Sistema ]------------------------------ Tipo CPU: Intel® Pentium® Dual CPU T2310 @ 1.46GHz 1466 Mhz Quantidade de Memória: 2048 Megas Recursos Livres no Sistema: 90 % GDI: 90 % Recursos: 90 % Versão do Compilador: xHarbour build 1.1.0 Intl. (SimpLex) Versão do Windowns: 6.1, Build 7600 Variaveis em Uso ================ Nome Tipo Valor ========================== DBGOTOP Local 1: U Local 2: N 0 (b)TWBROWSE:SETFILTER Local 1: N 1 (b)TWBROWSE:SETFILTER TWBROWSE:GOTOP Local 1: O Class: TWBROWSE Local 2: A Len: 3 TWBROWSE:KEYDOWN Parametros 1: N 36 Parametros 2: N 21430273 Local 1: O Class: TWBROWSE Local 2: U TWINDOW:HANDLEEVENT Parametros 1: N 256 Parametros 2: N 36 Parametros 3: N 21430273 TWBROWSE:HANDLEEVENT Parametros 1: N 256 Parametros 2: N 36 Parametros 3: N 21430273 Local 1: O Class: TWBROWSE _FWH Parametros 1: N 21430273 Parametros 2: N 256 Parametros 3: N 36 Parametros 4: N 21430273 Parametros 5: N 116 Local 1: O Class: TWBROWSE DIALOGBOX Parametros 1: N 4194304 Parametros 2: C "Buskli" Parametros 3: N 1246366 Parametros 4: O Class: TDIALOG TDIALOG:ACTIVATE Parametros 1: U Parametros 2: U Parametros 3: U Parametros 4: L .T. Parametros 5: U Parametros 6: L .T. Parametros 7: U Parametros 8: U Parametros 9: U Parametros 10: L .F. Local 1: O Class: TDIALOG Local 2: N 1246366 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG BUSKARRAY Parametros 1: C "C:\FHGAS\GAS_BOM" Parametros 2: C "CLIENTE" Local 1: C "" Local 2: N 38 Local 3: N 0 Local 4: N 0 Local 5: N 0 Local 6: N 0 Local 7: N 0 Local 8: O Class: TMETER Local 9: O Class: TMETER Local 10: O Class: TMETER Local 11: O Class: TDIALOG BUSKPRIM Local 1: L .T. Local 2: C "" Local 3: U INICLI (b)CADCLI Parametros 1: O Class: TDIALOG TDIALOG:INITIATE Parametros 1: N 787458 Parametros 2: N 1246366 Local 1: O Class: TDIALOG Local 2: L .T. Local 3: U Local 4: U Local 5: L .F. Local 6: U TDIALOG:HANDLEEVENT Parametros 1: N 272 Parametros 2: N 787458 Parametros 3: N 1246366 Local 1: O Class: TDIALOG DIALOGBOX Parametros 1: N 4194304 Parametros 2: C "CLIENTES" Parametros 3: N 459904 Parametros 4: O Class: TDIALOG TDIALOG:ACTIVATE Parametros 1: U Parametros 2: U Parametros 3: U Parametros 4: L .T. Parametros 5: U Parametros 6: L .T. Parametros 7: B {|| ... } Parametros 8: U Parametros 9: U Parametros 10: L .F. Local 1: O Class: TDIALOG Local 2: N 459904 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG CADCLI Local 1: U Local 2: C "C:\Windows\FiveWin.ini" Local 3: U Local 4: U Local 5: U Local 6: U Local 7: U Local 8: U Local 9: U Local 10: U Local 11: U Local 12: U Local 13: A Len: 1 PRGS Parametros 1: C "CADCLI()" Parametros 2: C "CLIENTES E VENDAS" Local 1: U Local 2: U DIGITOU Parametros 1: N 13 (b)TAREFAS Parametros 1: N 13 Parametros 2: N 1835009 TWINDOW:KEYDOWN Parametros 1: N 13 Parametros 2: N 1835009 Local 1: O Class: TWBROWSE Local 2: U TCONTROL:KEYDOWN Parametros 1: N 13 Parametros 2: N 1835009 Local 1: O Class: TWBROWSE TWBROWSE:KEYDOWN Parametros 1: N 13 Parametros 2: N 1835009 Local 1: O Class: TWBROWSE Local 2: U TWINDOW:HANDLEEVENT Parametros 1: N 256 Parametros 2: N 13 Parametros 3: N 1835009 TWBROWSE:HANDLEEVENT Parametros 1: N 256 Parametros 2: N 13 Parametros 3: N 1835009 Local 1: O Class: TWBROWSE _FWH Parametros 1: N 1835009 Parametros 2: N 256 Parametros 3: N 13 Parametros 4: N 1835009 Parametros 5: N 26 Local 1: O Class: TWBROWSE WINRUN Parametros 1: N 459904 TWINDOW:ACTIVATE Parametros 1: C "NORMAL" Parametros 2: U Parametros 3: U Parametros 4: U Parametros 5: U Parametros 6: U Parametros 7: U Parametros 8: B {|| ... } Parametros 9: U Parametros 10: U Parametros 11: U Parametros 12: U Parametros 13: U Parametros 14: U Parametros 15: U Parametros 16: U Parametros 17: B {|| ... } Parametros 18: U Parametros 19: U Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Local 1: U Local 2: U Local 3: C "W5 Informática e Sistemas - Geraldo Andrade (62) | BRT 8547-6424 | VIVO 9802-2333 | TIM 8184-6401 | CLARO 9250-4901 | geraldo_andrade@hotmail.com" Local 4: U Local 5: O Class: TCURSOR Local 6: O Class: TFONT Local 7: O Class: TFONT Local 8: O Class: TFONT Local 9: O Class: TFONT Local 10: C "C:\Users\GeraldoNote\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper.jpg" Redes RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX MYSQL Banco de Dados em Uso ================ 1: CL Nome Rdd: DBFNTX ============================== Linha Tamanho Inicio Fim 16150 16149 .F. .T. Indexador em Uso Alias Relacionados em Uso 2: EK Nome Rdd: DBFNTX ============================== Linha Tamanho Inicio Fim 1 6 .T. .F. Indexador em Uso Alias Relacionados em Uso 3: PD Nome Rdd: DBFNTX ============================== Linha Tamanho Inicio Fim 7 6 .F. .T. Indexador em Uso Alias => PD->DESCR PEDIDO Relacionados em Uso 4: NT Nome Rdd: DBFNTX ============================== Linha Tamanho Inicio Fim 1 0 .T. .T. Indexador em Uso Alias Relacionados em Uso 5: FC Nome Rdd: DBFNTX ============================== Linha Tamanho Inicio Fim 23 22 .F. .T. Indexador em Uso Alias => FC->NOME NOMEFC Relacionados em Uso Classes em Uso: =============== 1 HASHENTRY 2 HBCLASS 3 HBOBJECT 4 TINI 5 TOLEAUTO 6 TWINDOW 7 TDIALOG 8 TBRUSH 9 TCONTROL 10 TBITMAP 11 TFONT 12 TSAY 13 TGET 14 CORGET 15 GET 16 TCLIPGET 17 TBUTTON 18 TMETER 19 TICON 20 TCURSOR 21 TMENU 22 TMENUITEM 23 TMRU 24 TBAR 25 TRECT 26 TBTNBMP 27 TWBROWSE 28 TSCROLLBAR 29 TIMAGE 30 TMSGBAR 31 TMSGITEM 32 TTIMER 33 TRADMENU 34 TRADIO 35 TCOMBOBOX 36 TCHECKBOX 37 TMULTIGET 38 TBUTTONBMP 39 ERROR 40 TREG32 Análize da Memória ================== 219 Variaveis Staticas Consumo de Memória Dinamica: Valor Atual: 0 bytes Valor Máximo: 0 bytes Geraldo Andrade geraldo_andrade@hotmail.com

GO TOP PsBDATA := DATA PsBCODC := CODCLI PsBFN01 := FONE01 PsBFN02 := FONE02 PsBFN03 := FONE03 PsBFN04 := FONE04 PsBNOME := NOME PsBRUAS := RUA PsBQDRA := QDR PsBLOTE := LOT PsBNUME := NUM PsBAPTO := APTO PsBEDFC := EDFC PsBSETO := SETOR PsBREFE := OBS PsBCEPS := CEP PsDTCMP := RECDATA PsJURID := RAZAO SYSREFRESH() aCli := {} nRecs := 0 nCont := 0 WHILE !Cl->(EOF()) AADD(aCli,{CODCLI,; //1 FONE01,; //2 FONE02,; //3 FONE03,; //4 FONE04,; //5 NOME,; //6 RUA,; //7 QDR,; //8 LOT,; //9 NUM,; //10 APTO,; //11 EDFC,; //12 SETOR,; //13 OBS,; //14 RAZAO,; //15 RECDATA,; //16 RAZAO,; //17 Rua(2),; //18 Recno(),; //19 trim(qdr)+trim(lot)+trim(num) ; //20 }) Sysrefresh() DBSKIP() oMeter1:Set(nCont+=1) oMeter1:Refresh() Sysrefresh() ENDDO if At("nome",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[6] elseif At("rua",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[18] elseif At("setor",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[18] elseif At("qdr",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[20] elseif At("lot",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[09] elseif At("num",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[10] elseif At("apto",lwr(DbFilter())) > 0 aSort(aCli,,,{|X,Y|X[11] endif SELECT("Cl") lAchou := .T. n := 0 if len(acli) > 1 n := 1 Define dialog oBus resource "Buskli" of oCLI Title "Localizados "+Tran(nTudo,"999999") +" de "+DbFilter() redefine get psb01 var psbdata id 103 of oBus font ft0 redefine get psb02 var psbcodc id 113 of oBus font ft0 redefine get psb03 var psbfn01 id 102 of oBus font ft0 picture "@!@K" redefine get psb04 var psbfn02 id 105 of oBus font ft0 picture "@!@K" redefine get psb05 var psbfn03 id 106 of oBus font ft0 picture "@!@K" redefine get psb06 var psbfn04 id 108 of oBus font ft0 picture "@!@K" redefine get psb07 var psbnome id 101 of oBus font ft0 picture "@!@k" redefine get psb08 var psbruas id 112 of oBus font ft0 picture "@!@k" redefine get psb09 var psbqdra id 114 of oBus font ft0 picture "@!@k" redefine get psb10 var psblote id 115 of oBus font ft0 picture "@!@k" redefine get psb11 var psbnume id 116 of oBus font ft0 picture "@!@k" redefine get psb12 var psbapto id 117 of oBus font ft0 picture "@!@k" redefine get psb13 var psbedfc id 121 of oBus font ft0 picture "@!@k" redefine get psb14 var psbseto id 104 of oBus font ft0 picture "@!@k" redefine get psb15 var psbrefe id 122 of oBus font ft0 picture "@!@k" redefine get psb16 var psbceps id 109 of oBus font ft0 picture "99.999-999" redefine get psb17 var psdtcmp id 111 of oBus font ft0 redefine get psb18 var psjurid id 110 of oBus font ft0 picture "99.999-999" REDEFINE LISTBOX Cl103 FIELDS acli[n,6],acli[n,18] ; HEADERS "NOME FANTASIA","ENDEREÇO"; ON CHANGE(PESQArray(aCli)); FIELDSIZES 160,220; ID 107; OF oBus Sysrefresh() cl103:bGoBottom := { || n := eval( cl103:bLogicLen ) } cl103:bSkip := { | nwant, nold | nold := n , n += nwant,; n := max( 1, min( n, eval( cl103:bLogicLen ))),; n - nOld } cl103:bLogicLen := { || len( aCli ) } cl103:cAlias := "Array" cl103:NCLRFOREFOCUS = NRGB(255,255,255) cl103:NCLRBACKFOCUS = NRGB(000,125, 0 ) cl103:BKEYDOWN = { | NKEY, NFLAGS | EncerBusArray(13,cl103,aCli)} SYSREFRESH() REDEFINE BUTTONBMP BUT1 ID 120 OF oBus ; ACTION (oBus:END()) CANCEL TEXTRIGHT ; BITMAP GC("ACHAR1",DIRT+"\BITMAPS\Quit.bmp","IMAG.INI") REDEFINE BUTTONBMP BUT2 ID 118 OF oBus ; ACTION (EXCLUArray(),Cl103:SETFOCUS(),Cl103:Refresh()) CANCEL TEXTRIGHT ; BITMAP GC("EXCLUBUSK",DIRT+"\BITMAPS\Delete.bmp","IMAG.INI") REDEFINE BUTTONBMP BUT3 ID 125 OF oBus ; ACTION (LISTArray(oMeter1,oMeter2,oMeter3)) CANCEL TEXTRIGHT ; BITMAP GC("CRIALISTA",DIRT+"\BITMAPS\Notes.bmp","IMAG.INI"); WHEN GL("CRIAR_LISTA") REDEFINE BUTTONBMP BUT3 ID 119 OF oBus ; ACTION (ALTArrayCLI(),Cl103:SETFOCUS(),Cl103:Refresh()) CANCEL TEXTRIGHT ; PROMPT "Al&terar" ; BITMAP GC("ALTERACLI",DIRT+"\BITMAPS\Edit.bmp","IMAG.INI") REDEFINE BUTTONBMP BUT4 ID 123 OF oBus ; ACTION (ZERO:=.F.,EncerBusArray(13,cl103,aCli),oBus:END()) CANCEL TEXTRIGHT ; BITMAP GC("ZERO",DIRT+"\BITMAPS\Certo.bmp","IMAG.INI") Activate Dialog oBus Centered ELSEif len(acli) == 1 cdcli := acli[ 1,1] nRecs := acli[ 1,19] Else lAchou := .F. nRecs := 0 endif Geraldo Andrade geraldo_andrade@hotmail.com

Ao utilizar um array e teclar Home retorna o erro, alguem pode dar uma Luz ou um Olofote? Linha do Erro: => DBGOTOP(0) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2620) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2621) Linha do Erro: wBrowse.prg => TWBROWSE:GOTOP(1465) Linha do Erro: wBrowse.prg => TWBROWSE:KEYDOWN(1866) Linha do Erro: => TWINDOW:HANDLEEVENT(0) Linha do Erro: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Linha do Erro: WINDOW.PRG => _FWH(0) Linha do Erro: => DIALOGBOX(0) Linha do Erro: DIALOG.PRG => TDIALOG:ACTIVATE(0) Linha do Erro: clientes.prg => BUSKARRAY(5951) Geraldo Andrade geraldo_andrade@hotmail.com

Ao utilizar um array e teclar Home retorna o erro, alguem pode dar uma Luz ou um Olofote? Linha do Erro: => DBGOTOP(0) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2620) Linha do Erro: wBrowse.prg => (b)TWBROWSE:SETFILTER(2621) Linha do Erro: wBrowse.prg => TWBROWSE:GOTOP(1465) Linha do Erro: wBrowse.prg => TWBROWSE:KEYDOWN(1866) Linha do Erro: => TWINDOW:HANDLEEVENT(0) Linha do Erro: CONTROL.PRG => TWBROWSE:HANDLEEVENT(0) Linha do Erro: WINDOW.PRG => _FWH(0) Linha do Erro: => DIALOGBOX(0) Linha do Erro: DIALOG.PRG => TDIALOG:ACTIVATE(0) Linha do Erro: clientes.prg => BUSKARRAY(5951) Geraldo Andrade geraldo_andrade@hotmail.com

Arthur, bom dia Criei uma rotina para poder resolver este problema que tive: FUNCTION RESIZER(LUGAR,ARQUI,kVAR,TIP,TAMANHO,DEC) IF !TEMPONTO(ARQUI) ARQUI += ".DBF" ENDIF OLD := ALIAS() FILT := DBFILTER() Private aFild[fCount()] aFields(aFild) Private bNom[fCount()] Private bTip[fCount()] Private bTam[fCount()] Private bDec[fCount()] aFields(bNom,bTip,bTam,bDec) nANTES := fCount() FOR OR = 1 to fCount() IF ALUP(bNom[OR]) == ALUP(kVAR) .AND. bTam[OR] == TAMANHO .AND. bDec[OR] == DEC RETURN(.T.) ENDIF Next DELETE FILE("TEMP.DBF") My := {} FOR OR = 1 to fCount() IF ALUP(bNom[OR]) <> ALUP(kVAR) AADD(MY,{bNom[OR],bTip[OR],bTam[OR],bDec[OR]}) ELSE AADD(MY,{bNom[OR],bTip[OR],TAMANHO,DEC}) ENDIF Next SYSREFRESH() fcharea("temp") DBCREATE("TEMP",MY) USE TEMP NEW IF nANTES > fCount() DBCLOSEAREA() PARE("ERRO NA CORREÇÃO DO TAMANHO "+KVAR,LUGAR+"\"+ARQUI) SELECT(OLD) Quit ENDIF FCHAREA(OLD) DBCREATE(ALUP(REDE)+"\"+OLD,MY) SELECT("TEMP") NVPRO := LUGAR + "\" + ARQUI NVALI := REDE + "\" + OLD APPEND FROM &NVPRO SYSREFRESH() COPY STRU TO &NVPRO COPY STRU TO &NVALI DBCLOSEAREA() FCHAREA("TEMP") USAR(LUGAR,ARQUI,OLD) rLOCK() APPEND FROM "TEMP" IF !EMPTY(FILT) SET FILTER TO &FILT GO BOTTOM GO TOP ENDIF SL(ARQUI+kVAR+SZ(TAMANHO,3),.T.,REDE+"\W2.INI") RETURN(.f.) *********** Espero que ajude Geraldo Andrade geraldo_andrade@hotmail.com

Bom dia a todos. while !eof() .and. db->campo == variavel desta forma em cada skip ha uma comparacao com a variavel, entao eu uso desta forma: while !db->(eof()) (...) if db->campo <> m->variavel exit endif db->(dbskip()) enddo Geraldo Andrade geraldo_andrade@hotmail.com