Árvore de páginas

Versões comparadas

Chave

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

...

04. EXEMPLO DE UTILIZAÇÃO

Aviso
titleImportante!

É necessário criar um campo na tabela SF2 indicando se o Fornecedor é Optante ou não pelo Crédito Presumido.

Bloco de código
languagepy
themeMidnight
titleMT080MEM
User Function MT103GUIA()

Local cAliasNFE := PARAMIXB[1] 
Local cAliasFor := PARAMIXB[2] 
Local cCodFil   := PARAMIXB[3] 
Local cCodFor   := PARAMIXB[4] 
Local cCodLoj   := PARAMIXB[5] 
Local cEspDoc   := PARAMIXB[6] 
Local lResult   := .F.
Local aAliAtu   := GetArea() 

If AllTrim(cEspDoc) == "CTR"   
	dbSelectArea(cAliasFor)   
	dbSetOrder(1)   
		If dbSeek(cCodFil+cCodFor+cCodLoj) .and. A2_OPTCRPR == "S"        
			lResult := .T.   
		Endif
Endif

RestArea(aAliAtu)  

Return lResult 


05. DEMAIS INFORMAÇÕES

...

titleImportante!

...

  • Não há