Histórico da Página
Ponto de entrada MTPOSSBD
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Faturamento (SIGAFAT) | ||||
Rotina: |
| ||||
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
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 : |
NIL NIL | NILNIL
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