Árvore de páginas

Versões comparadas

Chave

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

 

Faturamento

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Estoque e Custos (SIGAEST)

Faturamento (SIGAFAT)

Rotina:

Rotina

Nome Técnico

Gerar Remito 

SIGACUSB

Cadastros Iniciais:

Saldo Inicial FIFO x LIFO

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:

1112.1.807

 

Ponto de Entrada

Descrição:

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

Localização:

No momento da geração do RemitoNa criação do saldo FIFO x LIFO.

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 saldo.

Programa Fonte:

SIGACUSBMATA228.

Função:

BaixaSBDA228Atu.

Parâmetros Retorno:

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

 

Exemplo:

#INCLUDE 'PROTHEUS.CH'

Nenhum. 

 

Exemplo:

User Function MTA228GSCC ()
local nOpcUser Function MTPOSSBD ()
Local cProduto:= 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