Exibir dados

[jerfeson 1]

Olá pessoal, estou tentando preencher os campos de um relatório em FPDF com ASP, mas sempre que ponho para imprimir os dados ao invés de renotar o PDF com os dados retorna uma página em branco. alguém pode me ajudar - Segue o Código

 <!--#include file="fpdf.asp"-->
 <!--#include file="codigobarras_pedido/codigobarras_inc.asp"-->
<%

If Not intProtocolo = "" Then

  sql = ""
  sql = sql& " SELECT  "
  sql = sql& "   pd.IdPedidoDetalhe AS 'IDDetalhe', "
  sql = sql& "   (CASE LEN(chDETDocumento) "
  sql = sql& "     WHEN 11 THEN 'CPF'"
  sql = sql& "     WHEN 14 THEN 'CNPJ'"
  sql = sql& "   END) AS 'cer_TipoDoc',"
  sql = sql& "   (CASE LEN(chDETDocumento) "
  sql = sql& "     WHEN 11 THEN (SUBSTRING(pd.chDETDocumento,1,3)+ '.' +SUBSTRING(pd.chDETDocumento,4,3)+ '.' +SUBSTRING(pd.chDETDocumento,7,3)+ '-' +SUBSTRING(pd.chDETDocumento,10,2)) "
  sql = sql& "     WHEN 14 THEN (SUBSTRING(pd.chDETDocumento,1,2)+ '.' +SUBSTRING(pd.chDETDocumento,3,3)+ '.' +SUBSTRING(pd.chDETDocumento,6,3)+ '/' +SUBSTRING(pd.chDETDocumento,9,4)+ '.' +SUBSTRING(pd.chDETDocumento,13,2)) "
  sql = sql& "   END)  AS 'cer_Documento', "
  sql = sql& "   UPPER(pd.chDETNome) AS 'cer_Nome', "
  sql = sql& "   pd.chDETNomePai AS 'cer_Pai', "
  sql = sql& "   pd.chDETNomeMae AS 'cer_Mae', "
  sql = sql& "   pc.vlPEDValor AS 'Valor', "
  sql = sql& "   ISNULL(pc.vlPEDValorCorreio,0) AS 'Correio', "
  sql = sql& "   ISNULL(pc.vlPEDValorEntrega,0) AS 'Entrega', "
  sql = sql& "   ISNULL(pc.vlPEDTaxaBancaria,0) AS 'TxBanco', "
  sql = sql& "   ISNULL(pc.vlPEDTaxaServico,0) AS 'TxServico', "
  sql = sql& "   pc.chPEDRequerente AS 'Requerente', "
  sql = sql& "   pc.chPEDTelefone AS 'Telefone', "
  sql = sql& "   pc.chPEDEndereco AS 'Endereco', "
  sql = sql& "   pc.chPEDBairro AS 'Bairro', "
  sql = sql& "   pc.chPEDCidade AS 'Cidade', "
  sql = sql& "   pc.chPEDUf AS 'UF', "
  sql = sql& "   (SUBSTRING(pc.chPEDCEP,1,5)+ '-' +SUBSTRING(pc.chPEDCEP,6,3)) AS 'CEP', "
  sql = sql& "   pc.nuPEDOndeRetirar AS 'Retirada', "
  sql = sql& "   pd.nuDETProtocolo AS 'Controle', "
  sql = sql& "   pc.dtPEDDataPedido AS 'Data', "
  sql = sql& "   chCERNome AS 'cer_arCertidao', "
  sql = sql& "   nuDCTValor AS 'cer_arValorCertidao', "
  sql = sql& "   vlPEDCustoEnvio AS 'CustoEnvio' "
  sql = sql& " FROM TBPedidoDetalhe AS pd INNER JOIN TBPedidoCertidao AS pc  "
  sql = sql& "   ON (pc.nuPEDProtocolo = pd.nuDETProtocolo), TBDetalheCertidao AS dc, TBTipoCertidao AS tc "
  sql = sql& " WHERE pd.nuDETProtocolo = " &intProtocolo
  sql = sql& "   AND pd.IdPedidoDetalhe = dc.IdDCTPedidoDetalhe "
  sql = sql& "   AND tc.IdTipoCertidao = nuDCTIdTipoCertidao "
  sql = sql& " ORDER BY pc.nuPEDIdEmpresa, IDDetalhe "
  
  

  Set objRS = p_objConn.Execute(sql)
  sql = ""
  sql = sql& " SELECT "
  sql = sql& "   CASE blPCRAviso01        WHEN 1 THEN chPCRAviso01        ELSE '' END AS 'aviso01', "
  sql = sql& "   CASE blPCRAviso02        WHEN 1 THEN chPCRAviso02        ELSE '' END AS 'aviso02', "
  sql = sql& "   CASE blPCRAviso03_recibo WHEN 1 THEN chPCRAviso03_recibo ELSE '' END AS 'aviso_recibo', "
  sql = sql& "   CASE blPCRHomonimo       WHEN 1 THEN chPCRHomonimo       ELSE '' END AS 'homonimo', "
  sql = sql& "   CASE blPCRHomonimo_js    WHEN 1 THEN chPCRHomonimo_js    ELSE '' END AS 'homonimo_js', "
  sql = sql& "   blPCRValorCertidao AS 'valor_certidao' "
  sql = sql& " FROM TBParametro_Certidao "


  Set rsMensagens = Server.CreateObject("ADODB.RecordSet")
      rsMensagens.Open sql,p_objConn

      strAviso_recibo = rsMensagens("aviso_recibo")

      rsMensagens.Close
  Set rsMensagens = nothing
  '//////////


  If Not objRS.EOF Then
    strRequerente     = objRS("Requerente")
    strTelRequerente  = formataTelefone(objRS("Telefone"))
    strEndereco       = objRS("Endereco")
    strBairro         = objRS("Bairro")
    strCidade         = objRS("Cidade")
    strUF             = objRS("UF")
    strCEP            = objRS("CEP")
    datPedido         = objRS("Data")

    If IsNull(objRS("TxServico")) or objRS("TxServico") = 0 Then vlrServico = 0 Else vlrServico = objRS("TxServico")
    If IsNull(objRS("TxBanco")) or objRS("TxBanco") = 0 Then vlrBanco = CDbl(Session("vlPARTaxaBanco")) Else vlrBanco = CDbl(objRS("TxBanco")) End If
    
    intRetirada   = CInt(objRS("Retirada"))
    vlrCustoEnvio = CDbl(objRS("CustoEnvio"))
    vlrCorreio    = CDbl(objRS("Correio"))
    vlrEntrega    = CDbl(objRS("Entrega"))
    vlrValor      = CDbl(objRS("Valor"))
    vlrTotal      = vlrCorreio + vlrEntrega + vlrBanco + vlrServico + vlrValor + vlrCustoEnvio

    imprimeCabecalho()
    imprimePedidos()
    imprimeLocalEntrega()
    imprimeFinal()

  Else
    Response.Write "<font color='red'><b>Protocolo inexistente</b></font>"
    Response.End
  End If

  Set objRS     = nothing
  Set p_objConn = nothing

End If

'// Procedimentos

Sub imprimeCabecalho()

%>

<%If intProtocolo = "" Then%>
<script>
	self.window.close();
	parent.opener.location = parent.opener.location;
	parent.opener.focus();
</script>
<%End If%>

 
<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","B",16
pdf.Open()
pdf.AddPage()

pdf.Image "img_brasao.jpg",12,10,15
pdf.SetFont "Arial","B",10
'//inicio Cabeçalho'//

pdf.SetXY 27.0, 6
pdf.Cell 140,17,"CARTÓRIO DE DISTRIBUIÇÃO DF",0,0,L
pdf.SetXY 27.0, 10
pdf.Cell 140,17,"ED. VENÂNCIO 2000, BLOCO B60, SALA 240",0,0,"L"
pdf.SetXY 27.0, 14
pdf.Cell 140,17,"ASA SUL - BRASÍLIA/DF - 70.333-900 TELEFONE: (61) 3212-4000",0,0,"L"
pdf.SetXY 10.0, 10
pdf.Cell 140,17,"",1,0,"L"

pdf.SetFont "Arial","B",8
pdf.SetXY 150.0, 10
pdf.Cell 50,8.5,"",1,1,"C"

pdf.SetXY 150.0, 8
pdf.Cell 50,8.5,"Protocolo",0,0,"C"


pdf.SetXY 150.0, 11
pdf.Cell 50,8.5,intProtocolo,0,0,C

pdf.SetXY 155.0, 18.5
pdf.Cell 50,8.5,"Data:",0,0,"L"

pdf.SetXY 150.0, 18.5
pdf.Cell 50,8.5,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10, 25
pdf.Cell 190,8.5,"Requerente:",0,0,L

pdf.SetXY 30, 25
pdf.Cell 190,8.5,strRequerente,0,0,L

pdf.SetXY 10, 27
pdf.Cell 190,5,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10, 32.5
pdf.Cell 190,8.5,"",0,0,"L"

pdf.SetXY 10, 32.1
pdf.Cell 190,16,"",1,0,"C"

pdf.SetFont "Arial","B",8
pdf.SetXY 10,48
pdf.Cell 190,8.5,"",0,0,"L"

pdf.SetXY 10, 48
pdf.Cell 190,15,"",1,0,"C"


'Fim Cabeçalho



pdf.Close()
pdf.Output
%> 
<% End Sub%>

[xanburzum 169]

a sua SQL esta normal...

[jerfeson 1]

a sua SQL esta normal...

 

Pois é - mas na hora de imprimir os dados no PDF, ele fica em branco =\ A página inteira fica em branco na verdade. nada é mostrado. :skull: :skull: :skull: :skull: :skull: :skull: :skull: :skull: :skull: :skull:

[xanburzum 169]

pq vc fechou e abriu várias vezes o delimitador <% %>,

%><%If intProtocolo = "" Then%><%End If%> <%

arrume isso, e antes de um response.write nas suas variáveis para ver se esta sendo passado dados