Histórico da Página

01. DATOS GENERALES

02. SITUACIÓN/REQUISITO

Se documenta Utilizar el punto de entrada FINCMTC, el cual tiene la finalidad de personalizar la longitud, y el punto de partida y longitud de los campos Banco (EF_BANCO), Agencia (EF_AGENCIA), Código Postal (EF_POSTAL), Cheque (EF_NUM),   Conta Cuenta (EF_CONTA) y DV Conta Cuenta en la cadena de caracteres que se introducen a través de la lectora de cheques.

De Al no utilizar existir el punto de entrada, se utilizara utilizan las dimensiones estándar definidas en el fuente.la rutina de funciones genéricas de financiero FINXFIN.PRX:

03. SOLUCIÓN

Se realiza la documentación activa el uso del punto de entrada FINCMTC que se encuentra ejecuta en la rutina FINXFIN.PRX - Funciones genéricas del modulo financiero.

Cuando es seleccionada una Forma de Pago de tipo CH, se muestra una ventana desde la cual se realiza la lectura del cheque, para su correcto uso en la rutina y poder personalizar los campos a tomar de la lectora de cheques que se visualiza cuando es seleccionada una forma de pago de tipo CH.la cadena de caracteres leída se visualiza para confirmar. A continuación se ejecuta el punto de entrada FINCMTC a través del cual se puede personalizar la ubicación y longitud de los campos contenidos en la cadena de caracteres y que son requeridos por la rutina de Recibos.

Para más información sobre los puntos de entrada disponibles consulte el siguiente enlace: 5 - Puntos de entrada disponibles

04. INFORMACIÓN ADICIONAL

04. INFORMACIÓN ADICIONAL

Ejemplo:

#Include 'Protheus.ch'

User Function FINCMTC()

Local cCmc7  := Paramixb[1]
Local nTamBco := 0 As Numeric 
Local nTamAge := 0 As Numeric
Local nTamCta := 0 As Numeric
Local nTamChq := 0 As Numeric
Local nTamCPo := 0 As Numeric
Local aCmc7Tc := {}  As Array

If nTamBco == 0
    nTamBco := TamSX3("EF_BANCO")[1]
Endif
If nTamAge == 0
    nTamAge := TamSX3("EF_AGENCIA")[1]
Endif
If nTamCta == 0
    nTamCta := TamSX3("EF_CONTA")[1]
Endif
If nTamChq == 0
    nTamChq := TamSX3("EF_NUM")[1]
Endif
If nTamCPo == 0
    nTamCPo := TamSX3("EF_POSTAL")[1]
Endif
    //Se agrega al arreglo a retornar una subcadena de la cadena original, configurando la posición inicial de cada campo y su longitud
    //AADD(Array al que se le agregaran los valores, SUBSTR(cadena de la lectora de cheques, numero editable que indica donde empieza la cadena y por ultimo el tamaño del campo))
    Aadd( aCmc7Tc, SubStr(cCmc7,  2,  nTamBco))     //Banco
    Aadd( aCmc7Tc, SubStr(cCmc7,  5,  nTamAge))     //Agencia
    Aadd( aCmc7Tc, SubStr(cCmc7, 10,  nTamCPo))     //Codigo Postal
    Aadd( aCmc7Tc, SubStr(cCmc7, 14,  nTamChq))     //Cheque
    Aadd( aCmc7Tc, SubStr(cCmc7, 20,  nTamCta))     //Cuenta
    Aadd( aCmc7Tc,      SubStr(cCmc7, 30,  1) )        //DV Cuenta

Return aCmc7Tc

05. ASUNTOS RELACIONADOS

TOTVS Recibo

5 - Puntos de entrada disponibles