Histórico da Página

01. DATOS GENERALES

02. SITUACIÓN/REQUISITO

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

De no utilizar el punto de entrada se utilizara las dimensiones estándar definidas en el fuente FINXFIN.PRX.

03. SOLUCIÓN

Se realiza la documentación del punto de entrada FINCMTC que se encuentra en la rutina FINXFIN.PRX - Funciones genéricas del modulo financiero, 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.

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))     //Conta
    Aadd( aCmc7Tc,      SubStr(cCmc7, 30,  1) )        //DV Conta

Return aCmc7Tc

05. ASUNTOS RELACIONADOS

• https://tdn.totvs.com/x/Zq97Jw
  

  
  

  Templatedocumentos