01. DADOS GERAIS
| Linha de Produto: | Linha Protheus |
|---|---|
| Segmento: | Backoffice |
| País: | Todos |
02. DESCRIÇÃO
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 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.
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 |
Importante
É 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.
Importante
É 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
SPEDRTMS
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
DbSelectArea("SF1")
SF1->(DBSetOrder(1))
SF1->(DBSeek(XFilial("SF1") + aCmpAntSFT[1] + aCmpAntSFT[2] + aCmpAntSFT[3] + aCmpAntSFT[4]))
cCod_Part += SF1->(F1_FILIAL+F1_FORNECE+F1_LOJA)
EndIf
If cReg == "D140"
AAdd(vLinha, "D140") // 01 - REG
AAdd(vLinha, cCod_Part ) // 02 - COD_PART_CONSG
AAdd(vLinha, cCodMunOri) // 03 - COD_MUN_ORIG
AAdd(vLinha, cCodMunDes) // 04 - COD_MUN_DEST
AAdd(vLinha, "1") // 05 - IND_VEIC
AAdd(vLinha, "") // 06 - VEIC_ID
AAdd(vLinha, "0") // 07 - IND_NAV
AAdd(vLinha, "") // 08 - VIAGEM
AAdd(vLinha, LTrim(Transform(SF2->F2_VALMERC, "@E 99999999.99"))) // 09 - VL_FRT_LIQ
AAdd(vLinha, "") // 10 - VL_DESP_PORT
AAdd(vLinha, "") // 11 - VL_DESP_CAR_DESC
AAdd(vLinha, "") // 12 - VL_OUT
AAdd(vLinha, LTrim(Transform(SF2->F2_VALBRUT, "@E 99999999.99"))) // 13 - VL_FRT_BRT
AAdd(vLinha, LTrim(Transform(0.00, "@E 99999999.99"))) // 14 - VL_FRT_MM
AAdd(aRet, vLinha)
ElseIf cReg == "D120"
AAdd(vLinha, "D120") // 01 - REG
AAdd(vLinha, cCodMunOri) // 02 - COD_MUN_ORIG
AAdd(vLinha, cCodMunDes) // 03 - COD_MUN_DEST
AAdd(vLinha, "") // 04 - VEIC_ID
AAdd(vLinha, "") // 05 - UF_ID
AAdd(aRet, vLinha)
ElseIf cReg == "D100"
If aCmpAntSFT[43] == "S"
cInd_Oper := "1"
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
cInd_Oper := "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, cInd_Oper) //02 IND_OPER
AAdd(vLinha, cInd_Emit) //03 IND_EMIT
AAdd(vLinha, IIf(cModelo$"63", "", cModelo)) //04 COD_PART
AAdd(vLinha, 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, 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, cCodMunOri) //24 COD_MUN_ORIG
AAdd(vLinha, cCodMunDes) //25 COD_MUN_DEST
AAdd(aRet, vLinha)
EndIf
Return(aRet)
05. INFORMAÇÕES ADICIONAIS
O retorno do ponto de entrada deverá ser obrigatoriamente um array.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas