elitenet

William Uma pequena correção o metodo new não pode dar ( Return .t. ), tem que ser ( Return( Self ) ) FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Acho que entendi a sua duvida! O que você pode fazer e o seguinte, antes de exibir os subtipos ao usuario carregue-os antes em uma matriz e depois utilize por exemplo um combobox para exibi-los ao usuario. Fazendo desta forma todas as vezes que você selecionasse um tipo você adicionava o subtipo outros a matriz automaticamente antes de exibi-la no combobox. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

E chegamos aos mil pontinhos ....... Vamos nós para os dois mil................. E nada de ponto final. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Vamos lá que o ponto vai bater o recorde, vamos chegar as 1000 visitas neste post............................................................................................................................................................................................... Ou mil pontinhos.......................................................................................... FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

O Zeca Eu sei que é o blinker, mas no assembler da para fazer a mesma coisa. Mas ficou bonitinho!.... FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Gente vocês não entederam o que ele queria!... O Rapaz programa em Assembler. Veja se é isso que você queria. (o) (o) ^ `_____´ id=code>id=code>Editado por - elitenet on 26/10/2010 19:28:09

Um comentario O Harbour e xHarbour tem uma opcao para gerar pcode em Java ( /gj ao inves /gc ), desenvolvendo sem libs da para rodar no java. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 28/09/2010 21:01:37

Isso é o CF-E Acredito que os acordos ja estejam firmados e o projeto em andamento, mas será gradativo igual a NF-E. Eles irão passando de acordo com o CNAE das empresas, isso e uma realidade e é o proximo passo após a implantação total da NF-E em Minas Gerais. Obtive estas informações junto a um amigo que trabalha no setor de processamento de dados da receita estadual de minas. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Caros Amigos Este erro e possivel tratar no tratamento de erros, da um pouquinho de trabalho mas da certo. Eu montei um tratamento de erros que consegue retornar a window principal do sistema sem abortar apos cada erro. Mas tem que mexer no fontes do five... FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Tem Jeito sim E so no PellesC voce desabilitar as bordas o item border. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Eric A sua funcao consegue atualizar tamanho de campos e tipo de campos, ou seja, se mudar o tamanho do campo ele atualiza, se mudar o tipo do campo ele atualiza ou se incluir um campo na tabela ele atualizar a tabela e incluir o campo? FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Assim fica mais bonitinho: oPrn:Say( nLinha * ResLinha, nColuna * ResColuna, ; Space( If( SubStr( Conta, -3 ) == "100", 0, 2 ) ) + Trans(Conta,"999.999")+"|"+Nome,,, CLR_BLACK ) FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Jeff Desculpe, do jeito que esta este codigo ele pega a impressora que esta definida como padrao no windows. Faça assim, que a funcao printersetup irá lhe dar a opcao de escolher entre as impressoras instaladas a que você quer: PrinterSetup() SysRefresh() Print oPrn Name "CFG_IMP" If Empty( oPrn:hDC ) Mensagem(, "Impressora desligada ou desconectada!" + CRLF + CRLF + "Verifique e tente novamente.", 3 ) oPrn:End() Return(.f.) EndIf cPorta := oPrn:GetPort() If Rat( ":", cPorta ) # 0 cPorta := SubStr( cporta, 1, ( Rat( ":", cPorta ) - 1 ) ) EndIf oPrn:End() id=code>id=code>FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE Editado por - elitenet on 28/05/2010 18:58:22

Use o FoxPro 2.6 Acabe com seus problemas, em MS-DOS foi o melhor gerenciador de dbfs que encontrei ate hoje. Inclusive ele reconhece alguns comandos parecidos com SQL para tratar DBFS. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Jeff Faça assim antes de chamar a tdosprn e depois passe para a tdosprn a variavel porta: Print oPrn Name "CFG_IMP" If Empty( oPrn:hDC ) Mensagem(, "Impressora desligada ou desconectada!" + CRLF + CRLF + "Verifique e tente novamente.", 3 ) oPrn:End() Return EndIf cPorta := oPrn:GetPort() If Rat( ":", cPorta ) # 0 cPorta := SubStr( cPorta, 1, ( Rat( ":", cPorta ) - 1 ) ) EndIf oPrn:End() id=code>id=code>FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Veja como identificar no seu outro topico aberto!... FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Shark Discordo das suas colocacoes, eu tenho a impressao em RAW e EMF sem problema algum. O que eu fiz foi criar uma classe de impressao herdando TdosPrn e TPRINT. A minha classe so faz uma coisa muito simples identifica se a impressora é matricial ou jato de tinta ou laser e direciona para Tprint ou Tdosprn. Meu sistema não perde em nada em velocidade de impressão para sistemas em dos. Ela faz mais uma coisinha, eu posso usar recursos graficos em um relatorio que ela converte para texto e substitui na impressão na hora de mandar para impressoras matriciais. Veja abaixo um exemplo de como ficou simples de montar um relatorio: Local oImpressao oImpressao := TImpressao():New( "Relatório de Planos de Pagamentos", oRelCad05 ) oImpressao:Executa_Sql( "SELECT * FROM " + Sql_NameTable( "D002" ) + " WHERE codigo_pe >= " + ANY2SQL( Str( nCodigo_1, 3 ) ) + " AND codigo_pe <= " + ANY2SQL( Str( nCodigo_2, 3 ) ) + " ORDER BY codigo_pe" ) If oImpressao:Imprime() oImpressao:nPrnlin := 65 oImpressao:cPrnlinha := Replicate( "-", 143 ) oImpressao:Inicia_Relatorio( 65, 143 ) Begin Sequence RELATORIO->( dbGotop() ) While ! RELATORIO->( Eof() ) If oImpressao:Cancela_Relatorio() Break EndIf If oImpressao:Cabecalho( .t.,, .t. ) oImpressao:PrnSay( oImpressao:nPrnLin, 001, "Cod Descricao Reduzido Forma Parc. Tipo Tipo de Prazo Preco Desc. Vlr. Minimo Documento Altera Baixa" ) oImpressao:nPrnLin += 1 oImpressao:PrnSay( oImpressao:nPrnLin, 001, oImpressao:cPrnlinha ) oImpressao:nPrnLin += 1 EndIf oImpressao:PrnSay( oImpressao:nPrnLin, 01, RELATORIO->codigo_pe, "@R 999" ) oImpressao:PrnSay( oImpressao:nPrnLin, 05, RELATORIO->desc_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 37, RELATORIO->nome_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 49, RELATORIO->avista_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 59, RELATORIO->nr_parc_pe, "999" ) oImpressao:PrnSay( oImpressao:nPrnLin, 63, RELATORIO->dia_mes_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 69, RELATORIO->prazo_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 92, RELATORIO->preco_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 101, RELATORIO->per_des_pe, "@E 99.99%" ) oImpressao:PrnSay( oImpressao:nPrnLin, 109, RELATORIO->vlr_min_pe, "@E 999,999.99" ) oImpressao:PrnSay( oImpressao:nPrnLin, 120, RELATORIO->mod_doc_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 134, RELATORIO->grdup_pe ) oImpressao:PrnSay( oImpressao:nPrnLin, 140, RELATORIO->bx_auto_pe ) oImpressao:nPrnLin += 1 RELATORIO->( dbSkip() ) End End sequence oImpressao:Finaliza_Relatorio() Grava_Historico( "Imprimiu um relatorio de Planos de Pagamento", "Cadastro de Planos de Pagamento" ) EndIf Release All id=code>id=code>FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Assim funciona em qualquer versao do windows comigo! DO CASE CASE Left( cPort, 3 ) == "LPT" ::cPort := cPort + If( !"."$cPort, ".PRN", "" ) ::hDC := fCreate(::cPort) If ::hDC < 0 ::hDC := 0 ::lOk := .F. ::LastError := fError() Else ::hDC := ::hDC ::lOk := .T. EndIf CASE Left( cPort, 3 ) = "COM" ::hDC := OpenComm( ::cPort, ::nInBuffer, ::nOutBuffer ) If ::hDC < 0 ::hDC := 0 ::lOk := .F. Else ::hDC := ::hDC ::lOk := .T. EndIf Otherwise ::cPort := "LPT1" NetAddCon( AllTrim( cPort ),, "LPT1" ) // WaitRun( ( "NET.EXE USE LPT1 " + AllTrim( cPort ) ), 0 ) ::hDC := fCreate( ::cPort ) If ::hDC < 0 ::hDC := 0 ::lOk := .F. ::LastError := fError() Else ::hDC := ::hDC ::lOk := .T. EndIf ENDCASE id=code>id=code>FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

E facil... ObjetoPrint:GetPort() se for rede ele vai lhe retornar o caminho onde esta. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Wagner Fico triste com sua ausencia, perderemos muito pois tai uma grande pessoa. Não o conheci pessoalmente, mas foi ele quem muito me ajudou no inicio com Five la por meados de 2005. Contribui muito com o uso da Vget, inclusive mandei-lhe sugestoes e ideias que muitos hoje devem estar usando na vLib. Não cheguei a adquirir a vLib, mas a vGet a uso muitos. Fico feliz com seu ato, e ao mesmo tempo triste por um produto que acredito ser excelente, ter sido descontinuado. Amigo, espero que retorne logo e sucesso. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

William Tem alguma posicao sobre o caso acima? FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

William Notei um detalhe na sua função, mas não sei se tem como corrigir. Ela so redimensiona os itens que você define via codigo, ou seja, que possuam um redefine. Os itens que você adicionar a dialog somente no resource, que não possuam um redefine via codigo ela não redimensiona. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Isso e somente para clipper DOS e serve para regular o Buffer do Teclado para não jogar o processador a 100 % de uso. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Poderia alguem enviar no meu e-mail esta função!... FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE

Eu tenho essa classe,nao me lembro onde consegui!... Vou procurar aqui nos meus backups e disponibilizo assim que encontrar. FW 2.3C/CLIPPER 5.X/XHARBOUR/C/C++/JAVA/DELPHI/XMATE/MD/MYSQL/FIREBIRD/INTERBASE