Ahora proceso MacroCl.HistMov
Ahora proceso HistoricoMovimientos_Filtro
Código VB6:
'--Sin filtro
Sub Main()
frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
gCn.AhoraProceso "MacroCl.HistMov", False
End Sub'--Con filtro
Sub Main()
frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.
Dim lParam
Dim lCol 'As Collection
Dim lForm 'As Object
Set lParam = CreateObject("AhoraScripts.Script_Parametro")
lParam.Nombre = "IdArticulo" ' NO_TRADUCIR_TAG
lParam.Valor = "0"
Set lCol = gcn.damenewcollection
lCol.Add lParam
Set lForm = gcn.sesion.mainform
gCn.AhoraProceso "HistoricoMovimientos_Filtro", False, lCol, lForm
End SubCódigo C#:
// Sin filtro
public void Main()
{
gCn.AhoraProceso("MacroCl.HistMov", out _);
}// Con filtro
public void Main()
{
IScript_Parametro lParam = null;
IVB6Collection<IScript_Parametro> lCol = null;
lParam = AhoraCore.AhoraServiceLocator.Current.GetService<AhoraScripts.IScript_Parametro>();
lParam.Nombre = "IdArticulo";
lParam.Valor = "0";
lCol = new VB6Collection<IScript_Parametro>();
lCol.Add(lParam);
gCn.AhoraProceso("HistoricoMovimientos_Filtro", out _, lCol, gForm);
}