nardeypm

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

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

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

fiz as alterações do comando default e compilou normal. agora o programa abre, assim que clico em alguma opção, ele aborta sem mostrar qq erro.

esclarecendo: 1 - compilando só os arquivos do harbourboleto, funciona normalmente, ou seja , gera e aparecem os boletos no navegador 2 - usando o mesmo arquivo oboleto.prg no meu sistema, o comando DEFAULT dá erro, substitui as linhas do comando DEFAULT e compilou normalmente. depois disso, ao criar o bol.ini, simplesmente aparece esse erro e não cria o arquivo. se eu usar o arquivo bol.ini com dados, os boletos não são gerados. STATIC FUNCTION CriaIni( cFileName ) LOCAL oIni oIni = TIniFile():New(Default(cFilename, 'bol.ini')) oIni:WriteString("CAB", "Banco", "033") oIni:WriteString("CAB", "cImageLnk", "") oIni:WriteBool("CAB", "lBoleto", .T.) oIni:WriteBool("CAB", "lRemessa", .f.) oIni:WriteBool("CAB", "lAnsi", .T.) oIni:WriteBool("CAB", "lPrint", .T.) oIni:WriteBool("CAB", "lPreview", .T.) oIni:WriteBool("CAB", "lPromptPrint", .T.) oIni:WriteNumber("CAB", "nBolsPag", 3) oIni:WriteString("CAB", "Cedente", "TESTE") oIni:WriteString("CAB", "CedenteCNPJ", "12345649791") oIni:WriteString("CAB", "cNumCC", "422353") oIni:WriteString("CAB", "cNumAgencia", "9093-9") oIni:WriteString("CAB", "cCarteira", "0102") oIni:WriteString("CAB", "EspecieTit", "DS") oIni:WriteString("CAB", "cTipoCob", "5") oIni:WriteNumber("CAB", "cCDPF", 422353) oIni:WriteNumber("CAB", "nMora", 0) oIni:WriteNumber("CAB", "nMulta", 0) oIni:WriteNumber("CAB", "nDiasProt", 0) oIni:WriteString("CAB", "cDir", "") oIni:WriteString("CAB", "cDirRemessa", "") oIni:WriteString("BOL1", "Sacado", "Nome") oIni:WriteString("BOL1", "Endereco", "Rua_num") oIni:WriteString("BOL1", "Bairro", "Bairro") oIni:WriteString("BOL1", "Cidade", "Cidade") oIni:WriteString("BOL1", "Estado", "UF") oIni:WriteString("BOL1", "CEP", "Cep") oIni:WriteString("BOL1", "CNPJ", "Cpf") oIni:WriteString("BOL1", "Instrucoes", "") oIni:WriteString("BOL1", "cNumDoc", "3850003") // seu numero do documento oIni:WriteString("BOL1", "cNossoNumero", "24240069") // numero do banco oIni:WriteNumber("BOL1", "nValor", 144,00) // valor do boleto oIni:WriteDate("BOL1", "DtVenc", CTOD("12/06/2014")) a linha que apresenta o erro e a mensagem do erro: nAux := AT("-", ::cNumAgencia) IF nAux > 0 .AND. EMPTY(::cDVAgencia) ::cDVAgencia := TRIM(SUBSTR(::cNumAgencia, nAux + 1)) // Digito da Agencia ::cNumAgencia := LEFT(::cNumAgencia, nAux - 1) // Numero da Agencia ENDIF Descricao: Erro BASE/1108 Argument error: AT Args: [ 1] = C - [ 2] = U Chamadas ao Stack ================= CHAMADA DE AT(0) CHAMADA DE OBOLETO:OPEN(160) CHAMADA DE GERABOLETO(44) NARDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

o problema parece estar nos comandos DEFAULT e AT . substituindo o comando default ou comentando a linha, o meu sistema não aborta. dá erro no comando AT. DEFAULT cLocalPg TO "Pagar preferencialmente no Grupo Santander - GC" nAux := AT("-", ::cNumAgencia) IF nAux > 0 .AND. EMPTY(::cDVAgencia) ::cDVAgencia := TRIM(SUBSTR(::cNumAgencia, nAux + 1)) // Digito da Agencia ::cNumAgencia := LEFT(::cNumAgencia, nAux - 1) // Numero da Agencia ENDIF nAux := AT("-", ::cCDPF) //*FJF* - 28/09/09 IF nAux > 0 .AND. EMPTY(::cDvCDPF) //*FJF* - 28/09/09 ::cDvCDPF := TRIM(SUBSTR(::cCDPF, nAux + 1)) // Digito do CDPF ::cCDPF := LEFT(::cCDPF, nAux - 1) // CDPF ENDIF erro: Aplicacao ========== Tamanho: 2,610,688 bytes Maximo de arquivos abertos: ( SetHandleCount() ) 0 Ocorreu erro em: 26/06/2014, 20:20:34 Descricao: Erro BASE/1108 Argument error: AT Args: [ 1] = C - [ 2] = U Chamadas ao Stack ================= CHAMADA DE AT(0) CHAMADA DE OBOLETO:OPEN(160) CHAMADA DE GERABOLETO(44) CHAMADA DE (b)MENSALIDADES(154) CHAMADA DE TBUTTON:CLICK(0) CHAMADA DE TBUTTON:HANDLEEVENT(0) CHAMADA DE _FWH(0) CHAMADA DE SENDMESSAGE(0) CHAMADA DE TDIALOG:COMMAND(0) CHAMADA DE TWINDOW:HANDLEEVENT(0) CHAMADA DE TDIALOG:HANDLEEVENT(0) CHAMADA DE DIALOGBOXINDIRECT(0) CHAMADA DE TDIALOG:ACTIVATE(0) CHAMADA DE MENSALIDADES(162) CHAMADA DE (b)MAIN(148) CHAMADA DE TBTNBMP:CLICK(0) CHAMADA DE TBTNBMP:LBUTTONUP(0) CHAMADA DE TWINDOW:HANDLEEVENT(0) CHAMADA DE TBTNBMP:HANDLEEVENT(0) CHAMADA DE _FWH(0) CHAMADA DE WINRUN(0) CHAMADA DE TWINDOW:ACTIVATE(0) CHAMADA DE MAIN(205) só dá erro quando integrado ao meu sistema..... NARDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

testei como administrador e continua abortando o sistema. o problema é realmente no oboleto.prg sem esse modulo, o programa funciona normalmente. NARDEY - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

estou tendo problemas com harbourboleto. sozinho, ele compila e gera os boletos. quando tento compilar junto com o meu sistema, compila normalmente, gera o executável e depois simplesmente aborta. não dá mensagem de erro. do harbourboleto, sem carregar os módulos, o meu sistema funciona normalmente. o problema parece estar no módulo oboleto.prg. #include "harbourboleto.ch" #include "hbclass.ch" #Translate StoD(<p>) => CTOD(RIGHT(<p>, 2) + "/" + SUBSTR(<p>, 5, 2) + "/" + LEFT(<p>, 4)) #DEFINE dDataBase CTOD("07/10/1997") CLASS oBoleto DATA Modelo INIT "" DATA AuxModelo INIT "" // Se Necessario, Auxiliar no Controle de Modelo do Boleto DATA Bolhtm INIT "" DATA Destino INIT "" DATA nHandle INIT 0 PROTECTED // link - Arquivo do boleto (FCREATE) DATA NomeHtm INIT "" DATA HtmEdit INIT getenv("ProgramFiles") // o Win 98 nao tem esta variavel !!! DATA cImageLnk INIT "" // Funcao ::merge troca a variavel pelo diretorio no bol.htm DATA lPreview INIT .T. DATA lAnsi INIT .T. DATA lBoleto INIT .T. DATA lRemessa INIT .T. DATA oRem INIT "" DATA cLocalPgto INIT "" DATA Cedente INIT "" DATA CedenteCNPJ INIT "" DATA Avalista INIT "" DATA cAvalCodBco INIT "" DATA cAvalNumAgencia INIT "" DATA cAvalNumCC INIT "" DATA cAvalDvAgencia INIT "" DATA cAvalDvCC INIT "" //DATA cNumCli INIT "" // Numero do cliente no Cód. Barras - 409-Unibanco Cob. Especial (6 posiçoes + DV) //DATA cNumRefCli INIT "" // Numero de Referência Cliente - 409-Unibanco Cob. Especial (15 posicoes) DATA SACADO INIT "" DATA ENDERECO INIT "" DATA COMPLEMENTO INIT "" DATA BAIRRO INIT "" DATA CIDADE INIT "" DATA ESTADO INIT "" DATA ENDERECO1 INIT "" READONLY DATA ENDERECO2 INIT "" READONLY DATA CEP INIT "" DATA CNPJ INIT "" DATA cCNPJ INIT "" READONLY DATA cCPF INIT "" READONLY DATA TpCarteira INIT "" READONLY DATA EspecieTit INIT "01" DATA cTipoCob INIT "" DATA ACEITE INIT "N" DATA INSTRUCOES INIT "" DATA INSTRUCOES2 INIT "" DATA DtVenc INIT CTOD("") DATA DtEmis INIT DATE() DATA cCodBco INIT "" DATA cDvBco INIT "" // Digito Verificador - Banco DATA cNomeBco INIT "" DATA cNumAgencia INIT "" DATA cDvAgencia INIT "" // Digito Verificador - Agencia DATA cNumCC INIT "" DATA cDvCC INIT "" // Digito Verificador - Conta Corrente DATA cDvAgCC INIT "" // Digito Verificador - Agência/Conta Corrente DATA cCarteira INIT "6" DATA cNossoNumero INIT "" DATA cNumDoc INIT "" DATA cTipoMoeda INIT "9" DATA cCDPF INIT "" // Codigo Cedente/Prefixo utilizado por alguns Bancos para identificar o Cliente BB,Unibanco,Bradesco DATA cDvCDPF INIT "" // Digito Verificador do CDPF, usado pela Caixa //*FJF* - 28/09/09 DATA cDGNN INIT "" DATA nDiasProt INIT 0 // Numero de dias p/ protesto DATA nValor INIT 0 DATA nMulta INIT 0 // % Multa - em caso de atraso. No boleto, é mostrado como Valor DATA nMora INIT 0 // % Mora diária a ser cobrado por dia de atraso DATA nDescDia INIT 0 // % Desconto Diário (pagamento antes do vencimento) DATA nValMulta INIT 0 READONLY // Valor - Multa - em caso de atraso. No boleto, é mostrado como Valor DATA nValMora INIT 0 READONLY // Valor - Mora diária a ser cobrado por dia de atraso DATA nValDescDia INIT 0 READONLY // Valor - Desconto Diário (pagamento antes do vencimento) DATA nBoletos INIT 0 READONLY // Numero de Boletos Impressos DATA nBolsPag INIT 1 // Numero de Boletos por Pagina METHOD New( cBco, cLocalPg ) CONSTRUCTOR METHOD Open( cArq, cPasta, cArqRem, cPastaRem, nNumRemessa, CNAB400 ) METHOD Close( ) METHOD ERASE() METHOD Merge( cCampo, cConteudo, lTudo ) METHOD Execute( ) METHOD Remessa( lAdd, cArqRem, cPastaRem, nNumRemessa, CNAB400 ) METHOD Print( lPreview, lPromptPrint, cPrinter ) METHOD Eject( ) METHOD isRegistrada( ) METHOD SetNomeRem( cArq ) ENDCLASS /* -------------------------------------------------------------------------- */ METHOD new( cBco, cLocalPg ) CLASS oBoleto LOCAL lFem := .F. DEFAULT cBco TO "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 TO "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 TO "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. //DEFAULT cLocalPg TO "PREFERENCIALMENTE NAS CASAS LOTÉRICAS E AGÊNCIAS DA CAIXA" DEFAULT cLocalPg TO "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 TO "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 /* -------------------------------------------------------------------------- */ METHOD Open( cArq, cPasta, cArqRem, cPastaRem, nNumRemessa, CNAB400 ) CLASS oBoleto alguém tem alguma sugestão ???? BOBKOLHO1 - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

manda. email / skype = nardey@gmail.com

obs. importante::::: não usei o arquivo acento.prg, pois, essas funções, salvo engano, estão dentro do bibbol.prg. se usar o acento.prg, vai dar erro na compilação. BOBKOLHO1 - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

baixe aqui os arquivos originais e tb com algumas alterações feitas por mim e compilando normalmente: http://3madvogados.com.br/index.php?folder=c2lzdGVtYSBhbHVub3M= estou trabalhando nele para o Santander (033) para imprimir 3 boletos por pagina em forma de carnê e com certeza vamos precisar de ajuda. BOBKOLHO1 - FWH/FWHX 6.12 + WORKSHOP + xdev 0.70

não consegui compilar mrboleto. vários erros em relação a xharbour/lib/rti.lib FWH/FWHX 6.12 - WORKSHOP - xdev 0.70 - bcc582

mrboleto apresenta várias mensagens de erro com relação a xharbour/lib/rti.lib alguem conseguiu compilar normalmente???

preciso de exemplos e ajuda. email / skype: nardey@gmail.com

------