ALIAS SCCRDUP
VARIAVEL zLL = 0
VARIAVEL hReg = {=>}
VARIAVEL LST_TP = 9999
variavel zFgECF = (wOpcao=1 .and. s_sys_paf .and. oECF:EcfLigado)
variavel sPrtLineLen = if(zFgECF, oEcf:s_df_LenLinhasObs, if(wOpcao=1, val(xGetEnv('COLUNAS_IMPRESSORA_ROLO','48')) , 80) )
variavel #TEXTO_FONTE
   Private zRecibo:=empresa, vLines
   zRecibo += '|'+'COMPROVANTE DE RECEBIMENTO '+if(m_fvalpendente>0,'PARCIAL','TOTAL')
   zRecibo += '|'+ repl('-',sPrtLineLen) 
   zRecibo += '|'+ 'Cliente: '+strzero(m_fcli,6)+'-'+wcCrNome
   zRecibo += '|'+ 'Debito em '+Dtoc(S_datual)+'..........: R$ '   +Transform(wSaldo,  '@E 999,999,999.99')
   zRecibo += if(m_ftroco>0,'|'+'Valor Pago .................: R$ '+Transform(m_fvales,'@E 999,999,999.99'),"")
   zRecibo += '|'+'Valor Quitado...............: R$ '+Transform(m_fvalquitado,'@E 999,999,999.99')
   zRecibo += if(m_ftroco>0,'|'+'Valor do Troco..............: R$ '+Transform(m_ftroco,'@E 999,999,999.99'),"")
   zRecibo += '|'+'Data do Recebimento.........: '+Dtoc(S_datual)+' as '+time()
   zRecibo += '|'+ repl('-',sPrtLineLen)
   if m_fvalpendente>0
      zRecibo += '|Debito Pendente.............: R$ '+Transform(m_fvalPENDENTE,'@E 999,999,999.99')
      zRecibo += '|Vencimento do Saldo Pendente: '+Dtoc(m_CrDtVencReagend)
      zRecibo += '|' 
      zRecibo += '|Reconheco e pagarei o saldo pendente'
      zRecibo += '|'
      zRecibo += '|'
      zRecibo += '|__________________________________'
      zRecibo += '|Assinatura'
      zRecibo += '|'
   endif
   
   zRecibo := zRecibo+'||||----------------- Corte Aqui -------------------||||'+zRecibo+'|||||'
   vLines := hb_atokens(zRecibo, '|')

   if zFgECF
      RelGerPrt(vLines)
   else

      olst:lOutputMatricial := .t.
      olst:lOutputPdf := .f.
      
      if xGetEnv('USA_CUPOM.LST_EM_FORMATO_FR3')='S'.or.xGetEnv('IMPRIME_CUPOM_DAV_APOS_VENDA_EM_FR3')='S'
      
         hReg := {=>}
         hReg['TIPOQT']       := if(m_fvalpendente>0,'PARCIAL','TOTAL')
         hReg['FCLI']         := m_fcli
         hReg['CR_NOME']      := wcCrNome
         hReg['DATAQT']       := S_datual
         hReg['DEB_ANTES']    := wSaldo
         hReg['VL_PAGO']      := if(m_ftroco>0,m_fvales,m_fvalquitado)
         hReg['VL_TROCO']     := IF(m_ftroco>0,m_ftroco,0)
         hReg['VL_QUITADO']   := m_fvalquitado
         hReg['VL_PENDENT']   := m_fvalpendente
         hReg['DT_PROXIMA']   := m_CrDtVencReagend
         
         oLst:lOutputFr3      := .t.
         oLst:cAliasMaster    := '_recib' 
         oLst:cAlias_DataCols := '_recib'
         oLst:PutRsFr3('_recib', hReg)
         
         oLst:cReport         := 'qtdeb_prtrecibo'
      
      else
         aEval( vLines, {|cLine| oLst:PrtD(cLine)} )
      endif      
    
      // se zfgNaoTemPreview entao oLst:bInitFr3 := {|| oLst:oFr3:SetDirect(.t.) }
	  
      oLst:Run()
      oLst:End()
      
      olst:lOutputPdf := .t.

   endif
   
#FIM_TEXTO_FONTE

COMANDO ANTES DBGOTOP()
