udmGestion.pas

unit udmGestion;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, Data.DB,
  FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.UI.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.FB, FireDAC.Phys.FBDef,
  FireDAC.VCLUI.Wait, FireDAC.Phys.IBBase, FireDAC.Comp.UI, System.IniFiles, System.IOUtils, Vcl.Themes, System.Variants, System.Math;

type
  TdmGestion = class(TDataModule)
    fdqryClientes: TFDQuery;
    intgrfldClientesID_CLIENTE: TIntegerField;
    strngfldClientesNOMBRE: TStringField;
    strngfldClientesAPELLIDO: TStringField;
    strngfldClientesDOMICILIO: TStringField;
    strngfldClientesLOCALIDAD: TStringField;
    strngfldClientesPROVINCIA: TStringField;
    strngfldClientesDNI: TStringField;
    strngfldClientesCUIT: TStringField;
    strngfldClientesTELEFONO: TStringField;
    strngfldClientesMAIL: TStringField;
    intgrfldClientesFK_SITUACIONTRIB: TIntegerField;
    fdqrySituaciones_tributarias: TFDQuery;
    intgrfldSituaciones_tributariasTableID_SITUACIONTRIB: TIntegerField;
    strngfldSituaciones_tributariasTableNOMBRE: TStringField;
    strngfldClientesLookupSituacionTrib: TStringField;
    GestionConnection: TFDConnection;
    fdqryProveedores: TFDQuery;
    intgrfldProveedoresID_PROVEEDOR: TIntegerField;
    strngfldProveedoresNOMBRE: TStringField;
    strngfldProveedoresDOMICILIO: TStringField;
    strngfldProveedoresLOCALIDAD: TStringField;
    strngfldProveedoresPROVINCIA: TStringField;
    strngfldProveedoresCUIT: TStringField;
    strngfldProveedoresTELEFONO: TStringField;
    strngfldProveedoresMAIL: TStringField;
    intgrfldProveedoresFK_SITUACIONTRIB: TIntegerField;
    strngfldProveedoresLookupSituacionTrib: TStringField;
    strngfldClientesTIPO: TStringField;
    strngfldClientesRAZON_SOCIAL: TStringField;
    strngfldClientesNOMBRE_COMERCIAL: TStringField;
    FDGUIxWaitCursor1: TFDGUIxWaitCursor;
    FDPhysFBDriverLink1: TFDPhysFBDriverLink;
    strngfldClientesNOMBRECOMP: TStringField;
    fdqryArticulos: TFDQuery;
    strngfldArticulosCODIGO: TStringField;
    strngfldArticulosCODIGOALT: TStringField;
    strngfldArticulosNOMBRE: TStringField;
    strngfldArticulosDESCRIPCION: TStringField;
    bcdfldArticulosCOSTO: TBCDField;
    bcdfldArticulosPRECIO: TBCDField;
    intgrfldArticulosFK_IDPROVEEDOR: TIntegerField;
    strngfldArticuloslookupProveedor: TStringField;
    spProximo_id_ART: TFDStoredProc;
    fdqryMetodos_pago: TFDQuery;
    intgrfldMetodos_pagoIDMETODO_PAGO: TIntegerField;
    strngfldMetodos_pagoNOMBRE: TStringField;
    strngfldMetodos_pagoTIPO: TStringField;
    fdqryPlanes_pago: TFDQuery;
    intgrfldPlanes_pagoIDPLAN_PAGO: TIntegerField;
    fdqryPlanes_pagoNROCUOTA: TSmallintField;
    fdqryPlanes_pagoCOEFICIENTE: TCurrencyField;
    fdqryPlanes_pagoFECHA_ACTUALIZACION: TDateField;
    intgrfldPlanes_pagoFK_IDMETODOPAGO: TIntegerField;
    fdqryDinamico: TFDQuery;
    fdqryMD_MetPag: TFDQuery;
    fdqryMDPlanPago: TFDQuery;
    dsMD_MetPag_PlanPag: TDataSource;
    intgrfldMD_MetPagIDMETODO_PAGO: TIntegerField;
    strngfldMD_MetPagNOMBRE: TStringField;
    strngfldMD_MetPagTIPO: TStringField;
    fdtncfldMDPlanPagoIDPLAN_PAGO: TFDAutoIncField;
    smlntfldMDPlanPagoNROCUOTA: TSmallintField;
    crncyfldMDPlanPagoCOEFICIENTE: TCurrencyField;
    dtfldMDPlanPagoFECHA_ACTUALIZACION: TDateField;
    intgrfldMDPlanPagoFK_IDMETODOPAGO: TIntegerField;
    crncyfldMetodos_pagoRETENCION: TCurrencyField;
    crncyfldMD_MetPagRETENCION: TCurrencyField;
    fdqryDepositos: TFDQuery;
    intgrfldDepositosNUMERO: TIntegerField;
    strngfldDepositosNOMBRE: TStringField;
    strngfldDepositosDOMICILIO: TStringField;
    intgrfldDepositosFK_IDSUCURSAL: TIntegerField;
    fdqrySucursales: TFDQuery;
    intgrfldSucursalesID_SUCURSAL: TIntegerField;
    strngfldSucursalesNOMBRE_COMERCIAL: TStringField;
    strngfldSucursalesRAZON_SOCIAL: TStringField;
    strngfldSucursalesCUIT: TStringField;
    strngfldSucursalesIIBB: TStringField;
    strngfldSucursalesDOMICILIO: TStringField;
    strngfldSucursalesLOCALIDAD: TStringField;
    strngfldSucursalesPROVINCIA: TStringField;
    strngfldSucursalesTELEFONO: TStringField;
    strngfldSucursalesMAIL: TStringField;
    dtfldSucursalesFECHA_INICIO: TDateField;
    intgrfldSucursalesFK_SITUACIONTRIB: TIntegerField;
    strngfldSucursaleslookupSitTrib: TStringField;
    strngfldDepositoslookupNomSuc: TStringField;
    fdqryMetpago_Ventas: TFDQuery;
    intgrfldMetpago_VentasFK_IDMETPAGO: TIntegerField;
    strngfldMetpago_VentasFK_NRO_FACTURA_V: TStringField;
    bcdfldMetpago_VentasMONTO: TBCDField;
    crncyfldArticulosIVA: TCurrencyField;
    fdqryStock: TFDQuery;
    strngfldStockFK_CODIGO: TStringField;
    intgrfldStockFK_NUMERO: TIntegerField;
    intgrfldStockCANTIDAD: TIntegerField;
    fdqryMDVentasRanged: TFDQuery;
    strngfldMDVentasRANGEDNRO_FACTURA: TStringField;
    dtfldMDVentasRANGEDFECHA: TDateField;
    tmfldMDVentasRANGEDHORA: TTimeField;
    crncyfldMDVentasRANGEDDESCUENTO: TCurrencyField;
    crncyfldMDVentasRANGEDRECARGO: TCurrencyField;
    strngfldMDVentasRANGEDNRO_COMPROBANTE: TStringField;
    bcdfldMDVentasRANGEDSUBTOTAL: TBCDField;
    bcdfldMDVentasRANGEDTOTAL: TBCDField;
    intgrfldMDVentasRANGEDFK_IDCLIENTE: TIntegerField;
    intgrfldMDVentasRANGEDFK_IDPUNTO_VENTA: TIntegerField;
    fdqryMDMovimientosRanged: TFDQuery;
    intgrfldMDMovimientosRANGEDIDMOVIMIENTO: TIntegerField;
    strngfldMDMovimientosRANGEDFK_NRO_FACTURA_C: TStringField;
    intgrfldMDMovimientosRANGEDFK_IDPROVEEDOR: TIntegerField;
    strngfldMDMovimientosRANGEDFK_NRO_FACTURA_V: TStringField;
    intgrfldMDMovimientosRANGEDFK_NUM_DEPOSITO: TIntegerField;
    strngfldMDMovimientosRANGEDFK_COD_ART: TStringField;
    strngfldMDMovimientosRANGEDTIPO: TStringField;
    bcdfldMDMovimientosRANGEDPRECIO_UNITARIO: TBCDField;
    intgrfldMDMovimientosRANGEDCANTIDAD: TIntegerField;
    dsMDVentasRanged: TDataSource;
    fdschmdptrVentasRanged: TFDSchemaAdapter;
    crncyfldMDMovimientosRangedImporte: TCurrencyField;
    strngfldMDMovimientosRangedNombreArt: TStringField;
    strngfldMDVentasRangedlookupNomCompCliente: TStringField;
    intgrfldMDVentasRangedTIPO: TIntegerField;
    fdqryTipo_comprobante: TFDQuery;
    intgrfldTipo_comprobanteID_TIPO_COMP: TIntegerField;
    strngfldTipo_comprobanteNOMBRE: TStringField;
    strngfldTipo_comprobanteLETRA: TStringField;
    strngfldMDVentasRangedlookupNomTipoCompr: TStringField;
    fdqryPuntos_venta: TFDQuery;
    intgrfldPuntos_ventaIDPUNTOVENTA: TIntegerField;
    strngfldPuntos_ventaTIPO: TStringField;
    strngfldPuntos_ventaDATOS_IMP: TStringField;
    intgrfldPuntos_ventaFK_IDCAJA: TIntegerField;
    intgrfldPuntos_ventaFK_IDSUCURSAL: TIntegerField;
    intgrfldMDVentasRangedlookupIdPV: TIntegerField;
    fltfldMDMovimientosRangedlookupIVA: TFloatField;
    crncyfldMDMovimientosRangedcalIVA: TCurrencyField;
    fltfldMDVentasRangedCalTotal: TFloatField;
    smlntfldMetpago_VentasCUOTAS: TSmallintField;
    crncyfldMetpago_VentasMontoFinal: TCurrencyField;
    strngfldMetpago_VentaslookupTipo: TStringField;
    strngfldMetpago_VentaslookupNombre: TStringField;
    crncyfldMetpago_VentasCOEF_HISTORICO: TCurrencyField;
    procedure fdqryClientesCalcFields(DataSet: TDataSet);
    procedure fdqryArticulosNewRecord(DataSet: TDataSet);
    procedure fdqryArticulosBeforePost(DataSet: TDataSet);
    procedure fdqryArticulosReconcileError(DataSet: TFDDataSet; E: EFDException;
      UpdateKind: TFDDatSRowState; var Action: TFDDAptReconcileAction);
    procedure fdqryClientesReconcileError(DataSet: TFDDataSet; E: EFDException;
      UpdateKind: TFDDatSRowState; var Action: TFDDAptReconcileAction);
    procedure fdqryMetodos_pagoReconcileError(DataSet: TFDDataSet;
      E: EFDException; UpdateKind: TFDDatSRowState;
      var Action: TFDDAptReconcileAction);
    procedure fdqryPlanes_pagoReconcileError(DataSet: TFDDataSet;
      E: EFDException; UpdateKind: TFDDatSRowState;
      var Action: TFDDAptReconcileAction);
    procedure fdqrySituaciones_tributariasReconcileError(DataSet: TFDDataSet;
      E: EFDException; UpdateKind: TFDDatSRowState;
      var Action: TFDDAptReconcileAction);
    procedure fdqryProveedoresReconcileError(DataSet: TFDDataSet;
      E: EFDException; UpdateKind: TFDDatSRowState;
      var Action: TFDDAptReconcileAction);
    procedure r(DataSet: TFDDataSet; E: EFDException;
      UpdateKind: TFDDatSRowState; var Action: TFDDAptReconcileAction);
    procedure fdqryMDPlanPagoReconcileError(DataSet: TFDDataSet;
      E: EFDException; UpdateKind: TFDDatSRowState;
      var Action: TFDDAptReconcileAction);
    procedure fdqryMD_MetPagReconcileError(DataSet: TFDDataSet; E: EFDException;
      UpdateKind: TFDDatSRowState; var Action: TFDDAptReconcileAction);
    procedure smlntfldMDPlanPagoNROCUOTAValidate(Sender: TField);
    procedure DataModuleCreate(Sender: TObject);
    procedure fdqryMDMovimientosRangedCalcFields(DataSet: TDataSet);
    procedure fdqryMDMovimientosRangedBeforeInsert(DataSet: TDataSet);
    procedure fdqryMDVentasRangedNewRecord(DataSet: TDataSet);
    procedure strngfldMDMovimientosRANGEDFK_COD_ARTChange(Sender: TField);
    procedure fdqryMDMovimientosRangedAfterPost(DataSet: TDataSet);
    procedure fdqryMDMovimientosRangedAfterDelete(DataSet: TDataSet);
    procedure fdqryMDVentasRangedCalcFields(DataSet: TDataSet);
    procedure fdqryMetpago_VentasCalcFields(DataSet: TDataSet);
    procedure fdqryMetpago_VentasBeforePost(DataSet: TDataSet);
    procedure fdqryMDMovimientosRangedBeforePost(DataSet: TDataSet);
    procedure intgrfldMDMovimientosRANGEDCANTIDADSetText(Sender: TField;
      const Text: string);
    procedure bcdfldMDMovimientosRANGEDPRECIO_UNITARIOSetText(Sender: TField;
      const Text: string);
    procedure intgrfldMDMovimientosRANGEDCANTIDADValidate(Sender: TField);
    procedure bcdfldMDMovimientosRANGEDPRECIO_UNITARIOValidate(Sender: TField);
  private
    { Private declarations }
    procedure VerificaNull(qry: TDataSet; Campo: string);
    procedure VerificaEsEntero(qry: TDataSet; Campo, Input: string);
    procedure VerificaEsReal(qry: TDataSet; Campo, Input: string);
  public
    function CarpetaGestion_IniPath: string; //creo carpeta gestion en mis doc y obtengo el path
    { Public declarations }
  end;

var
  dmGestion: TdmGestion;

implementation

uses
  uDialogoFacturaVenta, uDialogoVentaMultiplesMetPag;


{%CLASSGROUP 'Vcl.Controls.TControl'}

{$R *.dfm}

procedure TdmGestion.bcdfldMDMovimientosRANGEDPRECIO_UNITARIOSetText(
  Sender: TField; const Text: string);
begin
   VerificaEsReal(fdqryMDMovimientosRanged,'PRECIO_UNITARIO',Text);
end;

procedure TdmGestion.bcdfldMDMovimientosRANGEDPRECIO_UNITARIOValidate(
  Sender: TField);
begin
  if fdqryMDMovimientosRanged.FieldByName('PRECIO_UNITARIO').Value < 0 then
     raise Exception.Create('El precio del artículo no puede ser un número negativo');
  if fdqryMDMovimientosRanged.FieldByName('PRECIO_UNITARIO').Value > 999999999999.99 then
     raise Exception.Create('El precio no puede ser tan alto.');
end;

function TdmGestion.CarpetaGestion_IniPath: string;
begin
  if not DirectoryExists(TPath.GetDocumentsPath + PathDelim + 'Gestion') then
     CreateDir(TPath.GetDocumentsPath + PathDelim + 'Gestion');
  Result :=  TPath.Combine(TPath.GetDocumentsPath,'Gestion\Gestion.ini');
end;

procedure TdmGestion.DataModuleCreate(Sender: TObject);     //Creo carpeta y leo la configuracion del archivo ini
var
  Ini : TIniFile;
  Estilo: string;
begin
  Ini := Tinifile.Create(CarpetaGestion_IniPath);
  try
    Estilo := Ini.ReadString('Estilo','Nombre', '<None>');          //leo estilo
    if Estilo <> '<None>' then                   //si no hay estilo guardado incia default
       try                                      //intenta aplicarlo o carga "Windows"
         TStyleManager.SetStyle(Estilo);
       except
         TStyleManager.SetStyle('Windows');
       end;
  finally
    Ini.Free;
  end;
end;

procedure TdmGestion.fdqryArticulosBeforePost(DataSet: TDataSet); //obtengo el codigo desde la db con un procedimiento almacenado que rellenar el string con ceros a la izq
begin
  if fdqryArticulos.State = dsInsert then
     begin
       spProximo_id_ART.ParamByName('TIPO').Value := 'ARTICULO';
       spProximo_id_ART.ExecProc;
       fdqryArticulos.FieldByName('CODIGO').Value := spProximo_id_ART.ParamByName('VALOR').Value;
     end;
end;

procedure TdmGestion.fdqryArticulosNewRecord(DataSet: TDataSet); //id temporal
begin
  fdqryArticulos.FieldByName('CODIGO').AsString := '-1';
end;

procedure TdmGestion.fdqryArticulosReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
    ApplicationShowException(e);
    Abort;
end;

procedure TdmGestion.fdqryClientesCalcFields(DataSet: TDataSet); //relleno el campo nombrecompleto con info dependiendo si es una persona fisica o juridica
begin
  with fdqryClientes do
    begin
      if FieldByName('DNI').IsNull then
         FieldByName('NOMBRECOMP').AsString := FieldByName('NOMBRE_COMERCIAL').AsString
      else
         FieldByName('NOMBRECOMP').AsString := FieldByName('APELLIDO').AsString+', '+FieldByName('NOMBRE').AsString
    end;
end;

procedure TdmGestion.fdqryClientesReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.r(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.smlntfldMDPlanPagoNROCUOTAValidate(Sender: TField);  //cargo el qryDinamico con los mismos valores
begin                                                                     //del registro que se esta ingresando para verificar si existe
  fdqryDinamico.SQL.Clear;
  fdqryDinamico.Params.Clear;
  fdqryDinamico.SQL.Text := 'SELECT * '+
                            'FROM PLANES_PAGO '+
                            'WHERE ((PLANES_PAGO.NROCUOTA =:pCUOTA) AND (PLANES_PAGO.FK_IDMETODOPAGO =:pMETPAG)) ';
  fdqryDinamico.Close;
  fdqryDinamico.ParamByName('pMETPAG').Value := fdqryMDPlanPago.FieldByName('FK_IDMETODOPAGO').Value;
  fdqryDinamico.ParamByName('pCUOTA').Value := fdqryMDPlanPago.FieldByName('NROCUOTA').Value;
  fdqryDinamico.Open();
  if not (fdqryDinamico.IsEmpty) then
     if (fdqryMDPlanPago.State = dsInsert) or (fdqryMDPlanPago.FieldByName('IDPLAN_PAGO').Value <> fdqryDinamico.FieldByName('IDPLAN_PAGO').Value) then
         raise Exception.Create('Este número de cuota ya existe.');
end;

procedure TdmGestion.strngfldMDMovimientosRANGEDFK_COD_ARTChange(Sender: TField); //cuando el campo lookup busca un art, actualizo el precio
begin
  fdqryMDMovimientosRanged.FieldByName('PRECIO_UNITARIO').Value := fdqryArticulos.FieldByName('PRECIO').Value;
end;

procedure TdmGestion.VerificaEsEntero(qry: TDataSet; Campo, Input: string);
var
Valor : integer;
begin
  if not TryStrToInt(Input, Valor) then
     raise Exception.Create('Ingrese un número valido')
  else
     qry.FieldByName(Campo).Value := Input;
end;

procedure TdmGestion.VerificaEsReal(qry: TDataSet; Campo, Input: string);
var
Valor : Double;
begin
  {Este procedimiento se usa para verifircar el input del usuario en el dbgrid standard}
  if not TryStrToFloat(Input, Valor) then
     raise Exception.Create('Ingrese un número valido')               //por las dudas que pegue texto
  else
     if Length(Input) = 15 then                                       //verifica que el input del usuario no sean muchos digitos sin sentido
        begin
          if Frac(Valor) = 0.00 then
             raise Exception.Create('El precio no puede ser tan alto.')
          else
             qry.FieldByName(Campo).Value := Input;
        end
     else
       qry.FieldByName(Campo).Value := Input;
end;

procedure TdmGestion.VerificaNull(qry: TDataSet; Campo: string);
begin
  if qry.FieldByName(Campo).IsNull then
    // raise Exception.Create('Ingrese un número valido probando')
     Abort;
end;

procedure TdmGestion.fdqryMDMovimientosRangedAfterDelete(DataSet: TDataSet);
begin      // mantiene actualizado el campo subtotal
  frmDialogoFacturaVenta.CalculoSubtotal;
end;

procedure TdmGestion.fdqryMDMovimientosRangedAfterPost(DataSet: TDataSet);
begin     // mantiene actualizado el campo subtotal
   frmDialogoFacturaVenta.CalculoSubtotal;
end;

procedure TdmGestion.fdqryMDMovimientosRangedBeforeInsert(DataSet: TDataSet); //postea factura para que tenga id (-1 temporal) y se pueda vincular la tabla detalle
begin
  if (fdqryMDVentasRANGED.State = dsInsert) then
      fdqryMDVentasRANGED.Post;
end;

procedure TdmGestion.fdqryMDMovimientosRangedBeforePost(DataSet: TDataSet);
begin
    with fdqryMDMovimientosRanged do                                            // verifica input del usuario
      begin
        if FieldByName('FK_COD_ART').IsNull then
           raise Exception.Create('Ingresé el artículo.');                      //articulos esta vacio
      end;
end;

procedure TdmGestion.fdqryMDMovimientosRangedCalcFields(DataSet: TDataSet);   //calcula precio unitario * cantidad y me da importe
begin                                                                         // tmb calcula iva
  with fdqryMDMovimientosRanged do                                            // verifica que los valores no sean null y contempla el iva 0
    begin
      if not(FieldByName('PRECIO_UNITARIO').IsNull) and not(FieldByName('CANTIDAD').IsNull) then
         if FieldByName('lookupIVA').IsNull then
            FieldByName('Importe').Value := FieldByName('PRECIO_UNITARIO').Value * FieldByName('CANTIDAD').Value
         else
            begin
              FieldByName('Importe').Value := ((FieldByName('lookupIVA').Value/100)+1)*(FieldByName('PRECIO_UNITARIO').Value * FieldByName('CANTIDAD').Value);
              FieldByName('calIVA').Value := (FieldByName('lookupIVA').Value/100)*(FieldByName('PRECIO_UNITARIO').Value * FieldByName('CANTIDAD').Value);
            end;
    end;
end;

procedure TdmGestion.fdqryMDPlanPagoReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.fdqryMDVentasRangedCalcFields(DataSet: TDataSet);
var
temp:Double;
begin
 // Aplico Descuento y  Recargos  -> resultado en campo calculado "CALTOTAL"
  with fdqryMDVentasRanged do
    begin
      if not FieldByName('RECARGO').IsNull then                                      //evita un error grafico (con un DBeditRecargo, si lo dejo en blanco. en pantalla facturacion)
         if FieldByName('DESCUENTO').Value  > FieldByName('RECARGO').Value then      // si el descuento es mayor que el recargo, resto y descuento la diferencia
            begin
              temp := FieldByName('DESCUENTO').Value - FieldByName('RECARGO').Value;  //obtengo el % a descontar
              temp := (FieldByName('SUBTOTAL').Value *(-1))*((temp/100)-1);                               //aplico el descuento
              temp := RoundTo(temp,-2);                                                                                       //redondeo a 2 decimales
              FieldByName('CALTOTAL').Value := temp;                                                      //guardo en un campo calculado
            end;
      if not FieldByName('DESCUENTO').IsNull then                                    //evita un error grafico (con un DBeditDescuento, si lo dejo en blanco. en pantalla facturacion)
         if FieldByName('DESCUENTO').Value  < FieldByName('RECARGO').Value then     // si el recargo es mayor que el descuento, resto y recargo la diferencia
            begin
              temp := FieldByName('RECARGO').Value - FieldByName('DESCUENTO').Value;  //obtengo el % de recargo
              temp := FieldByName('SUBTOTAL').Value *((temp/100)+1);                                      //aplico el recargo
              temp := RoundTo(temp,-2);                                                                                       //redondeo a 2 decimales
              FieldByName('CALTOTAL').Value := temp;                                                      //guardo en un campo calculado
            end;
      if (FieldByName('DESCUENTO').Value = FieldByName('RECARGO').Value) then  //si descuento y recargo son iguales. dejo el subtotal
         FieldByName('CALTOTAL').Value :=  FieldByName('SUBTOTAL').Value;
    end;
end;

procedure TdmGestion.fdqryMDVentasRangedNewRecord(DataSet: TDataSet); //nro factura temporal
begin
   fdqryMDVentasRanged.FieldByName('NRO_FACTURA').Value := '-1';
end;

procedure TdmGestion.fdqryMD_MetPagReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.fdqryMetodos_pagoReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.fdqryMetpago_VentasBeforePost(DataSet: TDataSet);
begin
  fdqryMetpago_ventas.FieldByName('FK_NRO_FACTURA_V').Value := fdqryMDVentasRanged.FieldByName('NRO_FACTURA').Value;
end;

procedure TdmGestion.fdqryMetpago_VentasCalcFields(DataSet: TDataSet);
begin
   //Aplico Coeficientes
   if (fdqryMetpago_Ventas.FieldByName('lookupTIPO').Value = 'C') and (fdqryMetpago_Ventas.FieldByName('CUOTAS').Value > 1) then
      begin
        fdqryPlanes_pago.Refresh;  //Este refresh actualiza el coefciente (por si se modificio el plan de pago [por algun motivo el campo calculado interno no actualiza solo])
        //aca verifica si existe coeficiente historico sino busca en plan de pago(si no encuentra plan de pago deja el monto)
        if fdqryMetpago_Ventas.FieldByName('COEF_HISTORICO').Value <> null then
           fdqryMetpago_Ventas.FieldByName('MONTOFINAL').Value := fdqryMetpago_Ventas.FieldByName('MONTO').Value * fdqryMetpago_Ventas.FieldByName('COEF_HISTORICO').Value
        else
          if fdqryPlanes_pago.Locate('NROCUOTA; FK_IDMETODOPAGO', VarArrayOf([fdqryMetpago_Ventas.FieldByName('CUOTAS').Value, fdqryMetpago_Ventas.FieldByName('FK_IDMETPAGO').Value]), []) then
             fdqryMetpago_Ventas.FieldByName('MONTOFINAL').Value := fdqryMetpago_Ventas.FieldByName('MONTO').Value * fdqryPlanes_pago.FieldByName('COEFICIENTE').Value
          else
             fdqryMetpago_Ventas.FieldByName('MONTOFINAL').Value := fdqryMetpago_Ventas.FieldByName('MONTO').Value
      end
   else
      fdqryMetpago_Ventas.FieldByName('MONTOFINAL').Value := fdqryMetpago_Ventas.FieldByName('MONTO').Value;  // muestro un valor por defecto si no credito o es en 1 cuota
end;

procedure TdmGestion.fdqryPlanes_pagoReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.fdqryProveedoresReconcileError(DataSet: TFDDataSet;
  E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.fdqrySituaciones_tributariasReconcileError(
  DataSet: TFDDataSet; E: EFDException; UpdateKind: TFDDatSRowState;
  var Action: TFDDAptReconcileAction);
begin
   ApplicationShowException(e);
   Abort;
end;

procedure TdmGestion.intgrfldMDMovimientosRANGEDCANTIDADSetText(Sender: TField;
  const Text: string);
begin
   VerificaEsEntero(fdqryMDMovimientosRanged,'CANTIDAD',Text); //evita pegar letras con click derecho + pegar
end;

procedure TdmGestion.intgrfldMDMovimientosRANGEDCANTIDADValidate(
  Sender: TField);
begin
  if not (fdqryMDMovimientosRanged.FieldByName('CANTIDAD').Value >= 1) then
     raise Exception.Create('La cantidad de artículos debe ser igual o mayor que 1.');
  if (fdqryMDMovimientosRanged.FieldByName('CANTIDAD').Value > 2147483647) then
     raise Exception.Create('No se pueden ingresar tantos artículos');
end;

end.