Ponto-de-Entrada: SPDPIS06 - Altera informações do registro C600 do SPED PIS/COFINS
| Versões: | Microsiga Protheus 10 , Microsiga Protheus 11 |
| Compatível Países: | Brasil |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Permite alteração nas informações do registro C600 do SPED PIS/COFINS.
Eventos
Programa Fonte
SPEDPISCOF.PRW
Sintaxe
SPDPIS06 - Altera informações do registro C600 do SPED PIS/COFINS ( [ aC600 ], [ cAlias ] ) --> aRet
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| aC600 | Array of Record | Array contendo as informações do registro C600. As posições são referentes ao Guia Prático EFD PIS/COFINS. | |||||||||||||||
| cAlias | Array of Record | Alias da tabela principal. |
Retorno
aRet
- (array_of_record)
- Array do registro C600 alterado.
Observações
Exemplos
#include "protheus.ch"#include "topconn.ch"User Function SPDPis06() Local alC600 := ParamIXB[1] // Array C600 Local cAlias := ParamIXB[2] // Alias dbSelectArea("SA1") SA1->(DbSetOrder(1)) If SA1->(DbSeek(xFilial("SA1")+(cAlias)->FT_CLIEFOR+(cAlias)->FT_LOJA)) // Alteracao das informacoes desejadas // Campo 03 - Cod. Mun. (Exemplo) alC600[03] := "35"+AllTrim(SA1->A1_COD_MUN) // Campo 06 - SubSerie (Exemplo) alC600[05] := "001" // Campo 07 - Cod_Cons (Neste exemplo estamos utilizando codigo da classe // de consumo de energia eletrica, conforme tabela 4.4.5 alC600[06] := "80" // Campo 12 - Consumo em kWh (Exemplo) alC600[12] := AllTrim(STR(Val(alC600[12])+((cAlias)->FT_QUANT*2000))) EndIf Return alC600 // Retorna o array modificado.Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |