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