nardeypm Posted June 27, 2014 Author Report Share Posted June 27, 2014 o problema de abortar desaparece quando deixo as linhas abaixo (em vermelho) comentadas. com elas habilitadas o sistema aborta sozinho..... METHOD New( cBco, cLocalPg ) CONSTRUCTOR /* -------------------------------------------------------------------------- */ METHOD new( cBco, cLocalPg ) CLASS oBoleto LOCAL lFem := .F. DEFAULT cBco := "033" #ifndef __PLATFORM__Linux IF EMPTY(::HtmEdit) ::HtmEdit := "C:\Arquivos de programas" // se algum cliente tiver Windows em ingles ... ENDIF ::HtmEdit += "\Internet Explorer\iexplore.exe" #endif /* DO CASE CASE cBco == "001" ::cDvBco := "9" ::cNomeBco := "Banco do Brasil" DEFAULT cLocalPg := "Pagável em Qualquer Banco Até o Vencimento" CASE cBco == "070" // Colaboracao de Taibnis Vieira <tbnvieira@uol.com.br> ::cDvBco := "1" ::cNomeBco := "Banco do Brasilia" CASE cBco == "008" ::cDvBco := "6" ::cNomeBco := "Santander Meridional" CASE cBco == "033" ::cDvBco := "7" ::cNomeBco := "Santander" DEFAULT cLocalPg := "Pagar preferencialmente no Grupo Santander - GC" CASE cBco == "104" ::cDvBco := "0" ::cNomeBco := "Caixa" //::lRemessa := .F. // Implementado 30/10/09 ( Padrao SIGCB Caixa ), by SysTux (Toninho Silva), systux@yahoo.com.br, 30/10/09 lFem := .T. //SET DEFAULT cLocalPg TO "PREFERENCIALMENTE NAS CASAS LOTÉRICAS E AGÊNCIAS DA CAIXA" DEFAULT cLocalPg := "CASAS LOTÉRICAS, AGÊNCIAS DA CAIXA E REDE BANCÁRIA, APÓS VENC. SOMENTE NA CAIXA" CASE cBco == "237" ::cDvBco := "2" ::cNomeBco := "Bradesco" CASE cBco == "244" ::cDvBco := "5" ::cNomeBco := "Cidade" ::lRemessa := .F. // falta implementar no oRemessa CASE cBco == "341" ::cDvBco := "7" ::cNomeBco := "Itau" + __ANSI CASE cBco == "353" ::cDvBco := "0" ::cNomeBco := "Santander" CASE cBco == "356" ::cDvBco := "5" ::cNomeBco := "Real" CASE cBco == "399" ::cDvBco := "9" ::cNomeBco := "HSBC" CASE cBco == "409" ::cDvBco := "0" ::cNomeBco := "Unibanco" CASE cBco == "422" ::cDvBco := "7" ::cNomeBco := "Safra" ::EspecieTit:="DS" CASE cBco == "739" ::cDvBco := "7" ::cNomeBco := "Banco BGN" ENDCASE */ DEFAULT cLocalPg := "Até o vencimento, pagável em qualquer banco. Após o vencimento, em qualquer"+; " agência d"+IIF(lFem,"a","o")+" "+::cNomeBco+; IIF(cBco == "999"," ou Banco Postal","")+"."+__ANSI ::cLocalPgto := cLocalPg ::cCodBco := cBco RETURN Self NARDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70 Quote Link to comment Share on other sites More sharing options...
frkiko Posted June 27, 2014 Report Share Posted June 27, 2014 Nardey, no inicio tentei abortando algumas linhas, más depois vi que não tinha logica nenhuma pois voltava a sair. Hoje tem hora que meu programa aborta tem hora que não... Estou até hoje tentando descobrir. E tenho outros programa que não ocorre isso. O prg é o mesmo, pois busco de um mesmo local para todos. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 27, 2014 Report Share Posted June 27, 2014 Nardey.. creio que seja alguma variável dando pau... compilei o meu software e to emitindo os boletos. Ainda to na fase de acertos e tals.. mas os boletos estão sendo impressos... Você tá usando qual banco? Att. Everton Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 27, 2014 Author Report Share Posted June 27, 2014 santander - 033 me informe quais os #include, #translate e os #defines que vc tá usando. adiciona meu contato no skype / msn = nardey@gmail.com NÁRDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 27, 2014 Report Share Posted June 27, 2014 Cara, pode ate ser que não seja o mais indicado, mas o que eu fiz foi recortar o código que estava dento do DemoBoleto.PRG para dentro da minha rotina que gera as contas e imprime os documentos..Já imprimia Carnês, agora fiz imprimir os boletos também.. Troquei os dados que são mandados no DemoBoleto.PRG, por variáveis que recebem os dados do meu software. Não acrescentei #Include, nem #translate ou #define. Acrescentei no meu script de compilação todos os PRG´s que vieram junto, menos, é claro, o DemoBoleto.prg e o Acento.prg, que troquei por aquele que te enviei. Acrescentei no meu Script também o HarbourBoleto.CH. Att. Everton nardeypm 1 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 28, 2014 Report Share Posted June 28, 2014 Outra coisa que me ajuda a não enfrentar o problema que você esta enfrentando, é que eu não uso o arquivo "INI". Eu fiz no meu sistema um cadastro dos boletos. Neste cadastro o usuário alem de colocar os dados define qual é o modelo padrão, aquele que vai ser assumido automaticamente. No momento que é escolhido imprimir os documentos de cobrança eu abro um MsgList() como todos os tipos de documentos e com os modelos de boletos cadastrados.. ai o cara escolhe, eu o sistema imprime. Fiz deste modo porque já teria que criar um arquivo para guardar os dados da emissão de boletos mesmo, então pensei na possibilidade de o cliente trabalhar com mais de um banco. Alem de imprimir carnês, pode-se, só registrar o contas a receber sem impressão de documento algum. Quote Link to comment Share on other sites More sharing options...
Marca Posted June 28, 2014 Report Share Posted June 28, 2014 o problema de abortar desaparece quando deixo as linhas abaixo (em vermelho) comentadas. com elas habilitadas o sistema aborta sozinho..... METHOD New( cBco, cLocalPg ) CONSTRUCTOR /* -------------------------------------------------------------------------- */ METHOD new( cBco, cLocalPg ) CLASS oBoleto LOCAL lFem := .F. DEFAULT cBco := "033" #ifndef __PLATFORM__Linux IF EMPTY(::HtmEdit) ::HtmEdit := "C:\Arquivos de programas" // se algum cliente tiver Windows em ingles ... ENDIF ::HtmEdit += "\Internet Explorer\iexplore.exe" #endif /* DO CASE CASE cBco == "001" ::cDvBco := "9" ::cNomeBco := "Banco do Brasil" DEFAULT cLocalPg := "Pagável em Qualquer Banco Até o Vencimento" CASE cBco == "070" // Colaboracao de Taibnis Vieira <tbnvieira@uol.com.br> ::cDvBco := "1" ::cNomeBco := "Banco do Brasilia" CASE cBco == "008" ::cDvBco := "6" ::cNomeBco := "Santander Meridional" CASE cBco == "033" ::cDvBco := "7" ::cNomeBco := "Santander" DEFAULT cLocalPg := "Pagar preferencialmente no Grupo Santander - GC" CASE cBco == "104" ::cDvBco := "0" ::cNomeBco := "Caixa" //::lRemessa := .F. // Implementado 30/10/09 ( Padrao SIGCB Caixa ), by SysTux (Toninho Silva), systux@yahoo.com.br, 30/10/09 lFem := .T. //SET DEFAULT cLocalPg TO "PREFERENCIALMENTE NAS CASAS LOTÉRICAS E AGÊNCIAS DA CAIXA" DEFAULT cLocalPg := "CASAS LOTÉRICAS, AGÊNCIAS DA CAIXA E REDE BANCÁRIA, APÓS VENC. SOMENTE NA CAIXA" CASE cBco == "237" ::cDvBco := "2" ::cNomeBco := "Bradesco" CASE cBco == "244" ::cDvBco := "5" ::cNomeBco := "Cidade" ::lRemessa := .F. // falta implementar no oRemessa CASE cBco == "341" ::cDvBco := "7" ::cNomeBco := "Itau" + __ANSI CASE cBco == "353" ::cDvBco := "0" ::cNomeBco := "Santander" CASE cBco == "356" ::cDvBco := "5" ::cNomeBco := "Real" CASE cBco == "399" ::cDvBco := "9" ::cNomeBco := "HSBC" CASE cBco == "409" ::cDvBco := "0" ::cNomeBco := "Unibanco" CASE cBco == "422" ::cDvBco := "7" ::cNomeBco := "Safra" ::EspecieTit:="DS" CASE cBco == "739" ::cDvBco := "7" ::cNomeBco := "Banco BGN" ENDCASE */ DEFAULT cLocalPg := "Até o vencimento, pagável em qualquer banco. Após o vencimento, em qualquer"+; " agência d"+IIF(lFem,"a","o")+" "+::cNomeBco+; IIF(cBco == "999"," ou Banco Postal","")+"."+__ANSI ::cLocalPgto := cLocalPg ::cCodBco := cBco RETURN Self NARDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70 Nardey Qual o xHarbour vc esta utilizando ? Observe tbem q. no caso do Santander existem 3 situações CASE cBco == "008" ::cDvBco := "6" ::cNomeBco := "Santander Meridional" CASE cBco == "033" ::cDvBco := "7" ::cNomeBco := "Santander Banespa" CASE cBco == "353" ::cDvBco := "0" ::cNomeBco := "Santander" E se comentando estas linhas o problema desaparece veja q. são poucas as variaveis envolvidas Trabalhe em cima delas ::cDvBco := "7" ::cNomeBco := "Santander" Como vc esta setando para o banco 033 fixe as mesmas Digo: Como vc sabe q. vai entrar no CASE cBco == "033 ::cDvBco := "7" ::cNomeBco := "Santander" e aqui troque DEFAULT cLocalPg := "Pagar preferencialmente no Grupo Santander - GC" por cLocalPg := "Pagar preferencialmente no Grupo Santander - GC" Não q. isso seja o problema mas... Faça outro teste simples tbem Como disse acima somente p. efeito de tentar descobrir onde esta o problema aqui nesta parte como ja sabemos quem é cLocalPg comente isso temporariamente para efeito de encontrar onde esta o problema real d tire o comentário da parte de cima /* DEFAULT cLocalPg := "Até o vencimento, pagável em qualquer banco. Após o vencimento, em qualquer"+; " agência d"+IIF(lFem,"a","o")+" "+::cNomeBco+; IIF(cBco == "999"," ou Banco Postal","")+"."+__ANSI */ ::cLocalPgto := cLocalPg ::cCodBco := cBco Quote Link to comment Share on other sites More sharing options...
evertonlb Posted July 1, 2014 Report Share Posted July 1, 2014 AI pessoal.. o boleto da caixa ( que é o que to testando ) não ta imprimindo todo o código de barras... falta umas 3 (ultimas) posições para imprimir... chequei o código impresso e parece que esta tudo lá, mas fica aparecendo 3 "x" no lugar dos gifs do código de barras finais!!! Alguém que usa o HarbourBoleto tem ideia do que ta acontecendo? Att. Everton Quote Link to comment Share on other sites More sharing options...
frkiko Posted July 1, 2014 Report Share Posted July 1, 2014 AI pessoal.. o boleto da caixa ( que é o que to testando ) não ta imprimindo todo o código de barras... falta umas 3 (ultimas) posições para imprimir... chequei o código impresso e parece que esta tudo lá, mas fica aparecendo 3 "x" no lugar dos gifs do código de barras finais!!! Alguém que usa o HarbourBoleto tem ideia do que ta acontecendo? Att. Everton Acredito ser erro na nos dados procure no manual da caixa como gerar o código. Pode ser tamanho do nosso número. Seguindo o manual deve dar certo... na duvida posta a linha digitavel. Quote Link to comment Share on other sites More sharing options...
nardeypm Posted July 2, 2014 Author Report Share Posted July 2, 2014 Provavelmente está relacionado com o nosso numero. coloque um numero qq só para testes. Fiz para o santander e está gerando os boletos corretamente. NÁRDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted July 3, 2014 Report Share Posted July 3, 2014 Pois é.. vou dar mais uma olhada no manual então... Obrigado Att. Everton Quote Link to comment Share on other sites More sharing options...
Theotokos Posted December 29, 2016 Report Share Posted December 29, 2016 Boa Tarde Pessoal, Alguem utiliza gerar a Remessa? Podeiram postar um exemplo o me enviar por favor.... Não estou conseguindo gerar o arquivo de remessa, ou melhor, ele até gera o arquivo, porem vazio... não sei onde é o erro; "setei" oBol:lRemessa := .T. depois no final, qdo acaba um loop (While) faço: oRetIni = TIniFile():New(cArqHTML + '.ret') oRetIni:WriteString("RET", "NomeRem", oBol:oRem:NomeRem) oRetIni:WriteString("RET", "Destino", oBol:oRem:Destino) oRetIni:WriteString("RET", "cNumSequencial", oBol:oRem:cNumSequencial) oRetIni:WriteNumber("RET", "nTitLote", oBol:oRem:nTitLote) oRetIni:UpdateFile() Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.