Rogerio Figueira

Pode ser algo na classe tsmtp que vc está usando. Eu tive que fazer uns ajustes por causa de autenticação. Vou mandar no seu e-mail o tsmtpt

João, comentei no código. Tente agora.

Eu uso uma solução que funciona bem, só não funciona se o usuário bloquear pelo firewall o envio de msgs pelo programa, mas tem avisos de alerta sobre isso. Sempre que o programa abre, verifica se tem error.log IF file("ERROR.LOG") IF SendMail(oWmaster) ..... //--------------- //------------------------------------------------------------ function SendMail(oWmaster) local oOutMail, oIP, mailport := 587, mailauth := .T., usuario:="nome@meudominio", senha:="asenha" local errorlog := memoread("error.log") WsaStartUp() oIP :=GETHOSTBYNAME("mail2.meudominio.com.br") //msginfo(oIP,"oIP") If oIP = "0.0.0.0" DelLog:=.f. WsaCleanUp() return .f. End mailport := 587 oWmaster:SetMsg( "Sending Internet email..." ) oOutMail:=TSmtpt():New(GETHOSTBYNAME("mail2.meudominio.com.br")) oOutMail := TSmtpt():New(GETHOSTBYNAME("mail2.meudominio.com.br"), mailport, mailauth , usuario, senha) if Log_SMTP ooutMail:oSocket:lDebug := .T. ooutMail:oSocket:cLogFile := "smtp.log" end oOutMail:bConnecting = { || oWmaster:SetMsg( "Connecting" ) } oOutMail:bConnected = { || oWmaster:SetMsg( "Connected" ) } oOutMail:bDone = { || oWmaster:SetMsg( "Message sent successfully" ) , oOutMail:end(), WsaCleanUp() } oOutMail:SendMail( "nome@meudominio",; // From { "praonde@meudominio" },; // To Ver+CRLF+"From:"+vemail+CRLF+s_ua+CRLF+vrodape1+CRLF+vrodape2+CRLF+vwww+CRLF+"Hd:"+subs(alltrim(str(nSerialHD())),1,8)+"."+subs(alltrim(str(nSerialHD())),9,3)+CRLF+logo+CRLF+ ":=:=:=:=:=:"+CRLF+errorlog,; // Msg Text top_rel,; // Subject {} ,"t","") // attached files return .t. //-------------------- no meu dominio criei usuario de e-mail somente para isso. autentica nele para enviar conta criada unicamente para isso então recebo a toda hora o error.log e a identificação do usuário serve muito bem prá pegar piratas também. []´s

Obrigado pelo contato José Carlos Vou te mandar e-mail. []´s

Colegas preciso urgente de uma solução para isso, não consegui resolver. Para todos os demais bancos funciona bem, exceto para o maledeto Santander. Não gera o nosso número e consequentemente o codigo de barras. O cliente já está prá me dispensar e nem vai pagar o trabalho que já fiz e claro, as crianças vão ficar sem leite. Alguém está usando o Mr_boleto com o Santander? []´s

Eu acho muito mais importante a possibilidade de migrar para Android. Infelizmente não existe ainda uma possibilidade tranquila de migrar nossas aplicações. Me vejo perdendo mercado a cada dia. Como falado acima, ainda é mais interessante manter nossos programas em 32 bits, pois roda em qualquer windows e equipamento ainda em uso.

Nardey você conseguiu gerar boleto para o Santander? Para mim está gerando erro no código de barra e não cria o Nosso número.

Judson, vc não pode colocar Linux no servidor? Nos clientes que fizeram isso, a quantidade de problemas e necessidades de reindexação caiu bastante. Faça um teste pelo menos.

Arlindo, veja aqui a solução: http://fivewin.com.br/index.php?/topic/21266-emissao-de-boletos/page-2#entry263917

Arlindo pegue aqui: http://stonesoft.com.br/hb/Harupdf.zip Estou linkando tudo isto: LIBFILES = E:\FWH13\lib\Fivehx.lib \ E:\FWH13\lib\FiveHC.lib \ E:\XHARBOUR13\lib\rtl.lib \ E:\XHARBOUR13\lib\vm.lib \ E:\XHARBOUR13\lib\gtgui.lib \ E:\XHARBOUR13\lib\lang.lib \ E:\XHARBOUR13\lib\macro.lib \ E:\XHARBOUR13\lib\rdd.lib \ E:\XHARBOUR13\lib\dbfntx.lib \ E:\XHARBOUR13\lib\dbfcdx.lib \ E:\XHARBOUR13\lib\dbffpt.lib \ E:\XHARBOUR13\lib\hbsix.lib \ E:\XHARBOUR13\lib\debug.lib \ E:\XHARBOUR13\lib\common.lib \ E:\XHARBOUR13\lib\pp.lib \ E:\XHARBOUR13\lib\pcrepos.lib \ E:\XHARBOUR13\lib\ct.lib \ E:\XHARBOUR13\lib\zlib.lib \ E:\XHARBOUR13\lib\hbzip.lib \ E:\XHARBOUR13\lib\haru\hbhpdf.lib \ E:\xHARBOUR13\lib\haru\hbzebra.lib \ E:\xHARBOUR13\lib\haru\libharu.lib \ e:\xHarbour13\lib\tip.lib \ E:\XHARBOUR13\lib\haru\png.lib \ E:\BORLAND\bcc582\lib\cw32.lib \ E:\BORLAND\bcc582\lib\import32.lib \ E:\BORLAND\bcc582\lib\uuid.lib \ E:\BORLAND\bcc582\lib\psdk\odbc32.lib \ E:\BORLAND\bcc582\lib\psdk\rasapi32.lib \ E:\BORLAND\bcc582\lib\psdk\nddeapi.lib \ E:\BORLAND\bcc582\lib\psdk\msimg32.lib \ E:\BORLAND\bcc582\lib\psdk\psapi.lib \ E:\BORLAND\bcc582\lib\psdk\iphlpapi.lib \ E:\BORLAND\bcc582\lib\psdk\wininet.lib []´s

Sim, consegui. Qual a sua dificuldade?

João, uma dica que peguei em algum fórum, foi esta: #define HKEY_LOCAL_MACHINE 2147483650 #include "FiveWin.ch" Function Main() local oReg oReg := TReg32():New( HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters" ) oReg:Set("EnableOplocks", "00000000") oReg:Set("CachedOpenLimit", "00000000") oReg:Set("Autodisconnect", "ffffffff") oReg:Set("EnableOplockForceClose", "00000001") oReg:Set("MaxKeepSearch", "000000b4") oReg:Set("MinKeepSearch", "0000000a") oReg:Set("ScavTimeout", "0000000a") oReg:Set("ThreadPriority", "00000002") oReg:Close() If MsgYesNo("É Necessário Reiniciar o Computador"+CRLF+"Deseja Reiniciar Agora?","Reiniciar") oWndMain:End() WinExec( "ShutDown -s" ) End RETURN NIL Só que o usuário tem que executar como adm em cada terminal, mas muitos não fazem. Fladimir, a explicação que encontrei foi esta: Detalhes aqui: http://support.microsoft.com/kb/296264/en-us

Judson eu também sofro com esse tipo de problema. O motivo está na desgraça da rede windows que a maioria dos clientes utiliza. Aqueles que passaram a usar um servidor com Linux e o Samba para o compartilhamento na rede windows, quase não têm problema. Já tentei todas as opões que achei nos fóruns, nada resolveu 100%. Algo que ajuda bastante é desabilitar o OpportunisticLocking em todas as máquinas da rede. Segue o que deve ser executado: [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\LanmanWorkstation\Parameters] ; Disable oplocks "UseOpportunisticLocking" = dword:00000000 "EnableOpLocks" = dword:00000000 "EnableOpLockForceClose" = dword:00000001 ; Disable file caching - effectively forces a commit back to the server "UtilizeNtCaching" = dword:00000000 ; Unlocks data immediately in response to an unlock request (improves performance on W2K) "UseUnlockBehind" = dword:00000001 ; Allows data to be read even if another station has a lock in place - can prevent "deadly embrace" "UseLockReadUnlock" = dword:00000000 ; This one appears to be present in W2K onwards, although by default it isn't ; actually in the registry. We'll add it & explicitly disable the workstation ; asking for oplock support [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\MRXSmb\Parameters] "OplocksDisabled" = dword:00000001 []´s

Estou usando o MrBoleto com xHb, funciona bem. Se alguém precisar ajuda, solicite. Preciso agora implementar o envio dos arquivos CNAB. Não pretendo usar o Cobrebem, já deu muito trabalho implementar a emissão de boletos. Alguém tem rotina pronta para gerar e enviar o arquivo CNAB? []´s

O valor está bem tentador. Não mudei ainda pois tem muito cliente ainda com máquinas antigas, eu teria que ter dois programas em paralelo com dupla manutenção. Acho conveniente esperar um pouco mais para que a maior parte dos clientes passem para win64.

Precisa mudar bem pouca coisa no código da classe em mrboleto.prg . Onde aparece Method Draw_Zebra( ... ) mudar para Method Draw_Zebra() e na linha 1606 hb_zebra_draw( ::hZebra_______, {| x, y, w, z ... muda para hb_zebra_draw( ::hZebra_______, {| x, y, w, z | HPDF_Page_Rectangle( ::oPage, x, y, w, z ) }, 30, 10, 0.4, 40 ) que na verdade, muda os ... pelos 4 parâmetros finais 30, 10, 0.4 , 40 que são: posição horizontal do início da barra, posição vertical do início da barra, espessura e espaçamento das barras, altura das barras. Então, modificando os 4 parâmetros finais vc modifica as barras.

Obrigado Cristovam, já utilizei e fiz o sistema funcionar. Se você ainda não conseguiu gerar o código de barras, me fale que posto aqui as mudanças que fiz na classe e agora gera o código de barras. Ainda estou apenas com um pequeno problema na geração do código numérico do cod. bar.

Crisvam segue formiga arroba bol.com.br

Crisvam a lib libharu.lib não tenho em nenhuma instalação do harbour ou xharbour. As libs hbhpdf.lib e hbzebra.lib são do harbour, certo?

Quais as libs que você está linkando? Eu consegui compilar tudo, mas dá erro na abertura do executável Nome do Módulo de Falhas: HBHPDF-32-BCC.DLL

Sim, uso o xHarbour e o MRboleto foi feito para harbour, porém parece que teve colegas que conseguiram faze-lo rodar. Testei a outra solução que é o Hbrboleto, ele roda porém não gera o boleto em pdf, somente em html, que não serve para meu cliente. O Mrboleto é perfeito, somente não consegui fazer ainda compilar usando xHarbour e as bibliotecas harbour que ele utiliza. Tentei converter todo o sistema para Harbour, mas começou a dar muita mão de obra, utilizo também nesse sistema as rotinas de nfe do Gilmer. []´s

Amigos, estou perguntando no mesmo tópico para centralizar as dúvidas. Seguinte, compilei o MRBoleto no meu sistema, uso o xHarbour. Compilou ok, mas quando abro o aplicativo, solicita uma dll que não está no pacote e não encontrei em lugar algum: HARBOUR-32-BCC.DLL Existe uma lib com esse nome harbour-32-bcc.lib que está sendo linkada. Onde encontrar a DLL ? ou o motivo do erro é outro? []´s

Blz, faltava editar o bat que chama o compilador e alterar os caminhos. Tks Agora os erros são outros, tenho que adequar o código. Muitos anos sem atualizar dá nisso. []´s

Kapiaba, a minha versão do five é oficial sim, comprei a última atualização em dezembro e recebi a atualização de fevereiro. []´s

Ok vi a dica do bcc582 e passei para ele. Compilou, sem os erros, agora somente este: Module: 'CP.prg' was compiled into PCODE version: 9,this version of xHarbour expects version: 10 Onde altero essa opção de compilação??? []´s