supi

TEM COMO CONVERTER SIM. voce pode pegar esse arquivo .ARQ e descobrir o tamanho do registro. feito isso, pode abri-lo fopen , lendo caracter por caracter , até atingir o tamanho do registro ( que voce terá que descobrir antes ), daí vai montando um outro arquivo com o tamanho total deste registro. ....feito isso , voce deverá descobrir depois os campos ........mas depois de gerado o outro arquivo em formato texto ou dbf (com o tamanho total do registro) , ficará + facil. SUPI

OK Neste caso pode fazer o seguinte .......telaprincipal VERGET1() Function verget1() do while .t. verget2() if empty(CODIGO_CLIENTE) exit endif // aqui no caso se o cod. do cliente // estiver vazio fecha e retorna // caso contrario ao pressionar o ESC e tiver // cod. do cliente volta novamente para a tela enddo return .t. static function verget2() ... aqui a sua dialog >>> tive um caso parecido e resolvi dessa forma. SUPI

Se possivel enviar para supi@supi.com.br *agradecimentos a quem puder ajudar SUPI

Alguem poderia me mandar ou postar aqui um exemplo + as lib´s e ou arquivos que tenho que usar com tsbutton??? Ja olhei os exemplos aqui , tem apenas a lib, mas nao tem para fwh Precisaria da lib para harbour e de um exemplo .prg de uso. SUPI

Alguem poderia me mandar ou postar aqui um exemplo + as lib´s e ou arquivos que tenho que usar com tsbutton??? Ja olhei os exemplos aqui , tem apenas a lib, mas nao tem para fwh Precisaria da lib para harbour e de um exemplo .prg de uso. SUPI

Alguem poderia me mandar ou postar aqui um exemplo + as lib´s e ou arquivos que tenho que usar com tsbutton??? Ja olhei os exemplos aqui , tem apenas a lib, mas nao tem para fwh Precisaria da lib para harbour e de um exemplo .prg de uso. SUPI

BANESPA - cobranca =================== tipo de registro 1 reg1--------------------------- (1o. registro) CODREG C 1 0 CODREMESSAC 1 0 LITERAL C 7 0 CODSERVICOC 2 0 LITSERVICOC 15 0 CODEMPRESAC 11 0 BRANCOS1 C 9 0 NOMEMPMAE C 30 0 CODBANCO C 3 0 NOMEBANCO C 7 0 FILLER C 8 0 DATAGRAVA C 6 0 DENSIDADE C 5 0 UNIDADE C 3 0 BRANCOS3 C250 0 BRANCOS4 C 36 0 SEQUENCIA C 6 0 registro dos titulos ------------------------------------- (tipo2) CODREG C 1 0 TIPOINSCR C 2 0 NUMEINSCR C 14 0 CODEMPRESAC 11 0 BRANCOS1 C 9 0 USOEMP C 25 0 AGECOBR C 3 0 NOSSONUM C 7 0 FILLER C 10 0 OPERACAO C 25 0 CARTEIRA C 1 0 CODOCO C 2 0 SEUNUMERO C 10 0 VENCIMENTOC 6 0 VALOR C 13 0 BANCO C 3 0 PREAGE C 5 0 ESPECIE C 2 0 ACEITE C 1 0 DATAEMI C 6 0 INSTRU1 C 2 0 INSTRU2 C 2 0 JURO1DIA C 13 0 DATALIMITEC 6 0 VALDESC C 13 0 VALORIOF C 13 0 ABATIMEN C 13 0 TIPOCGCCPFC 2 0 CGCCPF C 14 0 NOME C 40 0 ENDERECO C 40 0 BAIRRO C 12 0 CEP C 8 0 CIDADE C 15 0 ESTADO C 2 0 SACADOR C 40 0 PRAZO C 2 0 FILLER2 C 1 0 SEQUENCIA C 6 0 *** registro final (tipo 9) CODREG C 1 0 BRANCOS1 C200 0 BRANCOS2 C193 0 SEQUENCIA C 6 0 SUPI

BRADESCO ========= Segue abaixo estrutura para voce gerar cobranca bradesco, monte um dbf ---------- reg 1 CODREG_CBMC 1 0 REGCOD_CBMC 1 0 IDEARQ_CBMC 7 0 REGMMM_CBMC 2 0 INDSER_CBMC 15 0 CODEMP_CBMC 20 0 NOMEMP_CBMC 30 0 NUMBAN_CBMC 3 0 NOMBAN_CBMC 15 0 DATGRA_CBMC 6 0 BANCOS C 8 0 IDENSIS C 2 0 SEQREM_CBMC 7 0 BRANCO2 C200 0 BANCO3 C 77 0 SEQREG_CBMC 6 0 + o de titulos ------- tipo2 CODREG_CB C 1 0 AGENCIADEBC 5 0 DIGAGDEB C 1 0 RAZAO C 5 0 CONTA C 7 0 DIGCONTA C 1 0 IDEMEMPBANC 17 0 CONTROLE C 25 0 CODBANCO C 3 0 ZEROS1 C 5 0 IDENTITBANC 12 0 DESCDIA C 10 0 CONDPAP C 1 0 INDENTPAP C 1 0 IDENOPBAN C 10 0 INDRATEIO C 1 0 ENDAVISO C 1 0 BRANCOS2 C 2 0 OCORRENCIAC 2 0 NUMDUP C 10 0 DATVEN_CB C 6 0 VALTIT_CB C 13 0 NUMBAN_CB C 3 0 AGECOB_CB C 5 0 ESPTIT_CB C 2 0 CODACE_CB C 1 0 DATEMI_CB C 6 0 CODINS1_CBC 2 0 CODINS2_CBC 2 0 JURDIA_CB C 13 0 DATDES_CB C 6 0 VALDES_CB C 13 0 VALIOF_CB C 13 0 VALABA_CB C 13 0 TIPSAC_CB C 2 0 CGCSAC_CB C 14 0 NOMSAC_CB C 40 0 ENDSAC_CB C 40 0 MENSA1 C 12 0 CEPSAC_CB C 8 0 MENSAGEM C 60 0 SEQREG_CB C 6 0 monte mais um ultimo, usando a estrutura do tipo 2 somente com 9 no 1o. campo + o numero de sequencia. (SEQREG_CB) formate os campos de valores e numericos com 0(zeros) ............... JUNTE TUDO DEPOIS NUM DBF E GERE O TXT. FINAL. SUPI

UMA OUTRA COISA TAMBEM É O SEGUINTE: Se voce tiver em rede, tipo, acessando o hd de outro equipamento, procure direcionar os arquivos temporarios DBFs e indices sempre para C: local, aí fica bem + rapido. SUPI

só pra completar.... pode ser assim tambem: ----------------------- use arquivo copy stru extended to arq1 use arq1 copy to arq1.txt SDF SUPI

tive um caso parecido tambem.... Experimente minimizar depois maximizar a JANELA. exemplo: ownd1:minimize() WAITRUN("programa.bat") ou WAITRUN("programa.exe") ownd1:maximize() ....dessa forma o foco voltará para a ownd1 eu espero né hehehehehe valew SUPI

tenho usado o pellesc, e qdo. há necessidade de duplicar dialog, para não ter problemas , entro na atual, seleciono tudo e copio, ....depois crio a nova e colo ... daí sem erro, depois voce muda o nome ... Aí é sem erro. ........... e mantenha sempre backup , principalmente se tiver usando dll. SUPI

Qual windows tá sendo utilizado ? NO XP dá menos problemas. E o FW , qual a versao? SUPI

Como faco para adquirir a VLIB? supi supi@supi.com.br

Como faco para adquirir a VLIB? supi supi@supi.com.br

Como faco para adquirir a VLIB? supi supi@supi.com.br

REATIVANDO ESSE TOPICO ................ Precisaria de algo que gerasse o .PDF automaticamente , da mesma forma que é feito na VLIB . ...ou seja , com um PREVIEW gerado, gerar o PDF automaticamente... Alguem dá uma luz aí? Com o PAPERLESS printer vai bem, porém depende de utiliza-lo como uma impressora, aí nao fica muito legal. SUPI

PELO SMTPSEND.EXE nao serve.? basta voce dispara-lo ao clicar em um botao enviaR: solucao simples sem perda de tempo: mdestino="email@uol.com.br" morigem="seumail@seumail.com.br" massunto="Assunto do email" mnomeanexo="c:\windows\temp\planilha1.xls" Mcomando ="smtpsend.exe "+; "-f"+morigem +; "-t"+mdestino +; " -s"+massunto + ; " -ic:\windows\temp\corpo.txt"+; " -a"+mnomeanexo +; " -hmail.seuprovedor.com.br >> c:\windows\temp\resmail.txt" WINEXEC (MCOMANDO) .... no exemplo acima, voce devera´ gerar um arquivo em c:\windows\temp\corpo.txt com o texto que sera´ o corpo do email apenas . Em c:\windows\temp\resmail.txt voce terá um resultado do envio do email, se foi mesmo ou se houve algum erro. Fiz até um prog. para envio de email, utilizando esse processo: http://www.zamba.com.br/lms/instala_email.exe SUPI

SOBRE A LENTIDAO, .... apos varios testes , utilizando arquivos .DBF em rede principalmente, o ideal é usar no LISTBOX de um dbf, simples , sem troca de cores ou pesquisa incremental. ....a incremental por exemplo , se nao for em uma maquina muito boa fica quase que impossivel utiliza-la. DEIXE O LISTBOX sem nada mesmo que ficará tudo rapidinho, principalmente em maquinas "Lata-véia". SUPI

Este caso nao seria porque voce chamou o seu executavel atraves de um .bat , ou de um atalho para um .bat ? ...ACHO QUE APOS CHAMAR UM .EXE DENTROD E UM .BAT , A JANELA DOS FICA AGUARDANDO E ABERTA. EXPERIMENTE CRIAR ATALHO DIRETO PARA O EXECUTAVEL OU EM INICIAR/EXECUTAR , RODAR O EXECUTAVEL. .... SUPI

Olá acho que voce mecher com sintegra.dll seria meio desnecessario. ... voce pode montar varios .dbf para cada tipo de registro 10 50 54 75 etc... depois joga-los pra .txt .... derepente fica + facil e voce controlaria melhor o sistema, além de depender apenas de voce. Se quiser, posso lhe passar os .dbfs que venho utilizando , já estao todos montados , prontos pra voce gravar depois gerar o .txt exemplo: use sint10 go 1 // apenas um registro replace ......... nos campos REPL TIPO WITH "10" REPL CGC WITH ".................... REPL ............. copy to sint10.txt sdf use sint50 ......... copy to sint50.txt sdf. ... por fim. voce abre um sintegra.dbf com o tamanho total do registro. USE SINTEGRA EXCLUSIVE ZAP APPEND FROM SINT10.TXT SDF APPEND FROM SINT50.TXT SDF APPEND FROM SINT54.TXT SDF ............. COPY TO SINTEGRA.TXT SDF .......... SUPI supi@supi.com.br

aproveitando o embalo. .... no caso da folder, QDO. UTILIZO REDEFINE FOLDER.......... ....usando uma dll , convertida para 32 bits, nao aparece, o que deve ser feito na mudanca para fwh . SUPI

postado TCBROWSE.CH para o caso de estar precisando dele tambem. SUPI *obs: se nao for isso, desculpa aí a cagada.

outro louco as 2 da manha respondendo. EU ACHO QUE O SEU ERRO É POR CAUSA DO TCBROWSE.CH Vocé está usando mesmo o TCBROWSE neste caso? se tiver, observe no item .... browse algum erro de sintaxe , que as vezes ocorre no FWH mas nao no FWCLIPPER. se tiver usando o TCBROWSE deixe mais ou menos assim ... REDEFINE BROWSE kolbx ID 105 OF odlg ; "titulo" FONT fontms SUPI

kbelo, com o fwh , se tiver mais de 1 ou 2 indices , de uma olhada aí, que com & , dá problema sim viu .... com certeza , melhor voce usar use (arq) .... = 0(zero) ERRO. SUPI