Histórico da Página

Rotina Automatica TMSA040 ( [ ] ) --> Nil

User

Function

EXECDT4()

Local

aCabDT4

:=

{}
Local

aItemDVF

:=

{}

Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.

//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Nao e necessario passar os valores de filial. -*-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Deve se informar todos os campos obrigatorios -*-*
// na mesma ordem com que e feito em uma cotacao -*-*
// manual. -*-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Os campos (*****) sao alimentados automaticamente -*-*
// na inclusao manual, porem aqui devem ser passados -*-*
// no array. -*-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Busca Numero da Cotacao -*-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
dbSelectArea("DT4")
dbSetorder(1)
RegToMemory("DT4",.T.,.F.)
_cNum:= GetSXENum("DT4","DT4_NUMCOT")
ConfirmSX8()

//-*-*-*-*-*-*-*-*-*-*
// Capa da Cotacao *-*
//-*-*-*-*-*-*-*-*-*-*
aCabDT4 := {{"DT4_FILORI"

,"01"

,

Nil},;

//Dados da Empresa - filial

de

origem
{"DT4_NUMCOT

" ,_cNum , Nil},; //Dados da Empresa - numero da cotacao
{"DT4_DATCOT" ,STOD("20120620") , Nil},; //Dados da Empresa - Data da Cotacao
{"DT4_HORCOT" ,"1600" , Nil},;

//

Dados da Empresa - Hora da Cotacao
{"DT4_DDD"

,"

011" , Nil},;

//Dados da Empresa - DDD

do

solicitante
{"DT4_TEL"

,"41412222"

,

Nil},;

//Dados da Empresa - Telefone

do

solicitante
{"DT4_NOMSOL" ,"SAO PAULO" , Nil},; //Dados da Empresa - Nome Solicitante (*****)
{"DT4_PRZVAL" ,dDataBase+10 , Nil},; //Dados da Empresa - Prazo de Validade
{"DT4_TIPFRE" ,"1" , Nil},; //Dados da Empresa - Tipo de Frete (1-CIF / 2-FOB)
{"DT4_USER" ,"00000" , Nil},; //Dados da Empresa - Usuario
{"DT4_PESSOA" ,"1" , Nil},; //Dados da Empresa - Pessoa (1 - Fisica/ 2 - Juridica)
{"DT4_CONTRI" ,"1" , Nil},; //Dados da Empresa -
{"DT4_SELORI"

,"1"

,

Nil},;

//Servico - Regiao

de

origem

1=Transportadora

/

2=Cliente

Remetente

/

3=Local

Coleta.

{"DT4_CDRORI"

,"SP0001"

,

Nil},;

//Servico - Codigo

da

regiao

de

origem
{"DT4_REGORI"

,"SAO

PAULO"

,

Nil},;

//Servico - Nome

Regiao

de Origemm(*****)
{"DT4_CDRDES"

,"RJ0001"

,

Nil},;

//Servico - Codigo

da

regiao

de

destino
{"DT4_REGDES"

,"RIO

DE

JANEIRO"

,

Nil},;

//Servico - Nome

da

Regiao

de Destino(*****)
{"DT4_SERTMS"

,"3"

,

Nil},;

//Servico - Servico

de

transporte

1=

Coleta

/

2=Transporte

/

3=Entrega.

{"DT4_DESSVT" ,"ENTREGA" , Nil},; //Servico - Descricao Servico Tansporte(*****)
{"DT4_TIPTRA"

,"1"

,

Nil}

,; //Servico - Tipo

de

Transporte 1=Rodoviario

/

2=Aereo

/

3=Fluvial.
{"DT4_DESDTP" ,"RODOVIARIO" , Nil},; //Servico - Descricao Tipo Tansporte
{"DT4_SERVIC" ,"014" , Nil},; //Servico - Servico
{"DT4_DESSER" ,"SNE ENTREGA" , Nil},; //Servico - Descricao do Servico
{"DT4_TIPNFC" ,"0" , Nil},; //Servico - Tipo NFC
{"DT4_KM" ,10 , Nil},; //Servico - KM
{"DT4_INCISS" ,"1" , Nil},; //Servico - ISS no Preco
{"DT4_DISTIV" ,"2" , Nil},; //Servico - Dis Ida/Volt
{"DT4_CLIREM" ,"000001" , Nil},; //Aprovacao - Cliente Remetente
{"DT4_LOJREM" ,"01" , Nil},; //Aprovacao - Loja Remetente
{"DT4_NOMREM" ,"SAO PAULO" , Nil},; //Aprovacao - Nome Remetente (*****)
{"DT4_CLIDES" ,"000002" , Nil},; //Aprovacao - Cliente Destinatario
{"DT4_LOJDES" ,"01" , Nil},; //Aprovacao - Loja Destinatario
{"DT4_NOMDES" ,"RIO DE JANEIRO" , Nil},; //Aprovacao - Nome Destinatario (*****)
{"DT4_CLIDEV" ,"000001" , Nil},; //Aprovacao - Cliente Remetente
{"DT4_LOJDEV" ,"01" , Nil},; //Aprovacao - Loja Remetente
{"DT4_NOMDEV" ,"SAO PAULO" , Nil},; //Aprovacao - Nome Remetente (*****)
{"DT4_MOEDA" ,1 , Nil}} //Outros - Moeda

//-*-*-*-*-*-*-*-*-*-*
// Item da Cotacao *-*
//-*-*-*-*-*-*-*-*-*-*
Aadd(aItemDVF,{{"DVF_FILORI","01" , Nil},; //Filial de Origem
{"DVF_NUMCOT" ,_cNum , Nil},; //Numero da Cotacao
{"DVF_ITEM"

,"01"

, Nil},; //Sequencia do Item
{"DVF_CODPRO" ,"000001" , Nil},;

//

Codigo do Produto
{"DVF_

DESPRO"

,"PRODUTO 000001"

,

Nil},;

//

Descricao do Produto (*****)
{"DVF_CODEMB" ,"CX" , Nil},; //Codigo da Embalagem
{"DVF_DESEMB" ,"CAIXA" , Nil},; //Descricao da Embalagem
{"DVF_QTDVOL"

,

10

,

Nil},;

//Quantidade

de Volumes.
{"DVF_PESO"

,

100

,

Nil},;

//

Peso
{"DVF_VALMER"

,

1000

,

Nil}}

) //Valor da Mercadoria

//-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Chama a rotina TMSA040 *-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*
MsExecAuto({|x,y,z|

TMSA040(x,y,z)},

aCabDT4,

aitemDVF,

3)

//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
// Retorna resultado do processo *-*
//-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
If lMsErroAuto
MostraErro()
Else
MsgInfo("Cotação de Frete " + _cNum + " gravada com sucesso!")
EndIf

Return