alex2002

Olá Pessoal, Sugiro o Harbour Boleto sem sombra de dúvida. É só olhar o histórico do cobrebem, as alterações estão em desenvolvimento há muito, muito, muito tempo. Na verdade os caras não tem a capacidade de falar que descontinuaram o produto e ficam vendendo as licenças praticamente sem as mudanças que os bancos fazem. Eu acho isso uma falta de vergonha. Esta é a verdade. Ah, esqueci de mencionar que o Harbour Boleto não tem custo para o usuário final. Ainda tem isso.

Ta vendo. O "C" acabando fazendo o xHarbour ficar muuuuuuuiiiiiiiiiiittttttttttooooooooo poderoso e isso é muito bom.

Ta vendo, Demoraram 8 dias para dizer que estão comercializando ainda. SÓ ISSO, pq implementação NENHUMA. Eu faço a vocês o seguinte desafio. Façam isso (demorem 8 dias para responder que vcs ainda iram olhar) com o cliente de vocês e me digam se o tal cliente continua. JAMAIS.

Kapi. Quanto tempo hein meu velho? (puts, chamei ele de velho rsrsrsrsr) Olha, tem tanto tempo que fiz isso que nem me lembro. Não sei se alguem me passou ou seu eu mesmo apanhei, sinceramente não me lembro.

Faltou a geração do arquivo. Segue: if _dataregis sele aecf seek alta_cripto( cNumSerieECF ) cArqRetorno := localexe+'ATOCOTEPE_1704.TXT' ferase( cArqRetorno ) ferase( localexe+'LEITURAX.FMT') ferase( localexe+'LEITURAMF.FMT') ferase( localexe+'LEITURAMFD.FMT') ferase( localexe+'LOG.GII') sysrefresh() DT_Gera_AtoCotepePafData( 'COM'+str(aecf->porta,1), rtrim(aecf->modeloecf), cArqRetorno, dtoc(dDataInicial), dtoc(dDataFinal) ) if file( cArqRetorno ) lExecutou := .t. nHandle := fOpen( cArqRetorno, 2 ) fSeek (nHandle, 0, 2) fWrite(nHandle, CRLF) fClose(nHandle) GeraAssinaturaDigital( cArqRetorno ) endif sysrefresh() endif ///////////////////////////////////////////////// Postei parte do código devido ao programa ser grande. Mas basta ver os nomes das variáveis.

Amigo, Tenho essas que usei na homologação em 2011. Veja se ajuda. Um abraço, xdll := LOADLIB32("DLLG2.DLL") xDllAdicional := LOADLIB32("DLLG2_Gerador.dll") // Declarações DataRegis/Urano DLL32 FUNCTION DT_INICIA (Canal AS STRING) ; AS _INT PASCAL FROM 'DLLG2_IniciaDriver' ; LIB xDll DLL32 FUNCTION DT_ENCERRA(Canal AS LONG) ; AS _INT PASCAL FROM 'DLLG2_EncerraDriver' ; LIB xDll DLL32 FUNCTION DT_LISTAPARAM( Canal AS LONG, NomeParam AS STRING, ; TamList AS LONG ) ; AS STRING FROM 'DLLG2_ListaParams' ; LIB xDll DLL32 FUNCTION DT_EXECUTA(Canal AS LONG, Comando AS STRING) ; AS _INT PASCAL FROM 'DLLG2_ExecutaComando' ; LIB xDll DLL32 FUNCTION DT_CODERRO(Canal AS LONG) ; AS _INT PASCAL FROM 'DLLG2_ObtemCodErro' ; LIB xDll DLL32 FUNCTION DT_NOMERRO(Canal AS LONG, NomeErro AS PTR, ; TamNome AS PTR) ; AS STRING PASCAL FROM 'DLLG2_ObtemNomeErro' ; LIB xDll DLL32 FUNCTION DT_CIRCUNSTACIA(Canal AS LONG, Circunst AS PTR, ; TamCirc AS PTR) ; AS STRING PASCAL FROM 'DLLG2_ObtemCircunstancia' ; LIB xDll DLL32 FUNCTION DT_TIMEOUT(Canal AS LONG, Timeout AS LONG) ; AS NIL PASCAL FROM 'DLLG2_DefineTimeout' ; LIB xDll DLL32 FUNCTION DT_DEFLOG(NomeArquivo AS STRING) ; AS NIL PASCAL FROM 'DLLG2_SetaArquivoLog' ; LIB xDll DLL32 FUNCTION DT_LIMPAPARAM(Canal AS LONG) ; AS NIL PASCAL FROM 'DLLG2_LimpaParams' ; LIB xDll DLL32 FUNCTION DT_ADDPARAM(Canal AS LONG, NomeParam AS STRING, ; ValorParam AS STRING, TipoParam AS LONG) ; AS NIL PASCAL FROM 'DLLG2_AdicionaParam' ; LIB xDll DLL32 FUNCTION DT_TOTRETORNO(Canal AS LONG) ; AS _INT PASCAL FROM 'DLLG2_TotalRetornos' ; LIB xDll DLL32 FUNCTION DT_RETORNO(Canal AS LONG, Indice AS LONG, ; NomeRetorno AS STRING, TamNome AS LONG, ValorRetorno AS STRING, ; TamvalorRetorno AS LONG) ; AS _INT PASCAL FROM 'DLLG2_Retorno' ; LIB xDll DLL32 FUNCTION DT_GETRETORNO(Canal AS LONG, Retornos AS PTR, ; TamRetornos AS LONG) ; AS STRING PASCAL FROM 'DLLG2_ObtemRetornos' ; LIB xDll DLL32 FUNCTION DT_CONFVELOCIDADE(Canal AS LONG, Speed AS LONG) ; AS STRING PASCAL FROM 'DLLG2_ConfiguraDriver' ; LIB xDll DLL32 FUNCTION DT_Gera_AtoCotepePafData( Porta AS STRING, Modelo AS STRING, Arquivo AS STRING, DataIni AS STRING ); AS _INT PASCAL from 'Gera_AtoCotepe1704'; LIB xDLLAdicional

Olá Galera, Pretendo migrar para o Harbour, porém a única LIB que irei utilizar é a SQLLIB do nosso amigo Vailton. Se ele disser que posso ir para o HB, to indo. rsrsrsrsrsr

Olá pessoal, Quanto ao comentário do Fladmiir: Não quero julgar ninguém, mas me parece que está mais para a segunda opção. INFELIZMENTE,

Então. E será que ninguém da CobreBem está vendo estas mensagens pelo menos para dar uma satisfação?

Olá // @ 16, 005 ADD BUTTON oBtnAA1 GROUP oGrAA SIZE 120, 84 PROMPT " Ler Cheques "+CRLF+" COMPENSAÇÃO " BITMAP cDirIMG+"\chequerec.bmp"; round action cmp_aa1() oBtnAA1:cTooltip:='Importa os Cheques que foram compensados/rejeitados pelos Bancos' ///

Exatamente. Eles oferecem uma espécie de plataforma. Complicado isso, porque, quem usa a DLL vai ficar na mão pelo jeito.

Pois é, Ta vendo? Cada vez mais a minha opinião vai se formando e o meu pensamento vai se tornando lógico.

Pois é Jorge, Eu sei que a ferramenta citada é fantástica. Mas sinceramente, quando você começa a adaptar o seu programa para o banco x, banco y, etc. Você vai ganhando know how e não ficando na dependência de terceiros. Vejam bem, não sou cliente da CobreBem, mas o cliente do meu cliente depende de uma softhouse que por sua vez depende da mesma. Quanto a reinventar a roda eu penso igual você. Bom, mas vamos ver no que da. Agora estou instruindo o TI do meu cliente a dizer que o problema de não gerar boletos é da softhouse e não do Banco. Dai quem sabe a softhouse toma uma medida e faz na mão. Um abraço,

Olá Galera, Estou ficando preocupado pelas pessoas que usam o cobrebem. Fato simples, temos um cliente que é um Banco (banco mesmo como bradesco, itaú, etc), e este possui um software de administração de cobrança (gerenciamento de boletos) nosso. Tem empresas do Brasil inteiro que desenvolvem os boletos e arquivos de remessa/retorno para este banco. Porém, as soft houses que usam a DLL da cobrebem não conseguem gerar pois a mesma não disponibiliza o banco. Solicitei ao pessoal do banco que entrassem em contato com a Cobrebem e solicitassem que eles incluíssem na DLL o referido banco. A cobrebem solicitou uma série de manuais (os quais tivemos que fazer) para que pudessem disponibilizar o lay-out. Isso já tem uns dois meses e todas as vezes que o pessoal do banco liga na cobrebem eles respondem que não tem um prazo previsto. Um amigo, enviou recentemente uma solicitação de inclusão deste banco (como cliente da cobrebem e não nosso) e a resposta deles (cobrebem) foi da mesma forma, além de colocar na resposta que também não tinham previsão de quando iriam colocar a geração de PDF (algo que até programa em DOS hoje faz). Olha, eu particularmente prefiro desenvolver os lay-outs, arquivos, etc a usar estas ferramentas. Depois dessa então ai é que fiquei menos empolgado. Imaginem vocês que o cliente de vocês trabalham com um banco novo e pagaram a licença da DLL para utilizar exatamente para impressão e tratamento de arquivos de cobrança, dai vocês viram para o cliente de vocês e dizem que não será possível pois a DLL ainda não está disponível para este (detalhe é que o banco já tem 04 anos). Será que o seu cliente vai continuar utilizando o seu ERP ou vai usar do concorrente que faz o boleto, na mão, do banco que ele quiser? Isso sem contar que ele muda de programa e ainda sai falando mal do seu (ISSO É FATO). O pessoal do ACBr já disponibilizaram este banco no projeto deles, ou seja, um produto FREE já tem a solução e um PAGO não. Só para constar para a galera. Um abraço,

Valeu pessoal. Resolvido.

Olá Theotokos, Valeu. Segue: alexandre@declatecnologia.com.br

Olá Pessoal. Alguém tem um FR3 de exemplo, para usar a impressão do código de barras dos boletos bancários? Eu quero usar apenas o código de barras no fast. Os boletos eu já faço em PHP, mas neste caso, preciso apenas do código de barras. Vou listar os boletos recebidos com o código de barras e a linha digitável. Se alguem tiver, agradeço.

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

rsrsrsrs, Quando eu vi o tópico, apenas esperei, todo ano é a mesma coisa. Um sugere, o outro acha melhor de tal forma, o outro acha que tem ser assim, outro acha que tem que ser assado, etc. Nos primeiros encontros (vou desde o primeiro), não tinham essas coisas e acho que foi isso que fortaleceu (pelo menos para os sobreviventes) a LIB. Claro que cada um tem uma opinião, mas se no primeiro tópico já começar a travar, apostem que não sai encontro. APOSTEM. Sugiro: - Definir uma pessoa para executar (olhar local, tópicos, etc); - Verificar com o Gilmer se é somente para quem tem a LIB (original) ou para quem pagar; - Definir data (o quanto antes para as passagens ficarem mais em conta); - Definir valor; - Não aceitar inscrições posteriores à data máxima definida; - Quem pagar e não for a grana não deve ser devolvida. São as minhas sugestões. Para mim o que for definido ta ótimo. Um abraço,

Olá Luis, Tente: /// cCodi := "" for y:=1 to len(aCli) cCodi += "'"+ANY2SQL( aCli[y,1] ) + "'," next cCodi := Left(cCodi,Len(cCodi)-1) // Para retirar a Ultima "," // // cSql:="SELECT v.cliente" cSql+=" FROM vendas as v" cSql+=" WHERE v.data >= "+Any2Sql(dt1) cSql+=" AND v.data <= "+Any2Sql(dt2) cSql+=" AND v.cliente IN (" + cCodi + ") " // veja se funciona

Olá, No meu aqui (não sei se é este gmapd) está aparecendo o pontinho sim.

Que o Senhor Jesus possa abençoar a todos da comunidade FiveWin. Que 2014 seja um ano repleto de prosperidade, paz, harmonia, saúde e alegria. Que Deus possa estar conosco todos os dias de nossas vidas.

Pessoal, Para quem não tem a cassa WebConnect, segue: ///////////////// Class WebConnect Data oWeb Method New() Constructor Method Open() Method End() INLINE ::oWeb:=Self:=Nil EndClass ////////////////////////////// Method New() Class WebConnect Try ::oWeb := CreateObject('MSXML2.XMLHTTP') Catch ::oWeb := CreateObject('Microsoft.XMLHTTP') End Return Self /////////////////////////////////////// Method Open( cUrl ) Class WebConnect Local cRet := "" If ValType( cUrl ) == 'U' Return cRet EndIf Try ::oWeb:Open("POST",cUrl,.f.) ::oWeb:Send() cRet := ::oWeb:responseBody Catch; End Return cRet

Pessoal, Desenvolvemos um webservice para isso ha um tempo atrás. Alguns amigos já usam e vou deixar aqui um login de testes com um exemplo. Depois, se interessar, posso fazer um preço melhor que os adotados pelo mercado. Utilizem e veja se atende (o login vai valer apenas uns dois dias): ////////////////////////////////////////////////////////////////////////// cMensagem := 'Teste de Mensagem DECLA' cTelefone := '3191143593' if EnviaSMS( cTelefone, cMensagem ) MsgInfo('Ok, mensagem enviada','Ok' else MsgAlert('Erro ao enviar SMS','Erro') endif ////////////////////////////////////////////// Function EnviaSMS( cTelefone, cMensagem ) ////////////////////////////////////////////// local oWS, cTexto, cUser, cSenha, cEmp oWS := WebConnect():New() cTexto := ' ' cUser := '149' cEmp := '8' cSenha := 'FIVEWIN' cMensagem := strtran( cMensagem, 'EMPRESTIMO', 'EMPREST.' ) cMensagem := strtran( cMensagem, 'NET', 'WEB' ) cMensagem := strtran( cMensagem, 'BRAULIO', 'BRAU' ) cTexto := oWS:Open( 'http://www.declatecnologia.com.br/smsservice/?user='+cUser+'&passwr='+cSenha+'&company='+cEmp+'&addressee='+cTelefone+'&message='+cMensagem ) if len( cTexto ) > 0 .and. substr( cTexto,1,1) = '1' lRetorno := .t. else lRetorno := .f. endif syswait(.1) sysrefresh() oWS:end() return lRetorno

Pessoal, Em primeiro lugar, gostaria de pedir desculpas pela minha ausência. Foi tanta correria de quinta até hoje que não da pra descrever. Valeu aos que foram e uma pena não ter participado (queria muito). Na próxima farei um esforço maior (desligar o skype dias antes, não responder email, não atender o celular, etc). Quem sabe, assim da? Um abraço,