Árvore de páginas

Versões comparadas

Chave

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


CONTEÚDO

  1. Descrição
  2. Parâmetros
  3. Programa Fonte
    1. Exemplo
  4. Exemplo da chamada

01. Descrição

Validação especifica da Nota Fiscal de Cliente de acordo com a regra de negócio do usuário.

  • Em que ponto será chamado:
    1. TMSA050TudOK - Consistência Geral da rotina.
      • Na rotina de validação geral da Nota Fiscal de Cliente a ser incluída ou alterada.
    2. TMSA050NF - Validação geral e da existência da Série e da Nota Fiscal.
      • Na rotina de verificação da existência da Nota Fiscal de Cliente na base de dados, chamada pela rotina de Geração de Cobrança de Serviço Adicional (TMSA853).

02. Parâmetros


NomeTipoDescriçãoDefaultObrigatórioReferencia
PARAMIXB[1]CaractereFilial de Origem (DTC_FILORI)M->DTC_FILORIx
PARAMIXB[2]CaractereNúmero da Nota Fiscal do ClienteGDFieldGet( 'DTC_NUMNFC', n )x
PARAMIXB[3]CaractereNúmero de Série da Nota Fiscal do ClienteGDFieldGet( 'DTC_SERNFC', n )x
PARAMIXB[4]CaractereCódigo do ClienteM->DTC_CLIREMx
PARAMIXB[5]CaractereLoja do ClienteM->DTC_LOJREMx
PARAMIXB[6]CaractereCódigo do ProdutoGdFieldGet( 'DTC_CODPRO', n )x

03. Programa Fonte

TMA050NFC.PRW

Exemplo:


Bloco de código
languagejava
themeMidnight
titleTMA050NFC
#INCLUDE "PROTHEUS.CH"


//--------------------------------------------------
/*/{Protheus.doc} TMA050NFC()

Realiza validações especifica da Nota Fiscal de Cliente
de acordo com a regra de negócio do usuário.

@since  08/02/2021
@version 1.0
/*/
//---------------------------------------------------

User Function TMA050NFC()

Local lRet        := .T.
Local l050TdOk    := FwIsInCallStack("TMSA050TudOK")
Local lTMS50NF    := FwIsInCallStack("TMSA050NF")

Local cFilOri    := PARAMIXB[1]
Local cNumNFC    := PARAMIXB[2]
Local cSerNFC    := PARAMIXB[3]
Local cCodCli    := PARAMIXB[4]
Local cLojCli    := PARAMIXB[5]
Local cCodPro    := PARAMIXB[6]

If //Validações Especificas do Usuário
     lRet := .F.
EndIf

Return lRet


04. Exemplo da chamada

... 

lRet := ExecBlock( 'TMA050NFC', .F., .F., { M->DTC_FILORI, cNumNFC, cSerNFC, M->DTC_CLIREM, M->DTC_LOJREM, cCodPro } ) 

...



HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>