Histórico da Página

...

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
3
4
5
6
7
8

linenumbers	true

#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 3

Nova versão Atual

Chave