Script - Abrir la gestión de asientos prefiltrado

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


Utilidad para abrir el formulario de apuntes desde una llamada por VBSscript. 


La llamada necesita conocer la empresa, una lista de IdDocs y de forma opcional el formulario padre que lo llama. 


Código VB6:

Sub Main()

  'Obtengo los IdDocs de la IdFactura: 1 
  lAsi = "" & gCn.DameValorCampo("SELECT IdDocs FROM dbo.funDameIdDocsAsientosFacturaCli(" & 1 & ", default, default, default)")
  
  If Len(lAsi) = 0 Then
    MsgBox gCn.Traducir(33995, "No se encontraron asientos para la factura."), vbInformation, gCn.Traducir(34005, "Ver Asientos")
  End If
  
  
  Set lFrm = gCn.AhoraProceso("ObjFormConta_Apuntes", False, True)
  If lFrm Is Nothing Then
    MsgBox "othing"
  End If

  lFrm.Carga_IdDocs gcn.IdEmpresa, CStr(lAsi) , gcn.sesion.mainform ' Importante convertir a Testo Cstr()

  frmAux.Descargar      'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.    
End Sub


Código C#:

using AhoraConta;
using AhoraCore;
using AhoraOCX;
using AhoraSistema;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_72 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {
            // Obtengo los IdDocs de la Factura
            Valor lAsi = gCn.DameValorCampo("SELECT IdDocs FROM dbo.funDameIdDocsAsientosFacturaCli(" + 1 + ", default, default, default)");

            if (lAsi.ToString().Length == 0)
            {
                MsgBox(gCn.Traducir(33995, "No se encontraron asientos para la factura."), VbMsgBoxStyle.vbInformation, gCn.Traducir(34005, "Ver Asientos"));
                return;
            }

            IfrmApuntes lFrm = (IfrmApuntes)gCn.AhoraProceso("ObjFormConta_Apuntes", out _, true);
            if (lFrm == null)
            {
                MsgBox("Null");
                return;
            }

            lFrm.Carga_IdDocs(gCn.IdCalendario, lAsi.ToString(), gCn.Sesion.MainForm);

        }
    }
}

¿Le ha sido útil este artículo?

¡Qué bien!

Gracias por sus comentarios

¡Sentimos mucho no haber sido de ayuda!

Gracias por sus comentarios

¡Háganos saber cómo podemos mejorar este artículo!

Seleccione al menos una de las razones
Se requiere la verificación del CAPTCHA.

Sus comentarios se han enviado

Agradecemos su esfuerzo e intentaremos corregir el artículo