Histórico da Página

...

Portuguese

Pagetitle

	M460MARK - Validação de pedidos marcados
	M460MARK - Validação de pedidos marcados

Ponto-de-Entrada: M460MARK - Validação de pedidos marcados

Versões:	Microsiga Protheus 10
Compatível Países:	Brasil
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Português (Brasil)

Descrição:

O ponto de entrada M460MARK é utilizado para validar os pedidos marcados e está localizado no inicio da função a460Nota (endereça rotinas para a geração dos arquivos SD2/SF2).Será informado no terceiro parâmetro a série selecionada na geração da nota e o número da nota fiscal poderá ser verificado pela variável private cNumero.

Programa Fonte

MATA461.PRX

Sintaxe

M460MARK - Validação de pedidos marcados ( < > , [ cSerie ] ) --> lExecuta

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Lógico

Se o pedido esta marcado ou não no MarkBrowse, .T. marcado e .F. não marcado

X

cSerie

Array of Record

Série selecionada na geração da nota fiscal.

Retorno

lExecuta

Determina se deverá prosseguir com o processamento para geração da nota fiscal.

Observações

Os parâmetros enviados são {ThisMark(),ThisInv()}, que identificam se o pedido foi selecionado. Desta forma poderá verificar se passou True(Marcado) ou False(Não Marcado).

Bloco de código

language	c#
linenumbers	true

#Include 'Protheus.ch'

User Function TK272QRYM460MARK()

    Local _cNewQry	 cMark   := PARAMIXB[1]		 //Query MARCA padrãoUTILIZADA
    Local lInvert _cOperador:= PARAMIXB[2]		 //Código SELECIONOU do"MARCA Operador
Local _lSuper	:= PARAMIXB[3]		//.T.-> Supervisor ou .F.-> Operador

If !_lSuper
    _cNewQry := "SELECT * "
    _cNewQry += "FROM " + RetSqlName("SUC") + " SUC "
    _cNewQry += "WHERE "
    _cNewQry += "SUC.UC_FILIAL  = '" + xFilial("SUC") + "' AND "
    _cNewQry += "SUC.UC_OPERADO = '" + _cOperador + "' AND "
    _cNewQry += "SUC.UC_STATUS  = '" + "2 " + "' AND "
    _cNewQry += "SUC.UC_CODCANC = '' AND "
    _cNewQry += "SUC.D_E_L_E_T_ = ' ' "
EndIf

Return _cNewQryTODOS"
    Local aArea   := GetArea("SC9")

    SC9->(DbGoTop())

    While (SC9->(!EOF()))
        If (lInvert) // "CHECK ALL" OPTION SELECTED
            If (SC9->C9_OK == cMark)
                MsgInfo("Unmarked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            Else
                MsgInfo("Marked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            EndIf
        Else // "CHECK ALL" OPTION NOT SELECTED
            If (SC9->C9_OK == cMark)
                MsgInfo("Marked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            Else
                MsgInfo("Unmarked: " + SC9->C9_PEDIDO, "Entry Point M460MARK")
            EndIf
        EndIf
        SC9->(DbSkip())
    EndDo

    RestArea(aArea)

Return (MsgYesNo("Continue the current process?", "Entry Point M460MARK"))

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave