/**
* Genera el asiento contable para una factura de compra.
* Devuelve TRUE si el asiento se ha generado correctamente, False en caso contrario.
* Si genera el asiento, este es accesible desde $this->asiento.
* @param factura_proveedor $factura
*/
public function generar_asiento_compra(&$factura)
{
$ok = FALSE;
$this->asiento = FALSE;
$proveedor0 = new proveedor();
$subcuenta_prov = FALSE;
/// obtenemos las tasas de conversión, para las ocasiones en que la factura está en otra divisa
$tasaconv = 1;
$tasaconv2 = $factura->tasaconv;
if ($factura->coddivisa != $this->empresa->coddivisa) {
$div0 = new divisa();
$divisa = $div0->get($this->empresa->coddivisa);
if ($divisa) {
$tasaconv = $divisa->tasaconv_compra / $factura->tasaconv;
$tasaconv2 = $divisa->tasaconv_compra;
}
}
/// obtenemos el proveedor de la factura y su subcuenta
$proveedor = $proveedor0->get($factura->codproveedor);
if ($proveedor) {
$subcuenta_prov = $proveedor->get_subcuenta($factura->codejercicio);
}
if (!$subcuenta_prov) {
$eje0 = $this->ejercicio->get($factura->codejercicio);
$this->new_message("No se ha podido generar una subcuenta para el proveedor\n <a href='" . $eje0->url() . "'>¿Has importado los datos del ejercicio?</a>");
if (!$this->soloasiento) {
$this->new_message("Aun así la <a href='" . $factura->url() . "'>factura</a> se ha generado correctamente,\n pero sin asiento contable.");
}
} else {
$asiento = new asiento();
$asiento->codejercicio = $factura->codejercicio;
if ($factura->idfacturarect) {
$asiento->concepto = ucfirst(FS_FACTURA_RECTIFICATIVA) . " de " . $factura->codigorect . " (compras) - " . $factura->nombre;
} else {
$asiento->concepto = "Factura de compra " . $factura->codigo . " - " . $factura->nombre;
}
$asiento->documento = $factura->codigo;
$asiento->editable = FALSE;
$asiento->fecha = $factura->fecha;
$asiento->importe = abs($factura->total * $tasaconv);
$asiento->tipodocumento = "Factura de proveedor";
if ($asiento->save()) {
$asiento_correcto = TRUE;
$subcuenta = new subcuenta();
$partida0 = new partida();
$partida0->idasiento = $asiento->idasiento;
$partida0->concepto = $asiento->concepto;
$partida0->idsubcuenta = $subcuenta_prov->idsubcuenta;
$partida0->codsubcuenta = $subcuenta_prov->codsubcuenta;
$partida0->haber = $factura->total * $tasaconv;
$partida0->coddivisa = $this->empresa->coddivisa;
$partida0->tasaconv = $tasaconv2;
$partida0->codserie = $factura->codserie;
if (!$partida0->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta " . $partida0->codsubcuenta . "!");
}
/// generamos una partida por cada impuesto
foreach ($factura->get_lineas_iva() as $li) {
$subcuenta_iva = FALSE;
/// ¿El impuesto tiene una subcuenta específica?
if (isset($this->impuestos[$li->codimpuesto])) {
if ($this->impuestos[$li->codimpuesto]->codsubcuentasop) {
$subcuenta_iva = $subcuenta->get_by_codigo($this->impuestos[$li->codimpuesto]->codsubcuentasop, $asiento->codejercicio);
}
}
if (!$subcuenta_iva) {
$subcuenta_iva = $subcuenta->get_cuentaesp('IVASOP', $asiento->codejercicio);
}
if ($subcuenta_iva and $asiento_correcto) {
$partida1 = new partida();
$partida1->idasiento = $asiento->idasiento;
$partida1->concepto = $asiento->concepto;
$partida1->idsubcuenta = $subcuenta_iva->idsubcuenta;
$partida1->codsubcuenta = $subcuenta_iva->codsubcuenta;
$partida1->debe = $li->totaliva * $tasaconv;
$partida1->idcontrapartida = $subcuenta_prov->idsubcuenta;
$partida1->codcontrapartida = $subcuenta_prov->codsubcuenta;
$partida1->cifnif = $proveedor->cifnif;
$partida1->documento = $asiento->documento;
$partida1->tipodocumento = $asiento->tipodocumento;
$partida1->codserie = $factura->codserie;
$partida1->factura = $factura->numero;
$partida1->baseimponible = $li->neto * $tasaconv;
$partida1->iva = $li->iva;
$partida1->coddivisa = $this->empresa->coddivisa;
$partida1->tasaconv = $tasaconv2;
if (!$partida1->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta " . $partida1->codsubcuenta . "!");
}
if ($li->recargo != 0) {
$partida11 = new partida();
$partida11->idasiento = $asiento->idasiento;
$partida11->concepto = $asiento->concepto;
$partida11->idsubcuenta = $subcuenta_iva->idsubcuenta;
$partida11->codsubcuenta = $subcuenta_iva->codsubcuenta;
$partida11->debe = $li->totalrecargo * $tasaconv;
$partida11->idcontrapartida = $subcuenta_prov->idsubcuenta;
$partida11->codcontrapartida = $subcuenta_prov->codsubcuenta;
$partida11->cifnif = $proveedor->cifnif;
$partida11->documento = $asiento->documento;
$partida11->tipodocumento = $asiento->tipodocumento;
$partida11->codserie = $factura->codserie;
$partida11->factura = $factura->numero;
$partida11->baseimponible = $li->neto * $tasaconv;
$partida11->recargo = $li->recargo;
$partida11->coddivisa = $this->empresa->coddivisa;
$partida11->tasaconv = $tasaconv2;
if (!$partida11->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta " . $partida11->codsubcuenta . "!");
}
}
} else {
if (!$subcuenta_iva) {
$asiento_correcto = FALSE;
$this->new_error_msg('No se encuentra la subcuenta de ' . FS_IVA);
}
}
}
$subcuenta_compras = $subcuenta->get_cuentaesp('COMPRA', $asiento->codejercicio);
if ($subcuenta_compras and $asiento_correcto) {
$partida2 = new partida();
$partida2->idasiento = $asiento->idasiento;
$partida2->concepto = $asiento->concepto;
$partida2->idsubcuenta = $subcuenta_compras->idsubcuenta;
$partida2->codsubcuenta = $subcuenta_compras->codsubcuenta;
$partida2->debe = $factura->neto * $tasaconv;
$partida2->coddivisa = $this->empresa->coddivisa;
$partida2->tasaconv = $tasaconv2;
$partida2->codserie = $factura->codserie;
if (!$partida2->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta " . $partida2->codsubcuenta . "!");
}
} else {
if (!$subcuenta_compras) {
$asiento_correcto = FALSE;
$this->new_error_msg('No se encuentra la subcuenta de compras.');
}
}
/// ¿IRPF?
if ($factura->totalirpf != 0 and $asiento_correcto) {
$subcuenta_irpf = $subcuenta->get_cuentaesp('IRPFPR', $asiento->codejercicio);
if ($subcuenta_irpf) {
$partida3 = new partida();
$partida3->idasiento = $asiento->idasiento;
$partida3->concepto = $asiento->concepto;
$partida3->idsubcuenta = $subcuenta_irpf->idsubcuenta;
$partida3->codsubcuenta = $subcuenta_irpf->codsubcuenta;
$partida3->haber = $factura->totalirpf * $tasaconv;
$partida3->coddivisa = $this->empresa->coddivisa;
$partida3->tasaconv = $tasaconv2;
$partida3->codserie = $factura->codserie;
if (!$partida3->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta " . $partida3->codsubcuenta . "!");
}
} else {
if (!$subcuenta_irpf) {
$asiento_correcto = FALSE;
$this->new_error_msg('No se encuentra la subcuenta de ' . FS_IRPF);
}
}
}
/// comprobamos si los artículos tienen subcuentas asociadas
if ($asiento_correcto) {
$partidaA = new partida();
$partidaA->idasiento = $asiento->idasiento;
$partidaA->concepto = $asiento->concepto;
$partidaA->coddivisa = $this->empresa->coddivisa;
$partidaA->tasaconv = $tasaconv2;
/// importe a restar a la partida2
$restar = 0;
/**
* Para cada artículo de la factura, buscamos su subcuenta de compra o compra con irpf
*/
$art0 = new articulo();
foreach ($factura->get_lineas() as $lin) {
$subcart = FALSE;
$articulo = $art0->get($lin->referencia);
if ($articulo) {
if ($lin->irpf != 0) {
$subcart = $subcuenta->get_by_codigo($articulo->codsubcuentairpfcom, $factura->codejercicio);
} else {
if ($articulo->codsubcuentacom) {
$subcart = $subcuenta->get_by_codigo($articulo->codsubcuentacom, $factura->codejercicio);
}
}
if (!$subcart) {
/// no hay / no se encuentra ninguna subcuenta asignada al artículo
} else {
if ($subcart->idsubcuenta != $subcuenta_compras->idsubcuenta) {
if (is_null($partidaA->idsubcuenta)) {
$partidaA->idsubcuenta = $subcart->idsubcuenta;
$partidaA->codsubcuenta = $subcart->codsubcuenta;
$partidaA->debe = $lin->pvptotal * $tasaconv;
} else {
if ($partidaA->idsubcuenta == $subcart->idsubcuenta) {
$partidaA->debe += $lin->pvptotal * $tasaconv;
} else {
$partidaA->debe = round($partidaA->debe, FS_NF0);
$restar += $partidaA->debe;
if (!$partidaA->save()) {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta del artículo " . $lin->referencia . "!");
}
$partidaA = new partida();
$partidaA->idasiento = $asiento->idasiento;
$partidaA->concepto = $asiento->concepto;
$partidaA->idsubcuenta = $subcart->idsubcuenta;
$partidaA->codsubcuenta = $subcart->codsubcuenta;
$partidaA->debe = $lin->pvptotal * $tasaconv;
$partidaA->coddivisa = $this->empresa->coddivisa;
$partidaA->tasaconv = $tasaconv2;
}
}
}
}
}
}
if ($partidaA->idsubcuenta and $partidaA->codsubcuenta) {
$partidaA->debe = round($partidaA->debe, FS_NF0);
$restar += $partidaA->debe;
if ($partidaA->save()) {
$partida2->debe -= $restar;
$partida2->save();
} else {
$asiento_correcto = FALSE;
$this->new_error_msg("¡Imposible generar la partida para la subcuenta del artículo " . $lin->referencia . "!");
}
}
}
if ($asiento_correcto) {
/// si es una factura rectificativa, invertimos los importes
if ($factura->idfacturarect) {
$this->invertir_asiento($asiento);
}
$factura->idasiento = $asiento->idasiento;
if ($factura->save()) {
$ok = $this->check_asiento($asiento);
if (!$ok) {
$this->new_error_msg('El asiento está descuadrado.');
}
$this->asiento = $asiento;
} else {
$this->new_error_msg("¡Imposible añadir el asiento a la factura!");
}
} else {
if ($asiento->delete()) {
$this->new_message("El asiento se ha borrado.");
} else {
$this->new_error_msg("¡Imposible borrar el asiento!");
}
}
}
}
return $ok;
}
