Ponto de Entrada
| Descrição: | Ponto de Entrada será executado na rotina "Conferência de Orçamento (OFIXA013)" depois da finalização da conferencia. | ||||||
| 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 lMSErroAuto := .f. lExcluiItem := .t. MSExecAuto({|x, y| MATA261(x,y)},aItensNew,3) If lMsErroAuto 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 ... | ||||||
| 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