GeneraFactDeudor

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

Librería	Clase	Metodo
AhoraConta	Conta	GeneraFactDeudor

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 deudor.

Código VB6:

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

Código C#:

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;

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