Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (beraldo)

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

Chave

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

...

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




...