OX018ADS Ponto de Entrada que customiza a criação dos status dos orçamentos na tela de Orçamento Por Fases(OFIXA011) e Painel Orçamento(OFIXA018).

Ponto de Entrada

Descrição:

Ponto de Entrada que customiza a criação dos status dos orçamentos na tela de Orçamento Por Fases(OFIXA011) e Painel Orçamento(OFIXA018).

Localização:

Atualizações->Mov. Oficina-> Orç. Por Fases(OFIXA011)

Atualizações->Mov. Oficina->Painel Orçamento(OFIXA018)

Eventos:

Do Case
Case cStatus == "0" .AND. cTpOrc == "2"
cCondicao := STR0077 // "Orçamento Oficina Digitado"
Case cStatus == "0" .AND. cTpOrc == "1"
cCondicao := STR0078 // "Orçamento Balcão Digitado"
Case cStatus == "2" .AND. cTpOrc == "1"
cCondicao := STR0079 // "Orçamento Balcão Margem Pendente"
Case cStatus == "3"
cCondicao := STR0080 // "Orçamento Balcão Avaliação de Crédito"
Case cStatus == cFaseConfer
cCondicao := STR0081 // "Orçamento Balcão Aguardando Separação"
Case cStatus == "5"
cCondicao := STR0082 // "Orçamento Balcão Aguardando Lib.Diverg."
Case cStatus $ "RT"
cCondicao := STR0083 // "Orçamento Balcão Aguardando Reserva"
Case cStatus == "F" .AND. cTpOrc == "1"
cCondicao := STR0084 // "Orçamento Balcão Liberado p/ Faturamento"
Case cStatus == "F" .AND. cTpOrc == "2"
cCondicao := STR0085 // "Orçamento Oficina Liberado p/ Exportação"
Case cStatus == "P" .OR. (cStatus == "2" .AND. cTpOrc == "2")
cCondicao := STR0086 // "Orçamento Oficina Pendente para O.S."
Case cStatus == "L"
cCondicao := STR0087 // "Orçamento Oficina Liberado para O.S."
Case cStatus == "I"
cCondicao := STR0088 // "Orçamento Oficina Importado para O.S."
Case cStatus == "C" .AND. VS1->VS1_TIPORC == "2"
cCondicao := STR0089 // "Orçamento Oficina Cancelado"
Case cStatus == "C" .AND. VS1->VS1_TIPORC == "1"
cCondicao := STR0090 // "Orçamento Balcão Cancelado"
Case cStatus == "X" .AND. cGerFin <> "0"
cCondicao := STR0091 // "Orçamento Balcão Faturado"
Case cStatus == "X" .AND. cGerFin == "0"
cCondicao := STR0092 // "Orçamento Balcão Faturado S/ Financeiro"
EndCase

If ExistBlock("OX018ADS")
cCondicao := ExecBlock("OX018ADS", .F., .F., {cStatus, cTpOrc, cGerFin, cCondicao})
EndIf

Programa Fonte:

OFIXA011.PRW

OFIXA018.PRW

Função:

OX018001B_RETORNACONDORCAMENTO()

Parâmetros:

Nome	Tipo	Descrição
cStatus	Caractere	Status do Orçamento(VS1_STATUS)
cTpOrc	Caractere	Tipo de Orçamento(VS1_TIPORC)
cGerFin	Caractere	Se gerou Financeiro(VS1_GERFIN)
cCondicao	Caractere	Condição padrão, disponivel para alteração no ponto de entrada.

Retorno:

Nome	Tipo	Descrição
cCondicao	Caractere	Retorna condicao que será preenchida no campo Status(VS1_DSSTAT) do Painel de Orçamento e Orc Por Fases.

Exemplo:

Include totvs.ch

#include "Protheus.ch"

#include 'protheus.ch'

#include 'topconn.ch'

User Function OX018ADS()

Local aParam := ParamIXB

Local cCondicao := aParam[4]

If cCondicao == "Orçamento Balcão Faturado"

cCondicao += " - Teste"

Endif

Return cCondicao

Árvore de páginas

OX018ADS Ponto de Entrada que customiza a criação dos status dos orçamentos na tela de Orçamento Por Fases(OFIXA011) e Painel Orçamento(OFIXA018).

Ponto de Entrada