Imprimir boleto da C.E.F.
Moderador: Moderadores
-
Kapiaba
- Colaborador

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Imprimir boleto da C.E.F.
Bom dia, preciso imprimir Boletos da Caixa Econômica, alguém tem exemplo prático de como eu posso fazer isso?
valor, desconto, acréscimo, emissão, vencimento, nosso número, duplicata, emitente, destinatário, etc.
Nunca fiz, estou iniciando do ZERO, qualquer ajuda, fonte, tela, etc., será bem vindo.
Agradeço desde já.
Obg. abs.
valor, desconto, acréscimo, emissão, vencimento, nosso número, duplicata, emitente, destinatário, etc.
Nunca fiz, estou iniciando do ZERO, qualquer ajuda, fonte, tela, etc., será bem vindo.
Agradeço desde já.
Obg. abs.
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Imprimir boleto da C.E.F.
Tem o Mr. Boleto, que gera PDF
Tem o hbboleto, que se não me engano gerava em html, mas gerava o arquivo de transmissão
E tem componentes pagos
Isso de boleto é meio complicado, porque um mesmo banco pode ter padrões diferentes, conforme o tipo de cobrança.
E isso também significa exigências diferentes.
No Itaú, por exemplo, tem arquivo pra boleto de imobiliária, com rateios entre proprietários, e formato de boleto personalizado.
Tem opção para o próprio Itaú imprimir o boleto e enviar por correio
Que é diferente da opção do próprio Itaú gerar o PDF e enviar por email
E que dependem até de criar uma conta vinculada diferente, pra cada tipo de boleto
Como são várias opções, e nem todo mundo usa tudo, às vezes acaba sendo um trabalho individual, ou partem para um componente pronto.
Só mesmo as opções mais comuns é que podem estar disponíveis, e que atendem a maioria.
Tem o hbboleto, que se não me engano gerava em html, mas gerava o arquivo de transmissão
E tem componentes pagos
Isso de boleto é meio complicado, porque um mesmo banco pode ter padrões diferentes, conforme o tipo de cobrança.
E isso também significa exigências diferentes.
No Itaú, por exemplo, tem arquivo pra boleto de imobiliária, com rateios entre proprietários, e formato de boleto personalizado.
Tem opção para o próprio Itaú imprimir o boleto e enviar por correio
Que é diferente da opção do próprio Itaú gerar o PDF e enviar por email
E que dependem até de criar uma conta vinculada diferente, pra cada tipo de boleto
Como são várias opções, e nem todo mundo usa tudo, às vezes acaba sendo um trabalho individual, ou partem para um componente pronto.
Só mesmo as opções mais comuns é que podem estar disponíveis, e que atendem a maioria.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
-
Kapiaba
- Colaborador

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Imprimir boleto da C.E.F.
Mister Quintas, por enquanto, vou focar somente no boleto da C.E.F., não sei fazer nem o da C.E.F., não sou louco de me aventurar nos outros bancos, né? kkkkkkkkkkkkkkkkk, Quiças, eu consiga dominar o da C.E.F., ai, me aventuro nos outros bancos. Obg. Abs.
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Imprimir boleto da C.E.F.
Faltou dizer:
Apesar do modelo de boleto ser bem semelhante, e parecer tudo a mesma coisa, os números que entram pra formar a linha digitável e/ou o código de barras podem variar também.
E importante:
Geralmente é conversado com o banco, porque cada tipo de cobrança pode envolver um valor diferente, e é negociado pela empresa envolvida e o banco, até mesmo pra fazer a liberação de uso.
Ainda mais este ano, que "dizem" estar tentando evitar fraudes em boletos. Como era grátis/livre, a emissão de boletos falsos era muito comum.
Apesar do modelo de boleto ser bem semelhante, e parecer tudo a mesma coisa, os números que entram pra formar a linha digitável e/ou o código de barras podem variar também.
E importante:
Geralmente é conversado com o banco, porque cada tipo de cobrança pode envolver um valor diferente, e é negociado pela empresa envolvida e o banco, até mesmo pra fazer a liberação de uso.
Ainda mais este ano, que "dizem" estar tentando evitar fraudes em boletos. Como era grátis/livre, a emissão de boletos falsos era muito comum.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Imprimir boleto da C.E.F.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Imprimir boleto da C.E.F.
Amiguinhos,
Caso queira integrar com MrBoleto, analise o meu código.
A primeira função eu uso para marcar os registros do meu arquivo financeiro que farão parte do job de impressões.
A segunda função cria o script que o MrBoleto interpreta e chuta-pro-gol.
Função VerifyINI()
Caso queira integrar com MrBoleto, analise o meu código.
A primeira função eu uso para marcar os registros do meu arquivo financeiro que farão parte do job de impressões.
A segunda função cria o script que o MrBoleto interpreta e chuta-pro-gol.
Código: Selecionar todos
/*
***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
* FUNCAO: Imprime boletos de varios bancos utilizando o aplicativo MRBoleto
***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
*/
function MarcaMRBoleto()
local oDlg
local lSave := 2, lEmite := .f., lEmail := .f.
cPathBLPRO := VerifyINI( "MRBoleto", "Pasta", "", cPath+"nfw.ini", .f. )
cArquivoLote := VerifyINI( "MRBoleto", "Lote" , "", cPath+"nfw.ini", .f. )
if empty( cPathBLPRO )
if MsgYesNo( "Procurar pasta do componente MRBoleto?" )
cPathBLPRO := cGetDir("Pasta do MRBoleto",cPathBLPRO) + "\"
VerifyINI( "MRBoleto", "Pasta", cPathBLPRO, cPath+"nfw.ini", .t. )
endif
endif
if !file( cArquivoLote )
cArquivoLote := cGetFile( "Arquivo Lote (*.csv) |*.csv|" + "Todos arquivos (*.*) |*.*|", "Selecione o arquivo" )
VerifyINI( "MRBoleto", "Lote" , cArquivoLote, cPath+"nfw.ini", .t. )
endif
if ! file( cPathBLPRO+"\MRBoleto.exe" )
MsgStop( "Instale o componente MRBoleto" )
return .t.
endif
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "dlgConfirma" TITLE "Confirma"
REDEFINE ICON oIcon100 ID 100 RESOURCE "icon_impresora" OF oDlg
REDEFINE ICON oIcon103 ID 103 RESOURCE "icon_email" OF oDlg
REDEFINE SAY oSay101 ID 101 PROMPT "Atencao: O titulo esta sendo acrescentado ao JOB de boletos a serem amitidos. Confirma?" OF oDlg
REDEFINE SAY oSay102 ID 102 PROMPT "Voce gostaria de enviar este boleto para a caixa de email deste cliente?" OF oDlg
REDEFINE BUTTON ID 1 OF oDlg ACTION ( lSave := 1 , oDlg:End() )
REDEFINE BUTTON ID 2 OF oDlg ACTION ( lSave := 2 , oDlg:End() )
REDEFINE BUTTON oBtn3 ID 3 OF oDlg ACTION ( lSave := 3 , oDlg:End() ) DEFAULT
oBtn3:cCaption := "Confirmar e Enviar"
ACTIVATE DIALOG oDlg CENTERED
do case
case lSave = 1
lEmite := .t.
lEmail := .f.
case lSave = 2
lEmite := .f.
case lSave = 3
lEmite := .t.
lEmail := .t.
endcase
if lEmite // MsgYesNo("Atencao:"+CRLF+CRLF+"O titulo esta sendo acrescentado ao JOB de"+CRLF+"boletos a serem amitidos."+CRLF+CRLF+"Continua?",)
Sacado_Nome := FDECRIPTA( PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"NOME" ) )
Sacado_CNPJ := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"CGC" )
Sacado_Rua := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"ENDERECO" )
Sacado_Bairro := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"BAIRRO" )
Sacado_Cidade := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"CIDADE" )
Sacado_Estado := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"ESTADO" )
Sacado_CEP := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"CEP" )
Sacado_EMail := PESQ( STR(CONTAS->IDCLIENTE,5,0), "CLIENTES", 2,"EMAIL" )
Boleto_Juros := PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"JUROS" )
Boleto_Taxa := PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"TAXA" )
Boleto_Instrucao := alltrim( PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"INSTRUCAO1" ) )+"|"+;
alltrim( PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"INSTRUCAO2" ) )+"|"+;
alltrim( PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"INSTRUCAO3" ) )+"|"+;
alltrim( PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"INSTRUCAO4" ) )+"|"+;
alltrim( PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"INSTRUCAO5" ) )
ImprimeMRBDOC( Banco________, ; // 001
Banco_Agencia, ; // 3482
Banco_Ag_Dv__, ; // 07
Banco_Ag_Un_A, ; //
Conta________, ; // 90090
Conta_DV_____, ; // 7
Conta_OP_____, ; //
Carteira_____, ; // 18
Carteira_Tipo, ; //
CONTAS->IDBOLETO, ;
"NFe", ;
Prefixo______, ; // 153454
Prefixo_DV___, ; // 9
CONTAS->DESDOBRA, ;
"N", ;
"R$", ;
CharRem("-/",dtoz(CONTAS->DATA)), ;
CharRem("-/",dtoz(CONTAS->ARECEBER)), ;
CONTAS->VALOR, ;
Boleto_Juros, ;
Boleto_Taxa, ;
2, ; // Copias
PESQ( str(CONTAS->IDBANCO,5,0), "INSTRU",1,"PRACA" ), ; // Pague em qualquer banco até o limite da data de vencimento
Boleto_Instrucao, ;
"", ; // Demonstrativo-Vetor: pode a exemplo ser utilizado para se demonstrar o rateio de despesas para condominios||Utiliza Fonte com espaçamento de tamanho fixo ( Courier ), o que permite geração de demostrativos financeiros flexiveis.||O limite é sua criatividade :)||Exiba detalhes importantes para o usuario||Valores em cobrança||Contratos||Informações úteis||Etc...
Cl_Nome+"|"+Cl_CNPJ, ;
Sacado_Nome+"|"+Sacado_CNPJ+"|"+Sacado_Rua+"|"+Sacado_Bairro+"|"+Sacado_Cidade+"|"+Sacado_Estado+"|"+Sacado_cep, ;
"", ; // Avalista: CNPJ|Avalista: Nome|Avalista: Endereço ( Opcional )
Sacado_Email, lEmail )
endif
return .t.
FUNCTION ImprimeMRBDOC( Banco________, ;
Banco_Agencia, ;
Banco_Ag_Dv__, ;
Banco_Ag_Un_A, ;
Conta________, ;
Conta_DV_____, ;
Conta_OP_____, ;
Carteira_____, ;
Carteira_Tipo, ;
NossoNumero__, ;
Doc_Origem___, ;
Prefixo______, ;
Prefixo_DV___, ;
Doc_Numero___, ;
Doc_Aceite___, ;
Doc_Especie__, ;
Doc_Data_____, ;
Vencimento___, ;
Valor________, ;
Multa_Auto___, ;
Juros_Mes____, ;
Numero_Vias__, ;
Local_Pagamen, ;
Instrucoes___, ;
Demonstrativo, ;
Cedente______, ;
Sacado_______, ;
Avalista_____, ;
cEmail, lEmail )
LOCAL nHandle, nLenght, cHeader
if file( cPathBLPRO+"\MRBoleto.ini" )
VerifyINI( "MRBoleto", "Banco________","001" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Banco_Agencia","3482" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Banco_Ag_Dv__","07" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Banco_Ag_Un_A","" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Conta________","90090" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Conta_DV_____","7" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Conta_OP_____","" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Carteira_____","18" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Carteira_Tipo","" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "NossoNumero__","62160101", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Doc_Origem___","NFe" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Prefixo______","153454" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Prefixo_DV___","9" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Doc_Numero___","00001234", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Doc_Aceite___","N" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Doc_Especie__","R$" , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Doc_Data_____","20121127", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Vencimento___","20121226", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Valor________",13.37 , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Multa_Auto___",2 , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Juros_Mes____",2 , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Numero_Vias__",2 , cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Local_Pagamen","Pague em qualquer banco até o limite da data de vencimento", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Instrucoes___","Desconto de 5% se pago até o dia 07/12/2012|Não receber após 30 dias da data de vencimento", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Demonstrativo","Vetor: pode a exemplo ser utilizado para se demonstrar o rateio de despesas para condominios||Utiliza Fonte com espaçamento de tamanho fixo ( Courier ), o que permite geração de demostrativos financeiros flexiveis.||O limite é sua criatividade :)||Exiba detalhes importantes para o usuario||Valores em cobrança||Contratos||Informações úteis||Etc...", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Cedente______","Cedente: CNPJ|Cedente: Nome|Cedente: Endereço ( Opcional )", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Sacado_______","Sacado: CNPJ|Sacado: Nome|Sacado: Endereço Completo", cPathBLPRO+"\MRBoleto.ini", .t. )
VerifyINI( "MRBoleto", "Avalista_____","Avalista: CNPJ|Avalista: Nome|Avalista: Endereço ( Opcional )", cPathBLPRO+"\MRBoleto.ini", .t. )
endif
cPathBLPRO := VerifyINI( "MRBoleto", "Pasta", "", cPath+"nfw.ini", .f. )
cArquivoLote := VerifyINI( "MRBoleto", "Lote" , "", cPath+"nfw.ini", .f. )
if empty( cPathBLPRO )
if MsgYesNo( "Procurar pasta do componente MRBoleto?" )
cPathBLPRO := cGetDir("Pasta do MRBoleto",cPathBLPRO) + "\"
VerifyINI( "MRBoleto", "Pasta", cPathBLPRO, cPath+"nfw.ini", .t. )
endif
endif
if !file( cArquivoLote )
cArquivoLote := cGetFile( "Arquivo Lote (*.csv) |*.csv|" + "Todos arquivos (*.*) |*.*|", "Selecione o arquivo" )
VerifyINI( "MRBoleto", "Lote" , cArquivoLote, cPath+"nfw.ini", .t. )
endif
if file( cPathBLPRO+"\MRBoleto.exe" ) //
VerifyINI( "MRBoleto", "Banco________",Banco________, cPathBLPRO+"\MRBoleto.ini", .t. ) // "341"
VerifyINI( "MRBoleto", "Banco_Agencia",Banco_Agencia, cPathBLPRO+"\MRBoleto.ini", .t. ) // "3482"
VerifyINI( "MRBoleto", "Banco_Ag_Dv__",Banco_Ag_Dv__, cPathBLPRO+"\MRBoleto.ini", .t. ) // "07"
VerifyINI( "MRBoleto", "Banco_Ag_Un_A",Banco_Ag_Un_A, cPathBLPRO+"\MRBoleto.ini", .t. ) // ""
VerifyINI( "MRBoleto", "Conta________",Conta________, cPathBLPRO+"\MRBoleto.ini", .t. ) // "90090"
VerifyINI( "MRBoleto", "Conta_DV_____",Conta_DV_____, cPathBLPRO+"\MRBoleto.ini", .t. ) // "7"
VerifyINI( "MRBoleto", "Conta_OP_____",Conta_OP_____, cPathBLPRO+"\MRBoleto.ini", .t. ) // ""
VerifyINI( "MRBoleto", "Carteira_____",Carteira_____, cPathBLPRO+"\MRBoleto.ini", .t. ) // "18"
VerifyINI( "MRBoleto", "Carteira_Tipo",Carteira_Tipo, cPathBLPRO+"\MRBoleto.ini", .t. ) // ""
VerifyINI( "MRBoleto", "NossoNumero__",NossoNumero__, cPathBLPRO+"\MRBoleto.ini", .t. ) // "62160101"
VerifyINI( "MRBoleto", "Doc_Origem___",Doc_Origem___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "NFe"
VerifyINI( "MRBoleto", "Prefixo______",Prefixo______, cPathBLPRO+"\MRBoleto.ini", .t. ) // "153454"
VerifyINI( "MRBoleto", "Prefixo_DV___",Prefixo_DV___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "9"
VerifyINI( "MRBoleto", "Doc_Numero___",Doc_Numero___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "00001234"
VerifyINI( "MRBoleto", "Doc_Aceite___",Doc_Aceite___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "N"
VerifyINI( "MRBoleto", "Doc_Especie__",Doc_Especie__, cPathBLPRO+"\MRBoleto.ini", .t. ) // "R$"
VerifyINI( "MRBoleto", "Doc_Data_____",Doc_Data_____, cPathBLPRO+"\MRBoleto.ini", .t. ) // "20121127"
VerifyINI( "MRBoleto", "Vencimento___",Vencimento___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "20121226"
VerifyINI( "MRBoleto", "Valor________",Valor________, cPathBLPRO+"\MRBoleto.ini", .t. ) // 13.37
VerifyINI( "MRBoleto", "Multa_Auto___",Multa_Auto___, cPathBLPRO+"\MRBoleto.ini", .t. ) // 2
VerifyINI( "MRBoleto", "Juros_Mes____",Juros_Mes____, cPathBLPRO+"\MRBoleto.ini", .t. ) // 2
VerifyINI( "MRBoleto", "Numero_Vias__",Numero_Vias__, cPathBLPRO+"\MRBoleto.ini", .t. ) // 2
VerifyINI( "MRBoleto", "Local_Pagamen",Local_Pagamen, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Pague em qualquer banco até o limite da data de vencimento"
VerifyINI( "MRBoleto", "Instrucoes___",Instrucoes___, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Desconto de 5% se pago até o dia 07/12/2012|Não receber após 30 dias da data de vencimento"
VerifyINI( "MRBoleto", "Demonstrativo",Demonstrativo, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Vetor: pode a exemplo ser utilizado para se demonstrar o rateio de despesas para condominios||Utiliza Fonte com espaçamento de tamanho fixo ( Courier ), o que permite geração de demostrativos financeiros flexiveis.||O limite é sua criatividade :)||Exiba detalhes importantes para o usuario||Valores em cobrança||Contratos||Informações úteis||Etc..."
VerifyINI( "MRBoleto", "Cedente______",Cedente______, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Cedente: CNPJ|Cedente: Nome|Cedente: Endereço ( Opcional )"
VerifyINI( "MRBoleto", "Sacado_______",Sacado_______, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Sacado: CNPJ|Sacado: Nome|Sacado: Endereço Completo"
VerifyINI( "MRBoleto", "Avalista_____",Avalista_____, cPathBLPRO+"\MRBoleto.ini", .t. ) // "Avalista: CNPJ|Avalista: Nome|Avalista: Endereço ( Opcional )"
//
if lEmail // MsgYesNo("Voce deseja enviar este boleto por email?") // empty(cEmail)
WaitRun( cPathBLPRO+"\MRBoleto.exe -M /E /QM /QE /F:"+cArquivoLote )
else
WaitRun( cPathBLPRO+"\MRBoleto.exe -M /P /QM /QE /F:"+cArquivoLote )
endif
else
MsgStop( "MRBoleto nao instalado." )
endif
RETURN .T.
Código: Selecionar todos
FUNCTION VerifyINI( _section_, _entry_, _var_, _inifile_, _grava_ )
oIni := TIni():New( _inifile_ )
if _grava_ = .t.
oIni:Set( _section_, _entry_, _var_ )
endif
return oIni:Get( _section_, _entry_, _var_, _var_ )
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
Kapiaba
- Colaborador

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Imprimir boleto da C.E.F.
Bom dia Rochinha, você alterou a classe? Se sim, podias porfa, postá-la ou enviar-me no skype?
Se possível, poste o *.RC da tela para eu ver se me serve. Além dessa tela, tú mostras mais displays para o cliente, antes de Imprimir? Pode postar mais screenshot para o juma aqui...
Obg. abs.
Se possível, poste o *.RC da tela para eu ver se me serve. Além dessa tela, tú mostras mais displays para o cliente, antes de Imprimir? Pode postar mais screenshot para o juma aqui...
Obg. abs.
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Imprimir boleto da C.E.F.
Amiguinhos,
kapiaba não alterei a classe, compilei na época que baixei e implementei o uso. Mas o cliente preferiu emitir via aplicativo do banco.
Código do resource:
kapiaba não alterei a classe, compilei na época que baixei e implementei o uso. Mas o cliente preferiu emitir via aplicativo do banco.
Código do resource:
Código: Selecionar todos
dlgConfirma DIALOG 31, 35, 283, 105
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Confirmar rotina"
FONT 8, "Tahoma"
{
DEFPUSHBUTTON "Não", 2, 228, 32, 50, 14
PUSHBUTTON "Sim", 1, 175, 32, 50, 14
PUSHBUTTON "Inativar", 3, 174, 86, 104, 14
ICON "icon_lixeira", 100, 6, 5, 21, 20
LTEXT "Tem certeza de que deseja excluir o registro escolhido? Isto não poderá ser revertido posteriormente.", 101, 35, 5, 244, 26
ICON "icon_info", 103, 6, 58, 21, 20
LTEXT "Voce poderá colocar o registro na situação de inativo ou arquivo morto e poderá recuperá-lo posteriormente.", 102, 35, 58, 244, 26
GROUPBOX "", -1, -6, 48, 296, 62, BS_GROUPBOX
}
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
- rochinha
- Administrador

- Mensagens: 4664
- Registrado em: 18 Ago 2003 20:43
- Localização: São Paulo - Brasil
- Contato:
Imprimir boleto da C.E.F.
Amiguinhos,
kapiaba
O MRBoleto lê um arquivo .INI? pois se fizer isto fica mais fácil voce implementar, antes de despender tempo criando a tela, que poderá ser feito a em outro momento.
A partir de seu sistema acrescente uma opção no menu financeiro, Imprimir Boleto, e forme as variáveis necessárias para o aplicativo do MRBoleto possa gerar o mesmo.
Com tempo de sobra ai você integra o código e cria uma tela para interação usuástica.
kapiaba
O MRBoleto lê um arquivo .INI? pois se fizer isto fica mais fácil voce implementar, antes de despender tempo criando a tela, que poderá ser feito a em outro momento.
A partir de seu sistema acrescente uma opção no menu financeiro, Imprimir Boleto, e forme as variáveis necessárias para o aplicativo do MRBoleto possa gerar o mesmo.
Com tempo de sobra ai você integra o código e cria uma tela para interação usuástica.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.