Salve salve....
Ponto de entrada F590COK- ( Manutenção de Borderôs)
FINA590-F590COK - Permite ou nao a retirada do titulo do bordero.
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} F590COK
Permite ou nao a retirada do titulo do bordero
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function F590COK()
Local cNumBor := PARAMIXB[2]
Local cTipo := PARAMIXB[1]
Local lRet := .T.
If cTipo == "P" .AND. !Empty(SE2->E2IDCNAB)
RecLock("SE2",.F.)
SE2->E2IDCNAB := ""
SE2->E2NUMBOR := SPACE(06)
SE2->E2DTBORDE:= CTOD(" / / ")
SE2->(MsUnlock())
EndIf
Return(lRet)
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima