Ponto_de_Entrada_TMS040CLI

Este Ponto de Entrada está localizado na rotina Cotação de Frete (TMSA040), e permite alterar o cliente devedor da cotação.

#include 'protheus.ch'

 user function TMS040Cli()

 Local cCliDev := PARAMIXB[1]

Local cLojDev := PARAMIXB[2]

Local aClidev := {}

 SA1->( DbSetOrder( 1 ) )

If     SA1->( ! MsSeek( xFilial('SA1') + cCliDev, .F. ) )

       Help('',1,'TMSA04005',,"Cliente generico não encontrado !!" + cCliDev,4,1)       //-- Cliente generico nao encontrado  (SA1)

       cCliDev := GetMV('MV_CLIGEN')

       SA1->( MsSeek( xFilial('SA1') + cCliDev, .F. ) )

       lRet := .F.

EndIf

 AAdd( aCliDev  , SA1->A1_COD   )

AAdd( aCliDev  , SA1->A1_LOJA  )

return aClidev

Português(Brasil)

Versões_Anteriores

Todos

Todas

Série a ser utilizada pelo documento de transporte

cCliDev - Caracter - Código do cliente
cLojDev - Caracter - Código da loja do cliente

TMSA040.PRW