Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "rwmake.ch"
#include 'totvs.ch'
#include 'tbiconn.ch'

Static __oModelAut := NIL //variavelvariable oModel para substituirsustituir msexecauto emen MVC

User Function MyATF271Inc()
Local oSNGMASTER 
Local oFNGDETAIL
Local lRet := .T.
Local nX := 0
Local aLog := {}
Local cLog := "" 
Local cNG_GRUPO :=  "ATF4"
Local cNG_DESCRIC := "Grupo ATF01- CT001"
Local dNG_DTBLOQ := CtOD("01/01/2020")
Local cNG_CCUSTO := "CTB000000"
Local cNG_SUBCTA := "CTB000003"
Local cNG_CLVL    := "CTB000000"
Local cNG_TPSALDO := "1"  
Local cNG_TPDEPR  := "1"

//ContasCuentas Contábeiscontables
Local cNG_CCONTAB:= "CTB00000000000000000"
Local cNG_CDEPREC:="CTB00000000000000001"
Local cNG_CCDEPR:="CTB00000000000000002"
Local cNG_CDESP:="CTB00000000000000003"
Local cNG_CCORREC:="CTB00000000000000004"

//Centros de Custocosto
Local cNG_CUSTBEM:="CTB000001"
Local cNG_CCDESP :="CTB000002"
Local cNG_CCCDEP :="CTB000003"
Local cNG_CCCDES :="CTB000004"
Local cNG_CCCORR :="CTB000005"

//ItensÍtems Contábeiscontables
Local cNG_SUBCCON:="CTB000003"
Local cNG_SUBCDEP:="CTB000004"
Local cNG_SUBCCDE:="CTB000005"
Local cNG_SUBCDES:="CTB000006"
Local cNG_SUBCCOR:="CTB000007"

//ClassesClases de Valorvalor
Local cNG_CLVLCON:="CTB000001"
Local cNG_CLVLDEP:="CTB000002"
Local cNG_CLVLCDE:="CTB000003"
Local cNG_CLVLDES:="CTB000004"
Local cNG_CLVLCOR:="CTB000005"

//AbaSolapa OutrosOtros
Local cNG_TAXAPAD:="ATF001"
Local cNG_DETPATR:="03"
Local cNG_UTIPATR:="2"

//GRID
Local cFNG_TIPO:="01"
Local cFNG_HISTOR:="CT001"


PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01' TABLES 'SNG','FNG' MODULO 'ATF'

If __oModelAut == Nil //somentesolamente umacarga unicauna vez carregael o modelo
__oModelAut := FWLoadModel( 'ATFA271' )
EndIf

__oModelAut:SetOperation(MODEL_OPERATION_INSERT)
__oModelAut:Activate()

oSNGMASTER := __oModelAut:GetModel('SNGMASTER')
//-- AbaSolapa principal
oSNGMASTER:SetValue('NG_GRUPO',cNG_GRUPO) 
oSNGMASTER:SetValue('NG_DESCRIC',cNG_DESCRIC)
oSNGMASTER:SetValue('NG_DTBLOQ',dNG_DTBLOQ)
oSNGMASTER:SetValue('NG_CCUSTO',cNG_CCUSTO)
oSNGMASTER:SetValue('NG_SUBCTA',cNG_SUBCTA)
oSNGMASTER:SetValue('NG_CLVL',cNG_CLVL)
oSNGMASTER:SetValue('NG_TPSALDO',cNG_TPSALDO)
oSNGMASTER:SetValue('NG_TPDEPR',cNG_TPDEPR)

//-AbaSolapa outrosotros
oSNGMASTER:SetValue('NG_TAXAPAD',cNG_TAXAPAD)
oSNGMASTER:SetValue('NG_DETPATR',cNG_DETPATR)
oSNGMASTER:SetValue('NG_UTIPATR',cNG_UTIPATR)

//ContasCuentas contábeiscontables
oSNGMASTER:SetValue('NG_CCONTAB',cNG_CCONTAB)
oSNGMASTER:SetValue('NG_CDEPREC',cNG_CDEPREC)
oSNGMASTER:SetValue('NG_CCDEPR',cNG_CCDEPR)
oSNGMASTER:SetValue('NG_CDESP',cNG_CDESP)
oSNGMASTER:SetValue('NG_CCORREC',cNG_CCORREC)

//Centros de Custocosto
oSNGMASTER:SetValue('NG_CUSTBEM',cNG_CUSTBEM )
oSNGMASTER:SetValue('NG_CCDESP',cNG_CCDESP )
oSNGMASTER:SetValue('NG_CCCDEP',cNG_CCCDEP)
oSNGMASTER:SetValue('NG_CCCDES',cNG_CCCDES)
oSNGMASTER:SetValue('NG_CCCORR',cNG_CCCORR)

//ItemÍtem contábilcontable
oSNGMASTER:SetValue('NG_SUBCCON',cNG_SUBCCON)
oSNGMASTER:SetValue('NG_SUBCDEP',cNG_SUBCDEP)
oSNGMASTER:SetValue('NG_SUBCCDE',cNG_SUBCCDE)
oSNGMASTER:SetValue('NG_SUBCDES',cNG_SUBCDES)
oSNGMASTER:SetValue('NG_SUBCCOR',cNG_SUBCCOR)

//ClasseClase de valor
oSNGMASTER:SetValue('NG_CLVLCON',cNG_CLVLCON)
oSNGMASTER:SetValue('NG_CLVLDEP',cNG_CLVLDEP)
oSNGMASTER:SetValue('NG_CLVLCDE',cNG_CLVLCDE)
oSNGMASTER:SetValue('NG_CLVLDES',cNG_CLVLDES)
oSNGMASTER:SetValue('NG_CLVLCOR',cNG_CLVLCOR)

//GRID
oFNGDETAIL := __oModelAut:GetModel('FNGDETAIL') 
oFNGDETAIL:SetValue('FNG_TIPO',cFNG_TIPO)
oFNGDETAIL:SetValue('FNG_HISTOR',cFNG_HISTOR)

If __oModelAut:VldData() //validacao dos dados pelovalidación de los datos por el modelo

	__oModelAut:CommitData() //gravacaograbación de doslos dadosdatos

Else
	aLog := __oModelAut:GetErrorMessage() //Recupera oel erroerror dodel model quandocuando no naopasó passouen noel VldData
	//lacobucle para gravargrabar emen string cLog conteudocontenido dodel array aLog
	For nX := 1 to Len(aLog)
		If !Empty(aLog[nX])
			cLog += Alltrim(aLog[nX]) + CRLF
		EndIf
	Next nX

	lMsErroAuto := .T. //setaflecha variavelvariable private como erroerror
	AutoGRLog(cLog) //gravagraba log para exibirmostrar comcon funcaofunción mostraerro
	mostraerro()
	lRet := .F. //retornadevuelve false
Endif


__oModelAut:DeActivate() //desativadesactiva modelo

Return( lRet )
   

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "rwmake.ch"
#include 'totvs.ch'
#include 'tbiconn.ch'

Static __oModelAut := NIL //variavelvariable oModel para substituirsustituir msexecauto emen MVC

User Function MyATF271Alt()
Local oSNGMASTER 
Local lRet := .T.
Local nX := 0
Local aLog := {}
Local cLog := ""
Local lFound := .F.
Local cNG_GRUPO :=  "ATF4"
Local cNG_DESCRIC := "Grupo ATF4- TESTEPRUEBA"
Local dNG_DTBLOQ := CtOD("02/02/2020")


PREPARE ENVIRONMENT EMPRESA 'T1' FILIALSUCURSAL 'D MG 01' TABLES 'SNG','FNG' MODULOMÓDULO 'ATF'

While SNG->(!Eof()) .AND. lFound == .F.
	SNG->(dbSetOrder(1))
    lFound  :=  SNG->(dbSeek(SNG->NG_FILIAL+cNG_GRUPO))
	If lFound
	    Loop
	else
		SNG->( dbSkip() )
	Endif
	
Enddo

If __oModelAut == Nil //somentesolamente umacarga unicauna vez carregael o modelo
__oModelAut := FWLoadModel( 'ATFA271' )
EndIf

__oModelAut:SetOperation(MODEL_OPERATION_UPDATE)
__oModelAut:Activate()

oSNGMASTER := __oModelAut:GetModel('SNGMASTER')
//-- AbaSolapa principal
oSNGMASTER:SetValue('NG_DESCRIC',cNG_DESCRIC)
oSNGMASTER:SetValue('NG_DTBLOQ',dNG_DTBLOQ)


If __oModelAut:VldData() //validacao dos dados pelovalidación de los datos por el modelo

	__oModelAut:CommitData() //gravacaograbación de doslos dadosdatos

Else
	aLog := __oModelAut:GetErrorMessage() //Recupera oel erroerror dodel model cuando quandono naopasó passouen noel VldData
	//lacobucle para gravargrabar emen string cLog conteudocontenido dodel array aLog
	For nX := 1 to Len(aLog)
		If !Empty(aLog[nX])
			cLog += Alltrim(aLog[nX]) + CRLF
		EndIf
	Next nX

	lMsErroAuto := .T. //setaflecha variavelvariable private como erroerror
	AutoGRLog(cLog) //gravagraba log para exibirmostrar comcon funcaofunción mostraerro
	mostraerro()
	lRet := .F. //retornadevuelve false
Endif


__oModelAut:DeActivate() //desativadesactiva modelo

Return( lRet )
 

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "rwmake.ch"
#include 'totvs.ch'
#include 'tbiconn.ch'

Static __oModelAut := NIL //variavelvariable oModel para substituirsustituir msexecauto emen MVC

User Function MyATF271Del()
Local lRet := .T.
Local nX := 0
Local aLog := {}
Local cLog := ""
Local lFound := .F.
Local cNG_GRUPO :=  "ATF4"

PREPARE ENVIRONMENT EMPRESA 'T1' FILIALSUCURSAL 'D MG 01' TABLES 'SNG','FNG' MODULOMÓDULO 'ATF'

While SNG->(!Eof()) .AND. lFound == .F.
	SNG->(dbSetOrder(1))
    lFound  :=  SNG->(dbSeek(SNG->NG_FILIAL+cNG_GRUPO))
	If lFound
	    Loop
	else
		SNG->( dbSkip() )
	Endif
	
Enddo

If __oModelAut == Nil //somentesolamente umacarga unicauna vez carregael o modelo
__oModelAut := FWLoadModel( 'ATFA271' )
EndIf

__oModelAut:SetOperation(MODEL_OPERATION_DELETE)
__oModelAut:Activate()

If __oModelAut:VldData() //validacao dos dados pelovalidación de los datos por el modelo

	__oModelAut:CommitData() //gravacaograbación de doslos dadosdatos

Else
	aLog := __oModelAut:GetErrorMessage() //Recupera oel erroerror dodel model quandocuando no naopasó passouen noel VldData
	//lacobucle para gravargrabar emen string cLog conteudocontenido dodel array aLog
	For nX := 1 to Len(aLog)
		If !Empty(aLog[nX])
			cLog += Alltrim(aLog[nX]) + CRLF
		EndIf
	Next nX

	lMsErroAuto := .T. //setaflecha variavelvariable private como erroerror
	AutoGRLog(cLog) //gravagraba log para exibirmostrar comcon funcaofunción mostraerro
	mostraerro()
	lRet := .F. //retornadevuelve false
Endif


__oModelAut:DeActivate() //desativadesactiva modelo

Return( lRet )