Exemplo n.º 1
0
        public virtual CrystalDecisions.CrystalReports.Engine.ReportDocument CreateReport()
        {
            RelSeparacaoPrd rpt = new RelSeparacaoPrd();

            rpt.Site = this.Site;
            return(rpt);
        }
Exemplo n.º 2
0
        private void BtnImprimir_Click(object sender, EventArgs e)
        {
            if (GridDados.CurrentRow == null)
            {
                MessageBox.Show("Não existe Registro para Imprimir", "Alerta", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
                return;
            }
            string NumVendas = "";
            string NumImp    = "";

            for (int I = 0; I <= GridDados.RowCount - 1; I++)
            {
                if (NumVendas == "")
                {
                    NumVendas = GridDados.Rows[I].Cells[0].Value.ToString();
                    NumImp    = GridDados.Rows[I].Cells[0].Value.ToString();
                }
                else
                {
                    NumVendas = NumVendas + "," + GridDados.Rows[I].Cells[0].Value.ToString();
                    NumImp    = NumImp + " / " + GridDados.Rows[I].Cells[0].Value.ToString();
                }
            }
            string sSQL = "SELECT T2.ID_PRODUTO,T2.REFERENCIA,T2.DESCRICAO,T2.LOCESTRUA,T2.PALETE, SUM(T1.QTDE) AS QTDE FROM MVVENDAITENS T1 " +
                          " LEFT JOIN PRODUTOS T2 ON (T2.ID_PRODUTO=T1.ID_PRODUTO)" +
                          "  WHERE T1.TIPOITEM='S' AND T1.ID_VENDA IN (" + NumVendas + ")" +
                          " GROUP BY T2.ID_PRODUTO,T2.REFERENCIA,T2.DESCRICAO,T2.LOCESTRUA,T2.PALETE" +
                          " ORDER BY T2.DESCRICAO";
            FrmRelatorios FrmRel = new FrmRelatorios();

            Relatorios.RelSeparacaoPrd Rel001 = new Relatorios.RelSeparacaoPrd();
            DataSet TabRel = new DataSet();

            TabRel = Controle.ConsultaTabela(sSQL);
            Rel001.SetDataSource(TabRel.Tables[0]);
            FrmRel.cryRepRelatorio.ReportSource = Rel001;
            ((CrystalDecisions.CrystalReports.Engine.TextObject)(Rel001.Section2.ReportObjects["LblRodaPe"])).Text = FrmPrincipal.Rel_RodaPe;
            ((CrystalDecisions.CrystalReports.Engine.TextObject)(Rel001.Section5.ReportObjects["LblVendas"])).Text = "Vendas: " + NumImp;
            FrmRel.ShowDialog();
        }