crReportDocument.DataDefinition.FormulaFields.Item("Dataini").Text = "'" & DTpini.Value.Date & "'"
crReportDocument.DataDefinition.FormulaFields.Item("Datafim").Text = "'" & Dtpfim.Value.Date & "'"
crReportDocument.DataDefinition.FormulaFields.Item("Machine").Text = "'" & Trim(TXT_MACHINE.Text) & "'"