-
Posts
314 -
Joined
-
Last visited
Posts posted by ronaldo
-
-
trabalhamos com o envio CNAB, no caso do itaú, você precisa fazer a leitura do arquivo de retorno, onde o mesmo demonstra que o registro entrou com sucesso, nesse retorno você consegue sua numeração e a nova numeração, mas realmente é algo estranho porque alguns clientes não muda a numeração.. então eu controle isso em outro arquivo.. meu numero e numero do banco para usar na 2a via...
-
sim seria, mas deveria diminui né?
where vencto < "+Any2Sql(Date()-10)
Ronaldo Minacapelli
(11) 2950 3069
-
utilize a classe rtf
Ronaldo Minacapelli
(11) 2950 3069
-
ocorre isto, porque esse comando deve ficar dentro de uma procedure ou function
I:\teste\clientes.prg(34) Error E0001 Statement not allowed outside of
Ronaldo Minacapelli
(11) 2950 3069
-
Kleyber
bom dia! ai esta os fontes
http://http://www.bazevani.com.br/ronaldo/clientes.txt --> principal (override + function cmline())
http://www.bazevani.com.br/ronaldo/prg1193.txt --> inicia a impressão
http://http://www.bazevani.com.br/ronaldo/winfunc.txt --> complemento da impressão (cabecalho)
Ronaldo Minacapelli
(11) 2950 3069
-
coloquei o override e a funcao dentro do prg principal porem o erro continua... outro detalhe o printer.prg nao estou compilando estou usando o nativo...
Ronaldo Minacapelli
(11) 2950 3069
-
ja tentou utilizar a barlib? procure por ela
Ronaldo Minacapelli
(11) 2950 3069
-
fiz essa correção. compilou mas ao imprimir demostra o erro:
Cuidado BASE/1004 Message not found: TPRINTER:RCMLINE
fiz das duas formas abaixo:
oaprn:RCmLine( nlln+=.2, nlesq, nlln, nldir, oapen)
oaprn:CmLine( nlln+=.2, nlesq, nlln, nldir, oapen)
Ronaldo Minacapelli
(11) 2950 3069
-
então deixei a funcao abaixo dentro winfunc.prg assim:
FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut, nLeft, nTop ),;
LineTo( ::hDCOut, nRight, nBottom,;
If( oPen != nil, oPen:hPen, 0 ) )
veja o erro que aparece quando compilo:
1. I:\teste\winfunc.prg(25) Error E0030 Syntax error: "syntax error at 'INLINE'"
2. I:\teste\winfunc.prg(29) Error E0030 Syntax error: "syntax error at ','"
eu acho que é esse inline nao achei ele nos CH
Ronaldo Minacapelli
(11) 2950 3069
-
Kleyber, eu adicionar no prg hbclass.ch" porem o erro abaixo ocorre ainda...
FUNCTION RCmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut, nLeft, nTop ),;
LineTo( ::hDCOut, nRight, nBottom,;
If( oPen != nil, oPen:hPen, 0 ) )
Ronaldo Minacapelli
(11) 2950 3069
-
tenho este metodo que se colocar no tprinter.prg funciona perfeitamente, o problema é quando houver atualizacoes do fivewin então gostaria de coloca-lo em outro prg como winfunc.prg
como posso fazer isso funcionar?
METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut, nLeft, nTop ),;
LineTo( ::hDCOut, nRight, nBottom,;
If( oPen != nil, oPen:hPen, 0 ) )
Ronaldo Minacapelli
(11) 2950 3069
-
tenho este metodo que se colocar no tprinter.prg funciona perfeitamente, o problema é quando houver atualizacoes do fivewin então gostaria de coloca-lo em outro prg como winfunc.prg
como posso fazer isso funcionar?
METHOD CmLine( nTop, nLeft, nBottom, nRight, oPen ) INLINE
::Cmtr2Pix(@nTop, @nLeft), ::Cmtr2Pix(@nBottom, @nRight),;
MoveTo( ::hDCOut, nLeft, nTop ),;
LineTo( ::hDCOut, nRight, nBottom,;
If( oPen != nil, oPen:hPen, 0 ) )
Ronaldo Minacapelli
(11) 2950 3069
-
a melhor forma é abrir quando a dialog estiver pronta, e para isto use esta funcao
oDlg:bStart:={||Suafuncao()}
coloque isto antes do ACTIVATE DIALOG....
Ronaldo Minacapelli
(11) 2950 3069
-
Tprogress realmente tem esse problema.use tmeter ou tente pausar o progresso com syswait
Ronaldo Minacapelli
(11) 2950 3069
-
Estamos selecionando programadores com experiência em Clipper/Fivewin, ASP/HTML e MYSQL, que residam na z/oeste de são paulo...
Interessados enviar curriculum para adm@bazevani.com.br.
Ronaldo Minacapelli
(11) 2950 3069
-
Estamos selecionando programadores com experiência em Clipper/Fivewin, ASP/HTML e MYSQL, que residam na z/oeste de são paulo...
Interessados enviar curriculum para adm@bazevani.com.br.
Ronaldo Minacapelli
(11) 2950 3069
-
isto fara em todos gets da sua dialog.
aEval( oDlg:aControls, {|o| If(o:ClassName() == "TGET", o:lDisColors:=.F., NIL) } )
Ronaldo Minacapelli
(11) 2950 3069
-
Nossa empresa tem sistemas para imobiliaria e o sistema faz a importação, não direta mas é gerado o arquivo no formato e então importado para o programa do dimob. no proprio programa do dimob (instale ele) na ajuda tem o layout de importação!
Ronaldo Minacapelli
(11) 2950 3069
-
-
o que conheco é o in mesmo.
nvar = 1.25
msgstop( int(nvar) ) = 1
Ronaldo Minacapelli
(11) 2950 3069
-
Atualmente faço isso tambem, mas para mim o desempenho aumentou, você precisa é deixar o arquivo temporario no local da estação. isto ajuda muito.
ronaldo
Ronaldo Minacapelli
(11) 2950 3069
-
baixei este drive acho que visal studio 2010, com ele instalado e colocando as string abaixo, esto substituindo meu set filter, com com string sql é muito mais rapido.
ps. dica: nao aconselho abrir banco de dados com o mesmo nome do indice ex: imovel.dbf e imovel.cdx, ele da problma, e tb não fiz teste de inclsao e alteração, somente consulta...
precisa instalar o drive mas dexei o caminho abaixo.
espero ter ajudado...
try
oRs := CreateObject("ADODB.RecordSet")
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:CursorType := adOpenDynamic
oRs:ActiveConnection := "Provider=VFPOLEDB.1;Data Source="+Curdrive()+":\"+Curdir()+";Mode=Read;Extended Properties=DBASE IV"
catch
oDlg:Refresh()
If MsgYesno("Erro no acesso ao OLEDB Visual FoxPro, deseja baixa-lo agora? ","Drive VFP")
ShellExecute( 0, "open", "http://www.bazevani.com.br/atualizacao/VFPOLEDBSetup.msi" )
Else
oDlg:Refresh()
MsgStop("Operação cancelada, necessário a instalação do drive: OLEDB Visual FoxPro","Erro !")
Endif
oDlg:Refresh()
return(.T.)
end
try
oRs:Source := cSQL1
oRs:Open()
catch
oDlg:Refresh()
MsgStop("Operação cancelada, ocorreu alguem problema na leitura do arquivo internet.dbf","Erro !")
oDlg:Refresh()
return(.T.)
end
While .NOT. oRs:Eof
nNro := oRs:Fields("Imovel"):value
Ronaldo Mina
Ronaldo Minacapelli
(11) 2950 3069
-
baixei este drive acho que visal studio 2010, com ele instalado e colocando as string abaixo, esto substituindo meu set filter, com com string sql é muito mais rapido.
ps. dica: nao aconselho abrir banco de dados com o mesmo nome do indice ex: imovel.dbf e imovel.cdx, ele da problma, e tb não fiz teste de inclsao e alteração, somente consulta...
precisa instalar o drive mas dexei o caminho abaixo.
espero ter ajudado...
try
oRs := CreateObject("ADODB.RecordSet")
oRs:CursorLocation := adUseClient
oRs:LockType := adLockOptimistic
oRs:CursorType := adOpenDynamic
oRs:ActiveConnection := "Provider=VFPOLEDB.1;Data Source="+Curdrive()+":\"+Curdir()+";Mode=Read;Extended Properties=DBASE IV"
catch
oDlg:Refresh()
If MsgYesno("Erro no acesso ao OLEDB Visual FoxPro, deseja baixa-lo agora? ","Drive VFP")
ShellExecute( 0, "open", "http://www.bazevani.com.br/atualizacao/VFPOLEDBSetup.msi" )
Else
oDlg:Refresh()
MsgStop("Operação cancelada, necessário a instalação do drive: OLEDB Visual FoxPro","Erro !")
Endif
oDlg:Refresh()
return(.T.)
end
try
oRs:Source := cSQL1
oRs:Open()
catch
oDlg:Refresh()
MsgStop("Operação cancelada, ocorreu alguem problema na leitura do arquivo internet.dbf","Erro !")
oDlg:Refresh()
return(.T.)
end
While .NOT. oRs:Eof
nNro := oRs:Fields("Imovel"):value
Ronaldo Mina
Ronaldo Minacapelli
(11) 2950 3069
-
ai esta achei no forum ingles...
http://www.alexnolan.net/software/dbf.htm
Ronaldo Minacapelli
(11) 2950 3069
FW com MS-SQL Server
in Programação
Posted
Estuo utilizando desta forma:
oSQL := FW_OpenAdoConnection( { "MSSQL", cSQL_Host, cSQL_Db, cSQL_User, cSQL_Psw }, .t. )
if oSQL == nil
msgstop("Erro no acesso a conexão SQL Azure","Erro")
Return(.F.)
endif