Boleto - arquivo remessa e retorno

[Rogerio Figueira]

Arlindo, veja aqui a solução:

http://fivewin.com.br/index.php?/topic/21266-emissao-de-boletos/page-2#entry263917

[Arlindooliveira]

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

[evertonlb]

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

[evertonlb]

Este código acima é o arquivo Demo que vem junto com o HarbourBoleto!

Att.

[evertonlb]

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

[nardeypm]

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

[evertonlb]

Blz BobKolho.... vou baixar e mexer nisso tambem... òtima idéia imprimir "tipo" carnês...

Obrigado

Att.

[nardeypm]

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

[evertonlb]

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

[nardeypm]

manda. email / skype = nardey@gmail.com

[CIACPD]

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

[Rogerio Figueira]

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.

[nardeypm]

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

[Marca]

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

[frkiko]

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.

[nardeypm]

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

[frkiko]

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.

[evertonlb]

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

[nardeypm]

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

[evertonlb]

isso no momento que tu gera os boletos?

[nardeypm]

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

[frkiko]

Acredito que seja ao carregar o programa.

[Marca]

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.

[nardeypm]

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.

[Marca]

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.