Salve salve....
Ponto de entrada M460MARK - ( Faturamento - Documento de saída )
MATA460/MATA461-M460MARK - Validação de pedidos marcados
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} M460MARK
Validação de pedidos marcados
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function M460MARK()
Local cTipo := GetMv( 'MV_TPNRNFS' )//Controle numeração , HARDLOCK. SXE SXF
Local cThisMark := ParamIxb[1]
Local cSerie := ParamIxb[3]
Local lThisInv := ParamIxb[2]//Inverte seleção
Local lRet := .T.
If( !Empty( cThisMark ) )
If( Len( AllTrim( cNumero ) ) < 9 )
MsgAlert( 'Obrigatório número de documento com 9 digitos!!!', 'Tamanho Numero DOC' )
lRet := .F.
Endif
Endif
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima