Linha Microsiga Protheus

Árvore de páginas


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


#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