Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Reynaldo Tetsu Miyashita

Gravado em

Chave

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

 

 

Ponto de entrada MTA228GSCC 

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Estoque e Custos (SIGAEST)

Faturamento (SIGAFAT)

Rotina:

Rotina

Nome Técnico

Gerar Remito Remito

SIGACUSB

Cadastros Iniciais:

Faturamento

MATA228

Parâmetro(s):

PARAMIBX PARAMIXB (array)01) - Tipo: Inclusão, alteração

Ponto de Entrada:

MTPOSSBDMTA228GSCC

País(es):

BrasilArgentina

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SBDSCC

Sistema(s) operacional(is):

Windows/Linux

Versões/Release:

11.8

12.1.07

 

 

O Ponto de entrada MTA228GSCC é utilizado para tratamentos de usuário na gravação da tabelas SCC.

 Ponto de Entrada

Descrição:

O Ponto de Entrada MTPOSSBD é utilizado para posicional a tabela SBD, de acordo com a regra do usuário para tratamento do custo de lote FIFOTratamento de gravação na tabela SCC.

Localização:

No momento da geração Na Geração do Remito.

Eventos:

Na geração do remito, o usuário pode fazer o posicionamento da tabela SBD e sobrepor a regra do custo FIFO indicando o lote ou amarração definida fugindo da regra standard para determinar o custo FIFOAo concluir a manutenção de um remito.

Programa Fonte:

SIGACUSBMATA228

Função:

BaixaSBDA228Atu

Parâmetros :

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB

Array of recordes

Parâmetros que podem ser manipulados:

PARAMIXB[01] - Produto
PARAMIXB[02] - Local
 
 

X

 Nota: é obrigatório fazer o posicionamento da tabela SBD.

 Retorno : NIL

Retorno:

Nenhum 

 

Exemplo:

#INCLUDE 'PROTHEUS.CH'

User Function MTPOSSBD MTA228GSCC ()
Local cProdutolocal nOpc:= Paramixb[1]Local cLocal := Paramixb[2]
Local cSeek := ""
Local lLifo := SuperGetMv('MV_CUSLIFO',.F.,.F.)
Local lFifo := SuperGetMv('MV_CUSFIFO',.F.,.F.)

Alert ('PE MTPOSSBD Produto: '+cProduto+' Local :'+cLocal)

dbSelectArea("SBD")
dbSetOrder(1)
If lLIFO .And. !lFIFO
        If dbSeek(cSeek:=xFilial("SBD")+cProduto+cLocal+" ")
              Do While !Eof() .And. cSeek == BD_FILIAL+BD_PRODUTO+BD_LOCAL+BD_STATUS
                    dbSkip()
              EndDo
              dbSkip(-1)
        EndIf
Else
        dbSeek(xFilial("SBD")+cProduto+cLocal+" ")
EndIf

 If nOpc == 1
 alert ('Execução PE MTA228GSCC na opção 1')
 ElseIf nOpc == 2
 alert ('Execução PE MTA228GSCC na opção 2')
 EndIf
Return Nil

 

 Return Nil