Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MT103DRF - Alterar combobox
MT103DRF - Alterar combobox

Ponto-de-Entrada: MT103DRF - Alterar combobox
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
Este ponto de entrada pertence ao MATA103X (funções de validação e controle de interface do documento de entrada). e é executado na rotina de validação do código do fornecedor, NFEFORNECE() para documentos de entrada padrão.
Também é executado na rotina A103NFiscal do MATA103 quando da classificação de pré-notas de entrada.
Permite alterar o combobox com a informação se gera DIRF e o código de retenção.
Disponível para IRPF, ISS, PIS, Cofins e CSLL.
Programa Fonte
MATA103.PRW e MATA103X.PRW
Sintaxe

MT103DRF - Alterar combobox ( [ nCombo ], [ cCodRet ], [ oCombo ], [ oCodRet ] ) --> aImpRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
nComboNuméricoPosição do combo (1=sim;2=não)
cCodRetCaracterCódigo da retenção
oComboArray of RecordObjeto oCombo
oCodRetArray of RecordObjeto oCodRet
Retorno
    aImpRet(vetor)
  • aImpRet[1]=Nome do ImpostoaImpRet[2]=Nova posição do combo (1=sim;2=não)aImpRet[3]=Novo código de retenção.
Observações

Pode-se alterar o status de leitura dos objetos:  oCombo e oCodRet  exemplo: oCombo:lReadOnly := .T. 
oCodRet:lReadOnly:= .T.
  

Exemplos
User Function MT103DRF()Local nCombo := PARAMIXB[1] Local cCodRet := PARAMIXB[2] Local oCombo := PARAMIXB[3] Local oCodRet := PARAMIXB[4] Local aImpRet := {}nCombo  := 1cCodRet := "1700"aadd(aImpRet,{"IRR",nCombo,cCodRet})nCombo  := 2cCodRet := "1708"aadd(aImpRet,{"ISS",nCombo,cCodRet})nCombo  := 1cCodRet := "2008"aadd(aImpRet,{"PIS",nCombo,cCodRet})nCombo  := 1cCodRet := "2010"aadd(aImpRet,{"COF",nCombo,cCodRet})              nCombo  := 2cCodRet := "2050"aadd(aImpRet,{"CSL",nCombo,cCodRet})Return aImpRet