Histórico da Página

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

Bloco de código

2

linenumbers

3
4
5
6
7
8

true

#Include

#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 := nNewTam

Else

     nRet := nTamCpo

EndIf

RestArea( aArea )
Return nRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave