Moderador: Moderadores
Código: Selecionar todos
aSort( Matriz ,,, { |x,y| x <= y } )
asort( Fun2,,, { |x,y| Left( x , 5 ) <= Left( y , 5 ) } )
aSort( Mtz ,,, { |x,y| Str(x[1],3,0)+Str(x[2],3,0) <= Str(y[1],3,0)+Str(y[2],3,0) } )
asort( MtzRel ,,, { |x,y| Ctod(x[2]) <= Ctod(y[2]) } ) - Organizando por data crescente..Código: Selecionar todos
If Str( New, 1 ) $ "1/2/3"
If AbreVarios( { 98 , 121 }, xLoja + oMesBase ) .and. AbreVarios( { 18 , 19 , 135 , 136 }, oMesBase )
COD_CLI := Left( vCOD_CLI , 5 )
NR->( DbReset( , 1 ) )
Do While NR->( ! Eof() )
If Range( vDT1 , vDT2 , NR->DT_EMISSAO ) .and. Left( vCOD_CLI , 5 ) == NR->COD_CLI
xLiq := Round( NR->( VLR_MERC - DESCONTO ) , 2 )
NR->([b] AAdd[/b]( Brw , { "NF" ,;
NUM_DOC ,;
DT_EMISSAO ,;
If( VLR_MERC > VLR_TOTAL , VLR_MERC , VLR_TOTAL ),;
0 ,;
DESCONTO ,;
xLiq ,;
ShowCont( 3 , COD_VEND ) ,;
ShowCont( 9 , COD_NATOP ) ,;
NUM_DOC } ) )
Ni->( DbReset( , 1 ) )
If Ni->( USeek( NR->( SERIE + NUM_DOC ) ,, 1 ) )
Do While Ni->( NR->( SERIE + NUM_DOC ) == SERIE + NUM_DOC .and. ! Eof() )
Ni->([b] AAdd[/b]( Tmp , { NUM_DOC ,;
" " +;
ShowCont(8,COD_PROD,"Left( Mod11y()+[ - ]+DESCRICAO,38)" , 1 )+;
" ³ " +;
Ni->(Tran( QUANT , m_26 ) ) +;
" ³ " +;
Tran( PC_UNIT , m_6 ) +;
" ³ " +;
Tran( QUANT * PC_UNIT , m_6 ) } ) )
Ni->( DbSkip() )
End
End
End
Esta demora está na criação de um arquivo temporário que você está criando com Copy To, conforme código já postado na página anterior.Ricardo Sales Ribeiro escreveu:em função do gande numero de registros estar demorando para gerar a impressão
Código: Selecionar todos
FUNCTION pesqordens
local matri := {}
local nordem := 1
private codtecn := space(3)
private dataos := ctod("//")
@ 2,07 say "Informe tecnico: "
@ 2,23 get codtecn pict "999"
@ 3,07 say "Informe a data: "
@ 3,23 get dataos valid ! empty(dataos)
read
if lastkey() == 27
return
endif
select ordens
set order to 2 // por tecnico
go top
set softseek on
seek codtech
set softseek off
// nesta decisao o sistema somente entrara no Do While se:
// a) nao der EOF()
// b) o codigo do tecnico escolhido for igual ao do arquivo
// c) a data escolhida for igual a informada
if ! eof() .and. codigo_tecn == codtech .and. datemi == dataos
do while ! eof() .and. nordem <= 4096
// sera gerada uma matriz unidimensional com os campos do arquivo
// sendo concatenados, um apos o outro, limitados pela largura da
// linha
// notar a contagem de elementos da matriz pelo numero de ordem
// que caso ultrapasse 4096 para de acrescer elementos na matriz
aadd( matri,( nrods + " " + codequ + " " + nomequ ))
dbskip()
nordem ++
enddo
if len(matri) > 0 // testar se a matriz esta com dados
rotina_impressao(matri) //enviar a matriz como parametro
return
endif
endif
return // nao achou nada
PROCEDURE rotina_impressao(matriz)
// proceder como se fosse imprimir um arquivo sequencial qualquer
local tamanho := len(matriz)
local num := 0
local contagem := 1
...
cabecalho() // cabecalho do relatorio com o set printer adequado
for num := 1 to tamanho
@ prow()+1,pcol()+1 say matriz[num] // imprime cada elemento da matriz
contagem ++
if contagem > 60
eject
cabecalho()
contagem := 1
endif
next
// fecho do relatorio ....
return