TM200CTR - Bloquear lote na geração de CT-e

Olá pessoal!

Mais um ponto de entrada útil para o cálculo de frete.

Se você quiser limitar de alguma forma o cálculo de frete, seja pelo parâmetro ParamIXB[1], seja por outras métricas, basta retornar .F. na função.

Se retorna falso, o sistema não finaliza o cálculo de frete

Este P.E. está localizado no fonte TMSA200.PRW

/*/{Protheus.doc} TM200CTR
//TODO Ponto de entrada para bloquear Lote, caso número de CTRC's que serão gerados exceda o permitido, de acordo com o limite estabelecido pelo ponto de entrada.
@author Fernando Bueno
@since 01/01/2017
@version undefined
 
@type function
/*/
User function TM200CTR() 
Local nNumCTRC := ParamIXB[1]
Local aRet := {NIL,{}}
Local aDocumentos := aDoctos


If MsgYesNo("Bloqueia Lote?")

If nNumCTRC > 1 
aRet[1] := .F. 
AAdd( aRet[2], {"PE bloqueou CTRC"} )
AAdd( aRet[2], {"mensagem 2"} ) 
EndIf

EndIf

Return

Referência:  http://tdn.totvs.com/display/public/PROT/TM200CTR+-+Boqueio+de+Lote