Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS OMS

Solucoes_totvs_cross
SolucaoCross

Solucoes_totvs_parceiros
SolucaoParceiros

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoLogística

Módulo:SIGAOMS - Gestão de Distribuição
Função:OMSA200 - Montagem de Carga
País:Todos Países
Ticket:
-
Não se aplica.
Requisito/Story/Issue (informe o requisito relacionado) :
-
Não se aplica.


02. DESCRIÇÃO

Este Ponto de Entrada permite 

Sintaxe
OS200ES2 → Estorno da Carga ( < DAK->DAK_COD> , < DAK->DAK_SEQCAR> ) → Nil

03. LOCALIZAÇÃO

Este Ponto de Entrada é executado no final do estorno da carga da rotina OMSA200 (Montagem de Carga).

04. PARÂMETROS

Nome

Tipo

DescriçãoObrigatório
DAK→ DAK_CODArray of Record
Sim
DAK->DAK_SEQCARArray of RecordSequência da cargaSim

05. RETORNO

NomeTipoDescrição
NilNuloNil

06

...

.

...

OBSERVAÇÃO

Não se aplica.

...

07.

...

EXEMPLO

User Function OS200ES2()


Local cCarga:= ParamIxb[1]
Local cSeqCar:= ParamIxb[1]

cQuery := "SELECT R_E_C_N_O_ RECNOSC9 "
cQuery += "FROM " + RetSqlName("SC9")
cQuery += "WHERE C9_FILIAL = '" + xFilial("SC9") + "'"
cQuery += " AND C9_CARGA = '" + cCarga  + "'"
cQuery += " AND C9_SEQCAR = " + cSeqCar  + "'"
cQuery += " AND D_E_L_E_T_ = '' "

cQuery := ChangeQuery(cQuery)
DbUseArea( .T., "TOPCONN", TCGENQRY(,,cQuery), cAliasQry, .F., .T. )

While (cAliasQry)→(!Eof())

SC9->(DbGoTo((cAliasQry)->RECNOSC9))
RecLock('SC9',.F.)
SC9->C9_TESTE := "CARGA EXCLUIDA"
SC9→(MsUnlock())

(cAliasQry)→(dbSkip())

EndDo

(cAliasQry)->(DbCloseArea())

Return 

...

Templatedocumentos


HTML