ALIAS SF_PN
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 zbVirg:={|cTxt| if(empty(cTxt),"",", ")+AllTrim(cTxt) }
variavel znil = DebugAlert("Pedido: "+Str(fnumped)+"  NF: "+str(fnum) )
variavel zFuncEncarregado := ''
VARIAVEL #TEXTO_FONTE
   debugalert('0 entrou no cupom_pn_devolucao.lst ')
      oLst:nLinesPorPagina := 66
      oLst:lOutPutXML := .f.

      oLst:cAlias_DataCols := '_itens'
      oLst:cAliasMaster := '_itens'
      oLst:lPrtRodape := .f.
      
      oLst:Cab1( "CONFERENTE 'CEGO' DE DEVOLUCAO" )
      Sf_Pn->(oLst:Cab4( "Referente aos Controles/OrdensDev "+m_fAditivo ))

      oLst:AddCab( '_LINHA_GROSSA_' )
      oLst:AddCab( {"COLS"=>"0,C"} ,{"style"=>"font:Helvetica-BoldOblique"}, 'LOCADOR: '+AllTrim(hDadosEmp["EMP_NOME"]), 'Emissao: '+Dtoc(Date())+' as '+Time())
      oLst:AddCab( '_LINHA_FINA_' )


      oLst:AddCol('Prod;zPcod;P;999999;6;;')
      oLst:AddCol('Descricao;zPdesc;P;@S35;35;;')
      oLst:AddCol('Conferente;"____________________";P;@S12;12;;')
      oLst:AddCol('DEV1;"__________________";P;@S10;10;;')
      oLst:AddCol('DEV2;"__________________";P;@S10;10;;')
      oLst:AddCol('DEV3;"__________________";P;@S10;10;;')
      oLst:AddCol('Diferenca;"__________________";P;@S10;10;;')
      // oLst:AddCol('Quant;zQuant;P;999999;6;;')

      Abra('0NOIDX',r_siga,'vb_pref','vb_pref')
      DbSelectArea("_movnfcl")
      DbGoTop()
      do while .not. eof()
         SccrCli->(DbGoTo(_movnfcl->fCli))
         Vb_pRef->(DbGoto( _movnfcl->fObra ))
         oLst:AddCab( {"style"=>"font:Helvetica-BoldOblique"}, 'DEV'+Str(_movnfcl->(Recno()),2)+' Controle: '+StrZero(_movnfcl->fnumped,6)+' Cli:'+strzero(Sf_Pn->fcli,6)+'- '+AllTrim(Sccrcli->Cr_Nome), "" )
         oLst:AddCab( {"style"=>"font:Helvetica-Oblique"}, "Obra: Cod("+lTrim(Str(_movnfcl->fObra,6))+") "+AllTrim(vb_pref->Cr_Fantasi) , "")
         oLst:AddCab( "")
         DbSkip()
      enddo
      vb_pref->(DbCloseArea())

      oLst:AddCab( {"style"=>"font:Helvetica-BoldOblique#size:12#ncolor:99#width:80#bgfill:SombraEscuraComBorda", "COLS"=>"0,C"}, 'ITENS PASSIVEIS DE DEVOLUCAO' )
      oLst:AddCab( {"style"=>"font:Courier-Oblique"}, '_CABCOLS_')

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

      DbSelectArea("_movnft")
      do while .not. eof()
         if Quant > 0 
            zPcod := _movnft->Cod
            zQuant := _movnft->Quant 
            if zQuant > 0 .and. se_prod->(DbSeek(zPcod))
               zQtdProdutos := zQtdProdutos + 1
               zQtdUnidades := zQtdUnidades + zQuant 
               zPdesc := se_prod->pDesc
               oLst:PrtD('_DATACOLS_')
            endif
         endif
         DbSkip()
      enddo

      oLst:PrtD( '' )
      oLst:PrtD( '' )
      oLst:PrtD( {"style"=>"font:Helvetica-BoldOblique#size:12#ncolor:99#width:80#bgfill:SombraEscuraComBorda", "COLS"=>"0,C"}, 'ITENS PASSIVEIS DE MANUTENCAO' )
      oLst:PrtD( '' )
      oLst:PrtD( Repl('.',99) )
      oLst:PrtD( '' )
      oLst:PrtD( Repl('.',99) )
      oLst:PrtD( '' )
      oLst:PrtD( Repl('.',99) )
      oLst:PrtD( '' )
      oLst:PrtD( Repl('.',99) )
      oLst:PrtD( '' )
      oLst:PrtD( Repl('.',99) )
      oLst:PrtD( '' )
      oLst:PrtD( '' )

      oLst:PrtD( Repl('.',24), Repl('.',24) , Repl('.',24) )
      oLst:PrtD( Pad("Ass.Conferente",24), Pad("Ass.Mediador",24) , Pad("Ass.Conferente2",24) )

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

// comando antes DbGoBottom()
