01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Fiscal |
02. DESCRIÇÃO
Incluído ponto de entrada MAZVSTDF para recalcular nota quando valor de ICMS ST, DIFAL ou FECOP for menor que 1 real para estado do Ceara.
03. ESPECIFICAÇÃO
Parâmetros do ponto de entrada:
Nome | Descrição | Tipo |
PARAMIXB[1] | UF de destino | Caractere |
PARAMIXB[2] | Valor ICMS ST | Numérico |
PARAMIXB[3] | Valor de Difal | Numérico |
PARAMIXB[4] | Quantidade de Itens | Array |
PARAMIXB[5] | Valor Fecop Dif | Numérico |
PARAMIXB[4] | Valor Fecop ST | Numérico |
Retorno
O sistema não espera retorno já que o ponto de entrada apenas manipula o array aNFItem
04. EXEMPLO DE UTILIZAÇÃO
MAZVSTDF
#include 'protheus.ch' #include 'parmtype.ch' user function MAZVSTDF() Local cEstado := Paramixb[1] // Estado de Destino Local nIcmsSt := Paramixb[2] // Valor ICMS ST Local nDifal := Paramixb[3] // Valor de Difal Local aItem := Paramixb[4] // Quantidade de Itens Local nFecopDf := Paramixb[5] // Valor Fecop Dif Local nFecopSt := Paramixb[6] // Valor Fecop St Local nX := 0 Local nTeste := 0 dbSelectArea('SD2') SD2->(dbSetOrder(3)) If cEstado == "CE" //Zera Valor de Difal If nDifal > 0 .And. nDifal < 1 MafisAlt("NF_PPDIFAL",.F.) For nX := 1 to len(aItem) MafisAlt("IT_DIFAL",0,nX) SD2->(MsSeek(xFilial('SD2') + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA+(aItem[nX][16])+(aItem[nX][73]))) MaFisWrite(2,"SD2",nX) Next MaFisWrite(2,"SF2") Endif If nIcmsSt > 0 .And. nIcmsSt < 1 MafisAlt("NF_BASESOL",0) MaFisWrite(2,"SF2") For nX := 1 to len(aItem) SD2->(MsSeek(xFilial('SD2') + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA+(aItem[nX][16])+(aItem[nX][73]))) MaFisWrite(2,"SD2",nX) Next Endif If nFecopDf > 0 .And. nFecopDf < 1 MaFisAlt("NF_VFCPDIF", 0) MaFisWrite(2,"SF2") For nX := 1 to len(aItem) MafisAlt("IT_VFCPDIF", 0, nX) SD2->(MsSeek(xFilial('SD2') + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA+(aItem[nX][16])+(aItem[nX][73]))) MaFisWrite(2,"SD2",nX) Next Endif If nFecopSt > 0 .And. nFecopSt < 1 MaFisAlt("NF_VFECPST", 0) MaFisWrite(2,"SF2") For nX := 1 to len(aItem) MafisAlt("IT_VFECPST", 0, nX) SD2->(MsSeek(xFilial('SD2') + SF2->F2_DOC + SF2->F2_SERIE + SF2->F2_CLIENTE + SF2->F2_LOJA+(aItem[nX][16])+(aItem[nX][73]))) MaFisWrite(2,"SD2",nX) Next Endif Endif Return
Observação
Este ponto de entrada é executado quando a nota esta sendo gravada.
05. INFORMAÇÕES ADICIONAIS
- GNRE - Valores de ICMS ST por Operação inferiores a R$ 1,00 para Ceará
- Orientações Consultoria de Segmentos – THIJ38 – Fundo Estadual de Combate e Erradicação a Pobreza - FECOP - CE
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas