Histórico da Página

La herramienta MILE tiene una limitación donde importaciones que no utilizan campos de SX3 tengan una limitación de importación de 10 caracteres.

De esta manera, como la rutina de transferencia necesita que el layout utilice las variables, si existiera la necesidad de importar un campo donde el contenido tenga más de 10 caracteres, en el campo de condición debe informarse la variable de devolución, de acuerdo con lo siguiente:

xContent  := aDataTXT[2], .T. 

Ejemplo:

Suponiendo que en el archivo de importación la posición de beneficiario tenga más de 10 carateres, el layout debe configurarse con la siguinte información:

Image Added

#INCLUDE "TOTVS.ch"
/*/{Protheus.doc} User Function UF100TR
    Realiza tratamentos para processar MILE da rotina FINA100 opção 7 - Transferência
    @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

// retirar espaços dos identificadores e do conteúdo dos campos do Execauto FINA100 (Exemplo: "CBCOORIG " alterar para "CBCOORIG" // , "341       " alterar para "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)