Histórico da Página
Wiki Markup |
---|
||Descrição|| O ponto de entrada AF060VLAU valida a tela de seleção dos itens para a tranferencia em modo automático no momento da confirmação. ||Observações|| O ponto de entrada AF060VLAU é acionado no botão de confirmação da tela, após a seleção dos itens para a transferencia e antes da gravação. O ponto de entrada recebe como parametros os dados necessários para a validação dos itens marcados. ||Exemplos|| #Include "Protheus.ch" User Function AF060VLAU() Local aArea := GetArea() Local lRet := .T. Local cMarca := PARAMIXB\[1] Local aDados := PARAMIXB\[2] Local dDataBase := PARAMIXB\[3] Local cFilDest := PARAMIXB\[4] Local cFilOrig := PARAMIXB\[5] Local cFiltro := PARAMIXB\[6] If cFilDest <> cFilOrig Alert("Não é permitido transferir para esta filial.") lRet := .F. EndIf If lRet DbSelectArea("SN3") SN3->(DbSetOrder(1)) SN3->(MsSeek(xFilial("SN3")+aDados\[1]+aDados\[2],.T.)) While SN3->(!Eof()) .And. xFilial("SN3") == SN3->N3_FILIAL .And. SN3->N3_CBASE <= aDados\[3] .And. SN3->N3_ITEM <= aDados\[4] If Empty(cFiltro) .Or. &(cFiltro) If SN3->N3_OK == cMarca .And. SN3->N3_TIPO == "01" Alert("Não é permitido transferir item de Tipo 01.") lRet := .F. Exit Endif Endif SN3->(DbSkip()) EndDo EndIf EndDo EndIf RestArea(aArea) Return lRet ||Preview|| ||Veja também|| ||Idioma|| Português(Brasil) ||Versões|| Microsiga_Protheus10 ||Sistemas Operacionais Suportados||Todos ||Compatível com as Bases de Dados||Todas ||Updates|| ||Parâmetros|| cMarca,\{cBaseI,cItemI,cBaseF,cItemF\},dDataBAse,cFilDest,cFilOrig,cExpFiltro ||Retorno|| .F. (Não válido) Ou .T. (Válido) ||Eventos de chamada do Ponto de Entrada|| EnchoiceBar(oDlg1,{IIF(AF060VLAUTO(cExpFiltro),(nOpca := 1,oDlg1:End()),)} Static Function AF060VLAUTO(cExpFiltro) Local lAF060VLAU := ExistBlock("AF060VLAU") If lAF060VLAU lRet := ExecBlock("AF060VLAU",.F.,.F.,{cMarca \{cBaseI,cItemI,cBaseF,cItemF\},dDataBAse,cFilDest,cFilOrig,cExpFiltro}) EndIf Return lRet ||Variáveis|| ||Programa Fonte|| ATFA060.PRW |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas