Paulo1361303230

Boa tarde a todos! Estou com dificuldades para excluir o arquivo c:\tef_dial\resp\intpos.001 Quando realizo uma operação normal o arquivo é excluido normalmente, porem quando executo o teste de desligar a impressora durante o cupom gerencial e ao reimprimir, não é possível excluir o bendito arquivo, pois me parece que ele fica preso. Já tentei fclose, fErase, rezar etc etc e nada. Mas, se eu sair do sistema, ao retornar consigo excluir tranquilamente. Alguem já passou por isto? Será que existe algum comando que force o fechamento do referido arquivo? Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa tarde a todos! Estou com dificuldades para excluir o arquivo c:\tef_dial\resp\intpos.001 Quando realizo uma operação normal o arquivo é excluido normalmente, porem quando executo o teste de desligar a impressora durante o cupom gerencial e ao reimprimir, não é possível excluir o bendito arquivo, pois me parece que ele fica preso. Já tentei fclose, fErase, rezar etc etc e nada. Mas, se eu sair do sistema, ao retornar consigo excluir tranquilamente. Alguem já passou por isto? Será que existe algum comando que force o fechamento do referido arquivo? Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Gilmer Concordo plenamente com a sua posição. A maioria dos colegas participantes deste fórum, ao desenvolverem seus sistemas colocam proteção anti-pirataria demonstrando que não querem em hipótese alguma que o seu sistema seja distribuido aleatóriamente e consequentemente desvalorizando o seu árduo trabalho que muitas vezes são desenvolvidos até nas madrugadas, domingos e feriados. Como não sou hipócrita (e acho que voce me conhece muito bem), da mesma forma que cobro pelo meu trabalho, e não querendo tomar prejuizos, lógicamente que a linguagem que utilizo para o desenvolvimento do meu sistema tambem deve ser original onde tambem sei a quem recorrer ao encontrar algum problema. Portanto,como voce descreveu neste tópico,colegas nossos que adquirem o FW e distribuem através de consórcios ou outros meios ilegais, são realmente hipócritas alem de ser tambem uma atitude desonesta (Considero roubo). Assim como eu pago e paguei pelo FW, ninguem é melhor que ninguem e cada um deve assumir suas responsabilidades. Portanto caros colegas, aqueles que estão agindo de "má fé" como mencionado pelo Sr.Gilmer, regularizem-se e saiam desta prática desonesta. Desculpem-me pela franqueza e sinceridade. Caso minha resposta não seja conveniente, solicitos aos senhores moderadores que podem excluir a mesma sem prévio aviso. Abraços à todos Digam NÃO à pirataria. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 06/01/2009 13:22:24

Ralmente Marcelo, tive problemas na homologação justamente por confiar no travamento de teclado da DLL onde hoje estou utilizando o travamento do teclado através do Windows. Aproveito a oportunidade para desejar-lhe um excelente final de semana. Um grande abraço. José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Boa Noite! Kapiaba (João), Kbelo (Marcelo), Gunafe(Luiz) Agradeço a todos pela ajuda mais consegui solucionar o problema utilizando os comandos tradicionais de impressão linha a linha e consequentemente os comandos tambem tradicionais. Abre cupom Gerencial vinculado Usa cupom gerencial vinculado Fecha cupom gerencial Portanto o comando anterior, visava facilitar o programador de digitar menos linhas de códigos, porém como no FWH apresentou os problemas relatados anteriormente. Mais uma vez agradeço pela atenção dispensada. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Marcelo, boa noite! Procedí da forma em que voce sugeriu, porem o erro assim mesmo ainda persiste. Agradeço-lhe pelo interesse em ajudar. Como a mensagem é do Windows, ainda estou achando que é algum problema relacionado com a DLL. Mas se porventura voce possuir ou meio que possa ajudar lhe agradeço. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Amigos. Estou migrando de FW for Clipper para FWH xHarbour, onde a declaração abaixo utilizada para IF Daruma (MFD) funcionava corretamente no (FW 195) 16 bits. Agora com uma versão mais atualizada FWH, o sistema reconhece todas os demais comandos da referida impressora, que imprimem corretamente. Porem, ao imprimir qualquer relatório gerencial e antes de concluir totalmente, o Windows envia a janela para enviar relatório de erros para a MICROSOFT, sendo que não apresenta erro enviado pelo meu sistema. Será que para 32 Bits, existiria alguma mudança nos comandos abaixo? Obrigado! //Reimpressao TEF ELSEIF nCmd = 52 nRet := DaCupAdAbi("c:\tef_dial\resp\intpos.001"," ","1") ************************************************** function abrevin52() // Gerencial TEF ************************************************** MsgRun("Cupom Vinculado","Aguarde...",{||xdll:=loadlib32('daruma32.dll')}) xDll := LoadLib32("DARUMA32.DLL") nRet := 0 IF .NOT. GrvCmdFis(52,NIL,3,@nRet) RETURN nil ENDIF //Reimpressao TEF DLL32 FUNCTION DaCupAdAbi( Caminho AS STRING,; travatec AS STRING ) AS LONG PASCAL ; FROM "Daruma_TEF_ImprimirResposta" LIB xDll José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Amigos. Estou migrando de FW for Clipper para FWH xHarbour, onde a declaração abaixo utilizada para IF Daruma (MFD) funcionava corretamente no (FW 195) 16 bits. Agora com uma versão mais atualizada FWH, o sistema reconhece todas os demais comandos da referida impressora, que imprimem corretamente. Porem, ao imprimir qualquer relatório gerencial e antes de concluir totalmente, o Windows envia a janela para enviar relatório de erros para a MICROSOFT, sendo que não apresenta erro enviado pelo meu sistema. Será que para 32 Bits, existiria alguma mudança nos comandos abaixo? Obrigado! //Reimpressao TEF ELSEIF nCmd = 52 nRet := DaCupAdAbi("c:\tef_dial\resp\intpos.001"," ","1") ************************************************** function abrevin52() // Gerencial TEF ************************************************** MsgRun("Cupom Vinculado","Aguarde...",{||xdll:=loadlib32('daruma32.dll')}) xDll := LoadLib32("DARUMA32.DLL") nRet := 0 IF .NOT. GrvCmdFis(52,NIL,3,@nRet) RETURN nil ENDIF //Reimpressao TEF DLL32 FUNCTION DaCupAdAbi( Caminho AS STRING,; travatec AS STRING ) AS LONG PASCAL ; FROM "Daruma_TEF_ImprimirResposta" LIB xDll José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Obrigado Valdecir, vou verificar, funcionando ou não eu lhe avisarei ok? Abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com Editado por - Paulo on 17/11/2008 17:35:17 Editado por - Paulo on 17/11/2008 17:35:59

Valdecir Só não consigo entender porque não está funcionando, tendo em vista que utilizei todos os comandos da Bematech substituindo para Elgin Ex.: Onde era Bematech_FI_LeituraX mudei para Elgin_LeituraX Ainda acho que o problema está ao verificar se a impressora está em linha ou não. Se voce possuir algum exemplo a respeito, agradeço-lhe imensamente. Abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá Valdecir Agradeço por responder, minhas declarações acredito que estejam corretas, o problema maior deve ser para o sistema localizar a Dll. Portanto, ainda acho que deve ser alguma coisa na abertura da impressora fiscal conform expus acima. A sugestão que voce postou está praticamente iguais às minhas. Tentei várias formas sem obter êxito. Abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá colegas, boa tarde! Assunto: Impressora Elgin MFD FIT 1E Comandos: Utilizei os mesmos comandos da Bematech, alterando somente para Elgin Resposta: Nada é impresso, apresentando o erro abaixo. Estou enviando uma cópia parcial do fonte na forma como utilizo a DLL. Não consigo imprimir uma simplex Leitura X Onde será que estou errando? Desde já agradeço. Application =========== Path and name: C:\PLUS\fpdv00.exe Size: 1,940,800 bytes Max files handles permited: ( SetHandleCount() ) 255 Error ocurred at: 17/11/2008, 15:59:50 Error description: Error BASE/1070 Argument error: == Args: [ 1] = U [ 2] = N Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from EGRVCMDFIS(423) Called from EVERPAPEL(928) Called from ELEITURAX(916) ******************************* FUNCTION eStart() ******************************* LOCAL hBorland,bAction SET 3DLOOK ON mensagem1:='' //------------------------> CARREGA DLL eDll:=' ' beep(16) MsgRun("Carregando arquivo de comunicação da Impressora Fiscal","Aguarde...",{||eDll:=loadlib32('elgin.dll')}) MsgRun("Estabelecendo comunicação com a Impressora Fiscal","Aguarde...",{||elprintlig()}) RETURN nil //VERIFICA SE TEM IMPRESSORA LIGADA ELSEIF nCmd=10 IF(enRet:=ElPrintLig())=1 RETURN .T. ELSE RETURN .F. ENDIF //Verifica se tem impressora ligada DLL32 FUNCTION ElPrintLig( ) AS LONG PASCAL ; FROM "Elgin_VerificaImpressoraLigada" LIB eDll //EMITE LEITURA X ELSEIF nCmd = 16 enRet := ElLeituraX() *************************** function eleiturax() *************************** if fx15='X' noaut() return nil endif semaces:='S' if ycartao='S' if yleitx='S' pedecartao() endif endif if semaces='N' return nil endif if imprfis=5 beep(8) if MsgNoYes("Confirma a Execução da Leitura X?","LEITURA X" ) beep(30) MsgRun('Relatório Gerencial',"Leitura X",{||eDll:=loadlib32('elgin.dll')}) eDll := LoadLib32("elgin.dll") everpapel() MsgRun("Emissão da Leitura X (Relatório Gerencial) ","Aguarde",{||Elleiturax()}) // fpdvelg endif endif return nil José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá colegas, boa tarde! Assunto: Impressora Elgin MFD FIT 1E Comandos: Utilizei os mesmos comandos da Bematech, alterando somente para Elgin Resposta: Nada é impresso, apresentando o erro abaixo. Estou enviando uma cópia parcial do fonte na forma como utilizo a DLL. Não consigo imprimir uma simplex Leitura X Onde será que estou errando? Desde já agradeço. Application =========== Path and name: C:\PLUS\fpdv00.exe Size: 1,940,800 bytes Max files handles permited: ( SetHandleCount() ) 255 Error ocurred at: 17/11/2008, 15:59:50 Error description: Error BASE/1070 Argument error: == Args: [ 1] = U [ 2] = N Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from EGRVCMDFIS(423) Called from EVERPAPEL(928) Called from ELEITURAX(916) ******************************* FUNCTION eStart() ******************************* LOCAL hBorland,bAction SET 3DLOOK ON mensagem1:='' //------------------------> CARREGA DLL eDll:=' ' beep(16) MsgRun("Carregando arquivo de comunicação da Impressora Fiscal","Aguarde...",{||eDll:=loadlib32('elgin.dll')}) MsgRun("Estabelecendo comunicação com a Impressora Fiscal","Aguarde...",{||elprintlig()}) RETURN nil //VERIFICA SE TEM IMPRESSORA LIGADA ELSEIF nCmd=10 IF(enRet:=ElPrintLig())=1 RETURN .T. ELSE RETURN .F. ENDIF //Verifica se tem impressora ligada DLL32 FUNCTION ElPrintLig( ) AS LONG PASCAL ; FROM "Elgin_VerificaImpressoraLigada" LIB eDll //EMITE LEITURA X ELSEIF nCmd = 16 enRet := ElLeituraX() *************************** function eleiturax() *************************** if fx15='X' noaut() return nil endif semaces:='S' if ycartao='S' if yleitx='S' pedecartao() endif endif if semaces='N' return nil endif if imprfis=5 beep(8) if MsgNoYes("Confirma a Execução da Leitura X?","LEITURA X" ) beep(30) MsgRun('Relatório Gerencial',"Leitura X",{||eDll:=loadlib32('elgin.dll')}) eDll := LoadLib32("elgin.dll") everpapel() MsgRun("Emissão da Leitura X (Relatório Gerencial) ","Aguarde",{||Elleiturax()}) // fpdvelg endif endif return nil José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá João Muito obrigado Vou jogar estas instruções no meu sistema e darei um retorno. Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Ops, quis dizer "Extensão" José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia à todos! Amigos, gostaria de saber se existe alguma alternativa no FW para excluir todos os arquivos de uma determinada extensão. Como não conheço os procedimentos, criei dois executáveis em clipper onde executo através do WinExec. // amatriz.prg !cd\plus\matriz !copy \plus\*.fil !del \plus\*.fil // afilial.prg !cd\plus\matriz !copy \plus\filiais\*.fil !del \plus\filiais\*.fil Após compilados e linkados utilizo conforme segue; WinExec("amatriz.exe) Winexec("afilial.exe) Portanto, existem comandos específicos para os casos acima sem que eu utilize de outros meios? (Dos) Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia à todos! Amigos, gostaria de saber se existe alguma alternativa no FW para excluir todos os arquivos de uma determinada extensão. Como não conheço os procedimentos, criei dois executáveis em clipper onde executo através do WinExec. // amatriz.prg !cd\plus\matriz !copy \plus\*.fil !del \plus\*.fil // afilial.prg !cd\plus\matriz !copy \plus\filiais\*.fil !del \plus\filiais\*.fil Após compilados e linkados utilizo conforme segue; WinExec("amatriz.exe) Winexec("afilial.exe) Portanto, existem comandos específicos para os casos acima sem que eu utilize de outros meios? (Dos) Obrigado José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Obrigado Marciano, já utilizo desta forma, o problema é que as vezes o texto TEF retornado supera o limite de 514 porem realizei uns testes onde aceita até 560 caracteres, porem, se ultrapassar à este limite já não imprime. abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá amigos, bom dia! Minha dúvida agora é em relação à impressora fiscal Bematech referente ao tratamento do texto de retorno da TEF. Estou utilizando a rotina abaixo, porem a referida impressora permite a emissão de 514 caracteres sendo que o texto às vezes ultrapassam à este limite. Quanto ao retorno dos relatórios gerenciais, reemissão, cancelamento, movimentos etc etc o cupom está saindo incompleto. Já na impressora Daruma, todas as minhas rotina TEF estão perfeitas ficando em aberto esta questão da Bematech, tendo em vista que o suporte da Bematech está muito difícil. Desde já agradeço pela ajuda. if imprfis=1 // Bematech wcupom:=tefcup sArq := fopen( "C:\TEF_DIAL\RESP\INTPOS.001" ) iTamArq := fseek( sArq, 0, 2 ) fclose( sArq ) sArq := fopen( "C:\TEF_DIAL\RESP\INTPOS.001" ) sRetorno := " " sDadosTEF := "" sDados := "" for iConta := 1 to iTamArq sRetorno := " " fread( sArq, @sRetorno, 1 ) if asc( sRetorno ) = 10 if left( sDados, 3 ) = "029" sDados := stuff( sDados, 1, 10, "" ) sDados := strtran( sDados, '"', "" ) sDadosTEF += sDados + chr( 10 ) endif sDados := sRetorno := "" endif sDados += sRetorno next fclose( sArq ) iInicio := 1 whist:='' do while iInicio < len( sDadosTEF ) sDadosTEF1 := substr( sDadosTEF, iInicio, 48 ) whist:=whist+sdadostef1 iInicio := iInicio + 48 if iInicio>514 exit endif enddo Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá amigos, bom dia! Minha dúvida agora é em relação à impressora fiscal Bematech referente ao tratamento do texto de retorno da TEF. Estou utilizando a rotina abaixo, porem a referida impressora permite a emissão de 514 caracteres sendo que o texto às vezes ultrapassam à este limite. Quanto ao retorno dos relatórios gerenciais, reemissão, cancelamento, movimentos etc etc o cupom está saindo incompleto. Já na impressora Daruma, todas as minhas rotina TEF estão perfeitas ficando em aberto esta questão da Bematech, tendo em vista que o suporte da Bematech está muito difícil. Desde já agradeço pela ajuda. if imprfis=1 // Bematech wcupom:=tefcup sArq := fopen( "C:\TEF_DIAL\RESP\INTPOS.001" ) iTamArq := fseek( sArq, 0, 2 ) fclose( sArq ) sArq := fopen( "C:\TEF_DIAL\RESP\INTPOS.001" ) sRetorno := " " sDadosTEF := "" sDados := "" for iConta := 1 to iTamArq sRetorno := " " fread( sArq, @sRetorno, 1 ) if asc( sRetorno ) = 10 if left( sDados, 3 ) = "029" sDados := stuff( sDados, 1, 10, "" ) sDados := strtran( sDados, '"', "" ) sDadosTEF += sDados + chr( 10 ) endif sDados := sRetorno := "" endif sDados += sRetorno next fclose( sArq ) iInicio := 1 whist:='' do while iInicio < len( sDadosTEF ) sDadosTEF1 := substr( sDadosTEF, iInicio, 48 ) whist:=whist+sdadostef1 iInicio := iInicio + 48 if iInicio>514 exit endif enddo Abraços José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Agradeço a informação... mas a placa de Video influenciaria?? pois esse erro ocorre quando vou compactar um arquivo.. Grato José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia Amigos.. alguem Já passou por esse Tipo de erro!! Fivewin foi caudado uma falha de proteção em MOULO KRNL386.EXE em 0002:0FF8 Estou com esse problema.. e ja foi trocado a Maquina.. se alguem souber posta pra mim!! Grato pela atençaõ José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia Amigos.. alguem Já passou por esse Tipo de erro!! Fivewin foi caudado uma falha de proteção em MOULO KRNL386.EXE em 0002:0FF8 Estou com esse problema.. e ja foi trocado a Maquina.. se alguem souber posta pra mim!! Grato pela atençaõ José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Olá amigos Agradeço pela resposta, porem encontrei uma solução que resolveu. Antes do While e criei uma variavel denominada de wini:=´S´ No interior do while a mesma variável passou a ser ´N´ Portanto, ao acionar o CTRL ALT DEL, o mesmo entendeu que que wini estava diferente de ´S´ e não permitiu a execução da próxima tarefa. Pois o meu problema realmente como comentou o Eder não estava no While e sim na tarefa posterior ao mesmo. Obrigado à todos abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com

Bom dia amigos! Gostaria de saber se existe alguma alternativa de escape após executar-mos o ctrl alt del, dentro de uma função que esteja em lopping. Exemplo: O meu sistema está executando uma determinada função que está dentro de um "do while". Resolví executar o CTRL ALT DEL, surgiu o Gerenciador de Tarefas, onde optei em finalizar a tarefa. Tudo bem, o gerenciador encerrou a tarefa conforme solicitei, porem o referido gerenciador continua na tela onde o mesmo fica travado e consequentemente travando os demais ícones ou funções.(Acredito que seria em relação ao looping que ficou preso no sistema ao finalizar a tarefa) Neste caso, o único jeito seria reiniciar o computador ou fazer Logoff. Portanto, existe alguma função que possa impedir estes travamentos? Obrigado e abçs José Paulo H.Rodrigues Santos/SP drplus@uol.com.br adm_house@hotmail.com