Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


01. DADOS GERAIS

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoBackoffice

Módulo:Livros Fiscais - SIGAFIS


02. DESCRIÇÃO

Ponto de entrada MATA960DUP é utilizado para gerar o título no Contas a Pagar na geração da GNRE.

03. ESPECIFICAÇÃO

Parâmetros do ponto de entrada:

Esse ponto de entrada não tem parâmetros de entrada

Retorno:

O Sistema não espera retorno

04. EXEMPLOS DE UTILIZAÇÃO


Bloco de código
languagejava
themeMidnight
titleMA960DUP
linenumberstrue
User Function MA960DUP()
    Local cAlias     := "SF6"
    Local cNatureza  := ""
    Local cPref      := "UN "
    Local cTipo      := "TX "
    Local aArray     := {}
 
    Private lMsErroAuto := .F.

    //Natureza
    Do Case 
    Case (cAlias)->F6_TIPOIMP == "1"
        cNatureza := "ICMS"
    Case (cAlias)->F6_TIPOIMP == "2
        cNatureza := "ISS"
    Case (cAlias)->F6_TIPOIMP == "3"
        cNatureza := "ICMS/ST"
    Case (cAlias)->F6_TIPOIMP == "4"
        cNatureza := "FUNRURAL"
    Case (cAlias)->F6_TIPOIMP == "5"
        cNatureza := "SIMPLES FEDERAL"
    Case (cAlias)->F6_TIPOIMP == "6"
        cNatureza := "FUNDERSUL"
    Case (cAlias)->F6_TIPOIMP == "7"
        cNatureza := "SIMPLES NACIONAL"
    Case (cAlias)->F6_TIPOIMP == "8"
        cNatureza := "FUST/FUNTTEL"
    Case (cAlias)->F6_TIPOIMP == "9"
        cNatureza := "SENAR"
    EndCase

    aArray := { { "E2_PREFIXO"  , cPref                , NIL },;
                { "E2_NUM"      , (cAlias)->F6_NUMERO  , NIL },;
                { "E2_TIPO"     , cTipo                , NIL },;
                { "E2_NATUREZ"  , cNatureza            , NIL },;
                { "E2_FORNECE"  , (cAlias)->F6_CLIFOR  , NIL },;
                { "E2_EMISSAO"  , (cAlias)->F6_DTARREC , NIL },;
                { "E2_VENCTO"   , (cAlias)->F6_DTVENC  , NIL },;
                { "E2_VENCREA"  , CtoD("30/05/2020")   , NIL },;
                { "E2_VALOR"    , (cAlias)->F6_VALOR   , NIL } }

    MsExecAuto({ |x,y,z| FINA050(x,y,z) } ,aArray , ,3)  //3 - Inclusao, 4 - Alteração, 5 - Exclusão

    If lMsErroAuto
        MostraErro()
    Else
        Alert("Título incluído com sucesso!")
    Endif

Return



05. INFORMAÇÕES ADICIONAIS



Templatedocumentos