marcio1361303176 Posted March 28, 2004 Report Share Posted March 28, 2004 Amigos estou mexendo em FW e me deparei com este erro ! Espero que qlgume possa me ajudar ! =================================================== Sem colocar o #include "Report.Ch" dá o erro abaixo ==================================================== AUTOR.PRG(345) Error C2005 Statement not recognized, match failed at: 'oReporte ' AUTOR.PRG(346) Error C2001 Syntax error: 'TITLE' AUTOR.PRG(347) Error C2001 Syntax error: 'TITLE' AUTOR.PRG(348) Error C2001 Syntax error: 'TITLE' AUTOR.PRG(349) Error C2027 ENDIF does not match IF AUTOR.PRG(353) Error C2005 Statement not recognized, match failed at: 'REPORT' AUTOR.PRG(354) Error C2001 Syntax error: 'STARTPAGE' 7 errors ====================================================== Quando Coloco o #include "Report.Ch" dá o erro abaixo ====================================================== Compiling AUTOR.PRG Report.Ch(74) Fatal C3048 Preprocessor table overflow Error RMAKE/R2001 Exit 1: 'CLIPPER AUTOR /A' ************************************************************ ABAIXO SEGUE A FUNCAO QUE ESTOU QUERENDO IMPLEMENTAR ! *--------------------------------------------------------------------------------------------------------------------- * Impressao de Relatorios * *------------------------------------------------------------- STATIC FUNCTION PRN_AUTOR() LOCAL oFont1, oFont2 LOCAL oReporte SELECT NOAUTR GO TOP DEFINE FONT oFont1 NAME "ARIAL" SIZE 4, 8 DEFINE FONT oFont2 NAME "ARIAL" SIZE 0, -10 BOLD REPORT oReporte TITLE " Relatório de Autores",; " DIRECTORIO DE CLIENTES", ""; HEADER "Emissao.: " + DTOC( DATE() ),; OemToAnsi( "Página Nº.: " ) + STR( oReporte:nPage,3 ); RIGHT; FOOTER "Mastermar Informática Ltda",; "(032)9104-0562 / (032)3551-7914", ""; FONT oFont2, oFont1; // Lista de fuentes. PREVIEW // Presentaci¢n preliminar. CAPTION "Relatorio de Autores" COLUMN TITLE "Código" DATA COAUT SIZE 6 FONT 2 RIGHT SHADOW COLUMN TITLE "Nome", DATA OemToAnsi( NOAUT ) SIZE 25 FONT 2 COLUMN TITLE "Comissão" DATA OemToAnsi( TRANSFORM(CMAUT,"@ZE 999.99")) SIZE 20 FONT 2 END REPORT oReporte:CellView() ACTIVATE REPORT oReporte ON STARTPAGE BitMaps(oReporte) //COLCOAR FUNDO bmp ont2:End() RETURN NIL *------------------------------------------------------------------------------------------------- STATIC FUNCTION BitMaps(oReporte) oReporte:SayBitmap( 7, 8, "TELA.Bmp", 8, 4, 2 ) RETURN NIL marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted March 28, 2004 Report Share Posted March 28, 2004 Solução: Powered by The Karin MegaTrends Inc ( in the future ) http://www.gruporibas.com.br/kmt (Visit/Visite-me) Thank You! Gracias! Abra em C:\FW..\INCLUDE\FIVEWIN.CH Comente as linhas abaixo como segue: #ifndef CLIPPER501 #include "Colors.ch" #include "DLL.ch" #include "Folder.ch" #ifndef _NOOBJECTS_CH #include "Objects.ch" #endif // #include "ODBC.ch" // Não Precisa // #include "DDE.ch" // Não Precisa // #include "Video.ch" // Não Precisa #include "VKey.ch" // #include "Tree.ch" // Não precisa... Quando for usar de verdade, descomente. #include "WinApi.ch" #endif Como você está usando o Clipper 5.3B, ele não deixa passar 'lixo' na compilação, principalmente se estiver usando as diretrizes: /ES2/M/N/W - High Recommended. Verifque todos os seus módulos, e comente todos os arquivos de cabeçalhos que o seu programa não usa... Exemplo: INKEY.CH, se não tem nenhum comando do INKEY.CH não 'chame' o cabeçalho. Entende? O Clipper 5.3B dá 'leitura' em todo o módulo, e checa se você precisa do arquivo, caso não ache nada no módulo para 'chamar' o arquivo de cabeçalho, ele aborta para que você tire o arquivo que não será usando. E te retorna este erro:-> Fatal C3048 Preprocessor table overflow - Anote! Pois, ele não vai permitir 'lixo' em hipotese nenhuma. Não há saida, a não ser retirar o arquivo de cabeçalho que não será usado. Tandeu? Para testar a minha resposta, compile com o CLIPPER 5.2E veja que ele deixa passar todo o tipo de 'lixo' possivel, na hora da compilação... Pode incluir o arquivo de cabeçalho que você quiser, que ele deixa 'passar', o que te acarretará muuuiiiitos problemas no futuro, Conforme o seu Programa for 'crescendo'... A 'lixarada' vai 'crescendo' junto. Pode crer. Evite o 5.2E. No seu arquivo.lnk altere: STACKSIZE 20000 HEAPSIZE 8520 Altere e compile agora... Roda redondo! Abraços. I Love Fivewin .and. WorkShop.Exe the best .and. my Love Clipper 5.3B (hehehehe) Sorry, usuários de clipper 5.2E.. Mas, gosto e qualidade não se discute! João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 29, 2004 Author Report Share Posted March 29, 2004 Amigo Funcionou, mas agora está aparecendo um erro quando deixo esta linha COLUMN TITLE "Nome", DATA NOAUT SIZE 54 FONT 2 se a retiro funciona normalmente ! alem disso a imagem não aparece no fundo da tela ! Error description: Error BASE/1132 Bound error: array access Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TRCOLUMN:NEW(0) Called from RPTADDCOLU(0) Called from IMPRESION(349) *----------------------------------------------------------------------------------------------------- * * Impressao de Relatorios * *----------------------------------------------------------------------------------------------------- STATIC FUNCTION Impresion() LOCAL oFont1, oFont2 LOCAL oReporte SELECT NOAUTR GO TOP DEFINE FONT oFont1 NAME "ARIAL" SIZE 4, 8 //Fuentes a usar en el reporte DEFINE FONT oFont2 NAME "ARIAL" SIZE 0, -10 BOLD REPORT oReporte TITLE " Relatório de Autores",; " DIRECTORIO DE CLIENTES", ""; HEADER "Emissao.: " + DTOC( DATE() ),; OemToAnsi( "Página Nº.: " ) + STR( oReporte:nPage,3 ); RIGHT; FOOTER "Mastermar Informática Ltda",; "(032)9104-0562 / (032)3551-7914", ""; FONT oFont2, oFont1; // Lista de fuentes. PREVIEW; // Presentaci¢n preliminar. CAPTION "Relatorio de Autores" COLUMN TITLE "Código" DATA COAUT SIZE 06 FONT 2 RIGHT SHADOW **COLUMN TITLE "Nome", DATA NOAUT SIZE 54 FONT 2 COLUMN TITLE "Comissão" DATA TRANSFORM(CMAUT,"@ZE 999.99") SIZE 20 FONT 2 END REPORT oReporte:CellView() // Dibuja l¡neas entre cada columna y rengl¢n. ACTIVATE REPORT oReporte ON STARTPAGE BitMaps(oReporte) SELECT NOAUTR GO TOP oFont1:End() oFont2:End() RETURN NIL *------------------------------------------------------------------------------------------------- STATIC FUNCTION BitMaps(oReporte) oReporte:SayBitmap( 7, 8, "TELA.Bmp", 8, 4, 2 ) RETURN NIL marcioe@uai.com.br marcioe@ligbr.com.br Editado por - marcio on 29/03/2004 07:16:07 Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 29, 2004 Author Report Share Posted March 29, 2004 amigos ainda não resolvi o problema ! Desde já agradeço marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted March 29, 2004 Report Share Posted March 29, 2004 Error description: Error BASE/1132 Bound error: array access Foi feita uma tentativa de acessar um elemento de uma matriz cujo número é maior que o número de elementos da matriz naquela dimensão. Verifique a linha indicada. Corrija ou utilize as funções AADD() ou ASIZE() para aumentar o número de elementos da matriz. A função LEN() pode ser utilizaa para determinar um número de elementos de uma matriz numa determinada dimensão. Vide Norton Guide(NG) IMPRESION(349) Está incorreto. Poste o código para o Vagner Analisar sim? Outra coisa: Nós respondemos, porque amamos o FiveWin, absolutamente de grátis, por isso, poste a dúvida e espere a resposta, não fique 'pegando' no pé. Tenha calma, sempre respondemos. Não vá 'queimar' seu filme. Abraços. Mostre isto aqui pra gente ver o que é isso: NOAUT ???????? Veja no Samples TESTRPT2,3,4.PRG Veja sintaxe. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 29, 2004 Author Report Share Posted March 29, 2004 Amigo de forma alguma estou 'pegando' no pé, apenas depois de várias tentativas ainda não tinha dado certo que resolvi postar. Sei que todos que responde é por amizade, e é isto que estimo muito! De parceu que estava 'pegando' no pé, desculpa marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 30, 2004 Author Report Share Posted March 30, 2004 Amigos Apos vários fios de cabelo arrancados deu certo, mas não sei como ! Resolvi apagar os OBJ e recomplilei e deu certo ! Estranho né ! Muito obrigado a todos que me ajudaram ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
karinha Posted March 30, 2004 Report Share Posted March 30, 2004 Crie um arquivo de limpeza para o seu diretorio. Veja no samples CLEAN.BAT execute sempre antes de compilar. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 30, 2004 Report Share Posted March 30, 2004 COLUMN TITLE "Nome", DATA NOAUT SIZE 54 FONT 2 era a Virgula Apos "nome". Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 30, 2004 Author Report Share Posted March 30, 2004 Ok ! Amigo, Obrigado ! Agora para implementar mais ainda como coloco a exibicao da logomarca de empresa ! Temo como Desde já agradeço ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 30, 2004 Report Share Posted March 30, 2004 ainda no esta imprimindo , deve estar muito pequeno ou mal posicionado , aumente os valores Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 30, 2004 Author Report Share Posted March 30, 2004 Amigo Está Imprimindo sim ! Deu certo a sua postagem ! apenas estou querendo implementar mais um pouco ! OK ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 30, 2004 Report Share Posted March 30, 2004 Implementar como: Seja um pouco mais especifico: Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 30, 2004 Author Report Share Posted March 30, 2004 Amigo deixa eu explicar melhor O relatorio funcionou perfeitamente, porem gosaria de Implementar no cabeçalho a logomarca da empresa ! Entendeu ! Desde já agradeço ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 30, 2004 Report Share Posted March 30, 2004 Caro Marcio , Imprima o outro bitmap com o logo da empresa na posicao desejada. Mauricio Jordao (RJ) Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 30, 2004 Author Report Share Posted March 30, 2004 Amigo sei que estou sendo chato,mas vc poderia ser mais especifico ! Eu não sei como fazer ! Será que vc poderia exemplificar ! Desde já agradeço ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 31, 2004 Report Share Posted March 31, 2004 Caro Amigo MArcio , Monta um Bitmap com o logotipo da empresa e imprime ele como fez com o arquivo "tela.bmp" : STATIC FUNCTION BitMaps(oReporte) oReporte:SayBitmap( 7, 8, "TELA.Bmp", 8, 4, 2 ) oReporte:SayBitmap( 10, 18, "logo.Bmp", 18, 14, 2 ) RETURN NIL os Valores eu Chutei ok. Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
karinha Posted March 31, 2004 Report Share Posted March 31, 2004 Solução: Powered By The Karin MegaTrend Inc http://www.gruporibas.com.br/kmt Visit Respondendo seu E_mail, quanto ao COMBO não 'PULAR': REDEFINE COMBOBOX TEST ITEMS aEstado ID 24 OF oFld:aDialogs[ 1 ] // Tecla Virtual, Para Acionar o No Combo em Um Folder! Yes! oFld:bKeyDown := { | nKey | IIF( nKey = VK_RETURN, oFld:SetFocus(), ) } Está ficando muito bom, porém, recomendo-lhe maior atenção quanto a IDENTAÇÃO do seu código, não está legal! Melhore... Você pode! Veja nas DICAS mais dicas, como colocar cor em seus FOLDERS, postada gentilmente, por meu amigo Vagner Wirts the best! Vai ficar maravilhoso, com o seu estilo de trabalho! Tenha certeza que você está absolutamente no caminho certo! Parabéns. Porque renomeou a TdosPrn.Prg? Coloque Say's Coloridos nos Folders, usando a classe SSAY.CH E SSAY.PRG experimenta! Dê nomes claros aos seus módulos... Que nome 'esquisito' para o controle do cadastro de CLIENTES! Melhore isso por favor! O que começa errado, termina errado! Abraços. João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted March 31, 2004 Author Report Share Posted March 31, 2004 Amigos Deu certo a Impressao de BMP (LOGOMARCA) Porem notei que o titulo do relatorio sai centralizado, eu gostaria que ele fosse alinhado a esquerda, letras maiores, com cores diferentes. Mais ou menos no LAYOUT ABAIXO porem em modo grafico ! Pois Imprimir assim em DOS eu sei fazer ! ================================================ RELATORIO DE AUTORE --> Letra grande a azul Nome da Empresa ---------------------------------------------- codigo...: 001 - marcio Endereco.: rua tal centro bairro...: teste etc.. -------------------------------------------------- Outra coisa quando mando imprmir na jato de tinta sai perfeito, se mando na lx810 a quebra de pagina sai errada, imprime no picote final da folha ! Desde já agradeço marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
mou321 Posted March 31, 2004 Report Share Posted March 31, 2004 REPORT oReporte TITLE " Relatório de Autores",; " DIRECTORIO DE CLIENTES", "" LEFT ; LEFT - Alinha a Esquerda CENTER - alinha pelo centro RIGHT - Alinha a Direita Mauricio (RJ) Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted April 1, 2004 Author Report Share Posted April 1, 2004 Amigo Funcionou Beleza ! Ogrigado ! Agora está faltando como colocar com cores diferentes Bem como letras maiores. ================================================ RELATORIO DE AUTORE --> Letra grande a azul Nome da Empresa ---------------------------------------------- codigo...: 001 - marcio Endereco.: rua tal centro bairro...: teste etc.. -------------------------------------------------- Outra coisa quando mando imprmir na jato de tinta sai perfeito, se mando na lx810 a quebra de pagina sai errada, imprime no picote final da folha ! Desde já agradeço marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted April 2, 2004 Author Report Share Posted April 2, 2004 Amigos Estive pensando! Será que não teriam algum exemplo de FW com impressao de relatorios ! Desde já agradeço ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
vagner Posted April 2, 2004 Report Share Posted April 2, 2004 citação:Amigos Estive pensando! Será que não teriam algum exemplo de FW com impressao de relatorios ! Desde já agradeço ! marcioe@uai.com.br marcioe@ligbr.com.br id=quote>id=quote>Marcio, Dê uma olhada no seu diretório FW\Samples, verá que têm vários exemplos, de Report, Printer e até de TDosPrn :þ) Abraços Vagner Wirts São Paulo-Brasil Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted April 2, 2004 Author Report Share Posted April 2, 2004 amigo obrigado vou olhar ! Obrigado ! marcioe@uai.com.br marcioe@ligbr.com.br Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.