...
| Produto: | | Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | TOTVS OMS - Gestão de Distribuição (SIGAOMS) |
|---|
| Função: | OMSA200 - Montagem de Carga |
|---|
| País: | Todos Países |
|---|
| Ticket: | - |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DLOGWMSMSP-14395 |
|---|
| Aviso |
|---|
|
- A integração TOTVS OMS x TOTVS Planejamento de Rotas (TPR) será descontinuada no próximo release (Outubro/2023).
|
02. DESCRIÇÃO
Ponto de entrada para alterar as informações antes do envio da carga para roteirização TPR via rotina OMSA200 (Montagem de Carga).
...
| Bloco de código |
|---|
#include 'protheus.ch'
User Function OMSTPR01()
Local cAliasTPR := PARAMIXB[1]
Local oTTCar := PARAMIXB[2]
Local cQueryUsr := ""
Local lRet := .T.
/* Exemplo com seek e update de registro a registro da temporária
SA1->(DbSetOrder(1))
While !(cAliasTPR)->( Eof() )
If SA1->(DbSeek((cAliasTPR)->TMP_FILFCL+(cAliasTPR)->TMP_CODFCL+(cAliasTPR)->TMP_LOJFCL))
RecLock(cAliasTPR,.F.)
(cAliasTPR)->TMP_LATITU := SA1->A1_XLATITU//'-27.59533'
(cAliasTPR)->TMP_LONGIT := SA1->A1_XLONGIT//'-48.55744'
(cAliasTPR)->(MsUnlock())
EndIf
(cAliasTPR)->( dbSkip() )
EndDo
*/
/* Exemplo de update único na temporária
cQueryUsr := "UPDATE "+oTTCar:GetRealName()
cQueryUsr += " SET TMP_LATITU = (SELECT A1_XLATITU FROM " + RetSqlName("SA1") + " SA1 "
cQueryUsr += " WHERE SA1.A1_FILIAL = TMP_FILFCL AND SA1.A1_COD = TMP_CODFCL AND "
cQueryUsr += " SA1.A1_LOJA = TMP_LOJFCL AND SA1.D_E_L_E_T_ = ' '),"
cQueryUsr += " TMP_LONGIT = (SELECT A1_XLONGIT FROM " + RetSqlName("SA1") + " SA1 "
cQueryUsr += " WHERE SA1.A1_FILIAL = TMP_FILFCL AND SA1.A1_COD = TMP_CODFCL AND "
cQueryUsr += " SA1.A1_LOJA = TMP_LOJFCL AND SA1.D_E_L_E_T_ = ' ')"
lRet := TcSQLExec(cQueryUsr) >= 0
*/
Return |
...
