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