mariana1361303566

Se tudo o que está sendo sugerido for efetivamente implementado, podem registrar em cartório o que direi: Estarão decretando o fim deste forum. Vai ser dado um tiro no pé. Obrigada por tudo e até + ver.

this is it!!!

desconsiderar duas ultimas linhas do post anterior

Erro Desconsidere as duas ultimas linhas do post anterior

Erro Desconsidere as duas ultimas linhas do post anterior

Luisão 1 - Se vc verificar meu perfil saberá que acompanho este site a mais de 7 anos. 2 - Li sobre o problema do dicas há semanas. Percebo que vc não entendeu meu post. Logo no início pergunto se o site está com problemas e em estando quando será solucionado. Eu no momento não tenho dúvida nemhuma, a não ser a acima exposta. Apenas gosto de colecionar as dicas e sempre que precisei de ajuda do fórum a obtive com presteza e qualidade. E sempre que possível também passei informações. Nada Mais, E por isto mesmo é que achei estranho o dicas e mais dicas ter parado de funcionar. Como vc não leu o que escrevi

O que está ocorrendo com dicas e downloads? Há muito tempo visualizei comentários sobre dificultar a divulgação de conhecimento e informações para os usuários deste fórum que não possuíam versões originais do FW. Se não for isto: Quando vão corrigir este problema? Se for isto: Não sei se estou errada quanto as minhas conclusões mas vamos lá: O RuWindows só chegou onde está graças a política de "vista grossa" às formas de aquisição do seu produto por meios indiretos ou informais (pirataria) E foi, exatamente, esta inteligentíssima estratégia do BG que permitiu que seu sistema adquirisse "massa crítica" para a sua venda legal. Mesma estratégia utilizada por outros para a venda de versões "pró" de seus produtos. Continuando: Muita gente viu e, por falta de maiores conhecimentos, acabou por adquiri-lo. E neste mundo ganha quem é mais conhecido e não quem é o melhor - Lembre-se do OS2 da IBM do Betamax da Sony Com a bola de neve rolando... Programadores ganharam dinheiro... Linguagens de programação se aperfeiçoaram. Muita informação foi trocada. Todo mundo ganhou e ganha até hoje. Concluindo: Não escondam informações. Só assim e em todos os sentidos: Todos ganharemos! P.S. Possuo versões oficiais do Fw

O que está ocorrendo com dicas e downloads? Há muito tempo visualizei comentários sobre dificultar a divulgação de conhecimento e informações para os usuários deste fórum que não possuíam versões originais do FW. Se não for isto: Quando vão corrigir este problema? Se for isto: Não sei se estou errada quanto as minhas conclusões mas vamos lá: O RuWindows só chegou onde está graças a política de "vista grossa" às formas de aquisição do seu produto por meios indiretos ou informais (pirataria) E foi, exatamente, esta inteligentíssima estratégia do BG que permitiu que seu sistema adquirisse "massa crítica" para a sua venda legal. Mesma estratégia utilizada por outros para a venda de versões "pró" de seus produtos. Continuando: Muita gente viu e, por falta de maiores conhecimentos, acabou por adquiri-lo. E neste mundo ganha quem é mais conhecido e não quem é o melhor - Lembre-se do OS2 da IBM do Betamax da Sony Com a bola de neve rolando... Programadores ganharam dinheiro... Linguagens de programação se aperfeiçoaram. Muita informação foi trocada. Todo mundo ganhou e ganha até hoje. Concluindo: Não escondam informações. Só assim e em todos os sentidos: Todos ganharemos! P.S. Possuo versões oficiais do Fw

Se não tiver outra saída Utilize o programa PageScript que (como diz no planeta e casseta) Seus problemas acabaram. veja em www.abeelabs.com

Obrigada Evandro Mariana

Bom dia a todos Gostaria de saber como mudar a altura de TWbrowse em tempo de execução. Grata Mariana - fw24 - clipper53.b - blinker7

Bom dia a todos Gostaria de saber como mudar a altura de TWbrowse em tempo de execução. Grata Mariana - fw24 - clipper53.b - blinker7

Obrigada a todos, Yuri qual seria a melhor solução para evitar isto? Grata Mariana FW24 Cliper5.3b Blinker

Olá a todos! Gostaria de saber porque estou sendo avisada duas vezes seguidas quando a largura do relatorio é maior que a largura da folha. Ou seja: aparece uma caixa perguntando se "desejo continuar assim mesmo" e mesmo que eu responda sim ou nao a pergunta é realizada mais uma vez. Olhei o source da classe report e encontrei a linha onde é feita esta verificação e assim mesmo não entendi porque isto está ocorrendo. Grata por qualquer ajuda!! Mariana - FW24 16bits - Clipper5.3.b - Blinker 7 P.S. Ai vai minha rotina: #include "fivewin.ch" #include "report.ch" // * OBSERVAÇÃO: todo relatorio precisa que no inicio da rotina tenha : #include "report.ch" **************************** func ftiprela(c_mes2,c_ano2) **************************** local ord_atual := caditens->( dborderinfo(5) ) local reg_atual := caditens->( recno() ) local ofont1, ofont2, ofont3,ofont4 local l_agrup_rl := .t. local lprever := .t. // concluir... colocar no dialogo um chekbox local nfontaj := if( n_font == 1, -7,; if( n_font == 2, -8,; if( n_font == 3, -9,; if( n_font == 4,-10,; if( n_font == 5, -6,; if( n_font == 6, -5,; if( n_font == 7, -4, -7))))))) priva oreport caditens->( dbsetorder( 'bs_de') ) // nr bs + dt entrega caditens->( dbgotop() ) define font ofont1 name "Lucida Sans Typewriter" size 0,nfontaj bold define font ofont2 name "Lucida Sans Typewriter" size 0,nfontaj define font ofont3 name "Lucida Sans Typewriter" size 0,nfontaj define font ofont4 name "Lucida Sans Typewriter" size 0,nfontaj bold if lprever report oreport ; title if( n_tiporel == 1, 'Valores Faturados - "Resumido"',; if( n_tiporel == 2, 'Valores Faturados - "por Clientes"',; if( n_tiporel == 3, 'Quantidades Entregues - "Resumido"',; if( n_tiporel == 4, 'Quantidades Entregues - "por Clientes"',; if( n_tiporel == 5, 'Valores Faturados /Quantidades Entregues - "Resumido"',; if( n_tiporel == 6, 'Valores Faturados /Quantidades Entregues - "por Clientes"',; if( n_tiporel == 7, 'Quantidades Atrasadas - "por Clientes"', ''))))))),; ' ',; 'Período: ' + c_mes_ano,; ' '; font ofont1,ofont2,ofont3,ofont4; header '' ; footer 'página: ' + str(oreport:npage,3); caption ' RELATÓRIO - "QTDS.ENTREGUES E VALORES FATURADOS" '; preview else report oreport ; title if( n_tiporel == 1, 'Valores Faturados - "Resumido"',; if( n_tiporel == 2, 'Valores Faturados - "por Clientes"',; if( n_tiporel == 3, 'Quantidades Entregues - "Resumido"',; if( n_tiporel == 4, 'Quantidades Entregues - "por Clientes"',; if( n_tiporel == 5, 'Valores Faturados /Quantidades Entregues - "Resumido"',; if( n_tiporel == 6, 'Valores Faturados /Quantidades Entregues - "por Clientes"',; if( n_tiporel == 7, 'Quantidades Atrasadas - "por Clientes"', ''))))))),; ' ',; 'Período: ' + c_mes_ano,; ' '; font ofont1,ofont2,ofont3,ofont4 ; header '' ; footer 'página: ' + str(oreport:npage,3); caption ' RELATÓRIO - "QTDS.ENTREGUES / QTDS.ATRASADAS / VALORES FATURADOS" ' endif oreport:margin( .1, RPT_LEFT , RPT_INCHES) // 1=RPT_LEFT 2=RPT_RIGHT oreport:margin( .1, RPT_RIGHT, RPT_INCHES) // define orientação landscape oreport:lisnarrow := .t. // ::oDevice:GetOrientation() == PORTRAIT // ? oreport:nleftmargin / oreport:nlogpixx * 25.4 MOSTRA A MARGEM ESQ // ? oreport:nrightmargin / oreport:nlogpixx * 25.4 // ? oreport:nwidth / oreport:nlogpixx * 25.4 // MOSTRA A LARGURA SEM AS MARGENS if n_tiporel == 1 .or. n_tiporel == 3 .or. n_tiporel == 5 oreport:lsummary := .t. endif if ! l_agrup_rl column title 'Cliente' ; data caditens->nomeclie endif *************************************** if (n_tiporel == 1 .or. n_tiporel == 2) *************************************** column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xvalor('01'); picture '@ez 999999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xvalor('02'); picture '@ez 999999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xvalor('03'); picture '@ez 999999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xvalor('04'); picture '@ez 999999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xvalor('05'); picture '@ez 999999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xvalor('06'); picture '@ez 999999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xvalor('07'); picture '@ez 999999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xvalor('08'); picture '@ez 999999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xvalor('09'); picture '@ez 999999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xvalor('10'); picture '@ez 999999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xvalor('11'); picture '@ez 999999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xvalor('12'); picture '@ez 999999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xvalor('13'); picture '@ez 999999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xvalor('14'); picture '@ez 999999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xvalor('15'); picture '@ez 999999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xvalor('16'); picture '@ez 999999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xvalor('17'); picture '@ez 999999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xvalor('18'); picture '@ez 999999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xvalor('19'); picture '@ez 999999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xvalor('20'); picture '@ez 999999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xvalor('21'); picture '@ez 999999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xvalor('22'); picture '@ez 999999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xvalor('23'); picture '@ez 999999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xvalor('24'); picture '@ez 999999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xvalor('25'); picture '@ez 999999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xvalor('26'); picture '@ez 999999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xvalor('27'); picture '@ez 999999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xvalor('28'); picture '@ez 999999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xvalor('29'); picture '@ez 999999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xvalor('30'); picture '@ez 999999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xvalor('31'); picture '@ez 999999'; total right; font 3 endif ******************************************* elseif (n_tiporel == 3 .or. n_tiporel == 4) ******************************************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xquant('01',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xquant('02',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xquant('03',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xquant('04',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xquant('05',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xquant('06',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xquant('07',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xquant('08',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xquant('09',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xquant('10',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xquant('11',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xquant('12',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xquant('13',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xquant('14',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xquant('15',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xquant('16',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xquant('17',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xquant('18',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xquant('19',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xquant('20',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xquant('21',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xquant('22',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xquant('23',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xquant('24',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xquant('25',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xquant('26',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xquant('27',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xquant('28',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xquant('29',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xquant('30',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xquant('31',.t.); picture '@ez 99,999'; total right; font 3 endif ******************************************* elseif (n_tiporel == 5 .or. n_tiporel == 6) ******************************************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xquant('01',.f.),xvalor('01'); //picture '99999'; picture '','@ez 999,999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xquant('02',.f.),xvalor('02'); picture '','@ez 999,999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xquant('03',.f.),xvalor('03'); picture '','@ez 999,999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xquant('04',.f.),xvalor('04'); picture '','@ez 999,999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xquant('05',.f.),xvalor('05'); picture '','@ez 999,999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xquant('06',.f.),xvalor('06'); picture '','@ez 999,999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xquant('07',.f.),xvalor('07'); picture '','@ez 999,999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xquant('08',.f.),xvalor('08'); picture '','@ez 999,999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xquant('09',.f.),xvalor('09'); picture '','@ez 999,999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xquant('10',.f.),xvalor('10'); picture '','@ez 999,999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xquant('11',.f.),xvalor('11'); picture '','@ez 999,999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xquant('12',.f.),xvalor('12'); picture '','@ez 999,999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xquant('13',.f.),xvalor('13'); picture '','@ez 999,999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xquant('14',.f.),xvalor('14'); picture '','@ez 999,999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xquant('15',.f.),xvalor('15'); picture '','@ez 999,999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xquant('16',.f.),xvalor('16'); picture '','@ez 999,999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xquant('17',.f.),xvalor('17'); picture '','@ez 999,999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xquant('18',.f.),xvalor('18'); picture '','@ez 999,999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xquant('19',.f.),xvalor('19'); picture '','@ez 999,999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xquant('20',.f.),xvalor('20'); picture '','@ez 999,999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xquant('21',.f.),xvalor('21'); picture '','@ez 999,999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xquant('22',.f.),xvalor('22'); picture '','@ez 999,999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xquant('23',.f.),xvalor('23'); picture '','@ez 999,999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xquant('24',.f.),xvalor('24'); picture '','@ez 999,999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xquant('25',.f.),xvalor('25'); picture '','@ez 999,999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xquant('26',.f.),xvalor('26'); picture '','@ez 999,999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xquant('27',.f.),xvalor('27'); picture '','@ez 999,999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xquant('28',.f.),xvalor('28'); picture '','@ez 999,999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xquant('29',.f.),xvalor('29'); picture '','@ez 999,999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xquant('30',.f.),xvalor('30'); picture '','@ez 999,999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xquant('31',.f.),xvalor('31'); picture '','@ez 999,999'; total right; font 3 endif ********************* elseif n_tiporel == 7 ********************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltematz01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xatraso('01'); picture '@ez 999,999'; total right; font 3 endif if ltematz02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xatraso('02'); picture '@ez 999,999'; total right; font 3 endif if ltematz03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xatraso('03'); picture '@ez 999,999'; total right; font 3 endif if ltematz04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xatraso('04'); picture '@ez 999,999'; total right; font 3 endif if ltematz05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xatraso('05'); picture '@ez 999,999'; total right; font 3 endif if ltematz06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xatraso('06'); picture '@ez 999,999'; total right; font 3 endif if ltematz07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xatraso('07'); picture '@ez 999,999'; total right; font 3 endif if ltematz08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xatraso('08'); picture '@ez 999,999'; total right; font 3 endif if ltematz09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xatraso('09'); picture '@ez 999,999'; total right; font 3 endif if ltematz10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xatraso('10'); picture '@ez 999,999'; total right; font 3 endif if ltematz11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xatraso('11'); picture '@ez 999,999'; total right; font 3 endif if ltematz12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xatraso('12'); picture '@ez 999,999'; total right; font 3 endif if ltematz13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xatraso('13'); picture '@ez 999,999'; total right; font 3 endif if ltematz14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xatraso('14'); picture '@ez 999,999'; total right; font 3 endif if ltematz15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xatraso('15'); picture '@ez 999,999'; total right; font 3 endif if ltematz16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xatraso('16'); picture '@ez 999,999'; total right; font 3 endif if ltematz17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xatraso('17'); picture '@ez 999,999'; total right; font 3 endif if ltematz18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xatraso('18'); picture '@ez 999,999'; total right; font 3 endif if ltematz19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xatraso('19'); picture '@ez 999,999'; total right; font 3 endif if ltematz20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xatraso('20'); picture '@ez 999,999'; total right; font 3 endif if ltematz21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xatraso('21'); picture '@ez 999,999'; total right; font 3 endif if ltematz22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xatraso('22'); picture '@ez 999,999'; total right; font 3 endif if ltematz23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xatraso('23'); picture '@ez 999,999'; total right; font 3 endif if ltematz24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xatraso('24'); picture '@ez 999,999'; total right; font 3 endif if ltematz25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xatraso('25'); picture '@ez 999,999'; total right; font 3 endif if ltematz26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xatraso('26'); picture '@ez 999,999'; total right; font 3 endif if ltematz27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xatraso('27'); picture '@ez 999,999'; total right; font 3 endif if ltematz28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xatraso('28'); picture '@ez 999,999'; total right; font 3 endif if ltematz29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xatraso('29'); picture '@ez 999,999'; total right; font 3 endif if ltematz30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xatraso('30'); picture '@ez 999,999'; total right; font 3 endif if ltematz31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xatraso('31'); picture '@ez 999,999' ; total right; font 3 endif endif if l_agrup_rl .and. ( n_tiporel == 2 .or. n_tiporel == 4 .or. n_tiporel == 6 .or. n_tiporel == 7 ) group on caditens->nomeclie; header "cliente: " + oreport:agroups[1]:cvalue //footer "Total ... " +; // " ("+alltrim(str(oReport:aGroups[1]:atotal[2]))+")" ; endif * Para tirar a linha do topo dos dias == oReport:nTitleUpLine := RPT_NOLINE oreport:cgrandtotal := "Total Geral: " // ofont1 name "Lucida Sans Typewriter" size 0,nfontaj bold // ofont2 name "Lucida Sans Typewriter" size 0,nfontaj // ofont3 name "Lucida Sans Typewriter" size 0,nfontaj // ofont4 name "Lucida Sans Typewriter" size 0,nfontaj bold // fonte da primeira linha do titulo = bold oreport:otitle:afont[1] := {|| 1 } // fonte da segunda linha do titulo = bold oreport:otitle:afont[2] := {|| 1 } // fonte da terceira linha do titulo = bold oreport:otitle:afont[3] := {|| 4 } // Cores das fontes oreport:settxtcolor( cor_azule , 1 ) oreport:settxtcolor( cor_verd , 2 ) oreport:settxtcolor( cor_pret , 3 ) oreport:settxtcolor( cor_azul_ , 4 ) oreport:setpencolor(cor_verm ) oreport:setshdcolor(cor_cinz_) end report if l_agrup_rl .and. n_tiporel == 7 activate report oreport; for caditens->atrzitem # 0; // on startgroup oreport:saybitmap(0.2, (oreport:nmargin/oreport:nlogpixx)+.25 ,"logo.bmp",.8,.4); on startpage oreport:saybitmap(0.2, .5 ,"logo.bmp",.8,.4) else activate report oreport; for caditens->qenvitem # 0; ON STARTGROUP oReport:NewLine(); // LINHA EM BRANCO APOS CADA GRUPO on startpage oreport:saybitmap(0.2, (oreport:nmargin/oreport:nlogpixx)+.25 ,"logo.bmp",.8,.4); // on endgroup oreport:say( 1, '-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x ', 1 ,1 ,1 ); on postend ftotpecas() endif ofont1:end() ofont2:end() ofont3:end() ofont4:end() caditens->( dbsetorder(ord_atual) ) caditens->( dbgoto(reg_atual) ) retu nil *********************** stat func xquant(q,l_n) *********************** local nquant := 0 if strzero( day(caditens->dtetitem),2,0) == q if l_n // se for numero nquant := caditens->qenvitem else // se for caracter nquant := if( !empty(caditens->qenvitem), (alltrim( trans( caditens->qenvitem,'@ez 99,999' )) + 'p'),'-x-') endif endif retu nquant ******************** stat func xatraso(a) ******************** local nquant := 0 if strzero( day(caditens->dtetitem),2,0) == a nquant := caditens->atrzitem endif retu nquant ******************* stat func xvalor(v) ******************* local nvalor := 0 if strzero( day(caditens->dtetitem),2,0) == v nvalor := caditens->vfatitem endif retu (nvalor) ******************* stat func ftotpecas ******************* local n_colu if n_tiporel == 5 .or. n_tiporel == 6 oreport:startline() oreport:say(n_colu,'Quantidades entregues:',,1) n_colu := 1 for i:=1 to 31 z:=strzero(i,2,0) if ltem&z ++n_colu oreport:say( n_colu, alltrim( trans( sumqtd&z , '@ez 999,999' ) ) +; if(!empty(sumqtd&z),'p',''),, 1 ) // LEFT=1 RIGHT=2 CENTER=3 endif next oreport:endline() endif retu nil

Olá a todos! Gostaria de saber porque estou sendo avisada duas vezes seguidas quando a largura do relatorio é maior que a largura da folha. Ou seja: aparece uma caixa perguntando se "desejo continuar assim mesmo" e mesmo que eu responda sim ou nao a pergunta é realizada mais uma vez. Olhei o source da classe report e encontrei a linha onde é feita esta verificação e assim mesmo não entendi porque isto está ocorrendo. Grata por qualquer ajuda!! Mariana - FW24 16bits - Clipper5.3.b - Blinker 7 P.S. Ai vai minha rotina: #include "fivewin.ch" #include "report.ch" // * OBSERVAÇÃO: todo relatorio precisa que no inicio da rotina tenha : #include "report.ch" **************************** func ftiprela(c_mes2,c_ano2) **************************** local ord_atual := caditens->( dborderinfo(5) ) local reg_atual := caditens->( recno() ) local ofont1, ofont2, ofont3,ofont4 local l_agrup_rl := .t. local lprever := .t. // concluir... colocar no dialogo um chekbox local nfontaj := if( n_font == 1, -7,; if( n_font == 2, -8,; if( n_font == 3, -9,; if( n_font == 4,-10,; if( n_font == 5, -6,; if( n_font == 6, -5,; if( n_font == 7, -4, -7))))))) priva oreport caditens->( dbsetorder( 'bs_de') ) // nr bs + dt entrega caditens->( dbgotop() ) define font ofont1 name "Lucida Sans Typewriter" size 0,nfontaj bold define font ofont2 name "Lucida Sans Typewriter" size 0,nfontaj define font ofont3 name "Lucida Sans Typewriter" size 0,nfontaj define font ofont4 name "Lucida Sans Typewriter" size 0,nfontaj bold if lprever report oreport ; title if( n_tiporel == 1, 'Valores Faturados - "Resumido"',; if( n_tiporel == 2, 'Valores Faturados - "por Clientes"',; if( n_tiporel == 3, 'Quantidades Entregues - "Resumido"',; if( n_tiporel == 4, 'Quantidades Entregues - "por Clientes"',; if( n_tiporel == 5, 'Valores Faturados /Quantidades Entregues - "Resumido"',; if( n_tiporel == 6, 'Valores Faturados /Quantidades Entregues - "por Clientes"',; if( n_tiporel == 7, 'Quantidades Atrasadas - "por Clientes"', ''))))))),; ' ',; 'Período: ' + c_mes_ano,; ' '; font ofont1,ofont2,ofont3,ofont4; header '' ; footer 'página: ' + str(oreport:npage,3); caption ' RELATÓRIO - "QTDS.ENTREGUES E VALORES FATURADOS" '; preview else report oreport ; title if( n_tiporel == 1, 'Valores Faturados - "Resumido"',; if( n_tiporel == 2, 'Valores Faturados - "por Clientes"',; if( n_tiporel == 3, 'Quantidades Entregues - "Resumido"',; if( n_tiporel == 4, 'Quantidades Entregues - "por Clientes"',; if( n_tiporel == 5, 'Valores Faturados /Quantidades Entregues - "Resumido"',; if( n_tiporel == 6, 'Valores Faturados /Quantidades Entregues - "por Clientes"',; if( n_tiporel == 7, 'Quantidades Atrasadas - "por Clientes"', ''))))))),; ' ',; 'Período: ' + c_mes_ano,; ' '; font ofont1,ofont2,ofont3,ofont4 ; header '' ; footer 'página: ' + str(oreport:npage,3); caption ' RELATÓRIO - "QTDS.ENTREGUES / QTDS.ATRASADAS / VALORES FATURADOS" ' endif oreport:margin( .1, RPT_LEFT , RPT_INCHES) // 1=RPT_LEFT 2=RPT_RIGHT oreport:margin( .1, RPT_RIGHT, RPT_INCHES) // define orientação landscape oreport:lisnarrow := .t. // ::oDevice:GetOrientation() == PORTRAIT // ? oreport:nleftmargin / oreport:nlogpixx * 25.4 MOSTRA A MARGEM ESQ // ? oreport:nrightmargin / oreport:nlogpixx * 25.4 // ? oreport:nwidth / oreport:nlogpixx * 25.4 // MOSTRA A LARGURA SEM AS MARGENS if n_tiporel == 1 .or. n_tiporel == 3 .or. n_tiporel == 5 oreport:lsummary := .t. endif if ! l_agrup_rl column title 'Cliente' ; data caditens->nomeclie endif *************************************** if (n_tiporel == 1 .or. n_tiporel == 2) *************************************** column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xvalor('01'); picture '@ez 999999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xvalor('02'); picture '@ez 999999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xvalor('03'); picture '@ez 999999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xvalor('04'); picture '@ez 999999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xvalor('05'); picture '@ez 999999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xvalor('06'); picture '@ez 999999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xvalor('07'); picture '@ez 999999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xvalor('08'); picture '@ez 999999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xvalor('09'); picture '@ez 999999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xvalor('10'); picture '@ez 999999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xvalor('11'); picture '@ez 999999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xvalor('12'); picture '@ez 999999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xvalor('13'); picture '@ez 999999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xvalor('14'); picture '@ez 999999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xvalor('15'); picture '@ez 999999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xvalor('16'); picture '@ez 999999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xvalor('17'); picture '@ez 999999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xvalor('18'); picture '@ez 999999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xvalor('19'); picture '@ez 999999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xvalor('20'); picture '@ez 999999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xvalor('21'); picture '@ez 999999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xvalor('22'); picture '@ez 999999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xvalor('23'); picture '@ez 999999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xvalor('24'); picture '@ez 999999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xvalor('25'); picture '@ez 999999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xvalor('26'); picture '@ez 999999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xvalor('27'); picture '@ez 999999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xvalor('28'); picture '@ez 999999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xvalor('29'); picture '@ez 999999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xvalor('30'); picture '@ez 999999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xvalor('31'); picture '@ez 999999'; total right; font 3 endif ******************************************* elseif (n_tiporel == 3 .or. n_tiporel == 4) ******************************************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xquant('01',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xquant('02',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xquant('03',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xquant('04',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xquant('05',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xquant('06',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xquant('07',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xquant('08',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xquant('09',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xquant('10',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xquant('11',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xquant('12',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xquant('13',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xquant('14',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xquant('15',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xquant('16',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xquant('17',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xquant('18',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xquant('19',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xquant('20',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xquant('21',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xquant('22',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xquant('23',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xquant('24',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xquant('25',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xquant('26',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xquant('27',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xquant('28',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xquant('29',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xquant('30',.t.); picture '@ez 99,999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xquant('31',.t.); picture '@ez 99,999'; total right; font 3 endif ******************************************* elseif (n_tiporel == 5 .or. n_tiporel == 6) ******************************************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltem01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xquant('01',.f.),xvalor('01'); //picture '99999'; picture '','@ez 999,999'; total right; font 3 endif if ltem02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xquant('02',.f.),xvalor('02'); picture '','@ez 999,999'; total right; font 3 endif if ltem03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xquant('03',.f.),xvalor('03'); picture '','@ez 999,999'; total right; font 3 endif if ltem04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xquant('04',.f.),xvalor('04'); picture '','@ez 999,999'; total right; font 3 endif if ltem05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xquant('05',.f.),xvalor('05'); picture '','@ez 999,999'; total right; font 3 endif if ltem06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xquant('06',.f.),xvalor('06'); picture '','@ez 999,999'; total right; font 3 endif if ltem07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xquant('07',.f.),xvalor('07'); picture '','@ez 999,999'; total right; font 3 endif if ltem08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xquant('08',.f.),xvalor('08'); picture '','@ez 999,999'; total right; font 3 endif if ltem09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xquant('09',.f.),xvalor('09'); picture '','@ez 999,999'; total right; font 3 endif if ltem10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xquant('10',.f.),xvalor('10'); picture '','@ez 999,999'; total right; font 3 endif if ltem11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xquant('11',.f.),xvalor('11'); picture '','@ez 999,999'; total right; font 3 endif if ltem12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xquant('12',.f.),xvalor('12'); picture '','@ez 999,999'; total right; font 3 endif if ltem13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xquant('13',.f.),xvalor('13'); picture '','@ez 999,999'; total right; font 3 endif if ltem14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xquant('14',.f.),xvalor('14'); picture '','@ez 999,999'; total right; font 3 endif if ltem15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xquant('15',.f.),xvalor('15'); picture '','@ez 999,999'; total right; font 3 endif if ltem16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xquant('16',.f.),xvalor('16'); picture '','@ez 999,999'; total right; font 3 endif if ltem17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xquant('17',.f.),xvalor('17'); picture '','@ez 999,999'; total right; font 3 endif if ltem18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xquant('18',.f.),xvalor('18'); picture '','@ez 999,999'; total right; font 3 endif if ltem19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xquant('19',.f.),xvalor('19'); picture '','@ez 999,999'; total right; font 3 endif if ltem20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xquant('20',.f.),xvalor('20'); picture '','@ez 999,999'; total right; font 3 endif if ltem21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xquant('21',.f.),xvalor('21'); picture '','@ez 999,999'; total right; font 3 endif if ltem22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xquant('22',.f.),xvalor('22'); picture '','@ez 999,999'; total right; font 3 endif if ltem23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xquant('23',.f.),xvalor('23'); picture '','@ez 999,999'; total right; font 3 endif if ltem24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xquant('24',.f.),xvalor('24'); picture '','@ez 999,999'; total right; font 3 endif if ltem25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xquant('25',.f.),xvalor('25'); picture '','@ez 999,999'; total right; font 3 endif if ltem26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xquant('26',.f.),xvalor('26'); picture '','@ez 999,999'; total right; font 3 endif if ltem27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xquant('27',.f.),xvalor('27'); picture '','@ez 999,999'; total right; font 3 endif if ltem28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xquant('28',.f.),xvalor('28'); picture '','@ez 999,999'; total right; font 3 endif if ltem29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xquant('29',.f.),xvalor('29'); picture '','@ez 999,999'; total right; font 3 endif if ltem30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xquant('30',.f.),xvalor('30'); picture '','@ez 999,999'; total right; font 3 endif if ltem31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xquant('31',.f.),xvalor('31'); picture '','@ez 999,999'; total right; font 3 endif ********************* elseif n_tiporel == 7 ********************* column title 'nº B.S./ Ãtem'; data caditens->nrbsitem + caditens->codgitem; picture '@r 999*999 / XXXXXXXXXXXXXXXXXXXXXXXXX'; font 3 if ltematz01 .and. ! alltrim(str(dow( ctod( '01' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '01'; data xatraso('01'); picture '@ez 999,999'; total right; font 3 endif if ltematz02 .and. ! alltrim(str(dow( ctod( '02' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '02' ; data xatraso('02'); picture '@ez 999,999'; total right; font 3 endif if ltematz03 .and. ! alltrim(str(dow( ctod( '03' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '03' ; data xatraso('03'); picture '@ez 999,999'; total right; font 3 endif if ltematz04 .and. ! alltrim(str(dow( ctod( '04' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '04' ; data xatraso('04'); picture '@ez 999,999'; total right; font 3 endif if ltematz05 .and. ! alltrim(str(dow( ctod( '05' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '05' ; data xatraso('05'); picture '@ez 999,999'; total right; font 3 endif if ltematz06 .and. ! alltrim(str(dow( ctod( '06' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '06' ; data xatraso('06'); picture '@ez 999,999'; total right; font 3 endif if ltematz07 .and. ! alltrim(str(dow( ctod( '07' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '07' ; data xatraso('07'); picture '@ez 999,999'; total right; font 3 endif if ltematz08 .and. ! alltrim(str(dow( ctod( '08' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '08' ; data xatraso('08'); picture '@ez 999,999'; total right; font 3 endif if ltematz09 .and. ! alltrim(str(dow( ctod( '09' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '09' ; data xatraso('09'); picture '@ez 999,999'; total right; font 3 endif if ltematz10 .and. ! alltrim(str(dow( ctod( '10' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '10' ; data xatraso('10'); picture '@ez 999,999'; total right; font 3 endif if ltematz11 .and. ! alltrim(str(dow( ctod( '11' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '11' ; data xatraso('11'); picture '@ez 999,999'; total right; font 3 endif if ltematz12 .and. ! alltrim(str(dow( ctod( '12' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '12' ; data xatraso('12'); picture '@ez 999,999'; total right; font 3 endif if ltematz13 .and. ! alltrim(str(dow( ctod( '13' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '13' ; data xatraso('13'); picture '@ez 999,999'; total right; font 3 endif if ltematz14 .and. ! alltrim(str(dow( ctod( '14' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '14' ; data xatraso('14'); picture '@ez 999,999'; total right; font 3 endif if ltematz15 .and. ! alltrim(str(dow( ctod( '15' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '15' ; data xatraso('15'); picture '@ez 999,999'; total right; font 3 endif if ltematz16 .and. ! alltrim(str(dow( ctod( '16' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '16' ; data xatraso('16'); picture '@ez 999,999'; total right; font 3 endif if ltematz17 .and. ! alltrim(str(dow( ctod( '17' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '17' ; data xatraso('17'); picture '@ez 999,999'; total right; font 3 endif if ltematz18 .and. ! alltrim(str(dow( ctod( '18' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '18' ; data xatraso('18'); picture '@ez 999,999'; total right; font 3 endif if ltematz19 .and. ! alltrim(str(dow( ctod( '19' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '19' ; data xatraso('19'); picture '@ez 999,999'; total right; font 3 endif if ltematz20 .and. ! alltrim(str(dow( ctod( '20' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '20' ; data xatraso('20'); picture '@ez 999,999'; total right; font 3 endif if ltematz21 .and. ! alltrim(str(dow( ctod( '21' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '21' ; data xatraso('21'); picture '@ez 999,999'; total right; font 3 endif if ltematz22 .and. ! alltrim(str(dow( ctod( '22' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '22' ; data xatraso('22'); picture '@ez 999,999'; total right; font 3 endif if ltematz23 .and. ! alltrim(str(dow( ctod( '23' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '23' ; data xatraso('23'); picture '@ez 999,999'; total right; font 3 endif if ltematz24 .and. ! alltrim(str(dow( ctod( '24' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '24' ; data xatraso('24'); picture '@ez 999,999'; total right; font 3 endif if ltematz25 .and. ! alltrim(str(dow( ctod( '25' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '25' ; data xatraso('25'); picture '@ez 999,999'; total right; font 3 endif if ltematz26 .and. ! alltrim(str(dow( ctod( '26' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '26' ; data xatraso('26'); picture '@ez 999,999'; total right; font 3 endif if ltematz27 .and. ! alltrim(str(dow( ctod( '27' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '27' ; data xatraso('27'); picture '@ez 999,999'; total right; font 3 endif if ltematz28 .and. ! alltrim(str(dow( ctod( '28' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '28' ; data xatraso('28'); picture '@ez 999,999'; total right; font 3 endif if ltematz29 .and. ! alltrim(str(dow( ctod( '29' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '29' ; data xatraso('29'); picture '@ez 999,999'; total right; font 3 endif if ltematz30 .and. ! alltrim(str(dow( ctod( '30' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '30' ; data xatraso('30'); picture '@ez 999,999'; total right; font 3 endif if ltematz31 .and. ! alltrim(str(dow( ctod( '31' + '/'+ c_mes2 +'/'+ c_ano2 ) ))) $ '1 7' column title '31' ; data xatraso('31'); picture '@ez 999,999' ; total right; font 3 endif endif if l_agrup_rl .and. ( n_tiporel == 2 .or. n_tiporel == 4 .or. n_tiporel == 6 .or. n_tiporel == 7 ) group on caditens->nomeclie; header "cliente: " + oreport:agroups[1]:cvalue //footer "Total ... " +; // " ("+alltrim(str(oReport:aGroups[1]:atotal[2]))+")" ; endif * Para tirar a linha do topo dos dias == oReport:nTitleUpLine := RPT_NOLINE oreport:cgrandtotal := "Total Geral: " // ofont1 name "Lucida Sans Typewriter" size 0,nfontaj bold // ofont2 name "Lucida Sans Typewriter" size 0,nfontaj // ofont3 name "Lucida Sans Typewriter" size 0,nfontaj // ofont4 name "Lucida Sans Typewriter" size 0,nfontaj bold // fonte da primeira linha do titulo = bold oreport:otitle:afont[1] := {|| 1 } // fonte da segunda linha do titulo = bold oreport:otitle:afont[2] := {|| 1 } // fonte da terceira linha do titulo = bold oreport:otitle:afont[3] := {|| 4 } // Cores das fontes oreport:settxtcolor( cor_azule , 1 ) oreport:settxtcolor( cor_verd , 2 ) oreport:settxtcolor( cor_pret , 3 ) oreport:settxtcolor( cor_azul_ , 4 ) oreport:setpencolor(cor_verm ) oreport:setshdcolor(cor_cinz_) end report if l_agrup_rl .and. n_tiporel == 7 activate report oreport; for caditens->atrzitem # 0; // on startgroup oreport:saybitmap(0.2, (oreport:nmargin/oreport:nlogpixx)+.25 ,"logo.bmp",.8,.4); on startpage oreport:saybitmap(0.2, .5 ,"logo.bmp",.8,.4) else activate report oreport; for caditens->qenvitem # 0; ON STARTGROUP oReport:NewLine(); // LINHA EM BRANCO APOS CADA GRUPO on startpage oreport:saybitmap(0.2, (oreport:nmargin/oreport:nlogpixx)+.25 ,"logo.bmp",.8,.4); // on endgroup oreport:say( 1, '-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x ', 1 ,1 ,1 ); on postend ftotpecas() endif ofont1:end() ofont2:end() ofont3:end() ofont4:end() caditens->( dbsetorder(ord_atual) ) caditens->( dbgoto(reg_atual) ) retu nil *********************** stat func xquant(q,l_n) *********************** local nquant := 0 if strzero( day(caditens->dtetitem),2,0) == q if l_n // se for numero nquant := caditens->qenvitem else // se for caracter nquant := if( !empty(caditens->qenvitem), (alltrim( trans( caditens->qenvitem,'@ez 99,999' )) + 'p'),'-x-') endif endif retu nquant ******************** stat func xatraso(a) ******************** local nquant := 0 if strzero( day(caditens->dtetitem),2,0) == a nquant := caditens->atrzitem endif retu nquant ******************* stat func xvalor(v) ******************* local nvalor := 0 if strzero( day(caditens->dtetitem),2,0) == v nvalor := caditens->vfatitem endif retu (nvalor) ******************* stat func ftotpecas ******************* local n_colu if n_tiporel == 5 .or. n_tiporel == 6 oreport:startline() oreport:say(n_colu,'Quantidades entregues:',,1) n_colu := 1 for i:=1 to 31 z:=strzero(i,2,0) if ltem&z ++n_colu oreport:say( n_colu, alltrim( trans( sumqtd&z , '@ez 999,999' ) ) +; if(!empty(sumqtd&z),'p',''),, 1 ) // LEFT=1 RIGHT=2 CENTER=3 endif next oreport:endline() endif retu nil