Histórico da Página
Ponto de Entrada
| Descrição: |
Ponto de Entrada será executado na rotina "Conferência de Orçamento (OFIXA013)" depois da |
finalização da |
conferencia. |
Observações
Exemplos
User Function OXX002DTR()
MsgInfo("Ponto de entrada OXX002DTR executado com sucesso!")
lRetorno := .t.
Return lRetorno
Preview
Veja também
Idioma
Português(Brasil)
Versões
Microsiga Protheus 11
Sistemas Operacionais Suportados
Todos
Compatível com as Bases de Dados
Todas
Updates
Parâmetros
Retorno
Retorno lRetorno variavel logica (.T. ou .f.)
| Localização: | Atualizações / Mov Peças / Conferencia de Orçamento (OFIXA013) |
| Eventos: | ... /////////////////////////////////////////////////////////////////////////////////////////////////////////// // Faz a Integracao com o MATA261 das Divergencias somente quando Estoque Negativo MV_ESTNEG igual a NAO // /////////////////////////////////////////////////////////////////////////////////////////////////////////// if lIntegra261 .and. cMV_MIL0037 == "S" .and. !lESTNEG |
Eventos de chamada do Ponto de Entrada
lMSErroAuto := .f. |
lExcluiItem := .t. MSExecAuto( |
{|x, y| MATA261(x,y) |
},aItensNew,3) |
If lMsErroAuto |
MostraErro()
DisarmTransaction()
MsgInfo(STR0013,STR0005)
return .f.
EndIf
endif
//
//
if !FM_PILHA("OFIOM430")
OFIXI001(VS1->VS1_NUMORC,.t.)
If cTpOrigem == "2" // 2=Coletor de Dados VtBeep(3) // 3 Beep ERRO VTAlert(STR0025,STR0026) // Houve um problema na transferencia dos itens com divergencia na conferencia. / Transferencia Itens Else // 0=Manual / 1=Leitor MsgInfo(STR0021,STR0005) // Houve um problema na transferencia dos itens com divergencia na conferencia. Clique em Fechar para exibir a mensagem que indica o ocorrido. MostraErro() EndIf DisarmTransaction() FreeObj(oPeca) return .f. EndIf EndIf |
// Ponto de entrada depois da gravação da transferencia. if ExistBlock("OXX002DTR") |
lRetorn := ExecBlock("OXX002DTR",.f.,.f.) |
if !lRetorn |
DisarmTransaction() If cTpOrigem == "2" // 2=Coletor de Dados VTAlert(STR0022,"PE OXX002DTR") // Conferencia nao finalizada. / PE OXX002DTR Else // 0=Manual / 1=Leitor MsgInfo(STR0022,"PE OXX002DTR") // Conferencia nao finalizada. / PE OXX002DTR EndIf FreeObj(oPeca) return .f. |
Endif Endif |
END TRANSACTION
Variáveis
Programa Fonte
... | |||||||
| Programa Fonte: | OFIXX002.PRW | ||||||
| Função: | OX0020161_LIBERAITENSCONFERIDOS() | ||||||
| Parâmetros: | N/A | ||||||
| Retorno: |
|
Exemplo:
Include totvs.ch
User Function OXX002DTR()
MsgInfo("Ponto de entrada OXX002DTR executado com sucesso!")
lRetorno := .t.
Return lRetorno
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas