Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: OX001IOR - Exportação de Peças para o Orçamento
Descrição: Localização: Ponto de entrada executado na rotina Orçamento de Peças e Serviços(OFIXX001), executado após a Exportação das Peças para o Orçamento.Finalidade: Alertar o usuário a exportação. Eventos User Function OX001IOR() cNumOSV := ParamIXB[1] MsgInfo(“Ponto de Entrada OX001IOR",”Atencao”) return Programa Fonte OFIXX001.PRW Sintaxe OX001IOR - Exportação de Peças para o Orçamento ( [ cNumOSV ] ) Parâmetros:
Retorno
Observações DBSelectArea("VS1") DBSetOrder(1) DBSeek(xFilial("VS1")+cOrcAtu) reclock("VS1",.f.) VS1->VS1_NUMOSV := VO1->VO1_NUMOSV msunlock() // lMSErroAuto := .f. // if FM_IMPVSJ( @aItensNImp , VS1->VS1_NUMORC , VO1->VO1_NUMOSV ) if Len(aItensNImp[2]) > 0 if !lOX001Auto if MsgYesNo(STR0092,STR0025) FM_IPECNDISP(aItensNImp) endif endif endif else DisarmTransaction() return .f. endif If ExistBlock("OX001IOR") ExecBlock("OX001IOR",.f.,.f.,{VO1->VO1_NUMOSV}) Endif // DBSelectArea("VS1") DBSetOrder(1) DBSeek(xFilial("VS1")+cOrcAtu) reclock("VS1",.f.) cVS1StAnt := VS1->VS1_STATUS VS1->VS1_STATUS := "I" msunlock() Variáveis
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas