Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Luis Angel Aboytes Rocha

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Luis Angel Aboytes Rocha

Gravado em

Chave

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

...

Totvs custom tabs box
tabsProcedimiento de utilización, Paso 02, Paso 03, Paso 04
idsProcedimiento de utilización
Totvs custom tabs box items
defaultyes
referenciapaso1
  1. Asignar en el modulo configurador el parámetro MV_CMC7FIN = "S"

  2. Crear la función de usuario FINCMTC para personalizar los campos a tomar de la lectora de cheques.

  3. La función debe retornar un arreglo donde
se
  1. por medio de un parámetro se obtiene la cadena que se introdujo en la lectora de cheques,  el arreglo debe de devolver 6 posiciones configuradas a como el cliente necesite (Longitud y punto de partida de cada campo):
    1. Banco (EF_BANCO).
    2. Agencia (EF_AGENCIA).
    3. Código Postal (EF_POSTAL).
    4. Cheque (EF_NUM) .
    5. Conta (EF_CONTA).
    6. Dv Conta
  2. Dentro del modulo Financiero ejecutar la rutina TOTVS Recibo (Actualizaciones | Cuentas por cobrar).
  3. Dentro del aplicativo de TOTVS Recibo, ir a Nuevo Recibo, llenar los campos de consulta del encabezado y seleccionar un titulo a cobrar o compensar.
  4. En las Formas de Pago seleccionar en el campo Tipo (EL_TIPO) CH.
  5. Introducir en la ventana el valor cheque.
  6. Al dar clic en 
Aplicar se ejecutará
  1. Ok en la lectora de cheques se ejecutara el punto de entrada
 F998BRFLT.
  • La función de usuario afectará la búsqueda de recibos, aplicando los filtros definidos por el usuario desde TOTVS Recibo más los filtros agregados desde el punto de entrada (F998BRFLT). esta función retornará la expresión SQL necesaria para realizar la consulta (Query) a la base de datos mostrando los recibos que cumplan todas las condiciones.

    • 04. INFORMACIÓN ADICIONAL

    1.  FINCMTC.
    2. Si los datos son correctos se auto-rellenaran los campos Banco Cheque (EL_BCOCHQ), Agente Cheque (EL_AGECHQ) y Código postal (EL_POSTAL)de la forma de pago.


    04. INFORMACIÓN ADICIONAL

    DescripciónActualizaciones
    Punto de entrada:FINCMTC
    Nombre del programa fuente:FINXFIN.PRW
    Parámetros recibidos:
    NombreTipoDescripción
    PARAMIXB[1]CParámetro que contiene la cadena que se introduce en la ventana de la Lectora de Cheques
    Respuesta:
    NombreTipoDescripciónObligatorio
    aCmc7TcARetorna un arreglo que debe tener la configuración personalizada,  el arreglo debe de devolver 6 posiciones:
      1. Banco (EF_BANCO).
      2. Agencia (EF_AGENCIA).
      3. Código Postal (EF_POSTAL).
      4. Cheque (EF_NUM) .
      5. Conta (EF_CONTA).
      6. Dv Conta
    		Si

    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


    Card documentos
    InformacaoLa presente solución aplica para versión 12.1.33 o superior, siempre y cuando se tengan las rutinas actualizadas a la fecha de la expedición del issue
    Card documentos
    InformacaoUtilice este box para resaltar información relevante y/o de destaque.
    Titulo¡IMPORTANTE!


    05. ASUNTOS RELACIONADOS