Histórico da Página

#INCLUDE "FILEIO.CH"

User Function At910CMa()

Local aRetInc := {.T., {}}

Local cDetCab := ""

Local nY := 0

Local cDetLinha := ""

Local nC :=

 0
Local cEmp	:= FWGrpCompany()
Local cDirArq := "\EXPCSVTEC\"+

cEmp+"\" + StrTran(

FwCodFil(), " ", "_")+"\"

Local lFirstProc := .F.

Local cMsg := ""

Local lRet := .F.

If ValType(PARAMIXB) == "A" .AND. Len(PARAMIXB) >= 4 .AND. ValType(PARAMIXB[01]) == "A"

;
  .AND. Len(PARAMIXB[01]) >

 0  .AND. ValType(PARAMIXB[02]) == "A" .AND. Len(PARAMIXB[02]) > 0

	If !ExistDir(cDirArq)

		MakeDir("\EXPCSVTEC\")

		MakeDir("\EXPCSVTEC\"+

cEmp+"\")

		MakeDir(cDirArq)

	EndIf
	
	aCabec := PARAMIXB[01]

	aItens := PARAMIXB[02]

             
	lFirstProc := PARAMIXB[04]

	cNomeArq := "U_At910CMa_"+Dtos(Date())+LTrim(Str(PARAMIXB[03]))+".txt"

	
	If lFirstProc .AND. File(cDirArq+cNomeArq)

		fErase(cDirArq+cNomeArq)

	EndIf
	
	If !File(cDirArq+cNomeArq)

		nHandle := FCreate(cDirArq+cNomeArq)

	Else
		nHandle := FOpen(cDirArq+cNomeArq, FO_READWRITE)

		FSeek(nHandle, 0, 2)

	EndIf
	
	aCabec := PARAMIXB[01]

	aItens := PARAMIXB[02]

	
	If nHandle <> -1
		For nC := 1 to len(aCabec)

			cDetCab +=

 Alltrim(IIF( ValType(aCabec[nC, 02])<> "D",cValToChar(aCabec[nC, 02])

  , DtoS(aCabec[nC, 02])))

+"|"
		Next nC
		
		For nC := 1 to Len(aItens)
			cDetLinha := cDetCab
		
			For nY := 1 to Len(aItens[nC])

				cDetLinha +=  Alltrim(IIF( ValType(aItens[nC, nY, 02])<> "D",cValToChar(aItens[nC, nY, 02])

  , DtoS(aItens[nC, nY, 02])))

+","
			Next nY
			
			cDetLinha := Substr(cDetLinha, 1, Len(cDetLinha)-1) +

 CRLF
			fWrite(nHandle, cDetLinha)

		Next

 nC
	
		lRet := .T.

		fClose(nHandle)

	Else
		cMsg := "Problemas na criação do arquivo"

	EndIf

Else

	cMsg := "Não enviados dados válidos referente às

 marcações"

EndIf

aRetInc[1] := lRet

aAdd(aRetInc[2], cMsg)

Return aRetInc