Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

CONTENIDO

  1. Visión general
  2. Descripción
  3. Información técnica
  4. Ejemplo

01. VISIÓN GENERAL

Línea de producto:

Microsiga Protheus®

Segmento:

Servicios

Módulo:

SIGAFIS - Libros fiscales

Función:

FISA061 - Importación de archivo magnético de la FCI

Alcance:

Microsiga Protheus 12

Versiones:

Microsiga Protheus 12

Sistemas operativos:

Todos

Compatible con las Bases de datos:

Todas

Nivel de acceso:

Nivel 1 (Acceso Clientes)

Idiomas:

Todos

02. DESCRIPCIÓN

Esta rutina tiene la finalidad de efectuar la importación de archivo magnético de la FCI, por medio del mecanismo de rutina automática.

03. INFORMACIONES TÉCNICAS

Rutina automática:

Activación de la rutina automática:
FISA061( [aWizAuto], [aFilAuto], cDir, cArq, nTipo ) --> Nil

Devolución:

Devolución:
Nil

¡Importante!

El Array aWizAuto con el contenido del asistente(Wizard), DEBE informarse en los moldes del ejemplo mostrado a continuación "Ejemplo: Utilización del FISA061 como rutina automática ".

La funcionalidad xMagLeWiz(Carga los datos de la Wizard automáticamente y muestra la wizard en pantalla), NO DEBE utilizarse, pues esta función solamente funciona en MODO GRÁFICO.

El segundo parámetro con las sucursales de procesamiento es opcional, en el siguiente ejemplo, se mostró utilizando la funcionalidad MatFilCalc(Carga sucursales de la empresa actual), si se utilizara, como se muestra en el ejemplo, debe activarla informando el primer parámetro como .F. Ej: MatFilCalc(.F.) .

Para el correcto funcionamiento, las posiciones 1 y 2 del array aWizAuto referente a las 'De fecha' y 'A Fecha', deben informase en el formato (AAAAMMDD) - AñoMesDía

Importante

Si fuera Tipo 2-"Importar" o 3-"Generar archivo", la variable cDir(Directorio del archivo que se importará), no debe tener el mismo directorio informado en el STARTPATH(Ej: "\system\"). Debido a que en el STARTPATH es donde se realiza una copia del archivo original para que la rutina FISA061 tenga acceso exclusivo a los datos y procesamiento del archivo.

ExecAuto - MATA089

Nombre

Tipo

Descripción

Default

Obligatorio

Referencia


[xAutoCab]

Array of Record

Contenido de los campos completados en la Wizard.


X



[aFilAuto]

Array of Record

Sucursales que se procesarán.





cDir

Carácter

Camino de la carpeta de destino.





cArq

Carácter

Nombre del archivo.





nTipo

Numérico

Pudiendo ser una de las siguientes opciones: 1-Procesar. 2-Importar. 3-Generar archivo.


X


04. EJEMPLO

Ejemplo: Utilización del FISA061 como rutina automática 
#Include "PROTHEUS.CH"

User Function FCI()

    Local lMostraTela := .F.
    Local aWizAuto    := {} //Array con contenido de los campos completados en la wizard
    Local aFilAuto    := {} //Array con las sucursales que se procesarán

    Local cDir        := "C:\TEMP\" //El directorio no puede ser el mismo informado en el StartPath
    Local cArq        := "FCI.TXT"
    Local nTipo       := 3 // 1-Procesar. 2-Importar. 3-Generar archivo.

    Private lMsErroAuto    :=  .F.
    Private lMsHelpAuto    := .T.
    Private lAutoErrNoFile := .F.
  
    RpcSetType( 3 )
    RpcSetEnv( "99", "01" )
     
    aFilAuto := MatFilCalc(.F.)
     
    Aadd(aWizAuto,{ "20180201", ; // De Fecha 
                    "20180228", ; // A Fecha 
                    "FCI_P001", ; // De Producto 
                    "FCI_P003", ; // A Producto 
                    "2"       , ; // ¿Selecciona sucursales ? 1-Sí|2-No
                    "100"     , ; // Versión 
                    "2"       , ; // ¿Considera productos bloqueados ? 1-Sí|2-No
                    "1"})         // ¿Utilizar cod.FCI anterior para el mismo rango? 1-Sí|2-No
          MSExecAuto({|x,y,z,m,n|FISA061(x,y,z,m,n)}, aWizAuto, aFilAuto, cDir, cArq, nTipo)
    
    If lMsErroAuto
        MostraErro()
    EndIf

	RpcClearEnv()
 
Return Nil