//Botão OK
private void Button2_PressedAfter(object sboObject, SBOItemEventArg pVal)
{
UIAPIRawForm.Freeze(true);
if (UIAPIRawForm.Mode != BoFormMode.fm_ADD_MODE)
{
return;
}
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
var query = @"SELECT OBPL.BPLId, OBPL.BPLName, ORCT.VatRegNum
from OBPL
inner join ORCT on ORCT.BPLId = ORCT.DocEntry" ;
recordset.DoQuery(query);
dados.SetValue("U_Filial", dados.Offset, cmbFilial.ValidValues.Item(0).Value);
dados.SetValue("U_Cnpj", dados.Offset, GetCnpjFilial(cmbFilial.ValidValues.Item(0).Value));
dados.SetValue("U_DocDueDate", dados.Offset, DateTime.Now.ToString("yyyyMMdd"));
dados.SetValue("U_DocDate", dados.Offset, DateTime.Now.ToString("yyyyMMdd"));
Matrix0.AutoResizeColumns();
UIAPIRawForm.Freeze(false);
}
public override IEnumerable <RecordValues> GetValues()
{
foreach (RecordValues values in Matrix0.GetValues())
{
yield return(new RecordValues("Matrix 0 " + values.Name, values.Length));
}
foreach (RecordValues values in Matrix1.GetValues())
{
yield return(new RecordValues("Matrix 1 " + values.Name, values.Length));
}
foreach (RecordValues values in Matrix2.GetValues())
{
yield return(new RecordValues("Matrix 2 " + values.Name, values.Length));
}
foreach (RecordValues values in Matrix3.GetValues())
{
yield return(new RecordValues("Matrix 3 " + values.Name, values.Length));
}
foreach (RecordValues values in Matrix4.GetValues())
{
yield return(new RecordValues("Matrix 4 " + values.Name, values.Length));
}
}
//Campo selecionar todos;
private void Button1_PressedAfter(object sboObject, SBOItemEventArg pVal)
{
UIAPIRawForm.Freeze(true);
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
if (double.Parse(dados.GetValue("U_VlrTotal", dados.Offset)) == 0)
{
for (int i = 0; i < dtMatriz.Rows.Count; i++)
{
dtMatriz.SetValue("Select", i, "Y");
LinhaTable.Add(new Linha()
{
NConta = (int)dtMatriz.GetValue("NConta", i),
NBoleto = (int)dtMatriz.GetValue("NBoleto", i),
ValorTitulo = (double)dtMatriz.GetValue("ValorTitulo", i),
Vencimento = (DateTime)dtMatriz.GetValue("Vencimento", i),
Lancamento = (DateTime)dtMatriz.GetValue("Lancamento", i),
Atraso = (int)dtMatriz.GetValue("Atraso", i),
RowNumber = i + 1
});
}
Matrix0.LoadFromDataSourceEx();
}
else
{
for (int i = 0; i < dtMatriz.Rows.Count; i++)
{
if (dtMatriz.GetValue("Select", i).ToString() != "Y")
{
dtMatriz.SetValue("Select", i, "Y");
LinhaTable.Add(new Linha()
{
NConta = (int)dtMatriz.GetValue("NConta", i),
NBoleto = (int)dtMatriz.GetValue("NBoleto", i),
ValorTitulo = (double)dtMatriz.GetValue("ValorTitulo", i),
Vencimento = (DateTime)dtMatriz.GetValue("Vencimento", i),
Lancamento = (DateTime)dtMatriz.GetValue("Lancamento", i),
Atraso = (int)dtMatriz.GetValue("Atraso", i),
RowNumber = i + 1
});
}
}
}
double total = LinhaTable.Sum(x => x.ValorTitulo);
dados.SetValue("U_VlrTotal", dados.Offset, total.ToString(CultureInfo.InvariantCulture));
SetJuros();
SetMulta();
SetVlrTotal();
Matrix0.LoadFromDataSourceEx();
UIAPIRawForm.Freeze(false);
}
private void OnCustomInitialize()
{
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
Conditions conditions;
Condition condition;
conditions = new Conditions();
condition = conditions.Add();
condition.Alias = "CardType";
condition.Operation = BoConditionOperation.co_EQUAL;
condition.CondVal = "C";
condition.Relationship = BoConditionRelationship.cr_AND;
condition = conditions.Add();
condition.Alias = "frozenFor";
condition.Operation = BoConditionOperation.co_EQUAL;
condition.CondVal = "N";
var cflCardCode = UIAPIRawForm.ChooseFromLists.Item("cflCardCode");
cflCardCode.SetConditions(conditions);
var cflCardName = UIAPIRawForm.ChooseFromLists.Item("cflCardName");
cflCardName.SetConditions(conditions);
UIAPIRawForm.Freeze(true);
var query = @"SELECT OBPL.BPLId, OBPL.BPLName, ORCT.VatRegNum
from OBPL
inner join ORCT on ORCT.BPLId = ORCT.DocEntry" ;
recordset.DoQuery(query);
while (!recordset.EoF)
{
cmbFilial.ValidValues.Add(recordset.Fields.Item("BPLId").Value.ToString(), recordset.Fields.Item("BPLName").Value.ToString());
recordset.MoveNext();
}
cmbFilial.ExpandType = BoExpandType.et_DescriptionOnly;
dados.SetValue("U_Filial", dados.Offset, cmbFilial.ValidValues.Item(0).Value);
dados.SetValue("U_Cnpj", dados.Offset, GetCnpjFilial(cmbFilial.ValidValues.Item(0).Value));
Matrix0.AutoResizeColumns();
UIAPIRawForm.Freeze(false);
}
private void Matrix0_PressedAfter(object sboObject, SBOItemEventArg pVal)
{
UIAPIRawForm.Freeze(true);
try
{
if (pVal.ColUID != "Select")
{
return;
}
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var linha = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_NGN1");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
Matrix0.FlushToDataSource();
if (dtMatriz.GetValue("Select", pVal.Row - 1).ToString() == "Y")
{
LinhaTable.Add(new Linha()
{
NConta = (int)dtMatriz.GetValue("NConta", pVal.Row - 1),
NBoleto = (int)dtMatriz.GetValue("NBoleto", pVal.Row - 1),
ValorTitulo = (double)dtMatriz.GetValue("ValorTitulo", pVal.Row - 1),
Vencimento = (DateTime)dtMatriz.GetValue("Vencimento", pVal.Row - 1),
Lancamento = (DateTime)dtMatriz.GetValue("Lancamento", pVal.Row - 1),
Atraso = (int)dtMatriz.GetValue("Atraso", pVal.Row - 1),
RowNumber = pVal.Row
});
}
else
{
var index = LinhaTable.FindIndex(x => x.RowNumber == pVal.Row);
LinhaTable.RemoveAt(index);
}
double total = LinhaTable.Sum(x => x.ValorTitulo);
dados.SetValue("U_VlrTotal", dados.Offset, total.ToString(CultureInfo.InvariantCulture));
Matrix0.LoadFromDataSourceEx();
SetJuros();
SetMulta();
SetVlrTotal();
UIAPIRawForm.Freeze(false);
}
catch
{
UIAPIRawForm.Freeze(false);
}
}
public void Start()
{
string dataTableId = "matrix";
AddDataSourceToForm();
// add a data table to the form
var dataTable = oForm.DataSources.DataTables.Add(dataTableId);
// add a matrix to the form
Matrix0 = (SAPbouiCOM.Matrix)oForm.Items.Add(dataTableId, SAPbouiCOM.BoFormItemTypes.it_MATRIX).Specific;
Matrix0.Item.Width = 700;
Matrix0.Item.Height = 300;
// get some data
//string sql = @"SELECT ""CardCode"", ""CardName"" FROM ""OCRD"" ";
string sql = @"SELECT ""U_CodigoEDC"", ""U_NombreEDC"",""U_ProyectoEDC"" FROM ""@EDICIONESCOL"" ";
// oApp.SetStatusBarMessage("codigo: " + sql);
dataTable.ExecuteQuery(sql);
var columns = Matrix0.Columns;
// create columns
columns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT);
columns.Add("Codigo", SAPbouiCOM.BoFormItemTypes.it_EDIT);
columns.Add("Nombre", SAPbouiCOM.BoFormItemTypes.it_EDIT);
columns.Add("Proyecto", SAPbouiCOM.BoFormItemTypes.it_EDIT);
// setup columns
columns.Item("#").TitleObject.Caption = "#";
columns.Item("Codigo").TitleObject.Caption = "Código";
columns.Item("Nombre").TitleObject.Caption = "Nombre";
columns.Item("Proyecto").TitleObject.Caption = "Proyecto";
//bind columns to data
columns.Item("Codigo").DataBind.Bind(dataTableId, "U_CodigoEDC");
columns.Item("Nombre").DataBind.Bind(dataTableId, "U_NombreEDC");
columns.Item("Proyecto").DataBind.Bind(dataTableId, "U_ProyectoEDC");
// load the data into the rows
Matrix0.LoadFromDataSource();
Matrix0.AutoResizeColumns();
// show form on screen
oForm.Visible = true;
}
private void OnCustomInitialize()
{
// Ready Matrix to populate data
Matrix0.Clear();
Matrix0.Columns.Item("Col_0").Visible = false;
Matrix0.Columns.Item("Col_1").Visible = false;
// Querying the DB Data source
oForm = Application.SBO_Application.Forms.Item(this.UIAPIRawForm.UniqueID);
oForm.Select();
LoadDataMatrix();
oForm.EnableMenu("1281", false);
oForm.EnableMenu("1282", false);
}
private void LoadDataMatrix()
{
SAPbouiCOM.DBDataSource oDBDataSource = oForm.DataSources.DBDataSources.Item("@Z_COMI_COMGRP");
oDBDataSource.Query();
oDBDataSource.InsertRecord(oDBDataSource.Size);
//MatrixExtensions.AddLineMatrixDBDataSource(Matrix0, oDBDataSource);
int nProxCode = UDOExtensions.GetNextCode("Z_COMI_COMGRP", NConexion.Verifica_Conexion(Program.oCompany));
oDBDataSource.SetValue("Code", oDBDataSource.Size - 1, nProxCode.ToString());
oDBDataSource.SetValue("DocEntry", oDBDataSource.Size - 1, nProxCode.ToString());
Matrix0.LoadFromDataSource();
Matrix0.CommonSetting.SetCellEditable(oDBDataSource.Size, 3, true);
MatrixExtensions.SelectMatrixRowSetFocus(ref Matrix0, "Col_2", oDBDataSource.Size);
}
void Matrix_Data_Write()
{
SAPbobsCOM.Company oCompany = (SAPbobsCOM.Company)SAPbouiCOM.Framework.Application.SBO_Application.Company.GetDICompany();
SAPbobsCOM.Recordset oRset = (SAPbobsCOM.Recordset)oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset);
oRset.DoQuery(Query);
if (oRset.RecordCount > 0)
{
for (int i = 0; i < oRset.RecordCount; i++)
{
Matrix0.AddRow();
((SAPbouiCOM.EditText)Matrix0.Columns.Item("Name").Cells.Item(i + 1).Specific).Value = oRset.Fields.Item("lastName").Value.ToString();
((SAPbouiCOM.EditText)Matrix0.Columns.Item("Surname").Cells.Item(i + 1).Specific).Value = oRset.Fields.Item("firstName").Value.ToString();
((SAPbouiCOM.EditText)Matrix0.Columns.Item("FatherName").Cells.Item(i + 1).Specific).Value = oRset.Fields.Item("middleName").Value.ToString();
oRset.MoveNext();
}
}
}
//Campo desmarcar todos;
private void Button0_PressedAfter(object sboObject, SBOItemEventArg pVal)
{
UIAPIRawForm.Freeze(true);
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
for (int i = 0; i < dtMatriz.Rows.Count; i++)
{
dtMatriz.SetValue("Select", i, "N");
}
LinhaTable = new List <Linha>();
CleanField();
Matrix0.LoadFromDataSourceEx();
UIAPIRawForm.Freeze(false);
}
private void GetBoletosEmAberto()
{
UIAPIRawForm.Freeze(true);
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var linha = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_NGN1");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
dtMatriz.Rows.Clear();
//Aparecer os titulos em aberto por padrão
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var query = @"select distinct ORCT.BPLName, ORCT.VATRegNum, DocNum, OBOE.BoeNum, OBOE.BoeSum, DocDueDate, DocDate,
datediff(day, DocDueDate, getDate()) as Date
from ORCT
inner join OBOE ON OBOE.BoeKey = ORCT.DocEntry
where Canceled = 'N'
and ORCT.BPLId = {0}
and ORCT.CardCode = '{1}'
and ORCT.DocDate <= '{2}'";
recordset.DoQuery(String.Format(query, dados.GetValue("U_Filial", dados.Offset).ToString(), dados.GetValue("U_CardCode", dados.Offset).ToString(), dados.GetValue("U_DocDate", dados.Offset).ToString()));
dtMatriz.Rows.Add(recordset.RecordCount);
var i = 0;
while (!recordset.EoF)
{
dtMatriz.SetValue("NConta", i, recordset.Fields.Item("DocNum").Value.ToString());
dtMatriz.SetValue("NBoleto", i, recordset.Fields.Item("BoeNum").Value.ToString());
dtMatriz.SetValue("ValorTitulo", i, ((double)recordset.Fields.Item("BoeSum").Value).ToString(CultureInfo.InvariantCulture));
dtMatriz.SetValue("Vencimento", i, DateTime.Parse(recordset.Fields.Item("DocDueDate").Value.ToString()).ToString("yyyyMMdd"));
dtMatriz.SetValue("Lancamento", i, DateTime.Parse(recordset.Fields.Item("DocDate").Value.ToString()).ToString("yyyyMMdd"));
dtMatriz.SetValue("Atraso", i, recordset.Fields.Item("Date").Value.ToString());
recordset.MoveNext();
i++;
}
UIAPIRawForm.Freeze(false);
Matrix0.LoadFromDataSourceEx();
}
private void Button2_PressedBefore(object sboObject, SAPbouiCOM.SBOItemEventArg pVal, out bool BubbleEvent)
{
BubbleEvent = true;
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var linha = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_NGN1");
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
var linhaObj = new Linha();
Matrix0.FlushToDataSource();
for (var i = linha.Size - 1; i >= 0; i--)
{
linha.RemoveRecord(i);
}
var count = 0;
foreach (var line in LinhaTable)
{
linha.InsertRecord(count);
linha.SetValue("U_NConta", count, line.NConta.ToString());
linha.SetValue("U_NBoleto", count, line.NBoleto.ToString());
linha.SetValue("U_Vencimento", count, line.Vencimento.ToString("yyyyMMdd"));
linha.SetValue("U_Lancamento", count, line.Vencimento.ToString("yyyyMMdd"));
linha.SetValue("U_Atraso", count, line.Atraso.ToString());
linha.SetValue("U_ValorTitulo", count, line.ValorTitulo.ToString());
count++;
}
if (double.Parse(dados.GetValue("U_VlrTotal", dados.Offset)) == 0)
{
BubbleEvent = false;
SAPbouiCOM.Framework.Application.SBO_Application.StatusBar.SetText("Não é possível adicionar pagamento sem documentos [Mensagem 3524-97]", BoMessageTime.bmt_Short);
}
}
//Campo code
private void EditText6_ChooseFromListAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
Matrix0.AutoResizeColumns();
if (UIAPIRawForm.Mode == SAPbouiCOM.BoFormMode.fm_FIND_MODE)
{
return;
}
var dataTable = ((SAPbouiCOM.SBOChooseFromListEventArg)pVal).SelectedObjects;
if (dataTable == null)
{
return;
}
var dados = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_ONGN");
var linha = UIAPIRawForm.DataSources.DBDataSources.Item("@HTT_NGN1");
var recordset = (Recordset)CommonController.Company.GetBusinessObject(BoObjectTypes.BoRecordset);
var dtMatriz = UIAPIRawForm.DataSources.DataTables.Item("dtMatriz");
LinhaTable = new List <Linha>();
dados.SetValue("U_Filial", dados.Offset, cmbFilial.ValidValues.Item(0).Value);
dados.SetValue("U_Cnpj", dados.Offset, GetCnpjFilial(cmbFilial.ValidValues.Item(0).Value));
dados.SetValue("U_CardCode", dados.Offset, dataTable.GetValue("CardCode", 0).ToString());
dados.SetValue("U_CardName", dados.Offset, dataTable.GetValue("CardName", 0).ToString());
dados.SetValue("U_DocDueDate", dados.Offset, DateTime.Now.ToString("yyyyMMdd"));
dados.SetValue("U_DocDate", dados.Offset, DateTime.Now.ToString("yyyyMMdd"));
CleanField();
dtMatriz.Rows.Clear();
GetBoletosEmAberto();
Matrix0.LoadFromDataSourceEx();
}
private void Matrix0_MatrixLoadAfter(object sboObject, SAPbouiCOM.SBOItemEventArg pVal)
{
Matrix0.AutoResizeColumns();
}
