Árvore de páginas

Versões comparadas

Chave

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

 

Ponto de entrada MTPOSSBD 


Linha de Produto:

 Microsiga Protheus

Segmento:

 Serviços

Módulo:

 Faturamento (SIGAFAT)

Rotina:

Rotina

Nome Técnico

 Gerar Remito  

SIGACUSB

Cadastros Iniciais:

 Faturamento

Parâmetro(s):

 PARAMIBX (array)

Ponto de Entrada:

 MTPOSSBD

País(es):

 Brasil

Banco(s) de Dados:

 Todos

Tabelas utilizadas:

 SBD

Sistema(s) operacional(is):

 Windows/Linux

Versões/Release:

11.8

 

O Ponto de entrada MTPOSSBD é utilizado posicionar a tabela SBD de acordo com a regra do Usuário para tratamento do custo lote FIFO.

Ponto de Entrada

NIL

Descrição:FATURAMENTO

Faz o posicionamento da tabela SBD conforme regras do usuário.

Localização:REMITO

No momento da geração do Remito.

Eventos:GERAR REMITO

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

Programa Fonte:

SIGACUSB.PRX

Função:

TODOSBaixaSBD

RetornoParâmetros :

Nome

Tipo

Descrição

Obrigatório

NIL 

NIL

NIL

 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'

...

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

Return Nil