SHAPE APPEND DATA REPORT COM MYSQL

  If RSTest Is Nothing Then
    Set RSTest = New ADODB.Recordset
End If
If RSTest.State = adStateOpen Then
    RSTest.Close
End If



SQL = [Ô]SHAPE {SELECT vendaesc.venda as venda,vendaesc.tipo as tipo,vendaesc.prod as prod, vendaesc.ValUniProd as valuniprod, vendaesc.QUANTIDADEprod as qtd, (vendaesc.QUANTIDADEprod * vendaesc.ValUniProd) As total_soma  FROM vendaesc} AS Level1 [Ô] & _
        [Ô]APPEND ({SELECT venda.forma_pagamento_detalhe_nome as forma_pagamento_detalhe_nome,venda.forma_pagamento_parcelas as forma_pagamento_parcelas, venda.TotalS AS total_venda_agrupa, venda.totalc AS valor_total_venda, venda_forma_pagamento.descricao AS nome_forma_pagamento from venda INNER JOIN venda_forma_pagamento ON venda_forma_pagamento.cod = venda.forma_pagamento where venda.cod = vendaesc.venda order by venda.cod } AS Level2 [Ô] & _
            [Ô]RELATE venda.cod to venda.cod)[Ô]

RSTest.Open SQL, gConexao, adOpenStatic, adLockOptimistic
Set RptFPagamentoDetalhe.DataSource = RSTest


With RptFPagamentoDetalhe.Sections([Ô]Section1[Ô]).Controls
    .Item([Ô]Text2[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]Text2[Ô]).DataField = [Ô]venda[Ô]

    .Item([Ô]Text1[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]Text1[Ô]).DataField = [Ô]tipo[Ô]

    .Item([Ô]Text3[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]Text3[Ô]).DataField = [Ô]prod[Ô]

    .Item([Ô]Text4[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]Text4[Ô]).DataField = [Ô]qtd[Ô]

    .Item([Ô]Text6[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]Text6[Ô]).DataField = [Ô]ValUniProd[Ô]

    .Item([Ô]txtTotal[Ô]).DataMember = [Ô]Level1[Ô]
    .Item([Ô]txtTotal[Ô]).DataField = [Ô]total_soma[Ô]

    .Item([Ô]Text5[Ô]).DataMember = [Ô]Level2[Ô]
    .Item([Ô]Text5[Ô]).DataField = [Ô]nome_forma_pagamento[Ô]

    .Item([Ô]Text7[Ô]).DataMember = [Ô]Level2[Ô]
    .Item([Ô]Text7[Ô]).DataField = [Ô]forma_pagamento_detalhe_nome[Ô]

    .Item([Ô]Text8[Ô]).DataMember = [Ô]Level2[Ô]
    .Item([Ô]Text8[Ô]).DataField = [Ô]forma_pagamento_parcelas[Ô]
End With