ALIAS sp_pedf
variavel znil = DbGoto(z_recno)
variavel nRow = 0
variavel m_fobs = ''
variavel zPcod := 0
variavel zQuant := 0
variavel zPrTotal := 0
variavel zPdesc := ''
variavel zPrUnit := 0
variavel pag := 1
variavel zQtdProdutos := 0
variavel zQtdUnidades := 0
variavel sPrtLineLen := 90
variavel zDesenhoDoForm := ""
variavel zFgTemServicos := .f.
variavel znil = DebugAlert("Pedido: "+Str(Pfnumped))
VARIAVEL #TEXTO_FONTE
   debugalert('0 entrou no cupom_ilha.lst ')
      
      oLst:nLinesPorPagina := 66
      oLst:lOutPutXML := .f.

      oLst:cAlias_DataCols := 'itens'
      oLst:cAliasMaster := 'itens'
      oLst:lPrtRodape := .f.
      
      oLst:AddCol('Prod;zPcod;P;999999;6;;')
      oLst:AddCol('Descricao;zPdesc;P;@S35;35;;')
      oLst:AddCol('Quant;zQuant;P;9999.99;7;;')
      
      oLst:Cab1( if(sp_pedf->fg_fat="E","ABASTECIMENTO PARA ","RECOLHIMENTO DA ")+"ILHA "+StrZero(sp_pedf->pffor,4) )

      oLst:AddCab( {"style"=>"font:Courier-Oblique"}, "Numero "+lTrim(Str(sp_pedf->pfNumPed,10)), "Emissao: "+dtoc(sp_pedf->pfdataemi) )
      oLst:AddCab( "" )
      
      oLst:AddCab( {"style"=>"font:Helvetica-BoldOblique#size:12#ncolor:99#width:80#bgfill:SombraEscuraComBorda", "COLS"=>"0,C"}, 'ITENS A '+if(sp_pedf->fg_fat='E','ABASTECER','RECOLHER') )
      oLst:AddCab( {"style"=>"font:Courier-Oblique"}, '_CABCOLS_')

      oLst:AddRodape( '_LINHA_FINA_', "", {|| "Pagina "+Str(++pag,4)+" / ####"} )

      DbSelectArea("Sp_MovF")
      DbSeek(sp_pedf->pfNumPed)
      do while sp_pedf->pfNumPed = PfNumPed .and. .not. eof()
         if UNID_FECH > 0 
            zPcod := Sp_MovF->PCod
            zQuant := Sp_MovF->unid_fech
            if zQuant > 0 .AND. se_prod->(DbSeek(zPcod))
               zQtdProdutos := zQtdProdutos + 1
               zQtdUnidades := zQtdUnidades + zQuant 
               zPdesc := se_prod->pDesc
               oLst:EvalLineBlocks('DETALHE', '_DATACOLS_')
            endif
         endif
         DbSkip()
      enddo

      // oLst:EvalLineBlocks('DETALHE', '')
      // m_fobs:=AllTrim(sp_pedf->fobs)
      // nRow := 0
      // do while ++nRow <= mlCount(m_fobs, 60)
      //    oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Courier-Oblique#size:8#col:0#row:(oPdf:pRow+1)"}, Rtrim(memoline(m_fobs,60,nRow)) )
      // enddo

      // oLst:EvalLineBlocks('DETALHE', zQtdProdutos>0, {"style"=>"font:Helvetica-Oblique#col:40"}, " ","PRODUTOS DISTINTOS: "+   Transform(zQtdProdutos,"@E 99,999,999,999.99") )
      // oLst:EvalLineBlocks('DETALHE', zQtdUnidades>0,  {"style"=>"font:Helvetica-Oblique#col:30"},            " ","TOTAL DE UNIDADES: "+   Transform(zQtdUnidades,"@E 99,999,999,999.99") )

         oLst:PrtD( '' )
         oLst:PrtD( 'Observacoes:','','_________________________________________' )
         oLst:PrtD( '                                              ',{"style"=>"font:Courier-BoldOblique"},'',Pad('Despachante do '+if(sp_pedf->fg_fat='E','Abastecimento','Recolhimento'),41) )
         oLst:PrtD( '..............................................',{"style"=>"font:Courier-Oblique"},'',"" )

         oLst:PrtD( '','','' )
         oLst:PrtD( '..............................................','','_________________________________________' )
         oLst:PrtD( '                                              ',{"style"=>"font:Courier-BoldOblique"},'',Pad('Recebedor do '+if(sp_pedf->fg_fat='E','Abastecimento','Recolhimento'),41) )
         oLst:PrtD( '..............................................',{"style"=>"font:Courier-Oblique"},'','Nome:....................................' )
         oLst:PrtD( '                                              ',{"style"=>"font:Courier-Oblique"},'','CPF:.....................................' )
         oLst:PrtD( '..............................................',{"style"=>"font:Courier-Oblique"},'','RG:......................................' )

debugalert('11 saindo da cupom_ilha.lst ')
      
      oLst:Run()
      oLst:End()
#FIM_TEXTO_FONTE

comando antes DbGoBottom()
