Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Rafael Fernando Villanueva Alegre

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

aNewVet[1] := {3}//nPosRotina
aNewVet[2] := aClone(aVetores[1]) //aRotAuto
aNewVet[3] := {3} // nOpcAuto donde 3 = Pagar, 4 = Cobrar, incluso la opción puede ser según la posición de aVectores

Return aClone(aNewVet)

05.

...

EJEMPLO DE ARCHIVO DE IMPORTACIÓN

02/01/2019;M1;3370,09;NAT1;237;1020;102030;BAJA AUTOMÁTICA FONDOS;BRADESCO;P;BA;02/01/2019
02/01/2019;M1;11736,10;NAT1;237;1020;102030;RESCATE INVERSFACIL;BRADESCO;P;BA;02/01/2019

...

Card documentos
InformacaoEl archivo de importación se debe crear según las reglas definidas en el registro del Mile.
Titulo¡IMPORTANTE!

06. EJEMPLO DE CONFIGURACIÓN PARA TRANSFERENCIA

Para la opción de Tranferencia entre cuentas o cajas (opción 7 del execauto del FINA100) se puede definir un layout de acuerdo con el execauto de FINA100.

Haga clic aquí para más detalles sobre execauto de transferencia.

Vea el siguiente ejemplo de lauyout para transferencia con user function.

Image Added


Ejemplo de archivo de transferencia:

BC1;BC101;BC101;001;BC2;BC202;BC202;001;CH;DOC400;400;HISTORICO DE TR;ITAU; 2;2;30/01/24


Image Added



UF100TR

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#INCLUDE "TOTVS.ch"
/*/{Protheus.doc} User Function UF100TR
    Realiza tratamientos para procesar MILE de la rutina FINA100 opção 7 - Transferencia
    @type  Function
    @author Totvs
    @since 29/01/2024
    @version 1.0
/*/
User function UF100TR(lInterface, aInfos, aLayOut, aSaidas, aVetores)
 
Local aNewVet   := array(3)
Local nI        := 0
 
// retire espacios de los identificadores y del contenido de los campos del Execauto FINA100 (Ejemplo: "CBCOORIG " modifique como "CBCOORIG" // , "341       " modifique a "341")
For nI := 1 To Len(aVetores[1])
    aVetores[1][nI][1] := AllTrim(aVetores[1][nI][1])
    If ValType(aVetores[1][nI][2]) == 'C'
        aVetores[1][nI][2] := AllTrim(aVetores[1][nI][2])
    EndIf
Next nI
aNewVet[1] := {0} //nPosRotina
aNewVet[2] := aClone(aVetores[1]) //aRotAuto
aNewVet[3] := {7} // Transferencia
 
Return aClone(aNewVet)


07. TABLAS UTILIZADAS

  • Movimientos bancarios - SE5



...