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"]);
    }
}