Histórico da Página
...
O ponto de entrada SPEDRTMS tem como finalidade permitir a manipulação com as informações envolvendo Conhecimentos de Transporte para os clientes que possuem movimentos gerados sem integração com o ambiente SIGATMS - Gestão de Transportes
Sendo sendo utilizado na geração do Bloco documentos fiscais II serviço (ICMS)" para os Registros: D100, D110, D120, D130, D140, D150, D160, D161, D162 e D190.
03. ESPECIFICAÇÃO
Quando há integração com o módulo Gestão de Transportes - SIGATMS é necessário que haja registros na tabela DT6, mas quando há movimentos de CTE gerados pelo módulo Faturamento - SIGAFAT (em que não há registro no DT6), faz-se necessário o uso do ponto de entrada SPEDRMTS para obter e compor os registros mencionados anteriormente no arquivo magnético do SPEDFISCAL.
4. EXEMPLO DE UTILIZAÇÃO
Parâmetros do ponto de entrada:
Nome | Tipo | Descrição |
---|---|---|
ParamIXB[1] | Numérico | Posição do registro de gravação |
ParamIXB[2] | String | String do registro que será gravado |
ParamIXB[3] | String | Alias do SFT de processamento |
ParamIXB[4] | Array | Array de campos da SFT previamente carregados |
Aviso | ||
---|---|---|
| ||
É importante lembrar que este ponto de entrada permite apenas a manipulação do alias do livro fiscal por item (SFT). Desse modo, não é possível ou recomendado enviar dados de movimentos diferentes daqueles presentes no alias. |
03. ESPECIFICAÇÃO
Quando há integração com o módulo Gestão de Transportes - SIGATMS é necessário que haja registros na tabela DT6, mas quando há movimentos de CTE gerados pelo módulo Faturamento - SIGAFAT (em que não há registro no DT6), faz-se necessário o uso do ponto de entrada SPEDRMTS para obter e compor os registros mencionados anteriormente no arquivo magnético do SPEDFISCAL.
Aviso | ||
---|---|---|
| ||
É importante se atentar para validações pertinentes a cada registro do bloco, conforme exigências do GUIA PRÁTICO DA ESCRITURAÇÃO FISCAL DIGITAL – EFD-ICMS/IPI. Por exemplo, o registro D100 para o modelo de documento 63 deve apresentar o campo 04 - COD_PART em branco. O ponto de entrada é o meio adequado para atender a esta exigência (vide abaixo, na seção 4, exemplo de tratamento desta exigência com o PE SPEDRTMS). |
4. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
User Function SPEDRTMS()
Local vLinha := {}
Local nPos := ParamIXB[1]
Local cReg := ParamIXB[2]
Local cAlias := ParamIXB[3]
Local aCmpAntSFT := ParamIXB[4]
Local aRet := {}
Local vValServ := 0
Local vValDoc := 0
Local vValICMS := 0
Local vValBSICM := 0
Local cCod_Part := ""
Local cCodMunOri := ""
Local cCodMunDes := ""
Local cInd_Oper := ""
Local cInd_Emit := ""
Local cModelo := AModNot(aCmpAntSFT[42])
//Campos contidos no array aCmpAntSFT:
//01 - Doc. Fiscal
//02 - Serie NF
//03 - Cliente/Fornecedor
//04 - Código Loja
//05 - Data Docto
//06 - Data Emissão
//07 - Data Cancelamento
//08 - Formulário Próprio
//09 - CFOP
//10 -
//11 - Alíq. ICMS
//12 - Nro. PDV
//13 - Base ICMS
//14 - Alíq. ICMS
//15 - Valor ICMS
//16 - Valor Isento ICMS
//17 - Outros ICMS
//18 - ICMS Retido ST
//19 - Conta Contábil
//20 - Tipo Lançamento
//21 - Tipo Frete
//22 - Filial
//23 - Estado
//24 - Observação
//25 - Chave NFE
//26 - Tipo Emissão
//27 - Prefixo
//28 - Duplicata
//29 - Cupom Fiscal
//30 - Transportadora
//31 - Peso Bruto
//32 - Peso Liquido
//33 - Veiculo1
//34 - Veiculo2
//35 - Veiculo3
//36 - Optante Simples Nacional
//37 - Regime Paraíba
//38 - Nota Fiscal Original
//39 - Serie da Nota fiscal original
//40 - Flag de tipo de CTE na entrada
//41 - Data de Recebimento para Lançamento extemporâneo de documento fiscal.
//42 - Espécie do Documento
//43 - Tipo Mov.
//44 - Mensagem da Nota Fiscal
//45 - Produto
//46 - Item
//47 - Formula
//48 - Código da TES
//49 - UF de Origem do Transporte
//50 - Município de Origem do Transporte
//51 - UF de Destino do Transporte
//52 - Município de Destino do Transporte
//53 - Sub Série da nota fiscal de entrada
//54 - UF de Origem do Transporte
//55 - Município de Origem do Transporte
//56 - UF de Destino do Transporte
//57 - Município de Destino do Transporte
//58 - Município de Destino Complemento
//59 - Chave de Acesso SEFAZ/CTe
//60 - Documento de Transporte
//61 - Tipo Frete
//62 - Quantidade de registros encontrados na GZH
//63 - Código do Produto na SB1
//64 - Conta Contábil do Produto na SB1
If aCmpAntSFT[43] == "S"
DbSelectArea("SA1")
SA1->(DBSetOrder(1))
SA1->(DBSeek(XFilial("SA1") + aCmpAntSFT[3] + aCmpAntSFT[4]))
cCod_Part := "SA1"
cCodMunOri := SM0->M0_CODMUN
cCodMunDes := UfCodIBGE(SA1->A1_EST) + AllTrim(SA1->A1_COD_MUN)
DbSelectArea("SF2")
SF2->(DBSetOrder(1))
SF2->(DBSeek(XFilial("SF2") + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4]))
cCod_Part += SF2->(F2_FILIAL+F2_CLIENTE+F2_LOJA)
Else
DbSelectArea("SA2")
SA2->(DBSetOrder(1))
SA2->(DBSeek(XFilial("SA2") + aCmpAntSFT[3] + aCmpAntSFT[4]))
cCod_Part := "SA2"
cCodMunOri := UfCodIBGE(SA2->A2_EST) + AllTrim(SA2->A2_COD_MUN)
cCodMunDes := SM0->M0_CODMUN
| ||||||||
Bloco de código | ||||||||
| ||||||||
User Function SPEDRTMS() Local vLinha := {} Local nPos := ParamIXB[1] Local cReg := ParamIXB[2] Local cAlias := ParamIXB[3] Local aCmpAntSFT := ParamIXB[4] Local aRet := {} Local vValServ := 0 Local vValDoc := 0 Local vValICMS := 0 Local vValBSICM := 0 Local cCodPart := "" //Campos contidos no array aCmpAntSFT: //01 - Doc. Fiscal //02 - Serie NF //03 - Cliente/Fornecedor //04 - Código Loja //05 - Data Docto //06 - Data Emissão //07 - Data Cancelamento //08 - Formulário Próprio //09 - CFOP //10 - //11 - Alíq. ICMS //12 - Nro. PDV //13 - Base ICMS //14 - Alíq. ICMS //15 - Valor ICMS //16 - Valor Isento ICMS //17 - Outros ICMS //18 - ICMS Retido ST //19 - Conta Contábil //20 - Tipo Lançamento //21 - Tipo Frete //22 - Filial //23 - Estado //24 - Observação //25 - Chave NFE //26 - Tipo Emissão //27 - Prefixo //28 - Duplicata //29 - Cupom Fiscal //30 - Transportadora //31 - Peso Bruto //32 - Peso Liquido //33 - Veiculo1 //34 - Veiculo2 //35 - Veiculo3 //36 - Optante Simples Nacional //37 - Regime Paraíba //38 - Nota Fiscal Original //39 - Serie da Nota fiscal original //40 - Flag de tipo de CTE na entrada //41 - Data de Recebimento para Lançamento extemporâneo de documento fiscal. //42 - Espécie do Documento //43 - Tipo Mov. //44 - Mensagem da Nota Fiscal //45 - Produto //46 - Item //47 - Formula //48 - Código da TES //49 - UF de Origem do Transporte //50 - Município de Origem do Transporte //51 - UF de Destino do Transporte //52 - Município de Destino do Transporte //53 - Sub Série da nota fiscal de entrada //54 - UF de Origem do Transporte //55 - Município de Origem do Transporte //56 - UF de Destino do Transporte //57 - Município de Destino do Transporte //58 - Município de Destino Complemento //59 - Chave de Acesso SEFAZ/CTe //60 - Documento de Transporte //61 - Tipo Frete //62 - Quantidade de registros encontrados na GZH //63 - Código do Produto na SB1 //64 - Conta Contábil do Produto na SB1 If aCmpAntSFT[43] == "S" DbSelectArea("SA1SF1") SA1SF1->(DBSetOrder(1)) SA1SF1->(DBSeek(XFilial("SA1SF1") + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4])) cCod_Part + aCmpAntSFT[4])) = SF1->(F1_FILIAL+F1_FORNECE+F1_LOJA) EndIf cCodPartIf cReg :== "SA1D140" DbSelectArea("SF2") SF2->(DBSetOrder(1)) AAdd(vLinha, "D140") SF2->(DBSeek(XFilial("SF2") + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4])) // 01 - REG AAdd(vLinha, cCod_Part ) // 02 - COD_PART_CONSG cCodPart += SF2->(F2_FILIAL+F2_CLIENTE+F2_LOJA) AAdd(vLinha, Else cCodMunOri) // 03 DbSelectArea("SA2")- COD_MUN_ORIG SA2->(DBSetOrder(1)) AAdd(vLinha, cCodMunDes) SA2->(DBSeek(XFilial("SA2") + aCmpAntSFT[3] + aCmpAntSFT[4])) // 04 - COD_MUN_DEST cCodPartAAdd(vLinha, := "SA21" ) DbSelectArea("SF1") // 05 SF1->(DBSetOrder(1))- IND_VEIC SF1->(DBSeek(XFilial("SF1") + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4])) AAdd(vLinha, "") cCodPart// +=06 SF1->(F1_FILIAL+F1_FORNECE+F1_LOJA) VEIC_ID EndIf AAdd(vLinha, If cReg == "D140" 0") // 07 - IND_NAV AAdd(vLinha, "D140") // 0108 - REGVIAGEM AAdd(vLinha, cCodPart) LTrim(Transform(SF2->F2_VALMERC, "@E 99999999.99"))) // 0209 - CODVL_PARTFRT_CONSGLIQ AAdd(vLinha, aCmpAntSFT[50])"") // 0310 - CODVL_MUNDESP_ORIGPORT AAdd(vLinha, aCmpAntSFT[57]) "") // 0411 - CODVL_DESP_MUNCAR_DESTDESC AAdd(vLinha, "1") // 0512 - INDVL_VEICOUT AAdd(vLinha, "") LTrim(Transform(SF2->F2_VALBRUT, "@E 99999999.99"))) // 0613 - VEICVL_FRT_IDBRT AAdd(vLinha, LTrim(Transform(0.00, "0@E 99999999.99") )) // 0714 - INDVL_FRT_NAVMM AAdd(vLinhaaRet, vLinha) "") ElseIf cReg == "D120" // 08 - VIAGEM AAdd(vLinha, LTrim(Transform(SF2->F2_VALMERC, "@E 99999999.99")))"D120") // 0901 - VL_FRT_LIQREG AAdd(vLinha, "") cCodMunOri) // 1002 - VLCOD_DESPMUN_PORTORIG AAdd(vLinha, ""cCodMunDes) // 1103 - VLCOD_DESPMUN_CAR_DESCDEST AAdd(vLinha, "") // 1204 - VLVEIC_OUTID AAdd(vLinha, LTrim(Transform(SF2->F2_VALBRUT, "@E 99999999.99"))) // 13 - VL_FRT_BRT AAdd(vLinha, LTrim(Transform(SF2->(F2_AFRMM1+F2_AFRMM2), "@E 99999999.99"))) // 1405 - VLUF_FRT_MMID AAdd(aRet, vLinha) ElseIf cReg == "D100" If aCmpAntSFT[43] == "S" cInd_Oper := "S1" cInd_Emit := "0" vValServ := LTrim(Transform(F2_VALMERC + F2_FRETE + F2_VALICM, "@E 99999999.99")) vValDoc := LTrim(Transform(F2_VALBRUT, "@E 99999999.99")) vValICMS := LTrim(Transform(F2_VALICM , "@E 99999999.99")))) Else vValICMS := LTrim(Transform(F2_VALICM , "@E 99999999.99")) cInd_Oper := Else"0" cInd_Emit := "1" vValServ := LTrim(Transform(F1_VALMERC + F1_FRETE + F1_VALICM, "@E 99999999.99")) vValDoc := LTrim(Transform(F1_VALBRUT, "@E 99999999.99")) vValICMS := LTrim(Transform(F1_VALICM , "@E 99999999.99")) EndIf DbSelectArea("SF3") SF3->(DBSetOrder(1)) SF3->(DBSeek(XFilial("SF3") + DtoS(aCmpAntSFT[6]) + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4])) vValBSICM := LTrim(Transform(F3_VALCONT, "@E 99999999.99")) AAdd(vLinha, "D100") //01 REG AAdd(vLinha, "1") cInd_Oper) //02 IND_OPER AAdd(vLinha, "0"cInd_Emit) //03 IND_EMIT AAdd(vLinha, cCodPart) IIf(cModelo$"63", "", cModelo)) //04 COD_PART AAdd(vLinha, "57") AModNot(aCmpAntSFT[42])) //05 COD_MOD AAdd(vLinha, "00") //06 COD_SIT AAdd(vLinha, aCmpAntSFT[2]) //07 SER AAdd(vLinha, "") //08 SUB AAdd(vLinha, aCmpAntSFT[1]) //09 NUM_DOC AAdd(vLinha, aCmpAntSFT[25]) //10 CHV_CTE AAdd(vLinha, aCmpAntSFT[5]) //11 DT_DOC AAdd(vLinha, aCmpAntSFT[5]) //12 DT_A_P AAdd(vLinha, 0) //13 TP_CTe AAdd(vLinha, "") //14 CHV_CTe_REF AAdd(vLinha, vValDoc) //15 VL_DOC AAdd(vLinha, 0) //16 VL_DESC AAdd(vLinha, "1") AAdd(vLinha, IIf(cModelo$"63", "", aCmpAntSFT[21])) //17 IND_FRT AAdd(vLinha, vValServ) //18 VL_SERV AAdd(vLinha, vValBSICM) //19 VL_BC_ICMS AAdd(vLinha, vValICMS) //20 VL_ICMS AAdd(vLinha, 0) //21 VL_NT AAdd(vLinha, "") //22 COD_INF AAdd(vLinha, "") //23 COD_CTA AAdd(vLinha, SM0->M0_CODMUN)cCodMunOri) //24 COD_MUN_ORIG AAdd(vLinha, UfCodIBGE(aCmpAntSFT[56]) + AllTrim(aCmpAntSFT[57]))cCodMunDes) //25 COD_MUN_DEST AAdd(aRet, vLinha)_DEST EndIf Return(aRet) |
05. INFORMAÇÕES ADICIONAIS
Parâmetros do ponto de entrada:
...
Nome
...
Tipo
...
Descrição
...
AAdd(aRet, vLinha)
EndIf
Return(aRet)
|
05. INFORMAÇÕES ADICIONAIS
O
...
title | Retorno |
---|
...
retorno do ponto de entrada deverá ser obrigatoriamente um array.