ALIAS SE_MOV
VARIAVEL m_fcli = 0
//variavel sPrtLineLen := 90

//FORM_REQUISICAO_MATERIAL
VARIAVEL #TEXTO_FONTE
   Private zDesenhoDoForm := ""
   debugalert('0 entrou no cupom_dav.lst ')
      
   // oLst:nLinesPorPagina := 66
   oLst:nLinesPorPagina := 66
   oLst:sPrtLineLen  := 90
   oLst:lOutputFr3 := .t.
   oLst:cAlias_DataCols := '_reqmat'
   oLst:cAliasMaster := oLst:cAlias_DataCols
   oLst:SetDbLst('mem:_reqmat')
   oLst:cTemplateFr3 := 'skel_' + 'ListaComGrp' +'.fr3'

      //    oPdf:Box( oPdf:pRow+1, 0, oPdf:sPrtLineLen+3, oPdf:nLinesPorPagina-1-(oPdf:pRow+1 + 6) )
      //      oPdf:Box( oPdf:pRow+1+ oPdf:nLinesPorPagina-1-(oPdf:pRow+1+6), 0, oPdf:sPrtLineLen+3, 6)
      //      oPdf:Box( oPdf:pRow+1+ oPdf:nLinesPorPagina-1-(oPdf:pRow+1+6), 47, oPdf:sPrtLineLen-47+3, 6, 1, {0.95, 0.95, 0.95}, 3)
      //      oPdf:Box( oPdf:pRow+1+ oPdf:nLinesPorPagina-1-(oPdf:pRow+1+6), 47, oPdf:sPrtLineLen-47+3, 6)
      BLOCO_TXT zDesenhoDoForm
         .function DesenhaForm
            oPdf:Box( 0, 0, oPdf:sPrtLineLen, oPdf:nLinesPorPagina-5*66/6 )
         .end_function
      FIM_BLOCO_TXT
      oLst:PrtLine( 'CONFIG', zDesenhoDoForm)

   oLst:lPrtRodape := .f.
      
      oLst:AddCol('Prod;m_pcod;P;999999;6;;;Direita;NaoSome;NaoImprima;pCod;')

      oLst:AddCol('Descricao;se_prod->pdesc;P;@S35;35;;;Esquerda;NaoSome;NaoImprima;pDesc;')
      oLst:AddCol('Quant;m_mQuant;P;9999.99;7;;;Direita;NaoSome;NaoImprima;mQuant;')
      oLst:AddCol('Vl.Unit;m_mValor/m_mQuant;P;@E 99,999.99;9;;;Direita;NaoSome;NaoImprima;pVluVenda;')
      oLst:AddCol('Vl.Total;m_mValor;P;@E 99,999.99;9;;;Direita;NaoSome;NaoImprima;mValor;')
      
      // oLst:Cab1( "REQUISICAO DE MATERIAL "+StrZero(m_fnumped,10) )
      oLst:Cab1( "COMPROVANTE DE SAIDA DE MATERIAL")

      // oLst:AddCab( '_LINHA_GROSSA_' )
      // oLst:AddCab( {"COLS"=>"0,C"} ,{"style"=>"font:Helvetica-BoldOblique"}, 'Estabelecimento Emitente' )
      oLst:AddCab( 'Emitente:'+AllTrim(hDadosEmp["EMP_NOME"]), '',  'CNPJ: '+AllTrim(emp_cgc) )
      // oLst:AddCab( 'Vendedor: ('+lTrim(Str(m_fVendedor,6))+') '+m_fnome, 'Emissao: '+Dtoc(m_fDataEmi)+' as '+m_fHora)
      // oLst:AddCab( '_LINHA_FINA_' )
      if m_fcli>0
         oLst:AddCab( {"COLS"=>"0,C"} ,{"style"=>"font:Helvetica-BoldOblique"}, 'Identificacao do Destinatario' )
         Sccrcli->(DbGoto( m_fcli ))
         oLst:AddCab( 'Nome: '+strzero(m_fcli,6)+'- '+AllTrim (wcCrNome) )
         oLst:AddCab( 'CNPJ: '+AllTrim(sccrcli->Cr_Cgc), 'IE:'+sccrcli->Cr_Insc_Es, 'Fantasia: '+AllTrim(sccrcli->cr_fantasi) )
         oLst:AddCab( 'Contato: '+AllTrim(sccrcli->cr_contato), 'Fone:'+AllTrim(sccrcli->cr_fone) )
      endif

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

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

      oLst:PrtD('_DATACOLS_')

      oLst:PrtD('.   Produto: '+lTrim(Str(m_pCod,13))+' '+se_prod->pDEsc )
      oLst:PrtD('')
      oLst:PrtD('.   Quantidade: '+lTrim(Str(m_mQuant,12,3)), 'Data:'+Dtoc(m_mData) )
      oLst:PrtD('')
      oLst:PrtD('')
      oLst:PrtD('. Solicitante: __________________________', 'Atendente: __________________________')
      if nfnumero>0
         oLst:PrtD('. Matr:'+lTrim(Str(nfnumero,10))+' '+fp_ptfun->fNome,'')
      endif

      // oLst:EvalLineBlocks('DETALHE', '')
      // oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Helvetica-BoldOblique#size:12#ncolor:99#width:80#bgfill:SombraEscuraComBorda", "COLS"=>"0,C"}, 'SERVICOS EXECUTADOS')
      // oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Courier-Oblique"}, '_CABCOLS_')

      // oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Helvetica-Oblique"}, " ","VALOR DOS PRODUTOS E SERVICOS: "+ Transform(m_fValProd,"@E 99,999,999,999.99") )
      // oLst:EvalLineBlocks('DETALHE', '_LINHA_GROSSA_')
      //oLst:EvalLineBlocks('DETALHE', {"call_pdf_function"=>"reposiciona_cursor"}, " ")

//      oLst:EvalLineBlocks('DETALHE', zTotMercadoria>0, {"style"=>"font:Helvetica-Oblique#col:40#row:(oPdf:nLinesPorPagina-6)"}, " ","VALOR DOS PRODUTOS: "+   Transform(zTotMercadoria ,"@E 99,999,999,999.99") )
//      oLst:EvalLineBlocks('DETALHE', m_fDesconto>0, {"style"=>"font:Helvetica-Oblique#col:40#row:(oPdf:pRow+1)"}, " ","DESCONTOS CONCEDIDOS: "+ Transform(m_fDesconto,"@E 99,999,999,999.99") )
//      oLst:EvalLineBlocks('DETALHE', m_fValDev>0,   {"style"=>"font:Helvetica-Oblique#col:40#row:(oPdf:pRow+1)"}, " ","CREDITOS DE DEVOLUCOES: "+ Transform(m_fValDev,"@E 99,999,999,999.99") )
//      oLst:EvalLineBlocks('DETALHE', {"style"=>"font:Helvetica-Oblique#col:40#row:(oPdf:nLinesPorPagina-2)"}, " ","VALOR FINAL DA VENDA: "+ Transform(m_fVal,"@E 99,999,999,999.99") )

debugalert('11 entrou no cupom_dav.lst ')
      
      oLst:Run()
      oLst:End()
#FIM_TEXTO_FONTE

   // oLst:AddCab( {"AplicaFormatacaoDefaultNoCabecalho"=>"nao","style"=>"font:Helvetica-Bold#size:14#ncolor:99#width:80#bold;", "COLS"=>"0,C"}, "DAV-OS "+StrZero(m_fnumped,10) )
   // Method Say (nRow, nCol, aCellsDeUmaRowParaModificar, cPict, cFont, nSize, uColor, lBold )
   // Method Say ( nRow, nCol, cTxt, oFont, nSize, nColor, lFgRowColEmPixels, lRedefina_Largura_e_Altura_Corrente, cAlinhamento, nTamanhoDaColuna)

   // pendencia1: colocar quadrado com dados do emitente no topo da pagina  com fontsize 10
   // pendencia1: colocar logomarca .jpg no lado esquerdo, com 1/5 do comprimento da linha 
   
   // oLst:AddCab( {"style"=>"font:Helvetica#size:14#ncolor:99#width:80#bold;", "COLS"=>"0,C"}, "ORCAMENTO "+StrZero(m_fnumped,10) )
   // oLst:AddCab( {"eval_pdf"=>"eval(zFormPdf)"}, "ORCAMENTO "+StrZero(m_fnumped,10) )


//wCab1 := "DUPLICATAS "+if(wTodasAbertasLqd="A","EM ABERTO",if(wTodasAbertasLqd="L","LIQUIDADAS",""))+if(wFornCustVencLqd="F"," POR FORNECEDORES",if(wFornCustVencLqd="D"," POR CENTROS DE CUSTO"," POR DATA"))
//wCab2 := oQbe:ExpressaoDeFiltragemParaImprimir

// oLst:AddDbFr3(cDbfComPath, cAlias, cIndex, cFilter, lForce_Index, cExprInd) 
// oLst:AddMasterDetailFr3(cAliasMaster, cAliasDetail, xExpression) 
//   Private bDurante, n0Titulos:=0,n0TotVc:=0,n0TotAv:=0,n0TotQt:=0,n1Titulos:=0,n1TotVc:=0,n1TotAv:=0,n1TotQt:=0,aHeaderDetails:={},aFooterDetails:={}

//   oLst:cAlias_DataCols := 'cp_ped'
//   if oLst:lOutputFr3 
//      oLst:cAliasMaster := oLst:cAlias_DataCols
//      // a instrucao oLst:SetDbLst('mem:_cpped') faz com que seja criada uma tabela mem:_cpped com o conteudo das colunas do relatorio
//      oLst:SetDbLst('mem:_cpped')
//      oLst:cTemplateFr3 := 'skel_' + 'ListaComGrp' +'.fr3'
//   endif
   
//   se wFornCustVencLqd$'DF' entao oLst:AddCol('   ;("   ");P;@S3;3;;;Esquerda;NaoSome;Imprima;nofield;')
   
//   se wTodasAbertasLqd$'LT' entao oLst:AddCol('Dt_Lqd;cp_dt_lqd;D;99.99.99;8;;;Direita;NaoSome;Imprima;cp_dt_lqd;') 
//   oLst:AddCol('Dt_Emis;cp_dt_emis;D;99.99.99;8;;;Direita;NaoSome;NaoImprima;cp_dt_emis;')
