rubensma

Não sei se é seu caso. Tive problema usando Save, troquei por SaveAs, e cada vez salvo com um nome diferente // acrescenta minutos e segundos no final do arquivo para não dar erro de arquivo já existe cArquivo := "LT_Reversão_"+substr(time(), 4 , 2)+substr(time(), 7 , 2)+".xls" oExcel:ActiveWorkBook:SaveAs( cArquivo )

Muito boa essa função, fiz assim com arquivo texto separado por pipe aCSV := FParseEx("dados.txt","|") dbSelectArea( "tem" ) FOR n := 1 TO LEN(aCSV) Tem->( Rlock() ) tem->( dbappend() ) Tem->Tipo := aCSV[n,1] Tem->chave := aCSV[n,2] Tem->Carta := aCSV[n,3] Tem->codigo := aCSV[n,4] Tem->caixa := aCSV[n,5] Tem->Conteudo := aCSV[n,6] tem->ano := aCSV[n,7] tem->data := ctod(aCSV[n,8]) tem->vencto := ctod(aCSV[n,9]) Tem->( dbUnlock() ) NEXT

Isso mesmo, valeu, grato

Prezados, boa-tarde! As antigas versões do Excel tinham a opção de salvar em formato dbf, agora não tem mais. Alguém sabe qual o formato que devo "salvar como" para poder fazer um append from. Grato.

Sei que ultimamente tem sido difícil fazer o encontro, o final do ano está chegando.

Valeu Theotokos, agora sim foi, obrigado pela paciência e aos demais meus agradecimentos por responder.

Alessandro, vou desistir de array e fazer de outra forma com uma tabela .dbf, não deu certo

Pois é não declarei, vou fazer isso em casa e reporto.

Já está como PUBLIC no prg, e ITEMNS deu erro de var não encontrada oLbx. Vou tentar da forma que o Alessandro postou, acho que deve ser isso mesmo, mas tem que somente a noite, não estou em casa. O que quero é pegar informações de erro durante a importação de um arquivo do excel para ser corrigido, e creio que array é a melhor forma. Grato pela atenção!

Judson, grato por responder. Fiz isso e dá erro de var não encontrada: oLbx Não declarei a var vou tentar, não estou em casa agora somente a noite.

Não estou conseguindo mostrar as linhas no listbox: static aErro := {} ... AADD(aErro,"Tem erro no Flexfield da linha "+alltrim(str(Q))+" recurso NV") AADD(aErro,"Tem valor zero na linha "+alltrim(str(Q))+" recurso NV") ... DEFINE DIALOG oDlg FROM 2, 2 TO 20, 50 @ 1, 1 LISTBOX oLbx FIELDS aErro[oLbx:nAt,1] OF oDlg SIZE 150, 100 oLbx:SetArray(aErro) @ 10, 9 BUTTON "&End" OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED Aparece somente duas linhas com T (True)

Alguém tem o arquivo do plano de contas da escrituração contábil fiscal (ECF), aquele que vem no manual de orientação do laeiaute da ECF, que a Receita disponibiliza em PDF. Preciso em arquivo DBF, Excel etc...

Valew Ariston, vou fazer dessa forma que vc postou, obrigado e feliz ano novo. Abraços.

Boa noite, Estou exportando uma tabela para o excel e quero fazer um sort (classificar) direto do aplicativo no ambiente do Excel, segue a parte que exporta uma das guias. Após exportar quero fazer o sort lá no Excel. // Seleciona a guia MONTAGEM para preenchimento oExcel:Sheets("MONTAGEM"):Select() oMeter:cCaption := "Guia MONTAGEM" oHoja := oExcel:Get( "ActiveSheet" ) dbSelectArea( "mon" ) mon->( dbGoTop() ) FOR nCol := 1 TO FCOUNT() oHoja:Cells( nRow, nCol ):Value := FieldName( nCol ) NEXT DO WHILE .NOT. EOF() nRow++ FOR nCol := 1 TO FCOUNT() if ValType( FieldGet( nCol ) ) = "D" // se for campo data converte p/string oHoja:Cells( nRow, nCol ):Value := dtoc(FieldGet( nCol )) else if ValType( FieldGet( nCol ) ) = "N" // se for campo numérico oHoja:Cells( nRow, 7 ):NumberFormat = "###.##0,00" // FORMATAR numerico else oHoja:Cells( nRow, nCol ):NumberFormat = "@" // FORMATAR TEXTO endif oHoja:Cells( nRow, nCol ):Value := FieldGet( nCol ) endif NEXT oMeter:Set(++nCount) oMeter:nTotal := mon->( RecCount()*1 ) oText:SetText(" Exportando guia Montagem - Registro : "+str(nCount,6)+"/"+str(oMeter:nTotal,6) ) SKIP ENDDO

Alexandre, pode compartilhar sua solução? Grato.

Se estiver selecionado ele apaga oGet1:bGotFocus := { || oGet1:SelectAll() } // manter selecionado

lembro desse comando em APL (A Programing Language, mainframe), que se refere ao valor maior de uma lista ou referência.

Prezados, Grato pelos retornos, vou verificar.

Boa noite! Preciso capturar as quantidades de "likes" ou acessos de um determinado site (mistura urbana p.e.) e trazer para um banco de dados. Alguém já fez isso?

Herberson, Realmente precisa ter muita coragem e dedicação para encarar um desafio desse, Parabéns pela tentativa. Rubens

01 - Herberson Carlos Gontijo (Hergon) - Belo Horizonte / MG - (01 chalé - 2 pessoas) 02 - Claudia M. R. Glória Gontijo (Cacau7) - Belo Horizonte / MG (Acompanhante) 03 - AnaCatacombs - Cianorte / PR 04 - João ** preencher o nome completo ** (Joaosolution) - Contagem / MG (01 chalé - 2 pessoas) 05 - ** Favor preencher o nome** acompanhante João (Acompanhante) 06 - Nárlem - Belo Horizonte / MG - ( 01 chalé - 1 pessoa ) 07 - Vander Lúcio Nunes (VLNunes) - João Monlevade / MG 08 - Gilmer - Sorocaba / SP 09 - Evandro G. de Paula - Curvelo / MG - ( 01 chalé - 1 pessoa ) 10 - Cleber Ribeiro Conde - Caratinga / MG 11 - Vailton Renato - Sorocaba / SP 12 - José Manoel da Silva - São Paulo / SP 13 - Rodrigo Portugual - São Paulo / SP 14 - Roberto Júnior - São Paulo / SP 15 - Wesley Rodrigues - São Paulo / SP 16 - Luiz Roberto SERVULO Diadema/SP 17 - Leonardo Guimarães(LHSISTEMAS) Vitória-ES 18 - Helder Angelo Fiorotti(LHSISTEMAS) Vitória-ES 19 - Marcio Eduardo Teixeira - Visconde do Rio Branco - MG 20 - Rubens Martins (RUBENSMA) - São Paulo - SP - (01 chalé - 2 pessoas) 21 - Maria A. F. O. Martins - São Paulo - SP (Acompanhante)

Bom-dia! Seria possivel abrir um PDF e salva-lo em formato txt via programa?

João, é isso mesmo que estou fazendo porém não mostra todas as pastas. Trata-se da terceira sub-pasta. No diretório tem 13 pastas mas aparem 9, Estou no windows XP.

Bom dia carissimos. Estou com esse problema, o WS não mostra todas as pastas do diretório, somente algumas. Estou indo pelo "abrir com..." que resolve. Será que tem limite para abrir?

Boa-tarde. Eduardo, poderia mostrar como faz p/compilar no modo console. É para não ter que carregar tudo na xDev cada vêz de testar algo, realmente seria mais prático.