GeneraFactAcreedor

Creado por David Miralpeix, Modificado el Vie, 16 Feb, 2024 a 12:26 P. M. por David Miralpeix

Librería	Clase	Metodo
AhoraConta	Conta	GeneraFactAcreedor

Implementación:

 Function GeneraFactAcreedor(
     aObjeto As Object,
     aSerie As Long,
     aFechaFact As Date,
     Optional aNumFactProv As String = "")        As Object

Descripción:

Genera y devuelve un objeto factura de acreedor.

Código VB6:

' Generar Factura Rectificativa
  
Set lFrm = New frmDatosFactRect
lFrm.Carga eTipoSerie_Proveedor
  
If lFrm.OK Then
  
  lSerie = lFrm.Serie
  lMotivo = lFrm.MotivoRect
  lFecha = lFrm.Fecha
  lNumFactProv = lFrm.NumFactProv
  
  Set lObj = gForm.EObjeto.Obj ' la factura origen
  Set lFactAcreedor = gCn.AhoraProceso("GeneraFactAcreedor", False, lObj, lSerie, lFecha, lNumFactProv)
  If lFactAcreedor Is Nothing Then
    Msgbox "Error creando la factura Rectificativa"
  else
    Msgbox "Se ha creado la factura Rectificativa "  &
             lFactAcreedor.Propiedades("IdFactura")
  End If
  
End If

Código C#:

// Generar Factura Rectificativa
IfrmDatosFactRect lFrm = (IfrmDatosFactRect)gCn.AhoraProceso("DamefrmDatosFactRect", out _);
lFrm.Carga(AhoraUtil.ETipoSerie.ETipoSerie_Proveedor);

if (lFrm.OK)
{
    int lSerie = lFrm.Serie;
    string lMotivo = lFrm.MotivoRect;
    DateTime lFecha = lFrm.Fecha;
    string lNumFactProv = lFrm.NumFactProv;

    IItemColeccion lObj = (gForm.Controls["EObjeto"] as IEnlaceObjetos).ObjGlobal;
    IItemColeccion lFactAcreedor = (IItemColeccion)gCn.AhoraProceso("GeneraFactAcreedor", out _, lObj, lSerie, lFecha, lNumFactProv);
    if ( lFactAcreedor == null ) 
    {
        MsgBox("Error creando la factura Rectificativa");
    }
    else
    {
        MsgBox("Se ha creado la factura Rectificativa " + lFactAcreedor["IdFactura"]);
    }
}