ALIAS SP_MOVF
// INDEX temp0101 pdesc
COMANDO ANTES #TEXTO_FONTE
   Private z_np:=0, zCmdsDurante:="", zFileProfarma:=Fcreate("c:\upciga\tmp\profarma.txt"), zValExportado:=0, zItensExportados:=0, zValNaoExportado:=0, zItensNaoExportados:=0
  
   oLst:cAlias_DataCols := '_movf'
   oLst:cAliasMaster := '_movf'
   oLst:lPortrait := .t.
   oLst:lOutputPdf := .t.
   // oLst:lOutputFr3 := .t.

   oLst:Cab1( "Exportacao Profarma - "+w_pedido)
   oLst:Cab4( "em "+Dtoc(s_datual)+" as "+time())
  
   oLst:AddCab( '_LINHA_FINA_' )
   oLst:AddCab( '_CABCOLS_' )
   oLst:AddCab( '_LINHA_GROSSA_' )

   oLst:AddCol('Codigo;pCod;N;999999;6;;;Direita;NaoSome;')
   oLst:AddCol('Descricao;pDesc;C;@s35;35;;;Esquerda;NaoSome;') 
   oLst:AddCol('CxFechPed;unid_fech;N;999999999;9;;;Direita;Some;') 
   oLst:AddCol('Frc;pitens;N;9999;4;;;Direita;NaoSome;') 
   oLst:AddCol('PrCompra;PVLUVEN3;N;999999.99;9;;;Direita;NaoSome;') 
   oLst:AddCol('PrTotCpa;mValor3;N;999999.99;9;;;Direita;Some;') 
   // oLst:AddCol('EAN;pDic6;N;9999999999999;13;;;Direita;NaoSome;')
   // oLst:AddCol('Status;if(pDic6>999999,"Exportado","NaoExportado");P;@S12;12;;;Direita;NaoSome;')
   oLst:AddCol('EAN;se_prod->(pCod=sp_movf->pCod.or.DbSeek(SP_MOVF->pCod),pDic6);P;9999999999999;13;;;Direita;NaoSome;')
   oLst:AddCol('Status;if(se_prod->(pCod=sp_movf->pCod.or.DbSeek(sp_movf->pCod),pDic6)>999999,"Exportado","NaoExportado");P;@S12;12;;;Direita;NaoSome;')

   // oLst:AddCol('Pr.Venda;PVLUVENDA;N;999999.99;9;;;Direita;NaoSome;') 
   // oLst:AddCol('PrTotVda;mValor;N;999999.99;9;;;Direita;Some;') 
   // oLst:AddCol('Ref.Fabr;Preffab;C;@S8;8;S;;') 

   oLst:AddCol('Cf;PCATEGORIA;C;XXX;2;;;Esquerda;NaoSome;') 
   oLst:AddCol('Tp;ptipoitem;P;!!;2;S;')
   //oLst:AddCol('Finalidade;Efd_TipoItem();P;@S13;13;N;')

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

   BLOCO_TXT zCmdsDurante
      z_np := z_np + 1
      se_prod->( pCod=sp_movf->pcod .or. DbSeek(sp_movf->pCod) )
      if pDic6=0 .and. se_prod->pDic6>999999
        (RegLock(), _field->pDic6:=se_prod->pDic6)
      endif
      if se_prod->pDic6>999999 
         FWRITE(zFileProfarma, strzero(pdic6,13)+";"+ltrim(Str(Unid_Fech,10)) +chr(13)+chr(10))
         zItensExportados := zItensExportados + 1 
         zValExportado := zValExportado + mValor3
      else
         zItensNaoExportados  := zItensNaoExportados + 1
         zValNaoExportado  := zValNaoExportado + mValor3
      endif
   FIM_BLOCO_TXT

   ( DbGoTop(), oLst:DbEval(zCmdsDurante) )

   oLst:PrtD('_LINHA_GROSSA_')
   oLst:lFecharGruposAbertos := .t.
   oLst:PrtD({"style"=>"font:Courier-BoldOblique"}, '_SOMACOLS_GLOBAL_' )
   oLst:PrtD('_LINHA_FINA_')
   oLst:PrtD('')
   
   debugalert('4')
   
   oLst:PrtD('Produtos Listados: '+Transform(z_np,'@E 999,999') )
   oLst:PrtD('Valor Exportado p/ Profarma (com Codigos de Barras):  '+Transform(zValExportado,'@e 999,999,999.99')+'   ('+Str(zItensExportados,4)+' itens)' )
   oLst:PrtD('Total Nao Exportado (Itens Sem Codigos de Barras)  :  '+Transform(zValNaoExportado, '@e 999,999,999.99')+'   ('+Str(zItensNaoExportados,4)+' itens)' )
   oLst:PrtD('')

   debugalert('3')
   FCLOSE(zFileProfarma) 
   ALERT("SEU PEDIDO FOI EXPORTADO COMO;c:\upciga\tmp\profarma.txt;Tecle Enter!",,"B/W")
   
#FIM_TEXTO_FONTE
