agp.ds
-
Posts
132 -
Joined
-
Last visited
-
Days Won
2
Posts posted by agp.ds
-
-
Agora, kapiaba disse:
Fala Aguinaldo meu rei... Qual é a versão do Seu FWH? Estou usando FWH1905. Obg. abs.
Minha versão é 8.01 bem velhinha kkk xharbour 1.0.0
-
1 hora atrás, kapiaba disse:
Bom dia. Podem testar o último exemplo do Mestre Navarro? Após trocar o botão, passar o MOUSE sobre a BARRA de BOTÕES, e ver se os itens dos Botões reaparecem? Preciso saber se é um BUG na minha versão.
aqui:
Obg. abs.
Regards, saludos.
Bom dia João, testei aqui não reaparecem não é BUG de sua versão...
-
Em 24/02/2023 at 15:13, mkyx disse:
ACHEI O ARQUIVO, FAVOR IGNORAR, ESSA REQUISIÇÃO
Mas, mesmo com o arquivo CODEBAR.CH, continua dando erro de leitura, pelo App do BB.
Olá, AGP.DS, fui compilar a sua versão, mas, não tenho o arquivo CODEBAR.CH
Onde posso baixá-lo?
Olá mkyx, Testei com vários apps tanto do banco do brasil bradesco e caixa e funcionou, segue anexo o CODEBAR.CH
-
Boa tarde, andei dando uma olhada nas dicas postadas aqui no fórum e consegui gerar o QRCODE PIX
Só não testei com chave email.
Segue para quem quiser baixar e modificar
https://mega.nz/file/hkUXkKAI#6e4rNTcr-bA9lYvRThy8clH7_N7NWC9imvmkVWBS7y4 -
Alterei o arquivo Bol.htm na pasta boleto ficou do jeito que queria...
Achei que era na classe.
Obrigado, a todos... -
4 minutos atrás, kapiaba disse:
Como você gera a Impressão? WHILE... ENDO Ou FOR... NEXT?
Tem algum exemplo simples para compilar para a gente entender?
Abs.
Regards, saludos.
Olá, João blz?
FOR... NEXTEstou usando o exemplo que baixei no site
-
Boa tarde, gostaria de saber como faço para imprimir dias vezes na mesma página o recibo do sacado, ou seja preciso desenvolver um recibo de entrega onde o cliente assina.
Desde já obrigado a todos
-
13 minutos atrás, kapiaba disse:
Jesus!! 3 meses depois, eu consegui baixar do 4shared, disparou para 400 páginas diferentes e "esquisitas".
Nunca mais eu usarei o 4shared, tenho o Mega Upload, simples, fácil e seguro:
Obrigado meu REI do Paraná. Many thanks. Regards, saludos.
Verdade esse 4shared é osso, vou me cadastrar no Mega...
-
6 horas atrás, kapiaba disse:
Alguém tem o PELLESC.exe para 32 bits? Neste link arriba, só baixa o de 64 bits. Apenas para testes. Obg, abs.
Boa tarde João segue o Pelles c 32 bits
Pelles32 - Baixar - 4shared -
Boa tarde, da uma olhada nesse exemplo:
#include "FiveWin.ch"
#xcommand @ <nRow>,<nCol> SAY <cText> OF <oPrinter> => <oPrinter>:Say(<nRow>, <nCol>, <cText> )function PPLA(wREF,wQTDE)
LOCAL nREF1:=SPACE(08), nREF2:=SPACE(07), nIND:=0
LOCAL nVEND:=0, nQTD:=0, nIX:="", nCob
LOCAL nLin := 0, nCol:=0
wREF:=SPACE(15)
wQTDE:=0
nREF1:=(wREF,8)
nREF2:=(wREF,7)
nVEND:=45.50
nQTD:=wQTDE
nCob:="00000017"
nIX:="R$"oPrn:= TDosPrn():New("CODIGO.PRN")
oPrn:StartPage()
oPrn:lZeraBuffer:=.T. // Inibe o Pulo da P ginaWHIL ! ISPRINTER()
IF ! MsgRetryCancel( "Sua Impressora, Não Esta Ligada!!! " + CRLF + ;
"Favor Verificar e tente de novo!",;
"Erro de Impressora!" )
Return Nil
ENDIF
ENDDOoPrn:Say(1, 1, CHR(002)+"m"+CHR(13) ) // * Configura em milimitros
oPrn:Say(1, 1, CHR(002)+"L"+CHR(13) ) // * INICIA com o comando de entrada do formato da etiqueta
oPrn:Say(1, 1, "H12"+CHR(13) ) // Qualidade
oPrn:Say(1, 1, "D11"+CHR(13) ) // DensidadeFor nCol := 1 to 3
*If !Empty(aConteudo1[nVz,nCol])
cLin1 := "Produto"
cLin2 := "Texto2"
cLin3 := "20,60"
cBar := "0000000009173"
cBar1 := "5029"// CHR(002)+"L"+CHR(13) = Comando de entrada do formato da etiqueta
// Formato Texto:
// 1.2.1.1.000.0100.0050, onde:
// 1 = Orientação da etiqueta
// 2 = Fonte (0-8 com Subtipo 000 /ou/ 9 com Subtipo de 000 a 007 /ou/ : com subtipo 000 a 005)
// 1 = Multiplicador Horizontal
// 1 = Multiplicador Vertical
// 000 = Subtipo da Fonte (000 a 007, depende da Fonte) - Quanto maior o número maior a fonte.
// 0100 = Posição inicial Y (linha) máximo=101.6
// 0050 = Posição inicial X (coluna) máximo=762
// Exemplo: = oPrn:Say(1,1,CHR(002)+"L"+CHR(13)+"121100001000050"+"Esta é uma etiqueta teste"+CHR(13)+"E"+CHR(13))
//
// Formato CodBar:
// 1.2.1.1.000.0100.0050, onde:
// 1 = Orientação da etiqueta
// 2 = Tipo da Barra EAN13, 2-5
// 1 = Largura da Barra Largua
// 1 = Largura da Barra Fina
// 000 = Altura do Código de Barras
// 0100 = Posição inicial Y (linha) máximo=101.6
// 0050 = Posição inicial X (coluna) máximo=762
/*
Do Case
Case nTipoBar=1 ; cLetra:="A" // Code 3 de 9
Case nTipoBar=2 ; cLetra:="E" // Code 128
Case nTipoBar=3 ; cLetra:="F" // Ean 13
Case nTipoBar=4 ; cLetra:="G" // Upca
End
*/
xcodi:="1F1209000100410"if nCol=1
oPrn:Say(1, 1, "120100001700050"+cLin1+CHR(13) ) // nome da empresa
oPrn:Say(1, 1, "121100001500050"+cLin3+CHR(13) ) // valor
oPrn:Say(1, 1, "1F1209000100050"+cBar +CHR(13) ) // Código de Barras
//1F1203000500300
elseif nCol=2
oPrn:Say(1, 1, "120100001700410"+cLin1+CHR(13) ) // nome da empresa
oPrn:Say(1, 1, "121100001500410"+cLin3+CHR(13) ) // valor
oPrn:Say(1, 1, xcodi+cBar +CHR(13) ) // Código de Barras
elseif nCol=3
oPrn:Say(1, 1, "120100001700770"+cLin1+CHR(13) ) // nome da empresa
oPrn:Say(1, 1, "121100001500770"+cLin3+CHR(13) ) // valor
oPrn:Say(1, 1, "1A0009000100770"+cBar1+CHR(13) ) // Código de Barras
EndIf
Next nCol
oPrn:Say(1, 1, "E"+CHR(13) ) // * ENCERRA a etiqueta
oPrn:EndPage() // Obrigat¢rio
oPrn:End() // Idem
SysRefresh()ImpSpool( "CODIGO.PRN", "LPT1", .T. )
return .t.//----------------------------------------------------------------------------//
FUNCTION ImpSpool( cFileTxt, cPorta, lErase )
LOCAL CPRINTER
//para capturar antes da impressão
//cPorta := PrnGetPorta()
//WinExec( cPorta )
//depois da impressão
//WinExex( "Net Use Lpt1: \Delete" )
//Ficou mais facil e simples do que criar as portas na Classe TDosPrn
//cPorta := If( cPorta == nil, Alltrim( PrnGetPort() ), cPorta ) ; lErase := If( lErase == nil, .T., lErase );
//cPorta := PrnGetPort()
Default cPorta := Alltrim( PrnGetPort() ), lErase:= .t.
cPrinter := PrinterPortToName( cPorta )
IF EMPTY( cPrinter ) // By Kleyber Derick
cPrinter := PrinterPortToName( "USB002" )
IF EMPTY(cPrinter)
cPrinter := PrinterPortToName( "USB001" )
ENDIF
// e se estiver nas USB003 OU USB004?
ENDIF
IF .NOT. FILE( cFileTxt )
MsgInfo( OemToAnsi( "NÇO ACHEI O ARQUIVO MODO TEXTO PARA IMPRIMIR NA MATRICIAL" ), ;
OemToAnsi( "NÇO ACHEI O ARQUIVO MODO TEXTO PARA IMPRIMIR NA MATRICIAL" ) )
RETURN( .F. )
ENDIF
IF .NOT. EMPTY( cPrinter ) // TEM USB
PrintFileRaw( cPrinter, cFileTxt, "Impressão de CÓDIGO" )
ELSEIF LEN( cPorta ) <= 5 .and. Left( Upper(cPorta), 4 ) = "LPT1"
//--- Spool Local - Matricial em LPT1
cPorta:= "PRN"
WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 )
ELSE
//--- Spool Remoto - Matricial em LPT1
WAITRUN("COMMAND.COM /C COPY /B " + cFileTxt + " " + cPorta, 0 )
ENDIF
IF lErase // Vem .T. da tela de vendas
FERASE( cFileTxt ) // apaga o .TXT
ENDIF
RETURN( .T. ) -
3 minutos atrás, Marca disse:
Cnab 240
75600000 100099999999999 03008 0000000099999 teste BANCO COOPERATIVO DO BRASIL S/ 12101201312003300001208100000
75600011R01 040 1000099999999999 03008 0000000099999 teste 000000122101201300000000
7560001300001P 0103008 0000000099999 000005123001016 10 22TESTE CNAB240 3101201300000000000010000000 02N21012013200000000000000000001000000000000000000000000000000000000000000000000000000000 1000 090000000000
7560001300002Q 011000010707729769teste RUA AMELIA SANTOS VENTURINI CENTRO 99999999cidade ES0000000000000000 000
7560001300003R 01000000000000000000000000000000000000000000000000200000000000000000000200 0000000000000000 000000000000 0
7560001300004S 013APÓS VENCIMENTO MULTA DE XX APÓS VENCIMENTO, MORA DE XX APENAS TESTE.
75600015 00000600000100000000000000100000000000000000000000000000000000000000000000000000000000000000000000 -1b64757345476cd639bc6602e88f2181c343505b
75699999 000001000008000000
CNAB400
01REMESSA01COBRAN�A 300820000xxxxx xxxxx xxxx 756BANCOOBCED 0309120000001 000001
101000xxxxxxxxxxx300820000xxxxx000000 0000000511120100 0000000000000000 20201teste 2709120000000001000756300820100309130001000000000000200000000000000000009000000000000000000000000002xxxxxxxxxxxxxxTeste AV. PRESIDENTE VARGAS, ES CENTRO 29260000DOMINGOS MARTINES 00 000002
9 000003
É isso! obrigado.
-
22 horas atrás, kapiaba disse:
Bom dia João, na verdade eu queria um arquivo já gerado tipo em .TXT ou .REM para comparar com o que eu estou gerando.
Aqui na empresa que trabalho já fiz do Banco Brasil, Itaú e Bradesco mas esse Sicoob tá osso kkkkkk.
Obs: É para uso aqui na empresa mesmo nada comercial.Abs.
-
Bom dia a todos, alguém teria um arquivo de remessa do SICOOB para disponibilizar.
O objetivo é eu seguir como exemplo, desde já obrigado a todos... -
Achei interessante também, poderia disponibilizar no
Em 27/03/2021 at 17:10, emotta disse:Coloque o projeto no Github como público e manda o link pra galera
É a forma mais simples de compartilhar um projeto com todos
Também achei interessante, pena não estar disponível mais...
-
Agnaldo.. vou mandar um modelo que tenho aqui..
Att.
Everton
Obrigado!
-
Enviado. Se alguém mais quiser, me avise.
Olá, boa tarde, se puder me enviar também fico agradecido.
gui_mgapr@hotmail.com ou nicopan@nicopan.com.br
Att: Agnaldo
-
/*--------------------------------------------------------------------------- * ANO COM 04 DIGITOS *---------------------------------------------------------------------------* SET CENTURY ON SET DATE FORMAT "DD/MM/YYYY" // SENAO A DATA FICA ERRADA. oBoleto := MR_Boleto():New( cFilePdf )
Blz vou testar na segunda feira obrigado...
-
Boa tarde, estive testando esta classe junto ao sistema aqui da empresa porém a configuração do sistema está
"set Date Brit" para mostrar a data normal, quando mando imprimir o boleto a data sai da seguinte forma 12/23/2016 ao invés de 23/12/2016notei na classe este #Define:
#define Bol_Start_Date STOD( "10071997" )teria como alterar?
Obrigado...
-
Internamente no programa, tem a palavra BANCO ou BANCO DO BRASIL? Você dispara para o I.E., direto do seu programa? se sim, tente disparar com ACTIVEX, para ver se resolve, tente enganar o FIREWALL do banco ou tentar desligá-lo enquanto navega no I.E. Se precisa acionar o Banco do Brasil via programa, veja se ele entra pelo google Chrome, mas eu acho que não.
Ou ao disparar, reboot o seu programa com um .bat, é uma idéia. Se bem que eu duvido que vá funcionar, o FIREWALL do BB és phueda. abs.
HUmmm vou verificar obrigado João...
-
Sim tem programa do BANCO DO BRASIL, windows 7 32 bits...
Att
-
Boa tarde a todos, me deparei com um problema estranho que está me intrigando, quando estou usando o Internet explorer com alguma aplicação que usa Java, meu sistema fica invisível os botões da Buttonbar e os itens da Listbox enfim fica tudo invisível como segue imagens anexadas: Alguma LUZ?
http://www.infogui.com.br/images/sis1.jpg
http://www.infogui.com.br/images/sis2.jpg
-
Fala meu rei, se compilar com [x]Harbour, envie sim. Obg. abs.
Olá bom dia poderia enviar pra mim também, não uso (Harbour) e sim xHarbour
-
Bom dia amigos, eu usava DLL cobrebem e acabei abandonando extamente por isso, não tem suporte neunhum, atualmente estou usando o BoletoPhp é muito simples de usar e é totalmente FREE Open-Source.
Já estou com o BoletoPHP à 04 anos, a linguagem PHP é muito simples e não precisa ser um expert na área se alguém quiser dar uma olhada segue o link
Obs: Deixei um exemplo em Fivewin e PHp em dicas já algum tempo atrás.
Abs...
Agnaldo
-
citação:
id=quote>id=quote>Ola
alguem conseguiu compilar com xHarbour?
FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX
Bom dia!
Alguém conseguiu com xHarbour ?????
Agnaldo
FWH 8.01 + xHarbour 1.1.0 + Workshop + Verce v4.3
Boleto Banco Sicoob
in Programação
Posted
Bom dia Eroni, poderia disponibilizar novamente quando baixo o arquivo vem vazio.
Desde já obrigado.