01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:SIGAACD- Automação de Coleta de Dados
Rotina:

CBGetTamEtq


02. PONTO DE ENTRADA


Descrição:O Ponto de Entrada CBTAMETQ foi implementado com o objetivo de flexibilizar a configuração do tamanho do campo Produto / Etiqueta quando o sistema estiver parametrizado para não utilizar a tabela CB0. Onde o parâmetro de sistema MV_ACDCB0 não contem "01"
Eventos:

O sistema passa a respeitar o tamanho do campo informado via ponto de entrada.

Programa Fonte:ACDXFUN.prw
Retorno:

nRet → Numérico | Inteiro 

Exemplo:

CBTAMETQ

1
2
3
4
5
6
7
8

#Include "Protheus.ch"

User Function CBTamEtq()
Local aArea := GetArea()
Local nRet := 0
Local nTamCpo := PARAMIXB[1]

Local nNewTam := 120



If MsgYesNo( "O Tamanho do Campo Etiqueta em Tela é "+ cValToChar( nTamCpo ) +", Deseja Alterar seu Tamanho para "+ cValToChar( nNewTam ) +" ? ", "Atencao" )                          nRet := nNewTam

Else

     nRet := nTamCpo

EndIf

RestArea( aArea )
Return nRet