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 |