Histórico da Página

Índice

01.

...

VISIÓN GENERAL

Esta rotina possibilita a inclusão, alteração ou exclusão de qualquer Exceção Fiscal rutina permite la inclusión, modificación o borrado de cualquier Excepción fiscal de forma automática.

02.

...

EJEMPLO DE

...

UTILIZACIÓN

El ejemplo muestra la inclusión, modificación y borrado de una Excepción fiscal por medio de la utilización de la rutina automática.

La documentación también se aplica al Protheus 11 y 12, sin embargo, debe observar que la versión con MVC está disponible a partir de la versión

...

O exemplo demostra a inclusão, alteração e exclusão de uma Exceção Fiscal através da utilização da rotina automática.

Documentação também se aplica a Protheus 11 e 12, porém, deve-se atentar que a versão com MVC está disponível a partir da versão 12.1.17 de outubro octubre de 2017 do del Protheus.

0201.

...

INCLUSIÓN

Bloco de código

language	php
theme	RDark
title	MATA540 - Rotina Automática Rutina automática de Cadastro registro de Exceção Fiscal excepción fiscal - InclusãoInclusión

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE 'Protheus.ch'
#INCLUDE 'FWMVCDef.ch'
 
//------------------------------------------------------------------------
/*
EXEMPLOEJEMPLO DE INCLUSÃOINCLUSIÓN
*/
//------------------------------------------------------------------------
User Function m540Inc()
Local oModel := Nil
Local nSeq := 1
Local cSequen := 0
Private lMsErroAuto := .F.
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIALSUCURSAL "XIFIS26"
 
cSequen := StrZero(nSeq,TamSx3("F7_SEQUEN")[1],0)
 
oModel := FwLoadModel ("MATA540")
oModel:SetOperation(MODEL_OPERATION_INSERT)
oModel:Activate()
oModel:SetValue("SF7MASTER","F7_GRTRIB" ,"050" )
oModel:SetValue("SF7DETAIL","F7_SEQUEN" ,cSequen )
oModel:SetValue("SF7DETAIL","F7_EST" ,"**" )
oModel:SetValue("SF7DETAIL","F7_TIPOCLI","*" )
oModel:SetValue("SF7DETAIL","F7_ALIQINT",12 )
oModel:SetValue("SF7DETAIL","F7_ALIQEXT",12 )
oModel:SetValue("SF7DETAIL","F7_MARGEM" ,12 )
oModel:SetValue("SF7DETAIL","F7_ALIQDST",12 )
oModel:SetValue("SF7DETAIL","F7_GRPCLI" ,"001" )
oModel:SetValue("SF7DETAIL","F7_ISS" ,"N" )
oModel:SetValue("SF7DETAIL","F7_VLR_ICM",12 )
oModel:SetValue("SF7DETAIL","F7_VLR_IPI",12 )
oModel:SetValue("SF7DETAIL","F7_VLR_PIS",0 )
oModel:SetValue("SF7DETAIL","F7_VLR_COF",0 )
oModel:SetValue("SF7DETAIL","F7_VLRICMP",12 )
oModel:SetValue("SF7DETAIL","F7_ALIQIPI",12 )
oModel:SetValue("SF7DETAIL","F7_ALIQPIS",0 )
oModel:SetValue("SF7DETAIL","F7_ALIQCOF",0 )
oModel:SetValue("SF7DETAIL","F7_BASEICM",0 )
oModel:SetValue("SF7DETAIL","F7_BASEIPI",0 )
oModel:SetValue("SF7DETAIL","F7_REDPIS" ,0 )
oModel:SetValue("SF7DETAIL","F7_REDCOF" ,0 )
oModel:SetValue("SF7DETAIL","F7_ICMPAUT","1" )
oModel:SetValue("SF7DETAIL","F7_UFBUSCA","1" )
oModel:SetValue("SF7DETAIL","F7_BSICMST",0 )
oModel:SetValue("SF7DETAIL","F7_PRCUNIC",0 )
oModel:SetValue("SF7DETAIL","F7_DTINCLU",dDataBase )
oModel:SetValue("SF7DETAIL","F7_ORIGEM" ,"0" )
oModel:SetValue("SF7DETAIL","F7_SITTRIB","00" )
 
 
If oModel:VldData()
   oModel:CommitData()
   MsgInfo("Registro¡Registro INCLUIDO!", "AtençãoAtención")
Else
   VarInfo("",oModel:GetErrorMessage())
EndIf
 
oModel:DeActivate()
oModel:Destroy()
 
oModel := NIL
 
Return Nil

0202.

...

MODIFICACIÓN

Bloco de código

language	php
theme	RDark
title	MATA540 - Rotina Automática Rutina automática de Cadastro registro de Exceção Fiscal excepción fiscal - AlteraçãoModificación

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE 'Protheus.ch'
#INCLUDE 'FWMVCDef.ch'   

//------------------------------------------------------------------------
/*
EXEMPLOEJEMPLO DE ALTERAÇÃOMODIFICACIÓN
*/
//------------------------------------------------------------------------
 
User Function m540Alt()
Local oModel := Nil
Private lMsErroAuto := .F.
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIALSUCURSAL "XIFIS26"
 
//Posiciona
DbSelectArea("SF7")
SF7->(DbSetOrder(1))
If SF7->(DbSeek(xFilial("SF7") + "050"))
     oModel := FwLoadModel ("MATA540")
     oModel:SetOperation(MODEL_OPERATION_UPDATE)
     oModel:Activate()
     oModel:SetValue("SF7DETAIL","F7_EST","SP")
 
     If oModel:VldData()
         oModel:CommitData()
         MsgInfo("Registro¡Registro ALTERADOMODIFICADO!", "AtençãoAtención")
     Else
         VarInfo("",oModel:GetErrorMessage())
     EndIf
 
     oModel:DeActivate()
Else
     MsgInfo("Registro¡Registro NAONO LOCALIZADOUBICADO!", "AtençãoAtención")
EndIf
 
Return Nil

0203.

...

BORRADO

Bloco de código

language	php
theme	RDark
title	MATA540 - Rotina Automática Rutina automática de Cadastro registro de Exceção Fiscal excepción fiscal - ExclusãoBorrado

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
#INCLUDE 'Protheus.ch'
#INCLUDE 'FWMVCDef.ch'   

//------------------------------------------------------------------------
/*
EXEMPLOEJEMPLO DE EXCLUSÃOBORRADO
*/
//------------------------------------------------------------------------
 
User Function m540Exc()
Local oModel := Nil
Private aRotina := {}
 
PREPARE ENVIRONMENT EMPRESA "T1" FILIALSUCURSAL "XIFIS26"
//Posiciona
DbSelectArea("SF7")
SF7->(DbSetOrder(1))
If SF7->(DbSeek(xFilial("SF7") + "050"))
    oModel := FwLoadModel ("MATA540")
    oModel:SetOperation(MODEL_OPERATION_DELETE)
    oModel:Activate()
 
    If oModel:VldData()
        oModel:CommitData()
        MsgInfo("Registro¡Registro EXCLUIDOBORRADO!", "AtençãoAtención")
    Else
        VarInfo("",oModel:GetErrorMessage())
    EndIf
 
    oModel:DeActivate()
Else
    MsgInfo("Registro¡Registro NAONO LOCALIZADOUBICADO!", "AtençãoAtención")
EndIf
 
Return Nil

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

01.

VISIÓN GENERAL

02.

EJEMPLO DE

UTILIZACIÓN

0201.

INCLUSIÓN

0202.

MODIFICACIÓN

0203.

BORRADO