Theotokos

Vlw! Kapiaba... Mas não resolveu... Deu na mesma...

Bom dia Pessoal!!! Estou com o problema que o seguinte... Ao clicar na imagem do cliente executa a seguinte rotina: <code> DEFINE DIALOG oDlg RESOURCE "DLG_CON_OS" * oDlg:lTransparent := .T. oDlg:lHelpIcon := .F. * REDEFINE IMAGE oImg ID 4009 OF oDlg UPDATE ADJUST FILE cFile ON ClICK BmpOpen( cFile ) .... function BmpOpen( cFileOpen ) local oWndBmp, oBar, oBmp, oIcon, oLupa local oSay,oFont local cBmpFile cBmpFile := cFileOpen if ! Empty( cBmpFile ) DEFINE FONT oFont NAME "Arial" SIZE 5, 13 DEFINE WINDOW oWndBmp FROM 2,2 TO 25,50; TITLE "BITMAP " + cBmpFile MDICHILD @ 0, 0 IMAGE oBmp FILENAME cBmpFile SCROLL ADJUST OF oWndBmp ; on left click (AjustaZoom(oBmp,"A",oSay)) ; on right click (AjustaZoom(oBmp,"R",oSay)) oWndBmp:SetControl( oBmp ) ajustazoom(oBmp,"z",oBar) ACTIVATE WINDOW oWndBmp oFont:End() endif return oWndBmp <\code> porem esta windows fica por baixo da Dialog que a chama... como faço para a windows ficar sobre a Dialog?

vishi, que tanto de pessoas velhas.... kkkkkkkk trabalho com computadores desde os CP-500...

Será que teria como colocar imagens na coluna do grid conforme o topico do @marcioe, conforme embaixo.... aí caro @kapiaba topico criado!!! como que coloca a imagem no grid?

e ai pessoal!!1 Bom Dia!!! Existe esta opção do tópico para o xBRowse?

subindi!!!

Bom Dia!!! Aproveitando o topico... qual a opção para xBrowse?

ACTION DIALOG oDlg CENTERED IN PARENT

como faz com TReport.prg? teria ai algum exemplinho. rsrsrs

Boa Tarde!!! Alguem sabe se existe uma versão ou algo modificado para que no prev32 tenha o botão exportar para EXCEL? Estou precisando que todos os meus relatorios que utilizam, tenha esta opção para exportar para EXCEL, mas tenho continuar mostrando na tela e depois o usuario precisar exportar... Um ou outro eu utilizo o fastreport, ai consegue exportar, mas no momento não dá para converter todos relatórios... Desde já agradeço, se alguem tiver algo e puder compartilhar...

Vc utiliza alguma imagem (BMP, JPG, etc) como logo algo assim? É que a tive problema qdo coloquei uma imagem de logotipo no relatório e o arquivo era muito grande... ai mesmo redimensionando no FR3 ficava muito lento... ai eu reduzir a imagem e coloquei novamente na fr3,,, no meu caso era isso e resolveu... Ah.. aconteceu tmb em um fr3 de etiqueta que tiha tmb... pois imprimia um logotipo para cadas etiqueta ai vê só... imagem grande.. demorava muito... reduzir a imagem tmb e resolveu..

Vlw!! Muito obgdo pela atenção... como esta naquele link.. disse que pode ser problema no banco de dados mesmo... vou no cliente amanhã e vou gerar outro arquivo e transferir os dados para ver no que dá...

isso mesmo.. ocorre ai.. na descrição.... tive olhando no xBrowse.prg e tem isso lá, assinalei em vermelho... parece que esta reconhendo como RAW a descrição neste unico registro... <code> static function SetColFromRDD( oCol, nFld, cAlias, aFldInfo ) local cName // if fieldname is specified in different case, header is set accordingly local uVal, nLen, nDec, nSelect := SELECT( cAlias ) if valtype( nFld ) == 'C' nFld := (cAlias)->(FieldPos(cName := nFld)) endif aFldInfo := aFldInfo[ nFld ] oCol:cHeader := If( cName == nil, aFldInfo[ 1 ], cName ) if ( cName == nil ) cName := aFldInfo[ 1 ] endif // oCol:bEditValue := FieldWBlock( cName, nSelect ) oCol:bEditValue := { |x| If( x == nil, ( oCol:oBrw:cAlias )->( FieldGet( nFld ) ), ; ( oCol:oBrw:cAlias )->( FieldPut( nFld, x ) ) ) } uVal := ( oCol:oBrw:cAlias )->( FieldGet( nFld ) ) oCol:nDataLen := aFldInfo[ 3 ] oCol:nDataDec := aFldInfo[ 4 ] if Len( aFldInfo[ 2 ] ) == 1 oCol:cDataType := aFldInfo[ 2 ] if oCol:cDataType == "I" oCol:cDataType := 'N' if aFldInfo[ 3 ] == 2 oCol:nDataLen := 6 else oCol:nDataLen := 13 endif oCol:nDataDec := 0 elseif oCol:cDataType == 'Y' oCol:cDataType := 'N' oCol:nDataLen := 15 oCol:nDataDec := 2 elseif oCol:cDataType == '@' oCol:nDataLen := 20 #ifdef __XHARBOUR__ oCol:cDataType := 'T' #else oCol:cDataType := ValType( uVal ) if oCol:cDataType == 'C' oCol:nDataLen := Len( uVal ) endif #endif elseif oCol:cDataType == "U" oCol:cDataType := 'C' endif else // ADT table oCol:cDataType := ValType( uVal ) do case case oCol:cDataType == 'N' do case case "DOUBLE" $ aFldInfo[ 2 ] .or. "MONEY" $ aFldInfo[ 2 ] oCol:nDataLen := 15 oCol:nDataDec := 2 case AScan( { "AUTOINC", "ROWVERSION" }, aFldInfo[ 2 ] ) > 0 oCol:nDataLen := 15 oCol:nDataDec := 0 otherwise oCol:nDataLen := 15 oCol:nDataDec := 0 endcase #ifdef __XHARBOUR__ case oCol:cDataType == 'D' if 'TIME' $ aFldInfo[ 2 ] oCol:cDataType := 'T' oCol:cEditPicture := '@T' endif #endif case oCol:cDataType $ "CM" if aFldInfo[ 2 ] = "IMAGE" oCol:cDataType := 'P' elseif aFldInfo[ 2 ] = "RAW" oCol:bStrData := { || "<Binary>" } endif otherwise // nothing to do endcase endif // in case of new unhandled data types if !( oCol:cDataType $ 'CDLMNPT' ) oCol:cDataType := ValType( uVal ) endif // oCol:adjust() will set bstrdata do case case oCol:cDataType == 'N' oCol:cEditPicture := NumPict( oCol:nDataLen, oCol:nDataDec, .t. ) case oCol:cDataType == 'D' oCol:cEditPicture := '@D' endcase if oCol:oBrw:lOemAnsi .and. oCol:cDataType $ "CM" oCol:bEditValue := { |x| If( x == nil, OemToAnsi( (oCol:oBrw:cAlias)->( FieldGet(nFld) ) ), ; ( (oCol:oBrw:cAlias)->( FieldPut( nFld, AnsiToOem( x ) ), x ) ) ) } endif oCol:bOnPostEdit := { |o,x,n| If( n != VK_ESCAPE .and. Eval( o:oBrw:bLock ), ; o:Value := x, ) } return oCol </code>

Eu nem conheço essa função ... kkkkkkk <code> Procedure Cad_Produtos(nTp) Local oDlg, oCol, oImg, oGet[5] PRIVATE oFont, cState, oFont1, oBrw aTxt1 := {Space(30), Space(30) } aTxt2 := {Pad("Descrição",10),Pad("Aplicação",10)} * If ValType(nTp) <> "N" nTp := 1 End * Sel("BanMerca",2) // Abre o arquivo de Produtos DbGoTop() DEFINE FONT oFont SIZE 0,-15 NAME "Arial" BOLD DEFINE FONT oFont1 SIZE -5,-10 NAME "Arial" cProcura := Space(30) cCampo := PadL("Descrição",10) * DEFINE DIALOG oDlg RESOURCE "DLG_CON_MER" TITLE "..:: Manutenção de Dados .::. PRODUTOS ::.." * oDlg:lTransparent := .T. oDlg:lHelpIcon := .F. * oBrw := TxBrowse():New( oDlg ) oBrw:CreateFromResource( 4002 ) oBrw:cAlias := 'BanMerca' * ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_FAMILIA TITLE "Família" SIZE 100 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_VENDA TITLE "Pr.Venda" SIZE 100 ALIGN RIGHT PICTURE "@E R$99,999.99" * ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_CODIGO TITLE "Código" SIZE 080 ALIGN RIGHT ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_DESCRICA TITLE "Descrição" SIZE 450 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_QUANTIDA TITLE "Qtde" SIZE 100 ALIGN RIGHT PICTURE "@E 999,999.99" * If nNivel = 1 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_CUSTO TITLE "Pr.Custo" SIZE 100 ALIGN RIGHT PICTURE "@E 999,999.99" ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_ANT_CN TITLE "Est.Antes" SIZE 100 ALIGN RIGHT ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_DENTRADA TITLE "Dt.Ult.Entrada" SIZE 100 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_QENTRADA TITLE "Qt.Ult.Entrada" SIZE 100 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_DSAIDA TITLE "Dt.Ult.Saída" SIZE 100 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_QSAIDA TITLE "Qt.Ult.Saída" SIZE 100 End * ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_REFERENC TITLE "Cod.Peça" SIZE 100 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_CODBAR TITLE "Código de Barras" SIZE 300 * ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_LABORATO TITLE "Fabricante/Marca" SIZE 300 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_FORNECED TITLE "Fornecedor" SIZE 200 ADD COLUMN oCol TO XBROWSE oBrw DATA BanMerca->M_PRINCIPI TITLE "Localização" SIZE 200 * * ROTINA PARA PROCURA ************************************************************************************** REDEFINE COMBOBOX oCbx VAR cCampo PROMPTS {"Descrição","Código","Code Bar","Cod.Peça","Família","Aplicação"} UPDATE ID 108 OF oDlg * REDEFINE GET oGet[1] VAR cProcura ID 106 OF oDlg ON CHANGE (BcDdProduto(oGet[1],cCampo,oBrw)) * REDEFINE COMBOBOX oCbx VAR aTXT2[1] PROMPTS {"Descrição","Aplicação"} UPDATE ID 4005 OF oDlg REDEFINE COMBOBOX oCbx VAR aTXT2[2] PROMPTS {"Descrição","Aplicação"} UPDATE ID 4007 OF oDlg * REDEFINE GET oGet[2] VAR aTXT1[1] Of oDlg PICTURE "@!X" ID 4004 REDEFINE GET oGet[3] VAR aTXT1[2] Of oDlg PICTURE "@!X" ID 4006 * REDEFINE BUTTON ID 4009 OF oDlg ACTION (oBrw:Refresh(),IdxPesquisa(oBrw,aTXT1,aTXT2)) Prompt "&Pesquisar" ************************************************************************************* * REDEFINE BUTTON ID 107 OF oDlg ACTION (EditProduto(1), oBrw:Refresh(), oDlg:Update(), oDlg:Refresh()) When lS_Cadastro REDEFINE BUTTON ID 105 OF oDlg ACTION (oDlg:End()) REDEFINE BUTTON ID 102 OF oDlg ACTION (EditProduto(2), oBrw:Refresh(), oDlg:Update(), oDlg:Refresh()) When lS_Altera REDEFINE BUTTON ID 103 OF oDlg ACTION (Excluir(), oBrw:Refresh(), oDlg:Update(), oDlg:Refresh()) When lS_Exclui * REDEFINE BTNBMP ID 4039 OF oDlg ACTION ( MsgRun("Enviando para Excel...","Excel",{|| If(nNivel=1,oBrw:ToExcel(),(MsgStop("Não Autorizado","RLI"),.t.) ) }) ) ; RESOURCE "Excel" ; NOBORDER PROMPT "" CENTER TOOLTIP {"Clique para Enviar os Dados"+CRLF+"desta Tela (Tabela) para o Excel","Excel"} * oBrw:nRowHeight := 35 oBrw:lColDividerComplete := .F. oBrw:nDataLines := 2 // Number of lines of the data rows oBrw:nHeaderLines := 2 // Number of lines of the header oBrw:nFooterLines := 2 // Number of lines of the footer oBrw:nDataType := 0 // Data type to be used: 0->rdd, 1->array, ... (more to come) If navigation codeblocks are not specified then get automatically initialized when adjusting the browse depending on this DATA value oBrw:nHeaderHeight := 25 oBrw:nColDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray oBrw:nRowDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray oBrw:nMarqueeStyle := 3 // Marquee style (row selected) 0 No Marquee 1 Dotted cell 2 Solid cell 3 Highlight cell 4 Highlight row & Raise Cell 5 Highlight row 6 Highlight row & multiselect oBrw:bSeek := {|c| cProcura := C, oGet[1]:Refresh(), DbSeek(Upper( c )) } oBrw:bClrSelFocus := {|| {cCorFrente, cCorfundo} } oBrw:bClrSel := {|| {cCorFrente, cCorfundo} } * oBrw:bClrStd := {|| {cCorFrente, IIF( BANMERCA->( OrdKeyNo() )%2 == 0, CLR_WHITE, nRGB(232,232,232) ) }} oBrw:bClrStd := {|| IIF( VerStProduto(), {cCorFrente, CLR_WHITE}, {cFrenteVermelho, cFundoVermelho } ) } oBrw:SetRDD() * oBrw:aCols[1]:oDataFont := oFont1 oBrw:aCols[2]:oDataFont := oFont oBrw:aCols[3]:oDataFont := oFont oBrw:aCols[4]:oDataFont := oFont oBrw:aCols[5]:oDataFont := oFont * oBrw:aCols[4]:AddResource("Entrega" ) oBrw:aCols[4]:bBmpData := { || If( BanMerca->M_ENTREGA, 1, 0 ) } oBrw:aCols[4]:nDataBmpAlign := 3 * oBrw:aCols[5]:AddResource("Est_UP" ) oBrw:aCols[5]:AddResource("Est_Down") oBrw:aCols[5]:bBmpData := { || If( BanMerca->M_QUANTIDA > 0, 1, 2 ) } oBrw:aCols[5]:nDataBmpAlign := 3 * If lS_Altera oBrw:aCols[05]:nEditType := EDIT_GET oBrw:aCols[05]:bOnPostEdit := {|o,x| RecLock(),FieldPut( FieldPos("M_QUANTIDA"), x ), FieldPut( FieldPos("M_CN"), x ),UnLockRecord() } oBrw:aCols[05]:cEditPicture := "@E 999,999.99" oBrw:aCols[05]:lEditBorder := .f. oBrw:aCols[05]:bEditValid := {|| oBrw:SetFocus(), .t. } EndIf * oBrw:bLDblClick := {|| If(lS_Altera,EditProduto(2),.t.), oBrw:Refresh(), oDlg:Update(), oDlg:Refresh() } * oBrw:SetFocus() * ACTIVATE DIALOG odlg CENTER * oFont:End() oFont1:End() * DbCloseAll() Return </code>

Olá Pessoal, boa tarde!!! Estou com esse problema estranho, nunca vi... tenho uma tela com xBrowse onde mostra os produtos cadastrado (DBF) e na coluna DESCRICAO de um unico produto esta aparecendo escrito assim: <binary> ao invés de aparecer a descrição... porem vc clica para alterar no campo descrição aparece correto... é apenas no xBrowse... Alguem sabe porque acontece isso? o que pode esta causando isto... pensei em algum caracter estranho na descrição algo assim, mas já olhei direto no arquivo e parece tudo normal...

eu tirei para testar, mas ai não funciona a procura... o indice gerado não inclui todos

Vlw @kapiaba!!! Eu não fecho os filtros e ordscope porque ao sair da tela de produtos o arquivo DBF é fechado (DbCloseall()) assim fecha tudo (Filtros, OrdScope)...mas o problema parece que estar no SysRefresh() como citei a pouco... SysRefresh estava dentro do Do While OrdWildSeek( cCad, .T.) OrdKeyAdd( "_TEMP_" ) SysRefresh() // TIREI ESSE SYSREFRES DAQUI E COLOQUEI APOS ENDDO Enddo

parece que descobrir o problema... estou fazendo mas teste para ter certeza.. mas publicar aqui para que os amigos analise se tem alguma a ver:: Function FastFilter( cCad, nOrder ) Local nIndice := OrdNumber() Set order to nOrder INDEX ON &(IndexKey()) TAG _TEMP_ TO tHarbourt CUSTOM ADDITIVE MEMORY Set order to nOrder dbGotop() Do While OrdWildSeek( cCad, .T.) OrdKeyAdd( "_TEMP_" ) Enddo SysRefresh() OrdSetFocus( "_TEMP_" ) Return( nIndice ) Tire o SysRefresh() de dentro do Do While

o trecho em que utilizo esta rotina é este: DEFINE FONT oFont SIZE 0,-15 NAME "Times" cProcura := Space(30) cCampo := PadL("Descrição",10) DEFINE DIALOG oDlg RESOURCE "DLG_CON_MER" TITLE "..:: Manutenção de Dados .::. PRODUTOS ::.." * oDlg:lTransparent := .T. oDlg:lHelpIcon := .F. * oBrw := TxBrowse():New( oDlg ) oBrw:CreateFromResource( 101 ) oBrw:cAlias := 'BanMerca' ADD COLUMN TO XBROWSE oBrw TITLE "" SIZE 30 * ADD COLUMN TO XBROWSE oBrw DATA M_FAMILIA TITLE "Família" SIZE 200 ALIGN LEFT ADD COLUMN TO XBROWSE oBrw DATA M_CODIGO TITLE "Código" SIZE 80 COLORS 128 ALIGN LEFT ADD COLUMN TO XBROWSE oBrw DATA M_DESCRICA TITLE "Descrição" SIZE 350 COLORS 128 ALIGN LEFT ADD COLUMN TO XBROWSE oBrw DATA M_REFERENC TITLE "Referência" SIZE 120 ALIGN LEFT ADD COLUMN TO XBROWSE oBrw DATA M_CODBAR TITLE "Código de Barras" SIZE 100 ALIGN LEFT * If nTp = 1 ADD COLUMN TO XBROWSE oBrw DATA M_QUANTIDA TITLE "Quantidade" SIZE 90 ALIGN RIGHT Else ADD COLUMN TO XBROWSE oBrw DATA M_QUANTIDA TITLE "Estoque" SIZE 90 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_CN TITLE "C/N" SIZE 90 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_SN TITLE "S/N" SIZE 90 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_CUSTO TITLE "Preço Custo" SIZE 90 COLORS 128 ALIGN RIGHT End * ADD COLUMN TO XBROWSE oBrw DATA M_VENDA TITLE "Preço Venda" SIZE 90 COLORS 128 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_FORNECED TITLE "Fornecedor" SIZE 200 ALIGN LEFT ADD COLUMN TO XBROWSE oBrw DATA M_EMINIMO TITLE "Est.Min." SIZE 50 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_EMAXIMO TITLE "Est.Máx." SIZE 50 ALIGN RIGHT ADD COLUMN TO XBROWSE oBrw DATA M_DT_ATUAL TITLE "Dt.Ult.Atual." SIZE 100 * oBrw:nRowHeight := 30 oBrw:lColDividerComplete := .f. oBrw:nDataLines := 2 // Number of lines of the data rows oBrw:nHeaderLines := 2 // Number of lines of the header oBrw:nFooterLines := 2 // Number of lines of the footer oBrw:nDataType := 0 // Data type to be used: 0->rdd, 1->array, ... (more to come) If navigation codeblocks are not specified then get automatically initialized when adjusting the browse depending on this DATA value oBrw:nHeaderHeight := 30 // oBrw:bSeek := {|c| DbSeek(Upper( c )) } oBrw:nFreeze := 1 oBrw:nColDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray oBrw:nRowDividerStyle := 2 // Column divider style: 0 No lines 1 Black line 2 Dark gray line 3 Raised 4 Inset 5 Fore Color 6 Light gray * oBrw:aCols[3]:AddBmpFile( "BMP\Organiza.bmp" ) oBrw:aCols[3]:nHeadBmpNo := 0 oBrw:aCols[3]:nHeadBmpAlign := 1 * oBrw:aCols[4]:AddBmpFile( "BMP\Organiza.bmp" ) oBrw:aCols[4]:nHeadBmpNo := 1 oBrw:aCols[4]:nHeadBmpAlign := 1 * oBrw:aCols[1]:AddBmpFile( "BMP\Up.Bmp" ) oBrw:aCols[1]:AddBmpFile( "BMP\Down.Bmp" ) oBrw:aCols[1]:AddBmpFile( "BMP\Down1.Bmp" ) oBrw:aCols[1]:bBmpData := { || If( BanMerca->M_QUANTIDA <= 0, 3, If(BanMerca->M_CN <= BanMerca->M_EMINIMO, 2, 1 )) } oBrw:aCols[1]:nDataBmpAlign := 3 * oBrw:aCols[3]:bLClickHeader := {|| Sel("BanMerca",1), oBrw:aCols[3]:nHeadBmpNo := 1, oBrw:aCols[4]:nHeadBmpNo := 0, oBrw:Refresh() } oBrw:aCols[4]:bLClickHeader := {|| Sel("BanMerca",2), oBrw:aCols[3]:nHeadBmpNo := 0, oBrw:aCols[4]:nHeadBmpNo := 1, oBrw:Refresh() } ***** REDEFINE COMBOBOX oCbx VAR cCampo PROMPTS {"Descrição","Código","Referência","Família","Fornecedor","Contendo Nome"} UPDATE ID 108 OF oDlg ***** REDEFINE GET oGet VAR cProcura ID 106 OF oDlg ON CHANGE (BcDdProduto(oGet,cCampo,oBrw), oBrw:Refresh(), oBrw:Update()) * REDEFINE BUTTON ID 107 OF oDlg ACTION (EditProduto(1) , oDlg:Update(), oDlg:Refresh()) REDEFINE BUTTON ID 105 OF oDlg ACTION (oDlg:End()) REDEFINE BUTTON ID 102 OF oDlg ACTION (EditProduto(2) , oDlg:Update(), oDlg:Refresh()) REDEFINE BUTTON ID 103 OF oDlg ACTION (Excluir() , oDlg:Update(), oDlg:Refresh()) * ACTIVATE DIALOG odlg CENTER * DbCloseAll() Return * Function BcDdProduto(cP,cC,oB) Local cPro := cP:cText() Do Case Case AllTrim(cC) == "Descrição" Sel(DBF(),2) Case AllTrim(cC) == "Família" Sel(DBF(),4) Case AllTrim(cC) == "Fornecedor" Sel(DBF(),3) Case AllTrim(cC) == "Código" Sel(DBF(),1) Case AllTrim(cC) == "Referência" Sel(DBF(),5) Case AllTrim(cC) = "Contendo Nome" Sel(DBF(),2) FastFilter( RTrim(cPro), 2) dbGoTop() Return(.t.) OTHERWISE Sel(DBF(),1) EndCase * dbSetOrder( INDEXORD() ) // define a ordem de filtro ordScope( 0, RTrim(cPRO) ) // TOP (De...) ordScope( 1, RTRim(cPro) ) // BOTTOM (..Até) dbGoTop() * Return(.T.)

agora continua acontencedo o mesmo travamento... porem nem gera mais o arquivo checkres.txt gerou só a primeira vez (a que postei) e continuei a testar, mas não gerou mais o arquivo...

Kapiaba... o arquivo que era é este : 27/01/2018 16:16:26: BRUSH,118496802,TBITMAP:SETCOLOR(2529)->TBITMAP:DEFINE(265)->MAIN(126) 27/01/2018 16:16:26: BMP,67444254,MAIN(126) 27/01/2018 16:16:26: BMP,84221471,MAIN(127) 27/01/2018 16:16:26: FONT,1560944022,LERSENHA(504)->(b)MAIN(208)->TWINDOW:ACTIVATE(983)->MAIN(208) 27/01/2018 16:16:26: FONT,1980374582,MSGMETER(12)->LERSENHA(570)->(b)MAIN(208)->TWINDOW:ACTIVATE(983)->MAIN(208) 27/01/2018 16:16:26: ==================================================================================================== Aí trava e tenho que fechar como lhe falei

Vlw!!! Obgdo!!! Vou testar hoje a noite... depois reporto aqui... obgdo!!!

INDEX ON BANCO+STR(EMPRESA,2) TAG TBCCOR01 TO TBCCOR INDEX ON DESCRICAO TAG TBCCOR02 TO TBCCOR Mude para: INDEX ON TBCCOR->BANCO+STR(TBCCOR->EMPRESA,2) TAG TBCCOR01 TO TBCCOR INDEX ON TBCCOR->DESCRICAO TAG TBCCOR02 TO TBCCOR

Esse "Round 5" se não me engano vai deixar as bordas arredondas... pode ser esse o problema... Testa ai @AcessoSoft sem este ROUND 5

Utilizo DBF + CDX com Windows 7, 8, 10.... e sempre funcionou... é claro que as vezes dá algum problema de indice... mas mando reCriar o indice e pronto... nem tudo é perfeito... até mesmo o mysql tem seus problemas... (é claro que melhor)...