Histórico da Página

...

Dados Gerais
Descrição
Sintaxe
Parâmetros
Retorno
Exemplo

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	SIGAFAT - Faturamento
Função:	MATA521 - Exclusão de Documento de Saída
Abrangências:	Microsiga Protheus 12
Versões:	Microsiga Protheus 12
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível com as Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Todos

02. DESCRIÇÃO

Por default na exclusão de documento de saída, quando utilizado o controle de numeração SD9 (MV_TPNRNFS = 3), a numeração da nota é deixada vaga e o campo D9_DOCEXCL recebe conteúdo "S" indicando que a numeração ficou vaga devido a uma exclusão. Este processo visa que caso o operador desejar, informe este número manualmente na geração de nova nota para reutilização desta numeração.

...

Aviso

title	Importante

Quando o Ponto de Entrada M521LpSD9 retornar .F. o processo de limpeza não é iniciado, mas a nota seguira para exclusão, logo na SD9 o registro estará com o mesmo preenchimento de quando houve o faturamento e o campo D9_DOCEXCL permanecerá em branco.

03. SINTAXE

M521LpSD9({cDoc, cSerie}) ---> lRet

04. PARÂMETROS

Nome	Tipo	Descrição	Default	Obrigatório	Referência
aParamIXB	Vetor	Vetor com os dados identificadores do Documento de Saída que esta sendo excluído, sendo: [ 01 ] - cDoc - Tipo: Caracter - String contendo a numeração da nota [ 02 ] - cSerie - Tipo: Caracter - String contendo a série da nota

05. RETORNO

Retorno

Tipo

Descrição

Obrigatório

lRet

Lógico

Variável logica indicando se deve ser feita a limpeza de dados na SD9 devido a exclusão, sendo:

.T. - Realiza a limpeza.

.F. - Não realiza a limpeza.

Sim

06. EXEMPLO

Neste exemplo validamos se para a nota em questão houve alguma comunicação com Sefaz através do campo de Flag de Impressão (F2_FIMP)

Bloco de código

language	cpp
title	Exemplo:

#INCLUDE 'PROTHEUS.CH'
#INCLUDE "FWMVCDEF.CH"
  
User Function M040OEAIM521LpSD9()

 
   Local aArea       := GetArea()
 
//Armazena o ambiente Localativo aParampara restaurar ao fim do  :=processo
 PARAMIXB
 
   Local aDadosSA3aParam    := aParam[1]PARAMIXB
    Local nOpcx cDoc      := aParam[21]
    Local cJson   cSerie    := aParam[32]
    Local oJsonlRet       := JsonObject():New().F.

   Local cCampo1     := "XCampo1" DbSelectArea("SF2")
   Local cCampo2     := "XCampo2" SF2->(DbSetOrder(1))
   Local cCampo3     := "XCampo3"

   Local cValCampo1  := ""If SF2->(DbSeek(xFilial("SF2") + cDoc + cSerie))
   Local nValCampo2  := 0
   Local dValCampo3  := CToD("  /  /    ")

   oJson:fromJson(cJson)

   If oJson["Content"]:HasProperty(cCampo1)If Empty(SF2->F2_FIMP) //Verifica se para esta nota houve alguma comunicação com Sefaz
      cValCampo1 := oJson["Content"][cCampo1]
      AAdd(aDadosSA3, {"A3_XCAMPO1", cValCampo1, Nil})
   EndIf

   If oJson["Content"]:HasProperty(cCampo2)
      nValCampo2 := oJson["Content"][cCampo2]
      AAdd(aDadosSA3, {"A3_XCAMPO2", nValCampo2, Nil})
lRet := .T.
        EndIf

   If oJson["Content"]:HasProperty(cCampo3)
      dValCampo3 := CToD(oJson["Content"][cCampo3])
      AAdd(aDadosSA3, {"A3_XCAMPO3", dValCampo3, Nil})
   EndIf

   RestArea(aArea)
 
Return aDadosSA3 RestArea(aArea) //Restaura o ambiente ativo no início da chamada
    
Return lRet

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave