Rogerio Figueira Posted June 10, 2014 Report Share Posted June 10, 2014 Arlindo, veja aqui a solução: http://fivewin.com.br/index.php?/topic/21266-emissao-de-boletos/page-2#entry263917 Quote Link to comment Share on other sites More sharing options...
Arlindooliveira Posted June 11, 2014 Report Share Posted June 11, 2014 Arlindo, veja aqui a solução: http://fivewin.com.br/index.php?/topic/21266-emissao-de-boletos/page-2#entry263917 Valeu Rogério resolvido. Muito obrigado Skype: arsistemas Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 20, 2014 Report Share Posted June 20, 2014 Boa tarde pessoal... Comecei a incluir a impressão de boletos, geração de arquivos de envio e leitura de retornos.. Mas ainda não consegui sair da primeira parte! Inclui na minha compilação os arquivos Acento.PRG e oBoleto.PRG, inclui também o HarbouBoleto.ch Não dá erro algum de compilação e nem mensagem de erro na execução, o que acontece é que clico no meu "teste", aparece as mensagens que esta sendo executado ( vide abaixo ), mas não me aparece mais nada no vídeo.. só da as mensagens mas não az mais nada... Alguém tem alguma sugestão para que eu resolva esta bronca? segue o código #INCLUDE "FIVEWIN.CH" ****************************************************************************** * Sistema .....: BS.Escola * Programa ....: boletotst.prg * Autor .......: Everton * Sintese .....: Teste de geração de boletos * Data ........: 20/06/2014 às 16:07:20 * Revisado em .: 20/06/2014 às 16:07:20 ****************************************************************************** Function boletotst() LOCAL oBol ? "Vai Gerar o boleto ..." SET CENT ON SET DATE BRIT // Preparar o boleto ... oBol := oBoleto():NEW("341") // Como o "new" e o Constructor não precisa ser especificado oBol:lRemessa := .F. // Se não quiser gerar Arquivo Remessa. oBol:lBoleto := .t. // Se não quiser gerar Boleto Bancário. oBol:nBolsPag := 1 oBol:Cedente := "NOME DO CEDENTE DO BOLETO LTDA." oBol:cNumCC := "55888-5" oBol:cNumAgencia := "3130" oBol:cDVAgencia := "" oBol:cCarteira := "109" // Fixado oBol:Destino := "D:\ESCOLA\temp\" oBol:NomeHtm := "recibo.htm" oBol:Modelo := MEMOREAD("D:\ESCOLA\boleto\bol.htm") oBol:EspecieTit := "REC" oBol:Open() oBol:cImgSrcLocal := "D:\ESCOLA\boleto\" oBol:SACADO := "NOME DO SACADO" oBol:ENDERECO := "RUA DO SACADO, XXX" oBol:COMPLEMENTO := "AP 13" oBol:BAIRRO := "VILA OSASCO" oBol:CIDADE := "OSASCO" oBol:ESTADO := "SP" oBol:CEP := "CEP: 06230-010" oBol:INSTRUCOES := "INSTRUÇÕES DIVERSAS" oBol:DtVenc := DATE() oBol:cNumDoc := "172909" oBol:cNossoNumero := "172909-7" oBol:nValor := 1001.00 oBol:Execute() ? "Execute ..." oBol:Close() ? "Finalizado ..." RETURN NIL Att. Everton Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 20, 2014 Report Share Posted June 20, 2014 Este código acima é o arquivo Demo que vem junto com o HarbourBoleto! Att. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 21, 2014 Report Share Posted June 21, 2014 acho que o que esta acontecendo de fato é que não tenho o Harbour Boleto certinho. Eu tenho parte dos arquivos que são do HarbouBoleto mas não tenho todos.. Estou procurando o Harbour Boleto para baixar mas não to conseguindo.. Se alguem tiver ai e puder me enviar, ficarei muitissimamente grato. evertonlb@uol.com.br Att. Everton Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 23, 2014 Author Report Share Posted June 23, 2014 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 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 23, 2014 Report Share Posted June 23, 2014 Blz BobKolho.... vou baixar e mexer nisso tambem... òtima idéia imprimir "tipo" carnês... Obrigado Att. Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 23, 2014 Author Report Share Posted June 23, 2014 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 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 23, 2014 Report Share Posted June 23, 2014 Certo cara.. isso mesmo, da erro. Mas ai eu peguei um Acento.PRG que eu tinha aqui e que não tava dando erro.. Na real nem me lembro de onde eu peguei, mas ao menos erro não deu mais! Se precisar deste PRG eu te envio ele. Att. Everton Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 24, 2014 Author Report Share Posted June 24, 2014 manda. email / skype = nardey@gmail.com Quote Link to comment Share on other sites More sharing options...
CIACPD Posted June 24, 2014 Report Share Posted June 24, 2014 Pessoal, O bradesco não atua mais como banco postal a mais de um ano. IIF(cBco == "237"," ou Banco Postal","")+"."+__ANSI Fica a dica. Daniel Segura Quote Link to comment Share on other sites More sharing options...
Rogerio Figueira Posted June 25, 2014 Report Share Posted June 25, 2014 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. Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 26, 2014 Author Report Share Posted June 26, 2014 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 Quote Link to comment Share on other sites More sharing options...
Marca Posted June 26, 2014 Report Share Posted June 26, 2014 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. alguém tem alguma sugestão ???? Nardeypm Coloque no seu contato oq. vc utiliza Harbour ? xHarbour ? Qual versao do five Assim fica mais facil para tentarmos ajudar kapiaba 1 Quote Link to comment Share on other sites More sharing options...
frkiko Posted June 26, 2014 Report Share Posted June 26, 2014 Eu tenho este mesmo problema Nardeypm, não tenho a menor ideia.... Tentei utilizar em 2012 ai abandonei. Voltei este ano ai parou de sair, não tinha alterado nada. Ai hora saia ai compilava de novo ai não saia mais, depois de mais de um tempo voltava, complicado. Implementei em outros aplicativos e funciona normalmente. Tem mais uma coisa experimente executar o seu aplicativo como Administrador nesta maquina. Vai funcionar. Click com o botão direito e vá em executar como administrador. Execute também em outra maquina deve funcionar. Já testei muito e nada. Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 26, 2014 Author Report Share Posted June 26, 2014 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 Quote Link to comment Share on other sites More sharing options...
frkiko Posted June 26, 2014 Report Share Posted June 26, 2014 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 Já testou executando em outra maquina. Pela rede ou direto em outra maquina. Aqui o meu quando acontece isso eu executo como administrador e funciona. Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 26, 2014 Report Share Posted June 26, 2014 Pra mim não deu esse erro... talvez, ainda! Vou trabalhar hoje a noite fazendo a impressão de boletos e vendo como faço os arquivos de remessa... qqer coisa reporto aqui! Att. Everton Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 26, 2014 Author Report Share Posted June 26, 2014 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 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 27, 2014 Report Share Posted June 27, 2014 isso no momento que tu gera os boletos? Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 27, 2014 Author Report Share Posted June 27, 2014 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 Quote Link to comment Share on other sites More sharing options...
frkiko Posted June 27, 2014 Report Share Posted June 27, 2014 Acredito que seja ao carregar o programa. Quote Link to comment Share on other sites More sharing options...
Marca Posted June 27, 2014 Report Share Posted June 27, 2014 Bom dia Nardey 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 Seu problema ai é relativamente simples de resolver Em relação a sintax do comando DEFALT basta vc mudar de DEFAULT cLocalPg TO "Pagar preferencialmente no Grupo Santander - GC" para DEFAULT cLocalPg := "Pagar preferencialmente no Grupo Santander - GC"Isso ira resolver. troque todos os DEFAULT para esta sintax Ja em relação ao comando AT Veja q. no erro esta retornando como o segundo parametro nulo faça um debugador interno simples Crie um .txt para pegar o valor e valtype da variavel ::cNumAgencia Ela esta nula q. é o que apresenta no erro ou esta chegando como numérica Crie um .txt escrevendo nele qual o conteudo dela e o valtype da mesma assim qdo abortar vc abre este arquivo .txt criado e irá conseguir saber como é q. a variavel esta chegando O erro não é do comando AT e sim da variavel. Quote Link to comment Share on other sites More sharing options...
nardeypm Posted June 27, 2014 Author Report Share Posted June 27, 2014 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. Quote Link to comment Share on other sites More sharing options...
Marca Posted June 27, 2014 Report Share Posted June 27, 2014 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. 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. Isso não tem vinculo algum com o comando DAFAULT é outra coisa oq. é especificamente é complicado dizer sem ter os fontes Se isso acontece somente qdo vc inclui o fonte oboleto.prg no projeto Tente debugar comentando partes do fonte p. ver se encontra onde exatamente esta o problema Esperimente p. exemplo comentar o STOD q. esta ai no Translate digo /* #Translate StoD(<p>) => CTOD(RIGHT(<p>, 2) + "/" + SUBSTR(<p>, 5, 2) + "/" + LEFT(<p>, 4)) #DEFINE dDataBase CTOD("07/10/1997") */ Comente estas linhas Confira se os .ch #include "harbourboleto.ch" #include "hbclass.ch" estão nos paths corretos Veja se vc nao tem esta variavel dDataBase dentro de seu sistema e ai p. diante Vá comentando os metodos e rodando seu sistema , isso da trabalho mesmo mas o primeiro passo é identificar oq. esta gerando esta saida inesperada. 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.