ronaldo

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

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

Oliveira http://www.bazevani.com.br 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