Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 2 minutos

Ponto-de-Entrada: MA4700BS - Preenche informações adicionais no relatorio Registro de Controle de Produção e Estoque
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Utilizado para preencher informações adicionais na coluna "observações" do relatorio "Registro de Controle de Produção e Estoque".Vale ressaltar que as informações adicionadas devera obedecer a legislação vigente para o estado onde o relatorio sera emitido.
Eventos

#INCLUDE 'RWMAKE.CH'

 

User Function MA470OBS()

Local cObs     := ''

Local cAlias   := PARAMIXB

Local aAreaAnt := GetArea()

 

If cAlias == 'SD1'

     cObs := 'Customização do cliente'

ElseIf cAlias == 'SD2'

     cObs := 'Customização do cliente'

ElseIf cAlias == 'SD3'

     cObs := 'Customização do cliente'

EndIf       

 

RestArea(aAreaAnt)

Return cObs

 

Programa Fonte 
MATR470.PRX
Sintaxe

MA4700BS - Preenche informações adicionais no relatorio Registro de Controle de Produção e Estoque ( [ PARAMIXB ] ) --> COBS

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Caracter ALIAS DO REGISTRO
Retorno
    COBS(caracter)
  • Conteudo da coluna observações
Exemplos 
#INCLUDE 'RWMAKE.CH' User Function MA470OBS()Local cObs     := ''Local cAlias   := PARAMIXBLocal aAreaAnt := GetArea() If cAlias == 'SD1'     cObs := 'Customização do cliente'ElseIf cAlias == 'SD2'     cObs := 'Customização do cliente'ElseIf cAlias == 'SD3'     cObs := 'Customização do cliente'EndIf        RestArea(aAreaAnt)Return cObs