Buscar en este blog

sábado, 30 de enero de 2016

Lookup para dimensiones financieras de organización - Microsoft Dynamics Ax 2012 R2

Sabemos que existen 3 tipos de dimensiones financieras, las de sistema, de organización y las personalizadas. En un post anterior, vimos cómo hacer un lookup para las dimensiones personalizadas y en esta ocasión, les comparto el código para el lookup de las dimensiones de organización, que pueden ser centro de costo, departamento y unidad de negocio.

Por tanto, si queremos por ejemplo, mostrar en una pantalla de parámetros los valores de cada dimensione de organización para que el usuario pueda seleccionar un valor existente. Lo primero seria agregar nuestros campos a una tabla de parámetros, en este caso, voy agregar estos campos al form de parámetros de ventas y marketing, cada uno extendiendo del dato: DimValue



Posterior a esto, agregaría los campos de esta tabla al formulario de parámetros y sobreescribiria el método el lookup de cada campo.




Este método lookup, debe llamar a mi método nuevo en la tabla donde tengo mis campos creados de dimensiones, donde en este método se hace la búsqueda de los valores por cada dimension de organización. Aquí el ejemplo de los tres métodos lookup.

Centro de costo
public client static void lookupCentroCosto(FormStringControl _ctrl)
{
    Query                               query = new Query();
    SysTableLookup                      sysTableLookup;
    QueryBuildDataSource                queryBuildDataSource;

    sysTableLookup = SysTableLookup::newParameters( tableNum(OMOperatingUnit), _ctrl, true);

    sysTableLookup.parmUseLookupValue( false);
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, OMOperatingUnitNumber));
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, Name));
    queryBuildDataSource = query.addDataSource( tableNum(OMOperatingUnit));
    queryBuildDataSource.addSortField( fieldnum(OMOperatingUnit, OMOperatingUnitNumber));
    queryBuildDataSource.addRange( fieldNum(OMOperatingUnit, OMOperatingUnitType)).value(int2str (any2int(OMOperatingUnitType::OMCostCenter)));
    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();
}


Departamento
public client static void lookupDepartamento(FormStringControl _ctrl)
{
    Query                               query = new Query();
    SysTableLookup                      sysTableLookup;
    QueryBuildDataSource                queryBuildDataSource;

    sysTableLookup = SysTableLookup::newParameters( tableNum(OMOperatingUnit), _ctrl, true);

    sysTableLookup.parmUseLookupValue( false);
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, OMOperatingUnitNumber));
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, Name));
    queryBuildDataSource = query.addDataSource( tableNum(OMOperatingUnit));
    queryBuildDataSource.addSortField( fieldnum(OMOperatingUnit, OMOperatingUnitNumber));
    queryBuildDataSource.addRange( fieldNum(OMOperatingUnit, OMOperatingUnitType)).value(int2str (any2int(OMOperatingUnitType::OMDepartment)));
    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();
}


Unidad de negocio o BusinessUnit
public client static void lookupBusinessUnit(FormStringControl _ctrl)
{
    Query                               query = new Query();
    SysTableLookup                      sysTableLookup;
    QueryBuildDataSource                queryBuildDataSource;

    sysTableLookup = SysTableLookup::newParameters( tableNum(OMOperatingUnit), _ctrl, true);

    sysTableLookup.parmUseLookupValue( false);
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, OMOperatingUnitNumber));
    sysTableLookup.addLookupfield( fieldNum(OMOperatingUnit, Name));
    queryBuildDataSource = query.addDataSource( tableNum(OMOperatingUnit));
    queryBuildDataSource.addSortField( fieldnum(OMOperatingUnit, OMOperatingUnitNumber));
    queryBuildDataSource.addRange( fieldNum(OMOperatingUnit, OMOperatingUnitType)).value(int2str (any2int(OMOperatingUnitType::OMBusinessUnit)));
    sysTableLookup.parmQuery(query);

    sysTableLookup.performFormLookup();

}


Post relacionados:
Lookup para dimensiones financieras personalizadas
Consultas en tablas con ValidTimeState
Crear lookup en clase dialog



Y por cierto, acuerdate de darle click a algún anuncio si el post te sirvio de algo.


No olvides que te puedes unir a la página en Facebook Aprendiendo Dynamics Ax donde únicamente se tratan temas de desarrollo y se busca crear una comunidad de desarrollador@s de Ax en nuestro idioma. 

viernes, 29 de enero de 2016

Crear búsquedas sobre nombre de producto cambiando métodos display en Dynamics Ax 2012

A veces es necesario hacer búsquedas por nombre de producto en los formularios de Ax, y nos topamos con que este campo en el formulario, es un método display, para esto, aquí un ejemplo de la modificación del formulario en una de las pantallas mas comunes, que es la de Disponible, que esta en Administración del inventario -> Consultas -> Disponible para realizar búsquedas por nombre.


Si nosotros solo agregamos la tabla EcoResProduct relacionada a InventTable y EcoResProductTranslation que es la tabla que contiene los nombres de productos relacionada a EcoResProduct en nuestro formulario, el campo de nombre de producto que agreguemos al formulario aparecerá vacío, esto se debe a que esta tabla necesita el idioma para la relación y para saber en qué idioma debe mostrar el nombre de producto.


Lo que se necesita hacer es:
Tener las relaciones en las tablas EcoResProduct (a InventTable) y en EcoResProductTranslation (a EcoResProduct).



Después modificar la clase que tiene el comportamiento del formulario, en este caso es InventDimCtrl_Frm_OnHand y en el método modifyQuery agregar nuestro datasource como parámetro, en este caso nuestra tabla EcoresProductTranslation que es la tabla que necesita la relación y crear una variable de tipo QueryBuildDataSource que nos va a servir para realizar el filtro para mandar el idioma a la tabla EcoResProductTranslation.


Al final de este método es donde realizamos el filtro a nuestra tabla pasandole el lenguaje de la compañia.


if(_ecoResProductTranslation)
    {
        qbsInventLookup = query.dataSourceName(_ecoResProductTranslation.name());
        qbr = SysQuery::findOrCreateRange(qbsInventLookup, fieldnum(EcoResProductTranslation, LanguageId));
        qbr.value(queryValue(CompanyInfo::languageId()));
        qbsInventLookup.addGroupByField( fieldNum(EcoResProductTranslation,Name));
    }

Modificamos la llamada a este método, que es dentro del formulario, en el datasource de InventSum, en el método executeQuery


Finalmente arrastramos el campo Name de la tabla EcoResProductTranslation a nuestro grid y abrimos el formulario. Con esto ya podemos hacer búsquedas por nombre de producto.




Post relacionados:
Reportes SQL Reporting services (SSRS) en Microsoft Dynamics Ax 2012
Multiselect de grid en Ax 2012
Crear lookup en clase dialog



Y por cierto, acuérdate de darle click a algún anuncio si el post te sirvió de algo.


No olvides que te puedes unir a la página en Facebook Aprendiendo Dynamics Ax donde únicamente se tratan temas de desarrollo y se busca crear una comunidad de desarrollador@s de Ax en nuestro idioma. 



domingo, 17 de enero de 2016

Calcular impuestos en ordenes de venta por código X++ en Dynamics Ax 2012 R3

En este post se muestra cómo calcular los impuestos de una orden de venta para los casos:

  1. cuando ya fue facturada
  2. cuando no ha sido facturada
  3. por línea de venta con base en código de impuestos
  4. por remisión por código de impuestos en artículo
  5. por remisión por tipo de impuesto


1. Para calcular impuestos de las líneas de una factura debemos buscarlos en la tabla TaxTrans, tanto para factura de productos como para facturas de servicios.

static void impuestosEnFactura(Args _args)
{
    TaxTrans            taxTrans;
    CustInvoiceJour     custInvoiceJour;
    CustInvoiceTrans    custInvoiceTrans;
   
    //RecId del diario de factura 
    custInvoiceJour = custInvoiceJour::findRecId( 5637149082);
   
    //Tomando en cuenta los campos por los que se relacionan las líneas
    //con el diario
    while select custInvoiceTrans
        where custInvoiceTrans.InvoiceId == custInvoiceJour.InvoiceId &&
              custInvoiceTrans.SalesId == custInvoiceJour.SalesId &&
              custInvoiceTrans.InvoiceDate == custInvoiceJour.InvoiceDate &&
              custInvoiceTrans.numberSequenceGroup == custInvoiceJour.numberSequenceGroup
    {
        while select taxTrans
        where taxTrans.InventTransId == custInvoiceTrans.InventTransId
        {
            //El campo TaxAmount es el importe del impuesto,
            //el campo TaxValue es el porcentaje de impuesto
            info( strFmt("Impuesto de línea: %1" , taxTrans.TaxAmount));
        }
    }

}

2. Cuando la orden de venta no ha sido facturada y por consiguiente, no se han registrado los impuestos en la tabla TaxTrans, podemos auxilarnos de la clase SalesTotals, el ejemplo en código seria:

static void impuestosPorOrdenVenta(Args _args)
{
    TmpTaxWorkTrans             tmpTax;
    SalesTable                  salesTable;
    SalesTotals                 salesTotals;
    salesTable  = SalesTable::find( '000735');  //Id de orden de venta
   
    //Se usa la clase SalesTotals para calcular impuestos
    //Esta clase es la que llena el formulario de Totales en una
    //orden de venta
    salesTotals = SalesTotals::construct(salesTable);
    //Calcula el impuesto
    salesTotals.calc();
    //Carga la tabla tmpTaxWorkTrans con los impuestos calculador
    tmpTax.setTmpData(salesTotals.tax().tmpTaxWorkTrans());
    //Mostramos el monto del impuesto(TaxAmount) y el porcentaje(TaxValue)
    while select tmpTax
    {
        info( strFmt('Porcentaje aplicado: %1, Monto: %2' , tmpTax.showTaxValue(), tmpTax.TaxAmount));
    }

}

En caso de que únicamente se requiera el cálculo de impuestos por ciertas líneas de la orden de venta y con base en ciertas cantidades, como puede ser el caso de únicamente calcular los impuestos por una remisión parcial, se deben hacer los cálculos para dividir ese impuesto total por línea entre la cantidad entregada de la remisión (campo Qty).

3. También es posible calcular los impuestos por artículo de acuerdo al grupo de impuestos de los artículos y a las cantidades vendidas o entregadas. Un ejemplo se muestra en el código siguiente:

static void impuestosPorTipoImpuesto(Args _args)
{
    TaxOnItem       taxOnItem;
    TaxGroupData    taxGroupData;
    real            taxAmount;
    TaxValue        taxValue;
    SalesLine       salesLine;
    SalesTable      salesTable;
   
    salesTable  = SalesTable::find( '000754');
   
    while select salesLine
        where salesLine.SalesId == salesTable.SalesId
    {
        if(salesLine.TaxItemGroup && salesLine.TaxGroup && salesLine.LineAmount != 0)
        {
            while select taxOnItem
                where taxOnItem.TaxItemGroup == salesline.TaxItemGroup
            {
                while select taxGroupData
                    where taxGroupData.TaxGroup == salesline.TaxGroup
                        && taxGroupData.TaxCode  == taxOnItem.TaxCode
                {
                    TaxValue  =  TaxData::find(taxOnItem.TaxCode, Systemdateget(), 0 ).TaxValue;
                    TaxAmount = (salesline.LineAmount * TaxValue) / 100;
                           
                    info( strFmt('Porcentaje aplicado: %1, Monto: %2' , TaxValue, TaxAmount));
                }
               
            }
        }
    }

}

4. Para el caso de calcular los impuestos de una remisión, el código quedaría como sigue:

static void impuestosPorTipoImpuestoRemision(Args _args)
{
    TaxOnItem       taxOnItem;
    TaxGroupData    taxGroupData;
    real            taxAmount;
    TaxValue        taxValue;
    SalesLine       salesLine;
    //SalesTable      salesTable;
    Amount          montoRealDeLinea;
   
    CustPackingSlipJour     custPackingSlipJour;
    CustPackingSlipTrans    custPackingSlipTrans;
   
    //RecId del diario de remisión
    custPackingSlipJour = CustPackingSlipJour::findRecId( 35637161119);
   
    //Buscando las líneas de la remisión de acuerdo a la relación física de las tablas
    while select custPackingSlipTrans
        where custPackingSlipTrans.PackingSlipId == custPackingSlipJour.PackingSlipId &&
              custPackingSlipTrans.SalesId == custPackingSlipJour.SalesId &&
              custPackingSlipTrans.DeliveryDate == custPackingSlipJour.DeliveryDate
    {
        salesLine = custPackingSlipTrans.salesLine();
       
        if(salesLine.TaxItemGroup && salesLine.TaxGroup && salesLine.LineAmount != 0 && custPackingSlipTrans.Qty != 0 )
        {
            while select taxOnItem
                where taxOnItem.TaxItemGroup == salesline.TaxItemGroup
            {
                while select taxGroupData
                    where taxGroupData.TaxGroup == salesline.TaxGroup
                        && taxGroupData.TaxCode  == taxOnItem.TaxCode
                {
                    TaxValue  =  TaxData::find(taxOnItem.TaxCode, Systemdateget(), 0 ).TaxValue;
                   
                    //Para el cálculo del impuesto por línea es necesario conocer el monto al
                    //que le vamos a  aplicar el impuesto, en este caso es el precio unitario de
                    //la línea de venta por la cantidad de la remisión
                    montoRealDeLinea = salesline.SalesPrice * custPackingSlipTrans.Qty;
                   
                    TaxAmount = (montoRealDeLinea * TaxValue) / 100;
                           
                    info( strFmt('Porcentaje aplicado: %1, Monto: %2' , TaxValue, TaxAmount));
                }
               
            }
        }
    }

}

 

5. Calculando los impuestos de una remisión por tipo de impuesto

static void impuestosPorOrdenVentaTipoImpuesto(Args _args)
{
    TmpTaxWorkTrans         tmpTax;
    SalesTotals             salesTotals;
    CustPackingSlipJour     custPackingSlipJour;
    CustPackingSlipTrans    custPackingSlipTrans;
    TaxAmount               impuestoAvCast;
 
    //RecId del diario de remisión
    custPackingSlipJour = CustPackingSlipJour::findRecId( 35637161119);
   
    salesTotals = SalesTotals::construct(custPackingSlipJour.salesTable());
    salesTotals.calc();
    tmpTax.setTmpData(salesTotals.tax().tmpTaxWorkTrans());
   
    //Por cada custPackingSlipTrans calculando el ieps
    while select custPackingSlipTrans
        where custPackingSlipTrans.PackingSlipId == custPackingSlipJour.PackingSlipId &&
              custPackingSlipTrans.SalesId == custPackingSlipJour.SalesId &&
              custPackingSlipTrans.DeliveryDate == custPackingSlipJour.DeliveryDate
    {
        while select tmpTax
            where tmpTax.InventTransId == custPackingSlipTrans.InventTransId &&
                  tmpTax.TaxCode == "AV_CAST"
        {
            //solo avcast, por línea de remisión, el resultado lo manda negativo
            impuestoAvCast = tmpTax.TaxAmount/custPackingSlipTrans.Qty;
            info( strFmt("ieps: %1" , impuestoAvCast));
        }
    }

}

Finalmente también tenemos otra opción usando la clase Tax, como se muestra en el post de "Calcular los impuestos de una línea de venta o de compra por código X++ en AX 2012".


Post relacionados:
Reportes SQL Reporting services (SSRS) en Microsoft Dynamics Ax 2012
Saldo de cuenta contable por dimension
Saldo de cuenta contable


Y por cierto, acuérdate de darle click a algún anuncio si el post te sirvió de algo.


No olvides que te puedes unir a la página en Facebook Aprendiendo Dynamics Ax donde únicamente se tratan temas de desarrollo y se busca crear una comunidad de desarrollador@s de Ax en nuestro idioma.