...
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 |
...
Esta rotina tem a finalidade de efetuar a importação de arquivo magnético da FCI , através do mecanismo de rotina rutina tiene la finalidad de efectuar la importación de archivo magnético de la FCI, por medio del mecanismo de rutina automática.
...
Rotina AutomáticaRutina automática:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
FISA061( [aWizAuto], [aFilAuto], cDir, cArq, nTipo ) --> Nil |
RetornoDevolución:
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
Nil |
Dica | ||
---|---|---|
| ||
O El Array aWizAuto com o conteúdo do assistentecon el contenido del asistente(Wizard), DEVE ser informado nos moldes do exemplo demonstrado abaixo no quando "Exemplo: Utilização do FISA061 como rotina DEBE informarse en los moldes del ejemplo mostrado a continuación "Ejemplo: Utilización del FISA061 como rutina automática ". A funcionalidade La funcionalidad xMagLeWiz(Carrega os dados da Wizard automaticamente e apresenta a wizard em tela), NÃO DEVE ser utilizada, pois esta função só funciona em 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. O segundo parâmetro contendo as filiais de processamento é opcional, no exemplo abaixo, foi mostrado utilizando a funcionalidade MatFilCalc(Carrega filiais da empresa corrente), caso utilizada, como demonstrado no exemplo, deve-se invoca-la passando o primeiro parâmetro como .F. ExEl 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 o correto funcionamento, as posições 1 e 2 do el correcto funcionamiento, las posiciones 1 y 2 del array aWizAuto referente as 'data de' e 'data ate', devem ser informadas no a las 'De fecha' y 'A Fecha', deben informase en el formato (AAAAMMDD) - AnoMesDia.AñoMesDía |
Aviso | ||
---|---|---|
| ||
Quando Tipo Si fuera Tipo 2-"Importar" ou o 3-"Gerar arquivoGenerar archivo", a variável cDir(Diretório do arquivo a ser importado), não deve ser o mesmo diretório informado no STARTPATH(Exla variable cDir(Directorio del archivo que se importará), no debe tener el mismo directorio informado en el STARTPATH(Ej: "\system\"). Devido ser no STARTPATH onde é feita uma cópia do arquivo original, para que rotina FISA061 tenha acesso exclusivo aos dados e processamento do arquivoDebido 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 |
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#Include "PROTHEUS.CH" User Function FCI() Local lMostraTela := .F. Local aWizAuto := {} //Array comcon contenido conteudode doslos campos completados preenchidosen nala wizard Local aFilAuto := {} //Array comcon aslas filiaissucursales que seraose processadasprocesarán Local cDir cDir := "C:\TEMP\" //DiretorioEl directorio nãono podepuede ser oel mesmomismo informado en el StartPath Local cArq cArq := "FCI.TXT" Local nTipo := 3 // 1-Processar;Procesar. 2-Importar;. 3-GerarGenerar arquivoarchivo. Private lMsErroAuto := .F. Private lMsHelpAuto := .T. Private lAutoErrNoFile := .F. RpcSetType( 3 ) RpcSetEnv( "99", "01" ) aFilAuto := MatFilCalc(.F.) Aadd(aWizAuto,{ "20180201", ; // DataDe deFecha "20180228", ; // DataA ateFecha "FCI_P001", ; // ProdutoDe deProducto "FCI_P003", ; // ProdutoA ateProducto "2" , ; // Seleciona¿Selecciona filiaissucursales ? 1-SimSí|2-NãoNo "100" , ; // VersaoVersión "2" , ; // Considera¿Considera produtosproductos bloqueados ? 1-SimSí|2-NãoNo "1"}) // Usar¿Utilizar cod.FCI anterior para el mesmamismo faixarango? 1-SimSí|2-NãoNo MSExecAuto MSExecAuto({|x,y,z,m,n|FISA061(x,y,z,m,n)}, aWizAuto, aFilAuto, cDir, cArq, nTipo) If lMsErroAuto MostraErro() EndIf RpcClearEnv() Return Nil | ||||||||||
HTML | ||||||||||
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|