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
|
