DT PE OS200ES2 Estorno da carga.

01. DADOS GERAIS

Produto:	TOTVS OMS
Linha de Produto:	Linha Protheus
Segmento:	Logí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

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ção	Obrigatório
DAK→ DAK_COD	Array of Record		Sim
DAK->DAK_SEQCAR	Array of Record	Sequência da carga	Sim

05. RETORNO

Nome	Tipo	Descrição
Nil	Nulo	Nil

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

Árvore de páginas