Clipper On Line • Ver Tópico - Imprimir boleto da C.E.F.

Imprimir boleto da C.E.F.

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Imprimir boleto da C.E.F.

Mensagempor Kapiaba » 13 Ago 2020 12:53

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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Imprimir boleto da C.E.F.

Mensagempor JoséQuintas » 13 Ago 2020 13:08

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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Imprimir boleto da C.E.F.

Mensagempor Kapiaba » 13 Ago 2020 13:13

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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Imprimir boleto da C.E.F.

Mensagempor JoséQuintas » 13 Ago 2020 13:15

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.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Imprimir boleto da C.E.F.

Mensagempor JoséQuintas » 13 Ago 2020 13:18

Aqui

https://github.com/MRonaldo/MR-Tools

Confirme se já tem endereço, passou a ser obrigatório.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Imprimir boleto da C.E.F.

Mensagempor rochinha » 13 Ago 2020 19:22

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.

/*
***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
* 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.


Função VerifyINI()

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 fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Imprimir boleto da C.E.F.

Mensagempor Kapiaba » 14 Ago 2020 07:50

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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Imprimir boleto da C.E.F.

Mensagempor rochinha » 14 Ago 2020 12:47

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:
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
}


kapiaba.jpg
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

Imprimir boleto da C.E.F.

Mensagempor Kapiaba » 19 Ago 2020 17:55

TELABOLETO.png


Simulando a classe MRBOLETO. Estou no caminho certo?
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1765
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 310 vezes
Mens.Curtidas: 119 vezes

Imprimir boleto da C.E.F.

Mensagempor rochinha » 19 Ago 2020 19:08

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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro