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

Não sabe o que fazemos ainda? Dá uma olhadinha no nosso menu ali em cima ☝️

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

/*/{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

Return

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

Leave a Reply Cancelar resposta