A rotina de Contrato de Carreteiro (TMSA250) é uma rotina de processamento de dados, não se trata de uma rotina de cadastro para input de dados.
Portanto não será disponibilizado ExecAuto. Entretanto, é possível realizar o processamento da rotina sem execução de tela.
Realizar processamento da rotina de Contrato de Carreteiro (TMSA250) de forma Rotina Automática, através da chamada da função TMSA250Prc.
| Parâmetro | Descrição |
|---|---|
| ExpC1 | Alias do Arquivo - DTQ |
| ExpN1 | Opcao Selecionada (3-Por Viagem / 4-Por Período) |
| ExpC2 | Filial de Origem - DTQ->DTQ_FILORI |
| ExpC3 | Viagem - DTQ->DTQ_VIAGEM |
| ExpL1 | Gera Contrato de Premio p/ Motorista. Esta variável passada pelo programa de Pagto de Premio (TMSA740) |
| ExpN2 | Valor do Premio do Motorista calculado pelo TMSA740 |
| ExpA1 | Array contendo as mensagens de erro |
| ExpN3 | Informa para qual(is) do(s) veículo(s) deve gerar contrato. 1=Veiculo; 2=Reboque; 3=Ambos. Isto para quando os fornecedores sejam diferentes. |
| ExpC4 | Tipo do Contrato a ser gerado: 1=Por Viagem;/2=Por Período;/3=Por Premio;/4=Adiantamento;/5=Complemento;/6=Carga;/7=Redespacho) |
| ExpC5 | Código do Fornecedor |
| Expc6 | Loja do Fornecedor |
| ExpL2 | Informa se a viagem é Express |
| ExpL3 | Informa se será exibido o preview do frete a pagar |
| ExpC7 | Informa o tipo do título a ser gerado no Financeiro. |
Function TMSA250EA()
Local lRet := .F.
Local aVisErr := {}
DTQ->(DbGoTo(46))
Pergunte("TMA250",.F.)
Processa({|lEnd| lRet := TMSA250Prc("DTQ", 3, DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM, .F., , aVisErr)},"Contrato de Carreteiro", "Gerando os Contratos de Carreteiros ...",.F.)
Return lRet
<!-- esconder o menu -->
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style> |