...
| ProdutoProducto: | TOTVS Backoffice |
|---|---|
| Linha Línea de Produtoproducto: | Linha Línea Protheus |
| Segmento: | Backoffice |
| Módulo: | TOTVS Backoffice (Linha Línea Protheus) - Controle de Direitos Autorais Control de derechos de autor (SIGACDA) |
| FunçãoFunción: | CDA040 - Fechamento do Mês (Cálculo do direito autoralCierre del mes (Cálculo del derecho de autor) |
| País: | Brasil |
...
O ponto El punto de entrada "CD040VLD", que será executado na rotina Fechamento do Mês se ejecutará en la rutina Cierre del mes (CDA040),permite que sejam feitas validações complementares para definir se o processamento deve ser iniciadose realicen validaciones complementarias para definir si debe iniciarse el procesamiento.
...
| Informações |
|---|
|
...
|
Pontos Puntos de Entrada entrada - Protheus 12
Controle de Direitos AutoraisControl de derechos de autor
...
| Tipo | DescriçãoDescripción | ||
|---|---|---|---|
| Caractere Carácter | Tipo do título a ser gerado | ||
| Caractere | Natureza do título a ser gerado | ||
del título que se generará | |||
Carácter | Modalidad del título que se generará | ||
Fecha | Fecha del cierre que se realizará | Data | Data do fechamento a ser realizado |
Numérico | 1= Gera título no financeiroGenera título en el financiero / 2= Não geraNo genera |
...
| TipoDescrição | Descripción |
|---|---|
| Lógico | Indica se o fechamento pode ser realizadosi puede realizarse el cierre. .T. - Para prosseguir com o fechamento;proseguir con el cierre. .F. - Para não no permitir o fechamentoel cierre. |
...
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch"
User Function CD040VLD()
Local cTipo := PARAMIXB[1] //Tipo do título
Local cNatur := PARAMIXB[2] //Natureza do título
Local dFecham := PARAMIXB[3] //Data do fechamento
Local lGerTit := If(PARAMIXB[4]==1,.T.,.F.) //GeraGenera título no financeiro en el financiero
Local lRet := .T.
Local nMes := Month(dFecham)
Local nAno := Year(dFecham)
Local dPerAnt := SuperGetMV("MV_CDAFECH")
Local dPerIni := CTOD("01/"+StrZero(nMes,2)+"/"+Str(nAno))
Local dPerFim := LastDay(dPerini)
If dPerFim <= dPerAnt
Help( ,,"CDA40Valid",,"PeriodoPeríodo informado jáfue foi fechadofinalizado.", 1, 0 )
lRet := .F.
ElseIf !lGerTit
Help( ,,"CDA40Valid",,"GeraçãoGeneración dedel título nãono foifue habilitada.", 1, 0 )
lRet := .F.
EndIf
Return lRet |